* fix type casts

compiler/nutils.pas

@@ -1674,11 +1674,11 @@ implementation
         Result:=p;
         while assigned(Result) do
           begin
-            if (tstatementnode(Result).nodetype=statementn) and assigned(tstatementnode(Result).next) then
+            if (Result.nodetype=statementn) and assigned(tstatementnode(Result).next) then
               Result:=tstatementnode(Result).next
-            else if tstatementnode(Result).nodetype=blockn then
+            else if Result.nodetype=blockn then
               Result:=tblocknode(Result).statements
-            else if tstatementnode(Result).statement.nodetype=blockn then
+            else if (Result.nodetype=statementn) and (tstatementnode(Result).statement.nodetype=blockn) then
               Result:=tblocknode(tstatementnode(Result).left).statements
             else
               exit;