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

* fixed relabeling to relabel only tasmlabel (formerly proclocal)

Browse Source
This commit is contained in:
peter 2002-11-27 15:33:19 +00:00
parent a870740c0e
commit c3d39472cd
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/ncgbas.pas
View File

@ -110,7 +110,9 @@ interface
procedure ReLabel(var p:tasmsymbol);
begin
if p.defbind = AB_LOCAL then
{ Only relabel local tasmlabels }
if (p.defbind = AB_LOCAL) and
(p is tasmlabel) then
begin
if not assigned(p.altsymbol) then
objectlibrary.GenerateAltSymbol(p);
@ -288,7 +290,10 @@ begin
end.
{
$Log$
Revision 1.27 2002-11-27 02:37:13 peter
Revision 1.28 2002-11-27 15:33:19 peter
* fixed relabeling to relabel only tasmlabel (formerly proclocal)
Revision 1.27 2002/11/27 02:37:13 peter
* case statement inlining added
* fixed inlining of write()
* switched statementnode left and right parts so the statements are