|
@@ -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
|