浏览代码

* fixed instruct not in table msg

peter 27 年之前
父节点
当前提交
83d1beb321
共有 2 个文件被更改,包括 10 次插入4 次删除
  1. 5 2
      compiler/ra386att.pas
  2. 5 2
      compiler/ra386int.pas

+ 5 - 2
compiler/ra386att.pas

@@ -1593,7 +1593,7 @@ const
     { I think this is too dangerous for me therefore i decided that for }
     { the att version only if the processor > i386 or we are compiling  }
     { the system unit then this will be allowed...                      }
-    if (instruc >= lastop_in_table) then
+    if (instruc > lastop_in_table) then
       begin
          Message1(assem_w_opcode_not_in_table,upper(att_op2str[instruc]));
          fits:=true;
@@ -3891,7 +3891,10 @@ end.
 
 {
   $Log$
-  Revision 1.20  1998-11-13 15:40:27  pierre
+  Revision 1.21  1998-11-16 15:38:54  peter
+    * fixed instruct not in table msg
+
+  Revision 1.20  1998/11/13 15:40:27  pierre
     + added -Se in Makefile cvstest target
     + lexlevel cleanup
       normal_function_level main_program_level and unit_init_level defined

+ 5 - 2
compiler/ra386int.pas

@@ -1345,7 +1345,7 @@ var
 
     { this makes cpu.pp uncompilable, but i think this code should be }
     { inserted in the system unit anyways.                            }
-    if (instruc >= lastop_in_table) then
+    if (instruc > lastop_in_table) then
       begin
          Message1(assem_w_opcode_not_in_table,upper(int_op2str[instruc]));
          fits:=true;
@@ -3484,7 +3484,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.13  1998-11-15 14:37:16  peter
+  Revision 1.14  1998-11-16 15:38:56  peter
+    * fixed instruct not in table msg
+
+  Revision 1.13  1998/11/15 14:37:16  peter
     + support for result in delphimode
 
   Revision 1.12  1998/11/13 15:40:30  pierre