paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 20:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove debug statement (bug ID 37940)

Browse Source 
git-svn-id: trunk@47120 -
This commit is contained in:
michael 2020-10-17 09:04:42 +00:00
parent 80394fc6e8
commit 827bb70333
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/base/custmicrohttpapp.pp
View File

@ -644,10 +644,6 @@ begin
@DoMHDRequest, Self, @DoMHDRequest, Self,
MHD_OPTION_NOTIFY_COMPLETED, @HandleRequestCompleted, MHD_OPTION_NOTIFY_COMPLETED, @HandleRequestCompleted,
Nil,MHD_OPTION_END); Nil,MHD_OPTION_END);
if Result=Nil then
Writeln('a')
else
Writeln('b');
end; end;
procedure TMicroHTTPHandler.Run; procedure TMicroHTTPHandler.Run;