Browse Source

* Issue an error if opcode is not found

pierre 25 years ago
parent
commit
f94c25e338
2 changed files with 10 additions and 2 deletions
  1. 5 1
      compiler/ra386att.pas
  2. 5 1
      compiler/ra386int.pas

+ 5 - 1
compiler/ra386att.pas

@@ -329,6 +329,7 @@ begin
         actasmtoken:=AS_END;
         actasmtoken:=AS_END;
         exit;
         exit;
       end;
       end;
+     message1(asmr_e_unknown_opcode,actasmpattern);
      actasmtoken:=AS_NONE;
      actasmtoken:=AS_NONE;
    end
    end
   else { else firsttoken }
   else { else firsttoken }
@@ -1994,7 +1995,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.75  2000-05-08 13:23:03  peter
+  Revision 1.76  2000-05-09 11:56:25  pierre
+   * Issue an error if opcode is not found
+
+  Revision 1.75  2000/05/08 13:23:03  peter
     * fixed reference parsing
     * fixed reference parsing
 
 
   Revision 1.74  2000/04/29 12:51:33  peter
   Revision 1.74  2000/04/29 12:51:33  peter

+ 5 - 1
compiler/ra386int.pas

@@ -297,6 +297,7 @@ begin
       end;
       end;
      if is_asmdirective(actasmpattern) then
      if is_asmdirective(actasmpattern) then
       exit;
       exit;
+     message1(asmr_e_unknown_opcode,actasmpattern);
      actasmtoken:=AS_NONE;
      actasmtoken:=AS_NONE;
      exit;
      exit;
    end
    end
@@ -1825,7 +1826,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.65  2000-05-08 13:23:04  peter
+  Revision 1.66  2000-05-09 11:56:26  pierre
+   * Issue an error if opcode is not found
+
+  Revision 1.65  2000/05/08 13:23:04  peter
     * fixed reference parsing
     * fixed reference parsing
 
 
   Revision 1.64  2000/04/29 12:51:34  peter
   Revision 1.64  2000/04/29 12:51:34  peter