Browse Source

* missing part of r24776, using a build server also has pitfalls :/

git-svn-id: trunk@24777 -
Jonas Maebe 12 years ago
parent
commit
7f2750f188
4 changed files with 5 additions and 5 deletions
  1. 1 1
      compiler/i386/cpupara.pas
  2. 2 2
      compiler/i8086/cpupara.pas
  3. 1 1
      compiler/paramgr.pas
  4. 1 1
      compiler/powerpc64/cpupara.pas

+ 1 - 1
compiler/i386/cpupara.pas

@@ -696,7 +696,7 @@ unit cpupara;
                                       else
                                         begin
                                           l:=paralen;
-                                          paraloc^.def:=get_paraloc_def(paradef,paracgsize,l,firstparaloc);
+                                          paraloc^.def:=get_paraloc_def(paradef,l,firstparaloc);
                                         end;
                                       paraloc^.size:=int_cgsize(l);
                                     end;

+ 2 - 2
compiler/i8086/cpupara.pas

@@ -525,7 +525,7 @@ unit cpupara;
                         else
                           begin
                             l:=paralen;
-                            paraloc^.def:=get_paraloc_def(paradef,paracgsize,l,firstparaloc);
+                            paraloc^.def:=get_paraloc_def(paradef,l,firstparaloc);
                           end;
                         paraloc^.size:=int_cgsize(l);
                       end;
@@ -690,7 +690,7 @@ unit cpupara;
                                       else
                                         begin
                                           l:=paralen;
-                                          paraloc^.def:=get_paraloc_def(paradef,paracgsize,l,firstparaloc);
+                                          paraloc^.def:=get_paraloc_def(paradef,l,firstparaloc);
                                         end;
                                       paraloc^.size:=int_cgsize(l);
                                     end;

+ 1 - 1
compiler/paramgr.pas

@@ -617,7 +617,7 @@ implementation
         { no support for 128 bit ints -> tcgsize2orddef can't handle
           OS_(S)128 }
         else if restlen in [1,2,4,8] then
-          result:=cgsize_orddef(int_cgsize(paracgsize))
+          result:=cgsize_orddef(int_cgsize(restlen))
         else
           result:=getarraydef(u8inttype,restlen);
       end;

+ 1 - 1
compiler/powerpc64/cpupara.pas

@@ -453,7 +453,7 @@ begin
           LOC_REFERENCE:
             begin
               paraloc^.size:=int_cgsize(paralen);
-              paraloc^.def:=get_paraloc_def(paradef,paraloc^.size,paralen,firstparaloc);
+              paraloc^.def:=get_paraloc_def(paradef,paralen,firstparaloc);
             end;
           else
             internalerror(2006011101);