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

* Fix for containsPointerRef: Loop now runs in the correct range

Browse Source
This commit is contained in:
sg 2000-11-08 16:04:34 +00:00
parent fe2277c2bb
commit 7530393d6f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/daopt386.pas
View File

@ -1618,7 +1618,7 @@ begin
if p^.typ <> ait_instruction then
exit;
hp := paicpu(p);
for count := 0 to high(hp^.ops) do
for count := low(hp^.oper) to high(hp^.oper) do
begin
case hp^.oper[count].typ of
top_ref:
@ -2436,7 +2436,10 @@ End.
{
$Log$
Revision 1.4 2000-11-03 18:06:26 jonas
Revision 1.5 2000-11-08 16:04:34 sg
* Fix for containsPointerRef: Loop now runs in the correct range
Revision 1.4 2000/11/03 18:06:26 jonas
* fixed bug in arrayRefsEq
* object/class fields are now handled the same as local/global vars and
parameters (ie. a write to a local var can now never destroy a class