paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 18:30:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@24777 -
This commit is contained in:
Jonas Maebe 2013-06-02 14:35:29 +00:00
parent 9938169d2c
commit 7f2750f188
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i386/cpupara.pas
View File

@ -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;

4
compiler/i8086/cpupara.pas
View File

@ -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;

2
compiler/paramgr.pas
View File

@ -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;

2
compiler/powerpc64/cpupara.pas
View File

@ -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);