Ver Fonte

rtl: fixed IsInfinite

mattias há 7 anos atrás
pai
commit
fe82a58da2
1 ficheiros alterados com 1 adições e 1 exclusões
  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;