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

* properly copy tasmlabels when generating altsymbols

Browse Source 
git-svn-id: trunk@3753 -
This commit is contained in:
Jonas Maebe 2006-05-31 11:49:37 +00:00
parent f6d4f38bc0
commit 8e1dd27896
2 changed files with 32 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/aasmbase.pas
View File

@ -89,11 +89,13 @@ interface
{ Cached objsymbol }
cachedobjsymbol : TObject;
constructor create(const s:string;_bind:TAsmsymbind;_typ:Tasmsymtype);
function getaltcopy(altnr: longint): tasmsymbol; virtual;
function is_used:boolean;
procedure increfs;
procedure decrefs;
function getrefs: longint;
end;
TAsmSymbolClass = class of TAsmSymbol;
TAsmLabel = class(TAsmSymbol)
labelnr : longint;
@ -101,6 +103,7 @@ interface
is_set : boolean;
constructor createlocal(nr:longint;ltyp:TAsmLabelType);
constructor createglobal(const modulename:string;nr:longint;ltyp:TAsmLabelType);
function getaltcopy(altnr: longint): tasmsymbol; override;
function getname:string;override;
end;
@ -251,6 +254,15 @@ implementation
end;
function tasmsymbol.getaltcopy(altnr: longint): tasmsymbol;
begin
result := TAsmSymbol(TAsmSymbolClass(classtype).createname(name+'_'+tostr(altnr)));
result.bind:=bind;
result.typ:=typ;
result.refs:=0;
end;
function tasmsymbol.is_used:boolean;
begin
is_used:=(refs>0);
@ -282,7 +294,7 @@ implementation
*****************************************************************************}
constructor tasmlabel.createlocal(nr:longint;ltyp:TAsmLabelType);
begin;
begin
inherited create(target_asm.labelprefix+asmlabeltypeprefix[ltyp]+tostr(nr),AB_LOCAL,AT_LABEL);
labelnr:=nr;
labeltype:=ltyp;
@ -291,7 +303,7 @@ implementation
constructor tasmlabel.createglobal(const modulename:string;nr:longint;ltyp:TAsmLabelType);
begin;
begin
inherited create('_$'+modulename+'$_L'+asmlabeltypeprefix[ltyp]+tostr(nr),AB_GLOBAL,AT_DATA);
labelnr:=nr;
labeltype:=ltyp;
@ -301,6 +313,23 @@ implementation
end;
function tasmlabel.getaltcopy(altnr: longint): tasmsymbol;
begin;
result := inherited getaltcopy(altnr);
tasmlabel(result).labelnr:=labelnr;
tasmlabel(result).labeltype:=labeltype;
tasmlabel(result).is_set:=false;
case bind of
AB_GLOBAL:
result.increfs;
AB_LOCAL:
;
else
internalerror(2006053101);
end;
end;
function tasmlabel.getname:string;
begin
getname:=inherited getname;

2
compiler/aasmdata.pas
View File

@ -369,7 +369,7 @@ implementation
begin
if not assigned(p.altsymbol) then
begin
p.altsymbol:=tasmsymbol.create(p.name+'_'+tostr(FNextAltNr),p.bind,p.typ);
p.altsymbol:=p.getaltcopy(FNextAltNr);
FAsmSymbolDict.insert(p.altsymbol);
FAltSymbolList.Add(p);
end;