paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed tstatementnode.det_resulttype and tststatementnode.pass_1

Browse Source 
* fixed some getcopy issues with ttemp*nodes
This commit is contained in:
Jonas Maebe 2003-04-21 15:00:22 +00:00
parent e206a74439
commit 934974e234
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/nbas.pas
View File

@ -93,6 +93,7 @@ interface
ref : treference; ref : treference;
restype : ttype; restype : ttype;
valid : boolean; valid : boolean;
nextref_set_hookoncopy_nil : boolean;
end; end;
{ a node which will create a (non)persistent temp of a given type with a given } { a node which will create a (non)persistent temp of a given type with a given }
@ -275,6 +276,7 @@ implementation
exit; exit;
{ right is the next statement in the list } { right is the next statement in the list }
if assigned(right) then
resulttypepass(right); resulttypepass(right);
if codegenerror then if codegenerror then
exit; exit;
@ -298,6 +300,7 @@ implementation
registersmmx:=left.registersmmx; registersmmx:=left.registersmmx;
{$endif SUPPORT_MMX} {$endif SUPPORT_MMX}
{ right is the next in the list } { right is the next in the list }
if assigned(right) then
firstpass(right); firstpass(right);
if codegenerror then if codegenerror then
exit; exit;
@ -597,6 +600,7 @@ implementation
{ so that if the refs get copied as well, they can hook themselves } { so that if the refs get copied as well, they can hook themselves }
{ to the copy of the temp } { to the copy of the temp }
tempinfo^.hookoncopy := n.tempinfo; tempinfo^.hookoncopy := n.tempinfo;
tempinfo^.nextref_set_hookoncopy_nil := false;
result := n; result := n;
end; end;
@ -650,6 +654,12 @@ implementation
begin begin
{ hook the ref to the copied temp } { hook the ref to the copied temp }
n.tempinfo := tempinfo^.hookoncopy; n.tempinfo := tempinfo^.hookoncopy;
{ if we passed a ttempdeletenode that changed the temp }
{ from a persistent one into a normal one, we must be }
{ the last reference (since our parent should free the }
{ temp (JM) }
if (tempinfo^.nextref_set_hookoncopy_nil) then
tempinfo^.hookoncopy := nil;
end end
else else
{ if the temp we refer to hasn't been copied, assume } { if the temp we refer to hasn't been copied, assume }
@ -715,6 +725,7 @@ implementation
n: ttempdeletenode; n: ttempdeletenode;
begin begin
n := ttempdeletenode(inherited getcopy); n := ttempdeletenode(inherited getcopy);
n.release_to_normal := release_to_normal;
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 }
@ -723,7 +734,12 @@ implementation
{ hook the tempdeletenode to the copied temp } { hook the tempdeletenode to the copied temp }
n.tempinfo := tempinfo^.hookoncopy; n.tempinfo := tempinfo^.hookoncopy;
{ the temp shall not be used, reset hookoncopy } { the temp shall not be used, reset hookoncopy }
tempinfo^.hookoncopy:=nil; { Only if release_to_normal is false, otherwise }
{ the temp can still be referenced once more (JM) }
if (not release_to_normal) then
tempinfo^.hookoncopy:=nil
else
tempinfo^.nextref_set_hookoncopy_nil := true;
end end
else else
{ if the temp we refer to hasn't been copied, we have a } { if the temp we refer to hasn't been copied, we have a }
@ -768,7 +784,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.42 2003-04-17 07:50:24 daniel Revision 1.43 2003-04-21 15:00:22 jonas
* fixed tstatementnode.det_resulttype and tststatementnode.pass_1
* fixed some getcopy issues with ttemp*nodes
Revision 1.42 2003/04/17 07:50:24 daniel
* Some work on interference graph construction * Some work on interference graph construction
Revision 1.41 2003/04/12 14:53:59 jonas Revision 1.41 2003/04/12 14:53:59 jonas