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

* renamed (hl)gettemptyped() to (hl)gettempmanaged() to better indicate the

Browse Source 
meaning

git-svn-id: branches/hlcgllvm@28484 -
This commit is contained in:
Jonas Maebe 2014-08-19 20:22:32 +00:00
parent 979a3d7e1d
commit 3b7f43ad77
4 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/tgcpu.pas
View File

@ -47,7 +47,7 @@ unit tgcpu;
procedure setfirsttemp(l : longint); override; procedure setfirsttemp(l : longint); override;
procedure getlocal(list: TAsmList; size: longint; alignment: shortint; def: tdef; var ref: treference); override; procedure getlocal(list: TAsmList; size: longint; alignment: shortint; def: tdef; var ref: treference); override;
procedure gethltemp(list: TAsmList; def: tdef; forcesize: asizeint; temptype: ttemptype; out ref: treference); override; procedure gethltemp(list: TAsmList; def: tdef; forcesize: asizeint; temptype: ttemptype; out ref: treference); override;
procedure gethltemptyped(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); override; procedure gethltempmanaged(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); override;
end; end;
implementation implementation
@ -251,7 +251,7 @@ unit tgcpu;
inherited; inherited;
end; end;
procedure ttgjvm.gethltemptyped(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); procedure ttgjvm.gethltempmanaged(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference);
begin begin
gethltemp(list,def,def.size,temptype,ref); gethltemp(list,def,def.size,temptype,ref);
end; end;

7
compiler/llvm/tgllvm.pas
View File

@ -65,7 +65,6 @@ unit tgllvm;
function istemp(const ref: treference): boolean; override; function istemp(const ref: treference): boolean; override;
procedure getlocal(list: TAsmList; size: longint; alignment: shortint; def: tdef; var ref: treference); override; procedure getlocal(list: TAsmList; size: longint; alignment: shortint; def: tdef; var ref: treference); override;
procedure gethltemp(list: TAsmList; def: tdef; forcesize: asizeint; temptype: ttemptype; out ref: treference); override; procedure gethltemp(list: TAsmList; def: tdef; forcesize: asizeint; temptype: ttemptype; out ref: treference); override;
procedure gethltemptyped(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); override;
procedure ungetiftemp(list: TAsmList; const ref: treference); override; procedure ungetiftemp(list: TAsmList; const ref: treference); override;
end; end;
@ -155,12 +154,6 @@ implementation
end; end;
procedure ttgllvm.gethltemptyped(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference);
begin
inherited gethltemptyped(list, def, temptype, ref);
end;
procedure ttgllvm.ungetiftemp(list: TAsmList; const ref: treference); procedure ttgllvm.ungetiftemp(list: TAsmList; const ref: treference);
begin begin
if istemp(ref) then if istemp(ref) then

2
compiler/ncgbas.pas
View File

@ -421,7 +421,7 @@ interface
not(ti_const in tempinfo^.flags) then not(ti_const in tempinfo^.flags) then
begin begin
location_reset_ref(tempinfo^.location,LOC_REFERENCE,def_cgsize(tempinfo^.typedef),0); location_reset_ref(tempinfo^.location,LOC_REFERENCE,def_cgsize(tempinfo^.typedef),0);
tg.gethltemptyped(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.temptype,tempinfo^.location.reference); tg.gethltempmanaged(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.temptype,tempinfo^.location.reference);
if not(ti_nofini in tempinfo^.flags) then if not(ti_nofini in tempinfo^.flags) then
hlcg.g_finalize(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.location.reference); hlcg.g_finalize(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.location.reference);
end end

8
compiler/tgobj.pas
View File

@ -93,9 +93,9 @@ unit tgobj;
the forcesize parameter is so that it can be used for defs that the forcesize parameter is so that it can be used for defs that
don't have an inherent size (e.g., array of const) } don't have an inherent size (e.g., array of const) }
procedure gethltemp(list: TAsmList; def: tdef; forcesize: asizeint; temptype: ttemptype; out ref: treference); virtual; procedure gethltemp(list: TAsmList; def: tdef; forcesize: asizeint; temptype: ttemptype; out ref: treference); virtual;
procedure gethltemptyped(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); virtual; procedure gethltempmanaged(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); virtual;
procedure gettemp(list: TAsmList; size, alignment : longint;temptype:ttemptype;out ref : treference); procedure gettemp(list: TAsmList; size, alignment : longint;temptype:ttemptype;out ref : treference);
procedure gettemptyped(list: TAsmList; def:tdef;temptype:ttemptype;out ref : treference); procedure gettempmanaged(list: TAsmList; def:tdef;temptype:ttemptype;out ref : treference);
procedure ungettemp(list: TAsmList; const ref : treference); procedure ungettemp(list: TAsmList; const ref : treference);
function sizeoftemp(list: TAsmList; const ref: treference): longint; function sizeoftemp(list: TAsmList; const ref: treference): longint;
@ -527,7 +527,7 @@ implementation
end; end;
procedure ttgobj.gethltemptyped(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); procedure ttgobj.gethltempmanaged(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference);
begin begin
gettemptyped(list,def,temptype,ref); gettemptyped(list,def,temptype,ref);
end; end;
@ -549,7 +549,7 @@ implementation
end; end;
procedure ttgobj.gettemptyped(list: TAsmList; def:tdef;temptype:ttemptype;out ref : treference); procedure ttgobj.gettempmanaged(list: TAsmList; def:tdef;temptype:ttemptype;out ref : treference);
begin begin
gettempinternal(list,def.size,def.alignment,temptype,def,ref); gettempinternal(list,def.size,def.alignment,temptype,def,ref);
end; end;