paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 05:52:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #3694

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-05 20:08:27 +00:00
parent eeaded577a
commit 6cc3dbae94
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ncgcnv.pas
View File

@ -501,15 +501,16 @@ interface
{ Floats should never be returned as LOC_CONSTANT, do the { Floats should never be returned as LOC_CONSTANT, do the
moving to memory before the new size is set. moving to memory before the new size is set.
Also when converting from a float to a non-float move Also when converting from a float to a non-float
to memory first to prevent invalid LOC_FPUREGISTER locations } or the other way round, move to memory first to prevent
invalid LOC_FPUREGISTER locations }
if ( if (
(resulttype.def.deftype=floatdef) and (resulttype.def.deftype=floatdef) and
(location.loc=LOC_CONSTANT) (location.loc=LOC_CONSTANT)
) or ) or
( (
(left.resulttype.def.deftype=floatdef) and (left.resulttype.def.deftype=floatdef) xor
(resulttype.def.deftype<>floatdef) (resulttype.def.deftype=floatdef)
) then ) then
location_force_mem(exprasmlist,location); location_force_mem(exprasmlist,location);
@ -567,7 +568,10 @@ end.
{ {
$Log$ $Log$
Revision 1.73 2005-02-14 17:13:06 peter Revision 1.74 2005-03-05 20:08:27 jonas
* fixed web bug 3694
Revision 1.73 2005/02/14 17:13:06 peter
* truncate log * truncate log
Revision 1.72 2005/01/09 15:05:29 peter Revision 1.72 2005/01/09 15:05:29 peter