From fcac5238fd930acd5d33eeb72ddf4bc867510a54 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 22 Jan 2007 04:10:50 +0000
Subject: [PATCH]  * always include DebugMessage definition, second try

git-svn-id: trunk@6119 -
---
 ide/wutils.pas | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/ide/wutils.pas b/ide/wutils.pas
index 28e7e1b832..23a99c9a6f 100644
--- a/ide/wutils.pas
+++ b/ide/wutils.pas
@@ -200,14 +200,14 @@ const LastStrToIntResult : integer = 0;
 
 procedure RegisterWUtils;
 
-{$ifdef DEBUG}
 Procedure WUtilsDebugMessage(AFileName, AText : string; ALine, APos : sw_word);
 type
   TDebugMessage = procedure(AFileName, AText : string; ALine, APos : sw_word);
 
 Const
   DebugMessage : TDebugMessage = @WUtilsDebugMessage;
-{$endif DEBUG}
+
+
 implementation
 
 uses
@@ -1350,13 +1350,11 @@ begin
 {$endif}
 end;
 
-{$ifdef DEBUG}
 Procedure WUtilsDebugMessage(AFileName, AText : string; ALine, APos : sw_word);
 begin
   writeln(stderr,AFileName,' (',ALine,',',APos,') ',AText);
 end;
 
-{$endif DEBUG}
 BEGIN
   Randomize;
 END.