paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give error when reading identifier > 255 chars

Browse Source
This commit is contained in:
peter 2005-01-04 16:34:03 +00:00
parent e98411d817
commit b537382710
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/scanner.pas
View File

@ -1809,7 +1809,9 @@ implementation
procedure tscannerfile.readstring;
var
i : longint;
err : boolean;
begin
err:=false;
i:=0;
repeat
case c of
@ -1822,6 +1824,14 @@ implementation
inc(i);
orgpattern[i]:=c;
pattern[i]:=c;
end
else
begin
if not err then
begin
Message(scan_e_string_exceeds_255_chars);
err:=true;
end;
end;
c:=inputpointer^;
inc(inputpointer);
@ -1833,6 +1843,14 @@ implementation
inc(i);
orgpattern[i]:=c;
pattern[i]:=chr(ord(c)-32)
end
else
begin
if not err then
begin
Message(scan_e_string_exceeds_255_chars);
err:=true;
end;
end;
c:=inputpointer^;
inc(inputpointer);
@ -3292,7 +3310,10 @@ exit_label:
end.
{
$Log$
Revision 1.96 2004-11-08 22:09:59 peter
Revision 1.97 2005-01-04 16:34:03 peter
* give error when reading identifier > 255 chars
Revision 1.96 2004/11/08 22:09:59 peter
* tvarsym splitted
Revision 1.95 2004/10/31 21:45:03 peter