paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +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;
{$mode objfpc}{$H+}
{$define debugjsonrpc}
interface
@ -98,6 +99,11 @@ Type
end;
implementation
{$ifdef debugjsonrpc}
uses dbugintf;
{$endif}
{ TCustomJSONRPCContentProducer }
function TCustomJSONRPCContentProducer.GetIDProperty: String;
@ -278,6 +284,7 @@ begin
Req:=P.Parse;
C:=CreateContext;
try
{$ifdef debugjsonrpc}SendDebugFmt('Dispatching request : "%s"',[Req.AsJSON]);{$endif}
Result:=ADispatcher.Execute(Req,C);
finally
C.Free;