paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +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 With PPaiProp(p^.OptInfo)^.Regs[Counter] Do
Begin Begin
If (typ = Con_Ref) And If (typ = Con_Ref) And
(Not(cs_UncertainOpts in aktglobalswitches) And ((Not(cs_UncertainOpts in aktglobalswitches) And
(NrOfMods <> 1) (NrOfMods <> 1)
) Or ) Or
(RefInSequence(Ref,PPaiProp(p^.OptInfo)^.Regs[Counter]) And (RefInSequence(Ref,PPaiProp(p^.OptInfo)^.Regs[Counter]) And
((Counter <> WhichReg) Or ((Counter <> WhichReg) Or
((NrOfMods = 1) And ((NrOfMods <> 1) And
{StarMod is always of the type ait_instruction} {StarMod is always of the type ait_instruction}
(Pai386(StartMod)^.oper[0].typ = top_ref) And (Pai386(StartMod)^.oper[0].typ = top_ref) And
RefsEqual(Pai386(StartMod)^.oper[0].ref^, Ref) RefsEqual(Pai386(StartMod)^.oper[0].ref^, Ref)
)
) )
) )
) )
Then DestroyReg(PPaiProp(p^.OptInfo), Counter) Then
DestroyReg(PPaiProp(p^.OptInfo), Counter)
End End
Else Else
{write something to a pointer location, so {write something to a pointer location, so
@ -2236,7 +2238,10 @@ End.
{ {
$Log$ $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 * also add arithmetic operations to instruction sequences contained in registers
(compile with -darithopt, very nice!) (compile with -darithopt, very nice!)