* Calling "internalstatements" now sets the "bnf_strippable" flag on the result

compiler/nbas.pas

@@ -383,7 +383,8 @@ implementation
       begin
         { create dummy initial statement }
         laststatement := cstatementnode.create(cnothingnode.create,nil);
-        internalstatements := cblocknode.create(laststatement);
+        result := cblocknode.create(laststatement);
+        Include(result.blocknodeflags, bnf_strippable);
       end;
 
 

compiler/psub.pas

@@ -908,6 +908,8 @@ implementation
           an try...finally...end wrapper }
         current_filepos:=entrypos;
         newblock:=internalstatements(newstatement);
+        { Note - this is not strippable since it wraps the entire procedure }
+        Exclude(TBlockNode(newblock).blocknodeflags, bnf_strippable);
         { initialization is common for all cases }
         addstatement(newstatement,loadpara_asmnode);
         addstatement(newstatement,stackcheck_asmnode);