Procházet zdrojové kódy

rtl: fixed IsInfinite

mattias před 7 roky
rodič
revize
b954c1ebf3
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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;
 asm
-  return (d==Infinite) || (d==-Infinite);
+  return (d==Infinity) || (d==-Infinity);
 end;
 
 function SameValue(const A, B: Double; Epsilon: Double): Boolean;