Skip to content

Commit 64f031c

Browse files
committed
prevents the definition of 2D arrays of type ^RECORD
1 parent 45f07a8 commit 64f031c

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

origin/Parser.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3056,7 +3056,7 @@ function CompileType(i: Integer; out DataType: Byte; out NumAllocElements: cardi
30563056
if NestedDataType in [RECORDTOK, OBJECTTOK, ENUMTOK] then begin // !!! dla RECORD, OBJECT tablice nie zadzialaja !!!
30573057

30583058
if (NumAllocElements shr 16 > 0) then
3059-
Error(i, 'Multidimensional ' + InfoAboutToken(NestedDataType) + ' arrays are not supported');
3059+
Error(i, 'Multidimensional ^' + InfoAboutToken(NestedDataType) + ' arrays are not supported');
30603060

30613061
// if NestedDataType = RECORDTOK then
30623062
// else

0 commit comments

Comments
 (0)