Browse Source

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

git-svn-id: branches/hlcgllvm@28484 -

Jonas Maebe 11 years ago
parent
commit
3b7f43ad77
4 changed files with 7 additions and 14 deletions
  1. 2 2
      compiler/jvm/tgcpu.pas
  2. 0 7
      compiler/llvm/tgllvm.pas
  3. 1 1
      compiler/ncgbas.pas
  4. 4 4
      compiler/tgobj.pas

+ 2 - 2
compiler/jvm/tgcpu.pas

@@ -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;

+ 0 - 7
compiler/llvm/tgllvm.pas

@@ -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

+ 1 - 1
compiler/ncgbas.pas

@@ -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

+ 4 - 4
compiler/tgobj.pas

@@ -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;