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

* fixed ttemprefnode.compare and .getcopy to take offset field into

Browse Source 
account
This commit is contained in:
Jonas Maebe 2003-04-23 08:41:34 +00:00
parent b3a3398faf
commit 5ed5d2897f
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nbas.pas
View File

@ -662,6 +662,7 @@ implementation
n: ttemprefnode;
begin
n := ttemprefnode(inherited getcopy);
n.offset := offset;
if assigned(tempinfo^.hookoncopy) then
{ if the temp has been copied, assume it becomes a new }
@ -705,7 +706,8 @@ implementation
begin
result :=
inherited docompare(p) and
(ttemprefnode(p).tempinfo = tempinfo);
(ttemprefnode(p).tempinfo = tempinfo) and
(ttemprefnode(p).offset = offset);
end;
procedure Ttemprefnode.mark_write;
@ -800,7 +802,11 @@ begin
end.
{
$Log$
Revision 1.44 2003-04-22 23:50:22 peter
Revision 1.45 2003-04-23 08:41:34 jonas
* fixed ttemprefnode.compare and .getcopy to take offset field into
account
Revision 1.44 2003/04/22 23:50:22 peter
* firstpass uses expectloc
* checks if there are differences between the expectloc and
location.loc from secondpass in EXTDEBUG