paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 08:39:32 +01: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 end
else else
if ( if (
(p.location.loc=LOC_FPUREGISTER) and (p.expectloc=LOC_FPUREGISTER) and
(p.right.registersfpu > p.left.registersfpu) (p.right.registersfpu > p.left.registersfpu)
) or ) or
( (
( (
( (
((p.left.registersfpu = 0) and (p.right.registersfpu = 0)) or ((p.left.registersfpu = 0) and (p.right.registersfpu = 0)) or
(p.location.loc<>LOC_FPUREGISTER) (p.expectloc<>LOC_FPUREGISTER)
) and ) and
(p.left.registersint<p.right.registersint) (p.left.registersint<p.right.registersint)
) )
@ -2407,7 +2407,10 @@ implementation
end. end.
{ {
$Log$ $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 * remove is_single_reference
* revert loading of ref-to-ref para valu * revert loading of ref-to-ref para valu