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

* use expectloc in firstcomplex()

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-02 19:44:11 +00:00
parent 3c58dc06e4
commit ac931f6846
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncgutil.pas
View File

@ -193,14 +193,14 @@ implementation
end
else
if (
(p.location.loc=LOC_FPUREGISTER) and
(p.expectloc=LOC_FPUREGISTER) and
(p.right.registersfpu > p.left.registersfpu)
) or
(
(
(
((p.left.registersfpu = 0) and (p.right.registersfpu = 0)) or
(p.location.loc<>LOC_FPUREGISTER)
(p.expectloc<>LOC_FPUREGISTER)
) and
(p.left.registersint<p.right.registersint)
)
@ -2407,7 +2407,10 @@ implementation
end.
{
$Log$
Revision 1.262 2005-02-15 21:39:48 peter
Revision 1.263 2005-03-02 19:44:11 jonas
* use expectloc in firstcomplex()
Revision 1.262 2005/02/15 21:39:48 peter
* remove is_single_reference
* revert loading of ref-to-ref para valu