From 8c3c8022c98d89b44004fd9884f6bbc39eb6179c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 10 Feb 2018 14:12:31 +0000
Subject: [PATCH] * Better comments for toNNN functions, changed toInteger to
 return 0 if the value is not an integer

---
 packages/rtl/js.pas | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/packages/rtl/js.pas b/packages/rtl/js.pas
index a04cb50..d5af0e7 100644
--- a/packages/rtl/js.pas
+++ b/packages/rtl/js.pas
@@ -654,11 +654,11 @@ function jsInstanceOf(const aFunction, aFunctionWithPrototype: JSValue): String;
 function jsTypeOf(const v: JSValue): String; external name 'typeof';
 function jsIsNaN(const v: JSValue): boolean; external name 'isNaN';// true if value cannot be converted to a number. e.g. True on NaN, undefined, {}, '123'. False on true, null, '', ' ', '1A'
 function toNumber(const v: JSValue): double; assembler; // if not possible, returns NaN
-function toInteger(const v: JSValue): NativeInt; // if not possible, returns NaN
-function toObject(Value: JSValue): TJSObject; // If not possible, returns Nil
-function toArray(Value: JSValue): TJSArray; // If not possible, returns Nil
-function toBoolean(Value: JSValue): Boolean; // If not possible, returns False
-function toString(Value: JSValue): String; // If not possible, returns ''
+function toInteger(const v: JSValue): NativeInt; // if v is not an integer, returns 0
+function toObject(Value: JSValue): TJSObject; // If Value is not a Javascript object, returns Nil
+function toArray(Value: JSValue): TJSArray; // If Value is not a Javascript array, returns Nil
+function toBoolean(Value: JSValue): Boolean; // If Value is not a Boolean, returns False
+function toString(Value: JSValue): String; // If Value is not a string, returns ''
 
 Type
   TJSValueType = (jvtNull,jvtBoolean,jvtInteger,jvtFloat,jvtString,jvtObject,jvtArray);
@@ -792,9 +792,7 @@ begin
   if IsInteger(v) then
     Result:=NativeInt(v)
   else
-    asm
-    return NaN
-    end;
+    Result:=0;
 end;
 
 function toObject(Value: JSValue): TJSObject;