paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:49:09 +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; n: ttemprefnode;
begin begin
n := ttemprefnode(inherited getcopy); n := ttemprefnode(inherited getcopy);
n.offset := offset;
if assigned(tempinfo^.hookoncopy) then if assigned(tempinfo^.hookoncopy) then
{ if the temp has been copied, assume it becomes a new } { if the temp has been copied, assume it becomes a new }
@ -705,7 +706,8 @@ implementation
begin begin
result := result :=
inherited docompare(p) and inherited docompare(p) and
(ttemprefnode(p).tempinfo = tempinfo); (ttemprefnode(p).tempinfo = tempinfo) and
(ttemprefnode(p).offset = offset);
end; end;
procedure Ttemprefnode.mark_write; procedure Ttemprefnode.mark_write;
@ -800,7 +802,11 @@ begin
end. end.
{ {
$Log$ $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 * firstpass uses expectloc
* checks if there are differences between the expectloc and * checks if there are differences between the expectloc and
location.loc from secondpass in EXTDEBUG location.loc from secondpass in EXTDEBUG