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

* added some missing paralocation size settings

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-24 11:48:40 +00:00
parent d321a5aa3d
commit 5cfedffb9e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/powerpc/cpupara.pas
View File

@ -66,6 +66,7 @@ unit cpupara;
result.reference.index.number:=NR_STACK_POINTER_REG;
result.reference.offset:=(nr-8)*4;
end;
result.size := OS_INT;
end;
function getparaloc(p : tdef) : tcgloc;
@ -240,9 +241,9 @@ unit cpupara;
end;
LOC_FPUREGISTER:
begin
hp.paraloc.size:=def_cgsize(paradef);
if nextfloatreg.enum<=R_F10 then
begin
hp.paraloc.size:=def_cgsize(paradef);
hp.paraloc.loc:=LOC_FPUREGISTER;
hp.paraloc.register:=nextfloatreg;
inc(nextfloatreg.enum);
@ -332,7 +333,10 @@ begin
end.
{
$Log$
Revision 1.30 2003-05-19 12:15:28 florian
Revision 1.31 2003-05-24 11:48:40 jonas
* added some missing paralocation size settings
Revision 1.30 2003/05/19 12:15:28 florian
* fixed calling sequence for subroutines using the aix abi
Revision 1.29 2003/05/12 20:14:47 florian