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

* Use Int32 for index

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-24 22:33:37 +02:00
parent 429d04089e
commit b530804eb6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/wasm-job/src/job.js.pas
View File

@ -2324,7 +2324,7 @@ function TJSArray._GetNativeInts(Index: NativeInt): NativeInt;
var
V : TJOB_JSValue;
I64 : Int64;
I : Integer;
begin
V:=Elements[Index];
@ -2334,9 +2334,9 @@ begin
Exit(Round(TJOB_Double(V).Value));
if V is TJOB_String then
begin
if TryStrToInt64(TJOB_STRING(V).Value,I64) then
if TryStrToInt(TJOB_STRING(V).Value,I) then
begin
Result:=I64;
Result:=I;
Exit
end;
end;