Browse Source

* reverted r44119

git-svn-id: trunk@44123 -
florian 5 years ago
parent
commit
3de193467d
1 changed files with 1 additions and 4 deletions
  1. 1 4
      compiler/hlcgobj.pas

+ 1 - 4
compiler/hlcgobj.pas

@@ -4815,10 +4815,7 @@ implementation
             assigned(hp^.def) and
             is_managed_type(hp^.def) then
           begin
-            { If it needs an implicit finally block, the relevant flag should
-              have been set in the first pass.  Note that we can't set it here
-              because "add_entry_exit_code" has already been called, and
-              setting the flag now will raise Internal Error 200405231. [Kit] }
+            include(current_procinfo.flags,pi_needs_implicit_finally);
             tg.temp_to_ref(hp,href);
             g_finalize(list,hp^.def,href);
           end;