Browse Source

* Use Int32 for index

Michaël Van Canneyt 1 year ago
parent
commit
b530804eb6
1 changed files with 3 additions and 3 deletions
  1. 3 3
      packages/wasm-job/src/job.js.pas

+ 3 - 3
packages/wasm-job/src/job.js.pas

@@ -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;