paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* indeed allow the conversion of array constructors to dynamic arrays

Browse Source 
git-svn-id: trunk@36100 -
This commit is contained in:
svenbarth 2017-05-04 21:54:27 +00:00
parent 82b2d22ed6
commit bdef19fd79
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/defcmp.pas
View File

@ -977,7 +977,17 @@ implementation
{ to dynamic array } { to dynamic array }
else if is_dynamic_array(def_to) then else if is_dynamic_array(def_to) then
begin begin
if equal_defs(tarraydef(def_from).elementdef,tarraydef(def_to).elementdef) then if is_array_constructor(def_from) then
begin
{ array constructor -> dynamic array }
if (tarraydef(def_from).elementdef=voidtype) or
(compare_defs(tarraydef(def_from).elementdef,tarraydef(def_to).elementdef,nothingn)>te_incompatible) then
begin
eq:=te_convert_l1;
doconv:=tc_arrayconstructor_2_dynarray;
end;
end
else if equal_defs(tarraydef(def_from).elementdef,tarraydef(def_to).elementdef) then
begin begin
{ dynamic array -> dynamic array } { dynamic array -> dynamic array }
if is_dynamic_array(def_from) then if is_dynamic_array(def_from) then