paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove debug writelns

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-29 09:02:51 +02:00
parent a4242e60b2
commit afd7d9965a
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/wasm-oi/src/wasm.debuginspector.rtti.pas
View File

@ -151,20 +151,14 @@ var
begin begin
lFLags:=[]; lFLags:=[];
Writeln('Converting vis 0 ',VisibilitiesToString(lFlags));
if (aFlags and WASM_SENDPROPERTYFLAG_PRIVATE) <> 0 then if (aFlags and WASM_SENDPROPERTYFLAG_PRIVATE) <> 0 then
include(lFlags,mvPrivate); include(lFlags,mvPrivate);
Writeln('Converting vis 1 ',VisibilitiesToString(lFlags));
if (aFlags and WASM_SENDPROPERTYFLAG_PROTECTED) <> 0 then if (aFlags and WASM_SENDPROPERTYFLAG_PROTECTED) <> 0 then
include(lFlags,mvProtected); include(lFlags,mvProtected);
Writeln('Converting vis 2 ',VisibilitiesToString(lFlags));
if (aFlags and WASM_SENDPROPERTYFLAG_PUBLIC) <> 0 then if (aFlags and WASM_SENDPROPERTYFLAG_PUBLIC) <> 0 then
include(lFlags,mvPublic); include(lFlags,mvPublic);
Writeln('Converting vis 3 ',VisibilitiesToString(lFlags));
if (aFlags and WASM_SENDPROPERTYFLAG_PUBLISHED) <> 0 then if (aFlags and WASM_SENDPROPERTYFLAG_PUBLISHED) <> 0 then
include(lFlags,mvPublished); include(lFlags,mvPublished);
Writeln('Converting vis 4 ',VisibilitiesToString(lFlags));
Writeln('Converting vis a: ',Integer(lFlags));
Result:=lFlags; Result:=lFlags;
end; end;
@ -176,7 +170,6 @@ var
begin begin
Vis:=PropertyFlagsToVisibilities(aFlags); Vis:=PropertyFlagsToVisibilities(aFlags);
Writeln('Converted vis: ',Integer(vis));
Obj:=FindObject(aObjectID); Obj:=FindObject(aObjectID);
if Obj=Nil then if Obj=Nil then
Result:=WASMOI_INVALIDOBJECT Result:=WASMOI_INVALIDOBJECT