From b530804eb6b28e9776875988cf3ea5dfbe7cc707 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 24 Jul 2024 22:33:37 +0200
Subject: [PATCH] * Use Int32 for index

---
 packages/wasm-job/src/job.js.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/wasm-job/src/job.js.pas b/packages/wasm-job/src/job.js.pas
index 24eec918f1..4adff69df6 100644
--- a/packages/wasm-job/src/job.js.pas
+++ b/packages/wasm-job/src/job.js.pas
@@ -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;