瀏覽代碼

Fix compilation with -dEXTDEBUG

git-svn-id: trunk@29197 -
pierre 10 年之前
父節點
當前提交
dae5ec7c71
共有 1 個文件被更改,包括 5 次插入5 次删除
  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.