Browse Source

* Remove some debug statements

Michaël Van Canneyt 1 year ago
parent
commit
dfafb1f777
1 changed files with 1 additions and 4 deletions
  1. 1 4
      packages/webidl/src/webidltowasmjob.pp

+ 1 - 4
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);