mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 16:09:31 +02:00
* reverted r44119
git-svn-id: trunk@44123 -
This commit is contained in:
parent
af8e3fb816
commit
3de193467d
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user