Browse Source

* completed jrcxz support

git-svn-id: trunk@6401 -
florian 18 năm trước cách đây
mục cha
commit
08f48f5fc9
2 tập tin đã thay đổi với 8 bổ sung0 xóa
  1. 3 0
      compiler/i386/ag386nsm.pas
  2. 5 0
      compiler/x86/cpubase.pas

+ 3 - 0
compiler/i386/ag386nsm.pas

@@ -318,6 +318,9 @@ interface
               begin
                 if not(
                        (op=A_JCXZ) or (op=A_JECXZ) or
+{$ifdef x86_64}
+                       (op=A_JRCXZ) or
+{$endif x86_64}
                        (op=A_LOOP) or (op=A_LOOPE) or
                        (op=A_LOOPNE) or (op=A_LOOPNZ) or
                        (op=A_LOOPZ)

+ 5 - 0
compiler/x86/cpubase.pas

@@ -375,8 +375,13 @@ implementation
       begin
         case o of
           A_CALL,
+{$ifdef i386}
           A_JCXZ,
+{$endif i386}
           A_JECXZ,
+{$ifdef x86_64}
+          A_JRCXZ,
+{$endif x86_64}
           A_JMP,
           A_LOOP,
           A_LOOPE,