mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 05:09:19 +02:00
* use new illegal_char method
This commit is contained in:
parent
efa4fa2ce4
commit
6fa1a1bae0
@ -732,9 +732,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
else
|
else
|
||||||
Begin
|
current_scanner^.illegal_char(c);
|
||||||
Message(scan_f_illegal_char);
|
|
||||||
end;
|
|
||||||
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
|
||||||
|
@ -622,9 +622,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
else
|
else
|
||||||
Begin
|
current_scanner^.illegal_char(c);
|
||||||
Message(scan_f_illegal_char);
|
|
||||||
end;
|
|
||||||
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
|
||||||
|
Loading…
Reference in New Issue
Block a user