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

* fixed web bug #1133 (merged from fixes branch)

Browse Source
This commit is contained in:
Jonas Maebe 2000-09-18 11:28:36 +00:00
parent 448dc6df47
commit 91faeee3a4
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/popt386.pas
View File

@ -1532,12 +1532,8 @@ Begin
hp1 := Pai(p^.next);
While Assigned(hp1) And
(Pai(hp1)^.typ In [ait_instruction]+SkipInstr) And
Not((Pai(hp1)^.typ = ait_instruction) And
((Paicpu(hp1)^.opcode = A_CALL) or
(Paicpu(hp1)^.opcode = A_PUSH) or
((Paicpu(hp1)^.opcode = A_MOV) And
(Paicpu(hp1)^.oper[1].typ = top_ref) And
(Paicpu(hp1)^.oper[1].ref^.base = R_ESP)))) do
not regReadByInstruction(R_ESP,hp1) and
not regModifiedByInstruction(R_ESP,hp1) do
hp1 := Pai(hp1^.next);
If Assigned(hp1) And
(Pai(hp1)^.typ = ait_instruction) And
@ -1949,7 +1945,10 @@ End.
{
$Log$
Revision 1.10 2000-08-18 10:09:13 jonas
Revision 1.11 2000-09-18 11:28:36 jonas
* fixed web bug 1133 (merged from fixes branch)
Revision 1.10 2000/08/18 10:09:13 jonas
* fix for web bug1099 (merged from fixes branch)
Revision 1.9 2000/08/05 13:33:08 peter