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

* Added debug directive for easier debugging

Browse Source 
git-svn-id: trunk@15380 -
This commit is contained in:
michael 2010-06-04 15:48:54 +00:00
parent 66c91d8ed5
commit 311d634f04
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-web/src/jsonrpc/webjsonrpc.pp
View File

@ -1,6 +1,7 @@
unit webjsonrpc; unit webjsonrpc;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$define debugjsonrpc}
interface interface
@ -98,6 +99,11 @@ Type
end; end;
implementation implementation
{$ifdef debugjsonrpc}
uses dbugintf;
{$endif}
{ TCustomJSONRPCContentProducer } { TCustomJSONRPCContentProducer }
function TCustomJSONRPCContentProducer.GetIDProperty: String; function TCustomJSONRPCContentProducer.GetIDProperty: String;
@ -278,6 +284,7 @@ begin
Req:=P.Parse; Req:=P.Parse;
C:=CreateContext; C:=CreateContext;
try try
{$ifdef debugjsonrpc}SendDebugFmt('Dispatching request : "%s"',[Req.AsJSON]);{$endif}
Result:=ADispatcher.Execute(Req,C); Result:=ADispatcher.Execute(Req,C);
finally finally
C.Free; C.Free;