|
@@ -14265,6 +14265,10 @@ begin
|
|
|
'type',
|
|
|
' TDynArrInt = array of byte;',
|
|
|
' TStaArrInt = array[1..2] of byte;',
|
|
|
+ 'procedure Fly(var a: array of byte);',
|
|
|
+ 'begin',
|
|
|
+ ' Fly(a);',
|
|
|
+ 'end;',
|
|
|
'procedure DoIt(a: array of byte);',
|
|
|
'var',
|
|
|
' d: TDynArrInt;',
|
|
@@ -14275,6 +14279,8 @@ begin
|
|
|
' // d:=a; forbidden in delphi',
|
|
|
' DoIt(d);',
|
|
|
' DoIt(s);',
|
|
|
+ ' Fly(a);',
|
|
|
+ ' Fly(d);', // dyn array can be passed to a var open array
|
|
|
'end;',
|
|
|
'begin',
|
|
|
'']);
|