From dfafb1f7776bc912e8fa4a582fd86af17dbc7979 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 11 Apr 2024 17:07:42 +0200
Subject: [PATCH] * Remove some debug statements

---
 packages/webidl/src/webidltowasmjob.pp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/packages/webidl/src/webidltowasmjob.pp b/packages/webidl/src/webidltowasmjob.pp
index 8bb67f5ed3..98dca688a8 100644
--- a/packages/webidl/src/webidltowasmjob.pp
+++ b/packages/webidl/src/webidltowasmjob.pp
@@ -540,9 +540,7 @@ function TWebIDLToPasWasmJob.GetInvokeNameFromAliasName(const aTypeName : TIDLSt
 var
   aLower : String;
 begin
-  Writeln('Checking invoke for alias ',aTypeName,'(prefix : ',PasInterfacePrefix+')');
   aLower:=LowerCase(aTypeName);
-  Writeln('Pos(LowerCase(',PasInterfacePrefix,'),',aLower,') := ',Pos(LowerCase(PasInterfacePrefix),aLower));
   if Pos('bool',aLower)>0 then
     Result:='InvokeJSBooleanResult'
   else if Pos('array',aLower)>0 then
@@ -644,7 +642,6 @@ begin
   else if aResultDef is TIDLTypeDefDefinition then
     begin
     aTypeName:=(aResultDef as TIDLTypeDefDefinition).TypeName;
-    Writeln('Looking for alias ',aTypeName,' name ',aName,'  in ',TypeAliases.Text);
     if TypeAliases.IndexOfName(aTypeName)=-1 then
       begin
       Msg:=GetName(aDef);
@@ -1328,7 +1325,7 @@ begin
   if (Attr.AttributeType=nil) then
     begin
     if not (aoStringifier in Attr.Options) then
-      writeln('Note: skipping field "'+Attr.Name+'" without type at '+GetDefPos(Attr));
+      DoLog('Note: skipping field "'+Attr.Name+'" without type at '+GetDefPos(Attr));
     exit;
     end;
   PropName:=GetName(Attr);