paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 10:11:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reverted r44119

Browse Source 
git-svn-id: trunk@44123 -
This commit is contained in:
florian 2020-02-06 20:24:59 +00:00
parent af8e3fb816
commit 3de193467d
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/hlcgobj.pas
View File

@ -4815,10 +4815,7 @@ implementation
assigned(hp^.def) and assigned(hp^.def) and
is_managed_type(hp^.def) then is_managed_type(hp^.def) then
begin begin
{ If it needs an implicit finally block, the relevant flag should include(current_procinfo.flags,pi_needs_implicit_finally);
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] }
tg.temp_to_ref(hp,href); tg.temp_to_ref(hp,href);
g_finalize(list,hp^.def,href); g_finalize(list,hp^.def,href);
end; end;