Selaa lähdekoodia

rtl: fixed IsInfinite

mattias 7 vuotta sitten
vanhempi
commit
fe82a58da2
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  1. 1 1
      packages/rtl/math.pas

+ 1 - 1
packages/rtl/math.pas

@@ -276,7 +276,7 @@ end;
 
 
 function IsInfinite(const d: JSValue): Boolean; assembler;
 function IsInfinite(const d: JSValue): Boolean; assembler;
 asm
 asm
-  return (d==Infinite) || (d==-Infinite);
+  return (d==Infinity) || (d==-Infinity);
 end;
 end;
 
 
 function SameValue(const A, B: Double; Epsilon: Double): Boolean;
 function SameValue(const A, B: Double; Epsilon: Double): Boolean;