paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 01:29:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bugfix of FPU emulation code

Browse Source
This commit is contained in:
carl 2003-02-15 22:17:38 +00:00
parent dd0322c646
commit 2c19def917
3 changed files with 35 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgcal.pas
View File

@ -449,6 +449,11 @@ implementation
floatdef :
begin
location_reset(location,LOC_FPUREGISTER,def_cgsize(resulttype.def));
{$ifdef cpufpemu}
if cs_fp_emulation in aktmoduleswitches then
location.register.enum := accumulator
else
{$endif cpufpemu}
location.register.enum:=fpu_result_reg;
{$ifdef x86}
inc(trgcpu(rg).fpuvaroffset);
@ -1622,7 +1627,10 @@ begin
end.
{
$Log$
Revision 1.37 2003-02-12 22:10:07 carl
Revision 1.38 2003-02-15 22:17:38 carl
* bugfix of FPU emulation code
Revision 1.37 2003/02/12 22:10:07 carl
* load_frame_pointer is now generic
* change fpu emulation routine names

12
compiler/ncgflw.pas
View File

@ -735,7 +735,12 @@ implementation
end;
floatdef :
begin
r.enum:=fpu_result_reg;
{$ifdef cpufpemu}
if cs_fp_emulation in aktmoduleswitches then
r.enum := accumulator
else
{$endif cpufpemu}
r.enum:=fpu_result_reg;
{$ifndef i386}
cg.a_reg_alloc(exprasmlist,r);
{$endif not i386}
@ -1470,7 +1475,10 @@ begin
end.
{
$Log$
Revision 1.49 2003-01-08 18:43:56 daniel
Revision 1.50 2003-02-15 22:17:38 carl
* bugfix of FPU emulation code
Revision 1.49 2003/01/08 18:43:56 daniel
* Tregister changed into a record
Revision 1.48 2003/01/03 09:51:58 daniel

19
compiler/ncgutil.pas
View File

@ -1188,7 +1188,12 @@ function returns in a register and the caller receives it in an other one}
floatdef :
begin
uses_fpu := true;
r.enum:=fpu_result_reg;
{$ifdef cpufpemu}
if cs_fp_emulation in aktmoduleswitches then
r.enum := accumulator
else
{$endif cpufpemu}
r.enum:=fpu_result_reg;
cg.a_loadfpu_ref_reg(list,cgsize,href,r);
end;
else
@ -1249,7 +1254,12 @@ function returns in a register and the caller receives it in an other one}
end;
floatdef :
begin
r.enum:=fpu_result_reg;
{$ifdef cpufpemu}
if cs_fp_emulation in aktmoduleswitches then
r.enum := accumulator
else
{$endif cpufpemu}
r.enum:=fpu_result_reg;
cg.a_loadfpu_reg_ref(list,cgsize,r,href);
end;
else
@ -1964,7 +1974,10 @@ function returns in a register and the caller receives it in an other one}
end.
{
$Log$
Revision 1.75 2003-01-09 22:00:53 florian
Revision 1.76 2003-02-15 22:17:38 carl
* bugfix of FPU emulation code
Revision 1.75 2003/01/09 22:00:53 florian
* fixed some PowerPC issues
Revision 1.74 2003/01/09 20:41:10 florian