paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:06:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #33651

Browse Source 
git-svn-id: trunk@38845 -
This commit is contained in:
michael 2018-04-26 07:08:41 +00:00
parent 6d0e3d135c
commit 0adfb4fb02
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -652,7 +652,7 @@ var rtl = {
rcc: function(c,minval,maxval){ rcc: function(c,minval,maxval){
// range check char // range check char
if (typeof(c)==='string') && (c.length===1)){ if ((typeof(c)==='string') && (c.length===1)){
var i = c.charCodeAt(0); var i = c.charCodeAt(0);
if ((i>=minval) && (i<=maxval)) return c; if ((i>=minval) && (i<=maxval)) return c;
} }
@ -689,7 +689,7 @@ var rtl = {
// range check write array // range check write array
// arr,index1,index2,...,value // arr,index1,index2,...,value
for (var i=3; i<arguments.length; i++){ for (var i=3; i<arguments.length; i++){
arr=rcArrR(arr,index); arr=rtl.rcArrR(arr,index);
index=arguments[i-1]; index=arguments[i-1];
value=arguments[i]; value=arguments[i];
} }
@ -779,7 +779,7 @@ var rtl = {
if (index < 0) index = 0; if (index < 0) index = 0;
if (count === undefined) count=srcarray.length; if (count === undefined) count=srcarray.length;
var end = index+count; var end = index+count;
if (end>scrarray.length) end = srcarray.length; if (end>srcarray.length) end = srcarray.length;
if (index>=end) return []; if (index>=end) return [];
if (type===0){ if (type===0){
return srcarray.slice(index,end); return srcarray.slice(index,end);
@ -1153,5 +1153,5 @@ var rtl = {
flags: flags flags: flags
}; };
return s; return s;
}, }
} }