paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed passing single elements to open array var-parameters on non-managed

Browse Source 
platforms after r18561 (newly introduced element-to-open-array type
    conversion retains the value location on those platforms)

git-svn-id: branches/jvmbackend@18793 -
This commit is contained in:
Jonas Maebe 2011-08-20 20:37:09 +00:00
parent a3d4d05454
commit 7da5987d03
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncnv.pas
View File

@ -3360,7 +3360,11 @@ implementation
{ int 2 bool/bool 2 int, explicit typecast, see also nx86cnv }
((convtype in [tc_int_2_bool,tc_bool_2_int,tc_bool_2_bool]) and
(nf_explicit in flags) and
(resultdef.size=left.resultdef.size));
(resultdef.size=left.resultdef.size)) or
{ on managed platforms, converting an element to an open array
involves creating an actual array -> value location changes }
((convtype=tc_elem_2_openarray) and
not(target_info.system in systems_managed_vm));
end;