* set implicitframe for copied tryfinally nodes as well

git-svn-id: trunk@44956 -

compiler/nflw.pas

@@ -244,6 +244,7 @@ interface
           function pass_1 : tnode;override;
           function simplify(forinline:boolean): tnode;override;
        protected
+          function dogetcopy: tnode;override;
           procedure adjust_estimated_stack_size; virtual;
        end;
        ttryfinallynodeclass = class of ttryfinallynode;
@@ -2599,6 +2600,13 @@ implementation
      end;
 
 
+    function ttryfinallynode.dogetcopy: tnode;
+       begin
+         result:=inherited dogetcopy;
+         ttryfinallynode(result).implicitframe:=implicitframe;
+       end;
+
+
     procedure ttryfinallynode.adjust_estimated_stack_size;
       begin
         inc(current_procinfo.estimatedtempsize,rec_jmp_buf.size);