paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 17:08:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed finalization of open array out parameters after r31328

Browse Source 
git-svn-id: trunk@31623 -
This commit is contained in:
Jonas Maebe 2015-09-12 23:31:53 +00:00
parent 2205549316
commit 6be050b729
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -622,7 +622,7 @@ implementation
if (parasym.varspez=vs_out) and
is_managed_type(orgparadef) and
(not is_open_array(resultdef) or
is_managed_type(orgparadef)) and
is_managed_type(tarraydef(resultdef).elementdef)) and
not(target_info.system in systems_garbage_collected_managed_types) then
begin
paraaddrtype:=cpointerdef.getreusable(orgparadef);