From 26553bcac7d56749a8ff4c61d36a267f0abf4c40 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 24 Jun 2020 08:46:59 +0000
Subject: [PATCH] * Add debug to TJSConsole (bug ID 36726)

---
 packages/rtl/web.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/packages/rtl/web.pas b/packages/rtl/web.pas
index 9850ee4..a9432d7 100644
--- a/packages/rtl/web.pas
+++ b/packages/rtl/web.pas
@@ -1004,14 +1004,15 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     Procedure clear;  
     procedure count; overload;
     procedure count(aCounter : String);
-    procedure error(Obj1 : JSValue); varargs;
+    procedure debug(Obj1 : JSValue); varargs of JSValue;
+    procedure error(Obj1 : JSValue); varargs of JSValue;
     procedure group; overload;
     procedure group(aLabel : String); overload;
     procedure groupCollapsed; overload;
     procedure groupCollapsed(aLabel : String);overload;
     procedure groupEnd;
-    procedure info(Obj1 : JSValue); varargs;
-    procedure log(Obj1 : JSValue); varargs;
+    procedure info(Obj1 : JSValue); varargs of JSValue;
+    procedure log(Obj1 : JSValue); varargs of JSValue;
     procedure table(args: array of JSValue); overload;
     procedure table(args: array of JSValue; Columns : Array of string);
     procedure table(args: TJSObject); overload;
@@ -1019,7 +1020,7 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     procedure time(aName : string);
     procedure timeEnd(aName : string);
     procedure trace;
-    procedure warn(Obj1 : JSValue); varargs;
+    procedure warn(Obj1 : JSValue); varargs of JSValue;
   end;
 
 //  TJSBufferSource = class external name 'BufferSource' end;