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

* mark label as used if address is taken

Browse Source 
git-svn-id: trunk@20000 -
This commit is contained in:
florian 2012-01-07 21:53:21 +00:00
parent 5a4b8cfef2
commit 7ec6201fb3
3 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -9266,6 +9266,7 @@ tests/tbs/tb0578.pp svneol=native#text/pascal
tests/tbs/tb0579.pp svneol=native#text/pascal
tests/tbs/tb0580.pp svneol=native#text/pascal
tests/tbs/tb205.pp svneol=native#text/plain
tests/tbs/tw0581.pp svneol=native#text/pascal
tests/tbs/ub0060.pp svneol=native#text/plain
tests/tbs/ub0069.pp svneol=native#text/plain
tests/tbs/ub0119.pp svneol=native#text/plain

9
compiler/nld.pas
View File

@ -42,7 +42,9 @@ interface
{ the loadnode is generated internally and a varspez=vs_const should be ignore,
this requires that the parameter is actually passed by value
Be really carefull when using this flag! }
loadnf_isinternal_ignoreconst
loadnf_isinternal_ignoreconst,
loadnf_only_uninitialized_hint
);
tloadnode = class(tunarynode)
@ -356,7 +358,10 @@ implementation
typecheckpass(left);
end;
labelsym:
resultdef:=voidtype;
begin
tlabelsym(symtableentry).used:=true;
resultdef:=voidtype;
end;
else
internalerror(200104141);
end;

6
tests/tbs/tw0581.pp Normal file
View File

@ -0,0 +1,6 @@
{ %fail }
label
l;
begin
writeln(hexstr(ptrint(@l),sizeof(ptrint)*2));
end.