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

pastojs: fixed arraySetLength shrink

Browse Source 
git-svn-id: trunk@46272 -
This commit is contained in:
Mattias Gaertner 2020-08-05 19:53:11 +00:00
parent ec10ee8218
commit 68a3e33cac
1 changed files with 38 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/pas2js/dist/rtl.js vendored
View File

@ -916,18 +916,23 @@ var rtl = {
srclen = 0; srclen = 0;
oldlen = a.length; oldlen = a.length;
} }
a.length = stack[depth].dim; lastlen = stack[depth].dim;
a.length = lastlen;
if (depth>0){ if (depth>0){
item.a[item.i]=a; item.a[item.i]=a;
item.i++; item.i++;
if ((lastlen===0) && (item.i<item.a.length)) continue;
} }
if (lastlen>0){
if (depth<dimmax){ if (depth<dimmax){
item = stack[depth]; item = stack[depth];
item.a = a; item.a = a;
item.i = 0; item.i = 0;
item.src = src; item.src = src;
depth++; depth++;
continue;
} else { } else {
if (srclen>lastlen) srclen=lastlen;
if (rtl.isArray(defaultvalue)){ if (rtl.isArray(defaultvalue)){
// array of dyn array // array of dyn array
for (var i=0; i<srclen; i++) a[i]=src[i]; for (var i=0; i<srclen; i++) a[i]=src[i];
@ -946,6 +951,9 @@ var rtl = {
for (var i=0; i<srclen; i++) a[i]=src[i]; for (var i=0; i<srclen; i++) a[i]=src[i];
for (var i=oldlen; i<lastlen; i++) a[i]=defaultvalue; for (var i=oldlen; i<lastlen; i++) a[i]=defaultvalue;
} }
}
}
// backtrack
while ((depth>0) && (stack[depth-1].i>=stack[depth-1].dim)){ while ((depth>0) && (stack[depth-1].i>=stack[depth-1].dim)){
depth--; depth--;
}; };
@ -953,7 +961,6 @@ var rtl = {
if (dimmax===0) return a; if (dimmax===0) return a;
return stack[0].a; return stack[0].a;
} }
}
}while (true); }while (true);
}, },