소스 검색

* reverted r44119

git-svn-id: trunk@44123 -
florian 5 년 전
부모
커밋
3de193467d
1개의 변경된 파일1개의 추가작업 그리고 4개의 파일을 삭제
  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;