paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:29:25 +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 ) or
(refInSequence(ref,c,refsEq) and (refInSequence(ref,c,refsEq) and
((reg <> regWritten) or ((reg <> regWritten) or
((nrOfMods <> 1) and not((nrOfMods = 1) and
{StarMod is always of the type ait_instruction} {StarMod is always of the type ait_instruction}
(Taicpu(StartMod).oper[0].typ = top_ref) and (Taicpu(StartMod).oper[0].typ = top_ref) and
refsEq(Taicpu(StartMod).oper[0].ref^, ref) refsEq(Taicpu(StartMod).oper[0].ref^, ref)
) )
) )
) )
) )
@ -2454,7 +2454,10 @@ End.
{ {
$Log$ $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 + new tlinkedlist class (merge of old tstringqueue,tcontainer and
tlinkedlist objects) tlinkedlist objects)