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

* NativeInt size depends on platform.

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-24 20:38:16 +02:00
parent 93937f99ae
commit 4016e1acca
1 changed files with 5 additions and 1 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

@ -2058,6 +2058,7 @@ function TJSArray._GetNativeInts(Index: NativeInt): NativeInt;
var var
V : TJOB_JSValue; V : TJOB_JSValue;
I64 : Int64;
begin begin
V:=Elements[Index]; V:=Elements[Index];
@ -2067,8 +2068,11 @@ 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,Result) then if TryStrToInt64(TJOB_STRING(V).Value,I64) then
begin
Result:=I64;
Exit Exit
end;
end; end;
finally finally
V.Free; V.Free;