paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 19:40:21 +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 var
V : TJOB_JSValue; V : TJOB_JSValue;
I64 : Int64; I : Integer;
begin begin
V:=Elements[Index]; V:=Elements[Index];
@ -2334,9 +2334,9 @@ begin
Exit(Round(TJOB_Double(V).Value)); Exit(Round(TJOB_Double(V).Value));
if V is TJOB_String then if V is TJOB_String then
begin begin
if TryStrToInt64(TJOB_STRING(V).Value,I64) then if TryStrToInt(TJOB_STRING(V).Value,I) then
begin begin
Result:=I64; Result:=I;
Exit Exit
end; end;
end; end;