paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 15:09:22 +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 if (parasym.varspez=vs_out) and
is_managed_type(orgparadef) and is_managed_type(orgparadef) and
(not is_open_array(resultdef) or (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 not(target_info.system in systems_garbage_collected_managed_types) then
begin begin
paraaddrtype:=cpointerdef.getreusable(orgparadef); paraaddrtype:=cpointerdef.getreusable(orgparadef);