paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +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
}
begin
load_fpu_location;
location.loc:=LOC_REFERENCE;
tg.GetTempTyped(current_asmdata.CurrAsmList,resultdef,tt_normal,location.reference);
emit_ref(A_FISTP,S_Q,location.reference);
emit_none(A_FWAIT,S_NO);
load_fpu_location;
location_reset(location,LOC_REFERENCE,OS_64);
tg.GetTempTyped(current_asmdata.CurrAsmList,resultdef,tt_normal,location.reference);
emit_ref(A_FISTP,S_Q,location.reference);
emit_none(A_FWAIT,S_NO);
end;
end;
@ -334,7 +334,7 @@ implementation
emit_const_ref(A_OR,S_W,$0f00,oldcw);
load_fpu_location;
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);
cg.a_load_reg_ref(current_asmdata.CurrAsmList,OS_16,OS_16,tempreg,oldcw);
emit_ref(A_FISTP,S_Q,location.reference);