Browse Source

Fix compilation with -dEXTDEBUG

git-svn-id: trunk@29197 -
pierre 10 years ago
parent
commit
dae5ec7c71
1 changed files with 5 additions and 5 deletions
  1. 5 5
      packages/fcl-web/src/jsonrpc/fpdispextdirect.pp

+ 5 - 5
packages/fcl-web/src/jsonrpc/fpdispextdirect.pp

@@ -91,6 +91,11 @@ Type
 
 
 implementation
+{$ifdef EXTDEBUG}
+  uses
+    dbugintf;
+{$endif}
+
 { TCustomExtDirectDispatcher }
 Const
   DefaultNameSpace = 'FPWeb';
@@ -287,10 +292,5 @@ begin
   end;
 end;
 
-
-{$ifdef extdebug}
-uses dbugintf;
-{$endif}
-
 end.