paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 23:49:29 +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
(Pai386(hp1)^._operator = A_FLD) 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^))
Then
Begin
@ -275,11 +275,13 @@ Begin
Continue
End
Else
Begin
Pai386(p)^._operator := A_FST;
AsmL^.Remove(hp1);
Dispose(hp1, done)
End
{fst can't store an extended value!}
If (Pai386(p)^.Size <> S_FX) Then
Begin
Pai386(p)^._operator := A_FST;
AsmL^.Remove(hp1);
Dispose(hp1, done)
End
End;
End;
A_IMUL:
@ -1363,8 +1365,14 @@ End.
{
$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
* $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
}