浏览代码

pastojs: copy static array

git-svn-id: trunk@38288 -
Mattias Gaertner 7 年之前
父节点
当前提交
204ad8ff02
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      packages/pastojs/src/fppas2js.pp

+ 3 - 1
packages/pastojs/src/fppas2js.pp

@@ -10223,7 +10223,9 @@ begin
     begin
     // TArrayType$clone(ArrayExpr);
     if ArrTypeEl.Name='' then
-      RaiseNotSupported(El,AContext,20180218230407,'copy anonymous multi dim array');
+      RaiseNotSupported(El,AContext,20180218230407,'copy anonymous multi dim static array');
+    if length(ArrTypeEl.Ranges)>1 then
+      RaiseNotSupported(El,AContext,20180218231700,'copy multi dim static array');
     FuncContext:=AContext.GetFunctionContext;
     Path:=CreateReferencePath(ArrTypeEl,FuncContext,rpkPathAndName)
           +FBuiltInNames[pbifnArray_Static_Clone];