|
@@ -708,13 +708,17 @@ implementation
|
|
begin
|
|
begin
|
|
if (hp^.pos=ref.temppos.val) then
|
|
if (hp^.pos=ref.temppos.val) then
|
|
begin
|
|
begin
|
|
|
|
+ if hp^.temptype=tt_free then
|
|
|
|
+ begin
|
|
|
|
+ result:=false;
|
|
|
|
+ exit;
|
|
|
|
+ end;
|
|
temp_to_ref(hp, tmpref);
|
|
temp_to_ref(hp, tmpref);
|
|
result:=references_equal(ref, tmpref);
|
|
result:=references_equal(ref, tmpref);
|
|
exit;
|
|
exit;
|
|
end;
|
|
end;
|
|
hp:=hp^.next;
|
|
hp:=hp^.next;
|
|
end;
|
|
end;
|
|
- internalerror(2018042601);
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|