diff --git a/compiler/daopt386.pas b/compiler/daopt386.pas index c67f54ee40..00f1abc114 100644 --- a/compiler/daopt386.pas +++ b/compiler/daopt386.pas @@ -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!)