소스 검색

* use new illegal_char method

peter 25 년 전
부모
커밋
6fa1a1bae0
2개의 변경된 파일10개의 추가작업 그리고 8개의 파일을 삭제
  1. 5 4
      compiler/ra386att.pas
  2. 5 4
      compiler/ra386int.pas

+ 5 - 4
compiler/ra386att.pas

@@ -732,9 +732,7 @@ begin
          end;
          end;
 
 
        else
        else
-         Begin
-           Message(scan_f_illegal_char);
-         end;
+         current_scanner^.illegal_char(c);
      end;
      end;
    end;
    end;
 end;
 end;
@@ -2099,7 +2097,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * fix constant parsing which gave an error when constants were used
 
 
   Revision 1.82  2000/06/14 19:02:41  peter
   Revision 1.82  2000/06/14 19:02:41  peter

+ 5 - 4
compiler/ra386int.pas

@@ -622,9 +622,7 @@ begin
          end;
          end;
 
 
         else
         else
-           Begin
-             Message(scan_f_illegal_char);
-           end;
+           current_scanner^.illegal_char(c);
      end;
      end;
    end;
    end;
 end;
 end;
@@ -1899,7 +1897,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * fix constant parsing which gave an error when constants were used
 
 
   Revision 1.73  2000/06/14 19:02:41  peter
   Revision 1.73  2000/06/14 19:02:41  peter