Browse Source

rtl: fixed IsInfinite

mattias 6 years ago
parent
commit
fe82a58da2
1 changed files with 1 additions and 1 deletions
  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;