From f25c21c287f87023ddab86b52aa9092fbfa8ca8d Mon Sep 17 00:00:00 2001 From: paul Date: Tue, 5 Jan 2010 16:22:26 +0000 Subject: [PATCH] compiler: fix wrong typecast git-svn-id: trunk@14545 - --- compiler/psub.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/psub.pas b/compiler/psub.pas index f3ce252b35..c308150bb3 100644 --- a/compiler/psub.pas +++ b/compiler/psub.pas @@ -209,7 +209,7 @@ implementation need to be in the initfinal table (PFV) } block:=statement_block(_INITIALIZATION); { optimize empty initialization block away } - if (tstatementnode(block).left=nil) then + if (block.nodetype=blockn) and (tblocknode(block).left=nil) then FreeAndNil(block) else if not islibrary then @@ -224,7 +224,7 @@ implementation begin block:=statement_block(_FINALIZATION); { optimize empty finalization block away } - if (tstatementnode(block).left=nil) then + if (block.nodetype=blockn) and (tblocknode(block).left=nil) then FreeAndNil(block) else if not islibrary then