Browse Source

* some compilation fixes

Nikolay Nikolov 1 year ago
parent
commit
0825f0e2cb
1 changed files with 5 additions and 5 deletions
  1. 5 5
      compiler/mos6502/cgcpu.pas

+ 5 - 5
compiler/mos6502/cgcpu.pas

@@ -109,7 +109,7 @@ unit cgcpu;
         procedure g_restore_registers(list : TAsmList);override;
 
         procedure a_jmp_cond(list : TAsmList;cond : TOpCmp;l: tasmlabel);
-        function normalize_ref(list : TAsmList;ref : treference; const refopertypes:trefoperandtypes; out allocatedregs:tregisterlist) : treference;
+        //function normalize_ref(list : TAsmList;ref : treference; const refopertypes:trefoperandtypes; out allocatedregs:tregisterlist) : treference;
         procedure adjust_normalized_ref(list: TAsmList;var ref: treference; value: longint);
 
         procedure emit_mov(list: TAsmList;reg2: tregister; reg1: tregister);
@@ -129,10 +129,10 @@ unit cgcpu;
 
     procedure create_codegen;
 
-    const
-      TOpCG2AsmOp: Array[topcg] of TAsmOp = (A_NONE,A_LD,A_ADD,A_AND,A_NONE,
-                            A_NONE,A_NONE,A_NONE,A_NEG,A_CPL,A_OR,
-                            A_SRA,A_SLA,A_SRL,A_SUB,A_XOR,A_RLCA,A_RRCA);
+    //const
+    //  TOpCG2AsmOp: Array[topcg] of TAsmOp = (A_NONE,A_LD,A_ADD,A_AND,A_NONE,
+    //                        A_NONE,A_NONE,A_NONE,A_NEG,A_CPL,A_OR,
+    //                        A_SRA,A_SLA,A_SRL,A_SUB,A_XOR,A_RLCA,A_RRCA);
   implementation
 
     uses