Просмотр исходного кода

- removed allocparaloc/freeparaloc, generic ones are ok now

Jonas Maebe 22 лет назад
Родитель
Сommit
9b645eef82
1 измененных файлов с 4 добавлено и 21 удалено
  1. 4 21
      compiler/powerpc/cpupara.pas

+ 4 - 21
compiler/powerpc/cpupara.pas

@@ -38,8 +38,6 @@ unit cpupara;
           function push_addr_param(def : tdef;calloption : tproccalloption) : boolean;override;
           function getintparaloc(list: taasmoutput; nr : longint) : tparalocation;override;
           procedure freeintparaloc(list: taasmoutput; nr : longint); override;
-          procedure allocparaloc(list: taasmoutput; const loc: tparalocation);
-          procedure freeparaloc(list: taasmoutput; const loc: tparalocation);
           procedure create_param_loc_info(p : tabstractprocdef);override;
           function getfuncretparaloc(p : tabstractprocdef) : tparalocation;override;
        end;
@@ -93,24 +91,6 @@ unit cpupara;
       end;
 
 
-    procedure tppcparamanager.allocparaloc(list: taasmoutput; const loc: tparalocation);
-      begin
-        if (loc.size in [OS_64,OS_S64]) and
-           (loc.loc in [LOC_REGISTER,LOC_CREGISTER])  then
-          rg.getexplicitregisterint(list,loc.registerhigh.number);
-        inherited allocparaloc(list,loc);
-      end;
-
-
-    procedure tppcparamanager.freeparaloc(list: taasmoutput; const loc: tparalocation);
-      begin
-        if (loc.size in [OS_64,OS_S64]) and
-           (loc.loc in [LOC_REGISTER,LOC_CREGISTER])  then
-          rg.ungetregisterint(list,loc.registerhigh);
-        inherited allocparaloc(list,loc);
-      end;
-
-
     function getparaloc(p : tdef) : tcgloc;
 
       begin
@@ -391,7 +371,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.38  2003-06-17 16:34:44  jonas
+  Revision 1.39  2003-06-17 17:27:08  jonas
+    - removed allocparaloc/freeparaloc, generic ones are ok now
+
+  Revision 1.38  2003/06/17 16:34:44  jonas
     * lots of newra fixes (need getfuncretparaloc implementation for i386)!
     * renamed all_intregisters to volatile_intregisters and made it
       processor dependent