paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-24 10:58:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed previous commit

Browse Source
This commit is contained in:
peter 2001-10-22 20:25:49 +00:00
parent 5a0f9b10f9
commit 19e7ae8851
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/scanner.pas
View File

@ -2398,7 +2398,8 @@ implementation
end end
else else
begin begin
if length(pattern)=1 then pattern[0]:=chr(len);
if len=1 then
token:=_CCHAR token:=_CCHAR
else else
token:=_CSTRING; token:=_CSTRING;
@ -2655,7 +2656,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.26 2001-10-22 19:55:44 peter Revision 1.27 2001-10-22 20:25:49 peter
* fixed previous commit
Revision 1.26 2001/10/22 19:55:44 peter
* give error with string constants longer than 255 chars, this is * give error with string constants longer than 255 chars, this is
compatible with kylix compatible with kylix