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

* use S_IQ opsize for A_FISTP instruction

Browse Source 
git-svn-id: trunk@6848 -
This commit is contained in:
pierre 2007-03-14 17:09:42 +00:00
parent 5bf9c58e14
commit d1d6413443
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

@ -301,7 +301,7 @@ implementation
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_ref(A_FISTP,S_IQ,location.reference);
emit_none(A_FWAIT,S_NO);
end;
end;
@ -336,7 +336,7 @@ implementation
emit_ref(A_FLDCW,S_NO,newcw);
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_ref(A_FISTP,S_IQ,location.reference);
emit_ref(A_FLDCW,S_NO,oldcw);
emit_none(A_FWAIT,S_NO);
tg.UnGetTemp(current_asmdata.CurrAsmList,oldcw);