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

+ getlocaldatalabel()

Browse Source 
git-svn-id: branches/hlcgllvm@30337 -
This commit is contained in:
Jonas Maebe 2015-03-27 21:25:37 +00:00
parent 687bb15299
commit 560fe24c44
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/aasmdata.pas
View File

@ -173,6 +173,7 @@ interface
procedure getjumplabel(out l : TAsmLabel); procedure getjumplabel(out l : TAsmLabel);
procedure getglobaljumplabel(out l : TAsmLabel); procedure getglobaljumplabel(out l : TAsmLabel);
procedure getaddrlabel(out l : TAsmLabel); procedure getaddrlabel(out l : TAsmLabel);
procedure getlocaldatalabel(out l : TAsmLabel);
procedure getglobaldatalabel(out l : TAsmLabel); procedure getglobaldatalabel(out l : TAsmLabel);
{ generate an alternative (duplicate) symbol } { generate an alternative (duplicate) symbol }
procedure GenerateAltSymbol(p:TAsmSymbol); procedure GenerateAltSymbol(p:TAsmSymbol);
@ -510,6 +511,7 @@ implementation
inc(FNextLabelNr[alt_jump]); inc(FNextLabelNr[alt_jump]);
end; end;
procedure TAsmData.getglobaldatalabel(out l : TAsmLabel); procedure TAsmData.getglobaldatalabel(out l : TAsmLabel);
begin begin
l:=TAsmLabel.createglobal(AsmSymbolDict,name^,FNextLabelNr[alt_data],alt_data); l:=TAsmLabel.createglobal(AsmSymbolDict,name^,FNextLabelNr[alt_data],alt_data);
@ -517,6 +519,13 @@ implementation
end; end;
procedure TAsmData.getlocaldatalabel(out l: TAsmLabel);
begin
l:=TAsmLabel.createlocal(AsmSymbolDict,FNextLabelNr[alt_data],alt_data);
inc(FNextLabelNr[alt_data]);
end;
procedure TAsmData.getaddrlabel(out l : TAsmLabel); procedure TAsmData.getaddrlabel(out l : TAsmLabel);
begin begin
l:=TAsmLabel.createlocal(AsmSymbolDict,FNextLabelNr[alt_addr],alt_addr); l:=TAsmLabel.createlocal(AsmSymbolDict,FNextLabelNr[alt_addr],alt_addr);