paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 00:19:19 +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;
oldlen = a.length;
}
a.length = stack[depth].dim;
lastlen = stack[depth].dim;
a.length = lastlen;
if (depth>0){
item.a[item.i]=a;
item.i++;
if ((lastlen===0) && (item.i<item.a.length)) continue;
}
if (lastlen>0){
if (depth<dimmax){
item = stack[depth];
item.a = a;
item.i = 0;
item.src = src;
depth++;
continue;
} else {
if (srclen>lastlen) srclen=lastlen;
if (rtl.isArray(defaultvalue)){
// array of dyn array
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=oldlen; i<lastlen; i++) a[i]=defaultvalue;
}
}
}
// backtrack
while ((depth>0) && (stack[depth-1].i>=stack[depth-1].dim)){
depth--;
};
@ -953,7 +961,6 @@ var rtl = {
if (dimmax===0) return a;
return stack[0].a;
}
}
}while (true);
},