paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 15:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* typecast float to non-float needs a move to memory

Browse Source
This commit is contained in:
peter 2004-12-26 20:09:35 +00:00
parent 1f27423e32
commit 04e7db0905
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ncgcnv.pas
View File

@ -500,10 +500,18 @@ interface
location_copy(location,left.location);
{ Floats should never be returned as LOC_CONSTANT, do the
moving to memory before the new size is set }
if (resulttype.def.deftype=floatdef) and
(location.loc=LOC_CONSTANT) then
location_force_mem(exprasmlist,location);
moving to memory before the new size is set.
Also when converting from a float to a non-float move
to memory first to prevent invalid LOC_FPUREGISTER locations }
if (
(resulttype.def.deftype=floatdef) and
(location.loc=LOC_CONSTANT)
) or
(
(left.resulttype.def.deftype=floatdef) and
(resulttype.def.deftype<>floatdef)
) then
location_force_mem(exprasmlist,location);
{ but use the new size, but we don't know the size of all arrays }
newsize:=def_cgsize(resulttype.def);
@ -559,7 +567,10 @@ end.
{
$Log$
Revision 1.70 2004-12-25 12:29:08 florian
Revision 1.71 2004-12-26 20:09:35 peter
* typecast float to non-float needs a move to memory
Revision 1.70 2004/12/25 12:29:08 florian
* fixed extended->double/single conversion when using sse
Revision 1.69 2004/12/25 10:48:17 florian