* disabled i386 createtempparaloc again because it generates wrong

    code in case of nested function calls with lots of arguments

git-svn-id: trunk@2948 -

compiler/powerpc/cpupara.pas

@@ -41,7 +41,6 @@ unit cpupara;
           function create_paraloc_info(p : tabstractprocdef; side: tcallercallee):longint;override;
           function create_varargs_paraloc_info(p : tabstractprocdef; varargspara:tvarargsparalist):longint;override;
           procedure create_funcretloc_info(p : tabstractprocdef; side: tcallercallee);
-          procedure createtempparaloc(list: TAsmList;calloption : tproccalloption;parasym : tparavarsym;var cgpara:TCGPara);override;
          private
           procedure init_values(var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: aword);
           function create_paraloc_info_intern(p : tabstractprocdef; side: tcallercallee; paras:tparalist;
@@ -644,6 +643,9 @@ unit cpupara;
         result:=true;
       end;
 
+{
+
+    breaks e.g. tests/test/cg/tpara1
 
     procedure tppcparamanager.createtempparaloc(list: TAsmList;calloption : tproccalloption;parasym : tparavarsym;var cgpara:TCGPara);
       var
@@ -658,6 +660,7 @@ unit cpupara;
         else
           inherited createtempparaloc(list,calloption,parasym,cgpara);
       end;
+}
 
 
 begin

compiler/powerpc64/cpupara.pas

@@ -47,7 +47,6 @@ type
       tvarargsparalist): longint; override;
     procedure create_funcretloc_info(p: tabstractprocdef; side: tcallercallee);
 
-    procedure createtempparaloc(list: TAsmList;calloption : tproccalloption;parasym : tparavarsym;var cgpara:TCGPara);
   private
     procedure init_values(var curintreg, curfloatreg, curmmreg: tsuperregister;
       var cur_stack_offset: aword);
@@ -488,6 +487,11 @@ begin
   result := true;
 end;
 
+
+{
+                  
+    breaks e.g. tests/test/cg/tpara1
+                               
 procedure tppcparamanager.createtempparaloc(list: TAsmList;calloption : tproccalloption;parasym : tparavarsym;var cgpara:TCGPara);
 var
   paraloc : pcgparalocation;
@@ -501,6 +505,7 @@ begin
   else
     inherited createtempparaloc(list,calloption,parasym,cgpara);
 end;
+}
 
 begin
   paramanager := tppcparamanager.create;