paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* save fpu results in a normal fpu register on non-x86 processors

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-24 13:36:54 +00:00
parent 54cacc63a5
commit ff12c6c54f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncgcal.pas
View File

@ -454,6 +454,10 @@ implementation
location.register.enum:=FPU_RESULT_REG;
{$ifdef x86}
inc(trgcpu(rg).fpuvaroffset);
{$else x86}
hregister := rg.getregisterfpu(exprasmlist);
cg.a_loadfpu_reg_reg(exprasmlist,location.register,hregister);
location.register := hregister;
{$endif x86}
end
else
@ -1128,7 +1132,10 @@ begin
end.
{
$Log$
Revision 1.71 2003-05-23 19:35:50 jonas
Revision 1.72 2003-05-24 13:36:54 jonas
* save fpu results in a normal fpu register on non-x86 processors
Revision 1.71 2003/05/23 19:35:50 jonas
- undid previous commit, it was wrong
Revision 1.70 2003/05/23 19:11:58 jonas