Преглед на файлове

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];