Browse Source

* use new illegal_char method

peter 25 years ago
parent
commit
6fa1a1bae0
2 changed files with 10 additions and 8 deletions
  1. 5 4
      compiler/ra386att.pas
  2. 5 4
      compiler/ra386int.pas

+ 5 - 4
compiler/ra386att.pas

@@ -732,9 +732,7 @@ begin
          end;
 
        else
-         Begin
-           Message(scan_f_illegal_char);
-         end;
+         current_scanner^.illegal_char(c);
      end;
    end;
 end;
@@ -2099,7 +2097,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.83  2000-06-15 18:07:07  peter
+  Revision 1.84  2000-06-18 18:07:06  peter
+    * use new illegal_char method
+
+  Revision 1.83  2000/06/15 18:07:07  peter
     * fix constant parsing which gave an error when constants were used
 
   Revision 1.82  2000/06/14 19:02:41  peter

+ 5 - 4
compiler/ra386int.pas

@@ -622,9 +622,7 @@ begin
          end;
 
         else
-           Begin
-             Message(scan_f_illegal_char);
-           end;
+           current_scanner^.illegal_char(c);
      end;
    end;
 end;
@@ -1899,7 +1897,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.74  2000-06-15 18:07:08  peter
+  Revision 1.75  2000-06-18 18:07:06  peter
+    * use new illegal_char method
+
+  Revision 1.74  2000/06/15 18:07:08  peter
     * fix constant parsing which gave an error when constants were used
 
   Revision 1.73  2000/06/14 19:02:41  peter