paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 22:19:12 +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; procedure tscannerfile.readstring;
var var
i : longint; i : longint;
err : boolean;
begin begin
err:=false;
i:=0; i:=0;
repeat repeat
case c of case c of
@ -1822,6 +1824,14 @@ implementation
inc(i); inc(i);
orgpattern[i]:=c; orgpattern[i]:=c;
pattern[i]:=c; pattern[i]:=c;
end
else
begin
if not err then
begin
Message(scan_e_string_exceeds_255_chars);
err:=true;
end;
end; end;
c:=inputpointer^; c:=inputpointer^;
inc(inputpointer); inc(inputpointer);
@ -1833,6 +1843,14 @@ implementation
inc(i); inc(i);
orgpattern[i]:=c; orgpattern[i]:=c;
pattern[i]:=chr(ord(c)-32) 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; end;
c:=inputpointer^; c:=inputpointer^;
inc(inputpointer); inc(inputpointer);
@ -3292,7 +3310,10 @@ exit_label:
end. end.
{ {
$Log$ $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 * tvarsym splitted
Revision 1.95 2004/10/31 21:45:03 peter Revision 1.95 2004/10/31 21:45:03 peter