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

* fstp/fld bugfix (fstt does not exist)

Browse Source
This commit is contained in:
Jonas Maebe 1998-08-05 16:27:17 +00:00
parent 76ee202b37
commit 10142c9fe7
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/popt386.pas
View File

@ -254,7 +254,7 @@ Begin
(Pai(hp1)^.typ = ait_instruction) And (Pai(hp1)^.typ = ait_instruction) And
(Pai386(hp1)^._operator = A_FLD) And (Pai386(hp1)^._operator = A_FLD) And
(Pai386(hp1)^.op1t = top_ref) And (Pai386(hp1)^.op1t = top_ref) And
(Pai386(p)^.Size = Pai386(p)^.Size) And (Pai386(hp1)^.Size = Pai386(p)^.Size) And
RefsEqual(TReference(Pai386(p)^.op1^), TReference(Pai386(hp1)^.op1^)) RefsEqual(TReference(Pai386(p)^.op1^), TReference(Pai386(hp1)^.op1^))
Then Then
Begin Begin
@ -275,11 +275,13 @@ Begin
Continue Continue
End End
Else Else
Begin {fst can't store an extended value!}
Pai386(p)^._operator := A_FST; If (Pai386(p)^.Size <> S_FX) Then
AsmL^.Remove(hp1); Begin
Dispose(hp1, done) Pai386(p)^._operator := A_FST;
End AsmL^.Remove(hp1);
Dispose(hp1, done)
End
End; End;
End; End;
A_IMUL: A_IMUL:
@ -1363,8 +1365,14 @@ End.
{ {
$Log$ $Log$
Revision 1.3 1998-08-05 16:00:15 florian Revision 1.4 1998-08-05 16:27:17 jonas
* fstp/fld bugfix (fstt does not exist)
Revision 1.3 1998/08/05 16:00:15 florian
* some fixes for ansi strings * some fixes for ansi strings
* $log$ to $Log$ changed * $log$ to $Log$
* $log$ to Revision 1.4 1998-08-05 16:27:17 jonas
* $log$ to * fstp/fld bugfix (fstt does not exist)
* $log$ to changed
} }