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

* fixed potential bug in writeToMemDestroysContents

Browse Source
This commit is contained in:
Jonas Maebe 2000-12-31 11:00:31 +00:00
parent 350a364890
commit 87405bf710
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/i386/daopt386.pas
View File

@ -1702,11 +1702,11 @@ begin
) or
(refInSequence(ref,c,refsEq) and
((reg <> regWritten) or
((nrOfMods <> 1) and
{StarMod is always of the type ait_instruction}
(Taicpu(StartMod).oper[0].typ = top_ref) and
refsEq(Taicpu(StartMod).oper[0].ref^, ref)
)
not((nrOfMods = 1) and
{StarMod is always of the type ait_instruction}
(Taicpu(StartMod).oper[0].typ = top_ref) and
refsEq(Taicpu(StartMod).oper[0].ref^, ref)
)
)
)
)
@ -2454,7 +2454,10 @@ End.
{
$Log$
Revision 1.14 2000-12-25 00:07:32 peter
Revision 1.15 2000-12-31 11:00:31 jonas
* fixed potential bug in writeToMemDestroysContents
Revision 1.14 2000/12/25 00:07:32 peter
+ new tlinkedlist class (merge of old tstringqueue,tcontainer and
tlinkedlist objects)