paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove some debug statements

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-04-11 17:07:42 +02:00
parent 5bc1cfa9bc
commit dfafb1f777
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/webidl/src/webidltowasmjob.pp
View File

@ -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);