paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* always include DebugMessage definition, second try

Browse Source 
git-svn-id: trunk@6119 -
This commit is contained in:
pierre 2007-01-22 04:10:50 +00:00
parent 87c0a048e5
commit fcac5238fd
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/wutils.pas
View File

@ -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.