paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed usage of 000 as label

Browse Source
This commit is contained in:
florian 2005-02-08 21:25:14 +00:00
parent 1d68ae23e4
commit 1dcb2e55bc
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pstatmnt.pas
View File

@ -993,12 +993,18 @@ implementation
else else
begin begin
p:=expr; p:=expr;
{ save the pattern here for latter usage, the label could be "000",
even if we read an expression, the pattern is still valid if it's really
a label (FK)
if you want to mess here, take care of
tests/webtbs/tw3546.pp
}
s:=pattern;
{ When a colon follows a intconst then transform it into a label } { When a colon follows a intconst then transform it into a label }
if (p.nodetype=ordconstn) and if (p.nodetype=ordconstn) and
try_to_consume(_COLON) then try_to_consume(_COLON) then
begin begin
s:=tostr(tordconstnode(p).value);
p.free; p.free;
searchsym(s,srsym,srsymtable); searchsym(s,srsym,srsymtable);
if assigned(srsym) and if assigned(srsym) and
@ -1177,7 +1183,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.152 2005-02-03 17:10:58 peter Revision 1.153 2005-02-08 21:25:14 florian
* fixed usage of 000 as label
Revision 1.152 2005/02/03 17:10:58 peter
* check for-loop constants ranges * check for-loop constants ranges
Revision 1.151 2005/01/31 20:23:53 peter Revision 1.151 2005/01/31 20:23:53 peter