From 3b7f43ad7742855489879978efffff786b123465 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 19 Aug 2014 20:22:32 +0000
Subject: [PATCH] * renamed (hl)gettemptyped() to (hl)gettempmanaged() to
better indicate the meaning
git-svn-id: branches/hlcgllvm@28484 -
---
compiler/jvm/tgcpu.pas | 4 ++--
compiler/llvm/tgllvm.pas | 7 -------
compiler/ncgbas.pas | 2 +-
compiler/tgobj.pas | 8 ++++----
4 files changed, 7 insertions(+), 14 deletions(-)
diff --git a/compiler/jvm/tgcpu.pas b/compiler/jvm/tgcpu.pas
index e33da833e8..9b1e61d713 100644
--- a/compiler/jvm/tgcpu.pas
+++ b/compiler/jvm/tgcpu.pas
@@ -47,7 +47,7 @@ unit tgcpu;
procedure setfirsttemp(l : longint); 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 gethltemptyped(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); override;
+ procedure gethltempmanaged(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); override;
end;
implementation
@@ -251,7 +251,7 @@ unit tgcpu;
inherited;
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
gethltemp(list,def,def.size,temptype,ref);
end;
diff --git a/compiler/llvm/tgllvm.pas b/compiler/llvm/tgllvm.pas
index 2c47aa7294..48b937d867 100644
--- a/compiler/llvm/tgllvm.pas
+++ b/compiler/llvm/tgllvm.pas
@@ -65,7 +65,6 @@ unit tgllvm;
function istemp(const ref: treference): boolean; 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 gethltemptyped(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); override;
procedure ungetiftemp(list: TAsmList; const ref: treference); override;
end;
@@ -155,12 +154,6 @@ implementation
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);
begin
if istemp(ref) then
diff --git a/compiler/ncgbas.pas b/compiler/ncgbas.pas
index 9038614d33..23a051b57c 100644
--- a/compiler/ncgbas.pas
+++ b/compiler/ncgbas.pas
@@ -421,7 +421,7 @@ interface
not(ti_const in tempinfo^.flags) then
begin
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
hlcg.g_finalize(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.location.reference);
end
diff --git a/compiler/tgobj.pas b/compiler/tgobj.pas
index 211a2a3be4..9405bd335b 100644
--- a/compiler/tgobj.pas
+++ b/compiler/tgobj.pas
@@ -93,9 +93,9 @@ unit tgobj;
the forcesize parameter is so that it can be used for defs that
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 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 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);
function sizeoftemp(list: TAsmList; const ref: treference): longint;
@@ -527,7 +527,7 @@ implementation
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
gettemptyped(list,def,temptype,ref);
end;
@@ -549,7 +549,7 @@ implementation
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
gettempinternal(list,def.size,def.alignment,temptype,def,ref);
end;