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

* added missing tcasenode.derefnode override to process all the

Browse Source 
case-blocks and the else-block

git-svn-id: trunk@9251 -
This commit is contained in:
Jonas Maebe 2007-11-14 19:40:28 +00:00
parent 465b41fbfd
commit 82cf80d4ca
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/nset.pas
View File

@ -82,6 +82,7 @@ interface
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure buildderefimpl;override; procedure buildderefimpl;override;
procedure derefimpl;override; procedure derefimpl;override;
procedure derefnode;override;
function dogetcopy : tnode;override; function dogetcopy : tnode;override;
procedure insertintolist(l : tnodelist);override; procedure insertintolist(l : tnodelist);override;
function pass_typecheck:tnode;override; function pass_typecheck:tnode;override;
@ -578,6 +579,18 @@ implementation
end; end;
procedure tcasenode.derefnode;
var
i : integer;
begin
inherited derefnode;
if assigned(elseblock) then
elseblock.derefnode;
for i:=0 to blocks.count-1 do
pcaseblock(blocks[i])^.statement.derefnode;
end;
function tcasenode.pass_typecheck : tnode; function tcasenode.pass_typecheck : tnode;
begin begin
result:=nil; result:=nil;