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

* label are set to used so an error is given if used but not defined

Browse Source
This commit is contained in:
peter 1999-12-22 00:57:30 +00:00
parent 802730bfb5
commit 8725fa32a1
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/rautils.pas
View File

@ -1267,7 +1267,9 @@ Begin
begin
hl:=plabelsym(sym)^.lab;
if emit then
plabelsym(sym)^.defined:=true;
plabelsym(sym)^.defined:=true
else
plabelsym(sym)^.used:=true;
SearchLabel:=true;
exit;
end;
@ -1441,7 +1443,10 @@ end;
end.
{
$Log$
Revision 1.32 1999-12-17 10:43:34 florian
Revision 1.33 1999-12-22 00:57:30 peter
* label are set to used so an error is given if used but not defined
Revision 1.32 1999/12/17 10:43:34 florian
* 761 fixed
Revision 1.31 1999/11/30 10:40:54 peter