Przeglądaj źródła

- removed redundant checks

git-svn-id: trunk@21692 -
Jonas Maebe 13 lat temu
rodzic
commit
2d48396587

+ 1 - 4
compiler/arm/cpupara.pas

@@ -356,10 +356,7 @@ unit cpupara;
                 break;
               end;
 
-            if (hp.varspez in [vs_var,vs_out]) or
-               push_addr_param(hp.varspez,paradef,p.proccalloption) or
-               is_open_array(paradef) or
-               is_array_of_const(paradef) then
+            if push_addr_param(hp.varspez,paradef,p.proccalloption) then
               begin
                 paradef:=voidpointertype;
                 loc:=LOC_REGISTER;

+ 1 - 4
compiler/avr/cpupara.pas

@@ -271,10 +271,7 @@ unit cpupara;
                 break;
               end;
 
-            if (hp.varspez in [vs_var,vs_out]) or
-               push_addr_param(hp.varspez,paradef,p.proccalloption) or
-               is_open_array(paradef) or
-               is_array_of_const(paradef) then
+            if push_addr_param(hp.varspez,paradef,p.proccalloption) then
               begin
                 paradef:=voidpointertype;
                 loc:=LOC_REGISTER;

+ 1 - 4
compiler/m68k/cpupara.pas

@@ -304,10 +304,7 @@ unit cpupara;
                 break;
               end;
 
-            if (hp.varspez in [vs_var,vs_out]) or
-               push_addr_param(hp.varspez,paradef,p.proccalloption) or
-               is_open_array(paradef) or
-               is_array_of_const(paradef) then
+            if push_addr_param(hp.varspez,paradef,p.proccalloption) then
               begin
 {$ifdef DEBUG_CHARLIE}
                 writeln('loc register');

+ 1 - 4
compiler/powerpc/cpupara.pas

@@ -373,10 +373,7 @@ unit cpupara;
                   break;
                 end;
 
-              if (hp.varspez in [vs_var,vs_out]) or
-                 push_addr_param(hp.varspez,paradef,p.proccalloption) or
-                 is_open_array(paradef) or
-                 is_array_of_const(paradef) then
+              if push_addr_param(hp.varspez,paradef,p.proccalloption) then
                 begin
                   paradef:=voidpointertype;
                   loc:=LOC_REGISTER;

+ 2 - 5
compiler/powerpc64/cpupara.pas

@@ -304,11 +304,8 @@ begin
       break;
     end;
 
-    if (hp.varspez in [vs_var, vs_out]) or
-      push_addr_param(hp.varspez, paradef, p.proccalloption) or
-      is_open_array(paradef) or
-      is_array_of_const(paradef) then begin
-      paradef := voidpointertype;
+    if push_addr_param(hp.varspez, paradef, p.proccalloption) then begin
+      paradef := getpointerdef(paradef);
       loc := LOC_REGISTER;
       paracgsize := OS_ADDR;
       paralen := tcgsize2size[OS_ADDR];