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

- Removed tai_label.is_global field, was used in just one place and is generally not needed: binding is controlled by 'bind' property of referenced AsmLabel.

Browse Source 
git-svn-id: trunk@25336 -
This commit is contained in:
sergei 2013-08-23 11:34:08 +00:00
parent b8a76c5da2
commit 108d3cb090
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aasmtai.pas
View File

@ -486,7 +486,6 @@ interface
{ Generates an assembler label }
tai_label = class(tai)
labsym : tasmlabel;
is_global : boolean;
{$ifdef arm}
{ set to true when the label has been moved by insertpcrelativedata to the correct location
so one label can be used multiple times }
@ -2080,7 +2079,6 @@ implementation
typ:=ait_label;
labsym:=_labsym;
labsym.is_set:=true;
is_global:=(labsym.bind in [AB_GLOBAL,AB_PRIVATE_EXTERN]);
end;
@ -2088,7 +2086,7 @@ implementation
begin
inherited ppuload(t,ppufile);
labsym:=tasmlabel(ppufile.getasmsymbol);
is_global:=boolean(ppufile.getbyte);
ppufile.getbyte; { was is_global flag, now unused }
end;
@ -2096,7 +2094,7 @@ implementation
begin
inherited ppuwrite(ppufile);
ppufile.putasmsymbol(labsym);
ppufile.putbyte(byte(is_global));
ppufile.putbyte(0); { was is_global flag, now unused }
end;

2
compiler/powerpc/agppcmpw.pas
View File

@ -1036,7 +1036,7 @@ interface
//Procedure entry points:
if not macos_direct_globals then
begin
WriteDataHeader(s, tai_label(hp).is_global, true);
WriteDataHeader(s, tai_label(hp).labsym.bind in [AB_GLOBAL,AB_PRIVATE_EXTERN], true);
end
else
begin