paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed expectloc setting

Browse Source 
git-svn-id: trunk@6833 -
This commit is contained in:
florian 2007-03-13 22:45:41 +00:00
parent 168e652d42
commit c4f65df9f9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/nx86inl.pas
View File

@ -179,7 +179,7 @@ implementation
function tx86inlinenode.first_round_real : tnode; function tx86inlinenode.first_round_real : tnode;
begin begin
expectloc:=LOC_FPUREGISTER; expectloc:=LOC_REFERENCE;
registersint:=left.registersint; registersint:=left.registersint;
registersfpu:=max(left.registersfpu,1); registersfpu:=max(left.registersfpu,1);
{$ifdef SUPPORT_MMX} {$ifdef SUPPORT_MMX}
@ -195,7 +195,7 @@ implementation
result:=inherited result:=inherited
else else
begin begin
expectloc:=LOC_FPUREGISTER; expectloc:=LOC_REFERENCE;
registersint:=left.registersint; registersint:=left.registersint;
registersfpu:=max(left.registersfpu,1); registersfpu:=max(left.registersfpu,1);
{$ifdef SUPPORT_MMX} {$ifdef SUPPORT_MMX}