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

* do check for non defined labels earlier to avoid ies in the cg

Browse Source 
git-svn-id: trunk@6698 -
This commit is contained in:
florian 2007-03-03 14:52:46 +00:00
parent e56abc47b7
commit b8af065523
3 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5688,6 +5688,7 @@ tests/tbf/tb0194.pp svneol=native#text/plain
tests/tbf/tb0195.pp svneol=native#text/plain
tests/tbf/tb0196.pp svneol=native#text/plain
tests/tbf/tb0197.pp svneol=native#text/plain
tests/tbf/tb0198.pp svneol=native#text/plain
tests/tbf/ub0115.pp svneol=native#text/plain
tests/tbf/ub0149.pp svneol=native#text/plain
tests/tbf/ub0158a.pp svneol=native#text/plain

5
compiler/pmodules.pas
View File

@ -1359,6 +1359,10 @@ implementation
if force_init_final then
finalize_procinfo:=gen_implicit_initfinal(uf_finalize,current_module.localsymtable);
{ all labels must be defined before generating code }
if Errorcount=0 then
tstoredsymtable(current_module.localsymtable).checklabels;
{ See remark in unit init/final }
main_procinfo.generate_code;
main_procinfo.resetprocdef;
@ -1387,7 +1391,6 @@ implementation
tstoredsymtable(current_module.localsymtable).allsymbolsused;
tstoredsymtable(current_module.localsymtable).allprivatesused;
tstoredsymtable(current_module.localsymtable).check_forwards;
tstoredsymtable(current_module.localsymtable).checklabels;
tstoredsymtable(current_module.localsymtable).unchain_overloaded;
current_module.allunitsused;

31
tests/tbf/tb0198.pp Normal file
View File

@ -0,0 +1,31 @@
{ %fail }
var
i : longint;
label
labelfor2,labelfor3,labelfor4;
begin
case i of
1:
begin
writeln('1');
goto labelfor2;
end;
2:
begin
writeln('2');
goto labelfor3;
end;
3:
begin
writeln('3');
goto labelfor4;
end;
4:
begin
writeln('4');
end;
end;
end.