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

* fixed x86-64

Browse Source 
git-svn-id: trunk@6828 -
This commit is contained in:
florian 2007-03-13 21:12:40 +00:00
parent 1cd41b68f7
commit 8aa259401c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/x86/nx86inl.pas
View File

@ -298,11 +298,11 @@ implementation
else else
} }
begin begin
load_fpu_location; load_fpu_location;
location.loc:=LOC_REFERENCE; location_reset(location,LOC_REFERENCE,OS_64);
tg.GetTempTyped(current_asmdata.CurrAsmList,resultdef,tt_normal,location.reference); tg.GetTempTyped(current_asmdata.CurrAsmList,resultdef,tt_normal,location.reference);
emit_ref(A_FISTP,S_Q,location.reference); emit_ref(A_FISTP,S_Q,location.reference);
emit_none(A_FWAIT,S_NO); emit_none(A_FWAIT,S_NO);
end; end;
end; end;
@ -334,7 +334,7 @@ implementation
emit_const_ref(A_OR,S_W,$0f00,oldcw); emit_const_ref(A_OR,S_W,$0f00,oldcw);
load_fpu_location; load_fpu_location;
emit_ref(A_FLDCW,S_NO,oldcw); emit_ref(A_FLDCW,S_NO,oldcw);
location.loc:=LOC_REFERENCE; location_reset(location,LOC_REFERENCE,OS_64);
tg.GetTempTyped(current_asmdata.CurrAsmList,resultdef,tt_normal,location.reference); tg.GetTempTyped(current_asmdata.CurrAsmList,resultdef,tt_normal,location.reference);
cg.a_load_reg_ref(current_asmdata.CurrAsmList,OS_16,OS_16,tempreg,oldcw); cg.a_load_reg_ref(current_asmdata.CurrAsmList,OS_16,OS_16,tempreg,oldcw);
emit_ref(A_FISTP,S_Q,location.reference); emit_ref(A_FISTP,S_Q,location.reference);