paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 11:28:07 +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.index.number:=NR_STACK_POINTER_REG;
result.reference.offset:=(nr-8)*4; result.reference.offset:=(nr-8)*4;
end; end;
result.size := OS_INT;
end; end;
function getparaloc(p : tdef) : tcgloc; function getparaloc(p : tdef) : tcgloc;
@ -240,9 +241,9 @@ unit cpupara;
end; end;
LOC_FPUREGISTER: LOC_FPUREGISTER:
begin begin
hp.paraloc.size:=def_cgsize(paradef);
if nextfloatreg.enum<=R_F10 then if nextfloatreg.enum<=R_F10 then
begin begin
hp.paraloc.size:=def_cgsize(paradef);
hp.paraloc.loc:=LOC_FPUREGISTER; hp.paraloc.loc:=LOC_FPUREGISTER;
hp.paraloc.register:=nextfloatreg; hp.paraloc.register:=nextfloatreg;
inc(nextfloatreg.enum); inc(nextfloatreg.enum);
@ -332,7 +333,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed calling sequence for subroutines using the aix abi
Revision 1.29 2003/05/12 20:14:47 florian Revision 1.29 2003/05/12 20:14:47 florian