paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 05:14:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* no fistp/fild optimization for S_IQ (fistq doesn't exist)

Browse Source
This commit is contained in:
Jonas Maebe 1999-01-04 12:58:55 +00:00
parent decd60caa8
commit 4f997fddd1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/popt386.pas
View File

@ -343,7 +343,8 @@ Begin
End
Else
{fst can't store an extended value!}
If (Pai386(p)^.Size <> S_FX) Then
If (Pai386(p)^.Size <> S_FX) And
(Pai386(p)^.Size <> S_IQ) Then
Begin
If (Pai386(p)^._operator = A_FSTP) Then
Pai386(p)^._operator := A_FST
@ -1590,7 +1591,10 @@ End.
{
$Log$
Revision 1.34 1998-12-29 18:48:17 jonas
Revision 1.35 1999-01-04 12:58:55 jonas
* no fistp/fild optimization for S_IQ (fistq doesn't exist)
Revision 1.34 1998/12/29 18:48:17 jonas
+ optimize pascal code surrounding assembler blocks
Revision 1.33 1998/12/23 15:16:21 jonas