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

- removed {$ifdef ver0_99_11}'s

Browse Source
This commit is contained in:
Jonas Maebe 1998-12-14 22:01:45 +00:00
parent 91877d698d
commit 30fa4efbd4
1 changed files with 7 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/popt386.pas
View File

@ -313,25 +313,15 @@ Begin
End End
End End
End; End;
A_FSTP A_FSTP,A_FISTP:
{$IfDef Ver0_99_11}
,A_FISTP
{$EndIf Ver0_99_11}
:
Begin Begin
If (Pai386(p)^.op1t = top_ref) And If (Pai386(p)^.op1t = top_ref) And
GetNextInstruction(p, hp1) And GetNextInstruction(p, hp1) And
(Pai(hp1)^.typ = ait_instruction) And (Pai(hp1)^.typ = ait_instruction) And
{$IfDef Ver0_99_11} (((Pai386(hp1)^._operator = A_FLD) And
((
{$EndIf Ver0_99_11}
(Pai386(hp1)^._operator = A_FLD) And
{$IfDef Ver0_99_11}
(Pai386(p)^._operator = A_FSTP)) Or (Pai386(p)^._operator = A_FSTP)) Or
((Pai386(p)^._operator = A_FISTP) And ((Pai386(p)^._operator = A_FISTP) And
(Pai386(hp1)^._operator = A_FILD))) And (Pai386(hp1)^._operator = A_FILD))) And
{$EndIf Ver0_99_11}
(Pai386(hp1)^.op1t = top_ref) And (Pai386(hp1)^.op1t = top_ref) And
(Pai386(hp1)^.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^))
@ -357,14 +347,9 @@ Begin
{fst can't store an extended value!} {fst can't store an extended value!}
If (Pai386(p)^.Size <> S_FX) Then If (Pai386(p)^.Size <> S_FX) Then
Begin Begin
{$IfDef Ver0_99_11}
If (Pai386(p)^._operator = A_FLD) Then If (Pai386(p)^._operator = A_FLD) Then
{$EndIf Ver0_99_11}
Pai386(p)^._operator := A_FST Pai386(p)^._operator := A_FST
{$IfDef Ver0_99_11} Else Pai386(p)^._operator := A_FIST;
Else Pai386(p)^._operator := A_FIST
{$EndIf Ver0_99_11}
;
AsmL^.Remove(hp1); AsmL^.Remove(hp1);
Dispose(hp1, done) Dispose(hp1, done)
End End
@ -1311,7 +1296,6 @@ Begin
dispose(hp1, done); dispose(hp1, done);
End; End;
End; End;
{$IfDef Ver0_99_11}
A_SETE..A_SETGE,A_SETC,A_SETNC,A_SETA..A_SETBE,A_SETO..A_SETNLE: A_SETE..A_SETGE,A_SETC,A_SETNC,A_SETA..A_SETBE,A_SETO..A_SETNLE:
Begin Begin
If (Pai386(p)^.Op1t = top_ref) And If (Pai386(p)^.Op1t = top_ref) And
@ -1336,7 +1320,6 @@ Begin
Dispose(hp1, Done) Dispose(hp1, Done)
End End
End; End;
{$EndIf Ver0_99_11}
A_SUB: A_SUB:
{change "subl $2, %esp; pushw x" to "pushl x"} {change "subl $2, %esp; pushw x" to "pushl x"}
Begin Begin
@ -1554,7 +1537,10 @@ End.
{ {
$Log$ $Log$
Revision 1.27 1998-12-11 00:03:35 peter Revision 1.28 1998-12-14 22:01:45 jonas
- removed {$ifdef ver0_99_11}'s
Revision 1.27 1998/12/11 00:03:35 peter
+ globtype,tokens,version unit splitted from globals + globtype,tokens,version unit splitted from globals
Revision 1.26 1998/12/09 18:16:13 jonas Revision 1.26 1998/12/09 18:16:13 jonas