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

* ignore leading 0's in labels in iso mode

Browse Source 
git-svn-id: trunk@15690 -
This commit is contained in:
florian 2010-08-02 19:36:50 +00:00
parent 85225d437e
commit 591dbb66df
1 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/pstatmnt.pas
View File

@ -1027,27 +1027,35 @@ implementation
case token of
_GOTO :
begin
if not(cs_support_goto in current_settings.moduleswitches)then
if not(cs_support_goto in current_settings.moduleswitches) then
Message(sym_e_goto_and_label_not_supported);
consume(_GOTO);
if (token<>_INTCONST) and (token<>_ID) then
begin
Message(sym_e_label_not_found);
code:=cerrornode.create;
Message(sym_e_label_not_found);
code:=cerrornode.create;
end
else
begin
if token=_ID then
consume_sym(srsym,srsymtable)
consume_sym(srsym,srsymtable)
else
begin
if token<>_INTCONST then
internalerror(201008021);
{ strip leading 0's in iso mode }
if m_iso in current_settings.modeswitches then
while pattern[1]='0' do
delete(pattern,1,1);
searchsym(pattern,srsym,srsymtable);
if srsym=nil then
begin
identifier_not_found(pattern);
srsym:=generrorsym;
srsymtable:=nil;
end;
begin
identifier_not_found(pattern);
srsym:=generrorsym;
srsymtable:=nil;
end;
consume(token);
end;
@ -1121,8 +1129,13 @@ implementation
if (p.nodetype=ordconstn) and
try_to_consume(_COLON) then
begin
{ in iso mode, 0003: is equal to 3: }
if m_iso in current_settings.modeswitches then
searchsym(tostr(tordconstnode(p).value),srsym,srsymtable)
else
searchsym(s,srsym,srsymtable);
p.free;
searchsym(s,srsym,srsymtable);
if assigned(srsym) and
(srsym.typ=labelsym) then
begin