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

* bugfix in DestroyRefs

Browse Source
This commit is contained in:
Jonas Maebe 1999-08-02 14:35:21 +00:00
parent 77fef43fda
commit e2302d38bc
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/daopt386.pas
View File

@ -1544,19 +1544,21 @@ Begin
With PPaiProp(p^.OptInfo)^.Regs[Counter] Do
Begin
If (typ = Con_Ref) And
(Not(cs_UncertainOpts in aktglobalswitches) And
(NrOfMods <> 1)
) Or
(RefInSequence(Ref,PPaiProp(p^.OptInfo)^.Regs[Counter]) And
((Counter <> WhichReg) Or
((NrOfMods = 1) And
((Not(cs_UncertainOpts in aktglobalswitches) And
(NrOfMods <> 1)
) Or
(RefInSequence(Ref,PPaiProp(p^.OptInfo)^.Regs[Counter]) And
((Counter <> WhichReg) Or
((NrOfMods <> 1) And
{StarMod is always of the type ait_instruction}
(Pai386(StartMod)^.oper[0].typ = top_ref) And
RefsEqual(Pai386(StartMod)^.oper[0].ref^, Ref)
(Pai386(StartMod)^.oper[0].typ = top_ref) And
RefsEqual(Pai386(StartMod)^.oper[0].ref^, Ref)
)
)
)
)
Then DestroyReg(PPaiProp(p^.OptInfo), Counter)
Then
DestroyReg(PPaiProp(p^.OptInfo), Counter)
End
Else
{write something to a pointer location, so
@ -2236,7 +2238,10 @@ End.
{
$Log$
Revision 1.51 1999-08-02 12:12:53 jonas
Revision 1.52 1999-08-02 14:35:21 jonas
* bugfix in DestroyRefs
Revision 1.51 1999/08/02 12:12:53 jonas
* also add arithmetic operations to instruction sequences contained in registers
(compile with -darithopt, very nice!)