浏览代码

* process para's from first to last instead of the other way round

Jonas Maebe 22 年之前
父节点
当前提交
44f26523e6
共有 1 个文件被更改,包括 6 次插入3 次删除
  1. 6 3
      compiler/powerpc/cpupara.pas

+ 6 - 3
compiler/powerpc/cpupara.pas

@@ -168,7 +168,7 @@ unit cpupara;
          { inc(nextintreg);                     }
          { inc(nextintreg);                     }
          { constructor? }
          { constructor? }
          { destructor? }
          { destructor? }
-         hp:=tparaitem(p.para.last);
+         hp:=tparaitem(p.para.first);
          while assigned(hp) do
          while assigned(hp) do
            begin
            begin
               if (hp.paratyp in [vs_var,vs_out]) then
               if (hp.paratyp in [vs_var,vs_out]) then
@@ -244,7 +244,7 @@ unit cpupara;
                  else
                  else
                    internalerror(2002071002);
                    internalerror(2002071002);
               end;
               end;
-              hp:=tparaitem(hp.previous);
+              hp:=tparaitem(hp.next);
            end;
            end;
       end;
       end;
 
 
@@ -301,7 +301,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.24  2003-04-16 07:55:07  jonas
+  Revision 1.25  2003-04-17 18:52:35  jonas
+    * process para's from first to last instead of the other way round
+
+  Revision 1.24  2003/04/16 07:55:07  jonas
     * fixed paralocation for integer var/out parameters
     * fixed paralocation for integer var/out parameters
 
 
   Revision 1.23  2003/03/11 21:46:24  jonas
   Revision 1.23  2003/03/11 21:46:24  jonas