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

+ Moved internal msgintf unit to implementation

Browse Source 
git-svn-id: trunk@1325 -
This commit is contained in:
michael 2005-10-08 12:09:22 +00:00
parent 8b82f90b27
commit ace6f8510a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/inc/dbugintf.pp
View File

@ -21,7 +21,6 @@ interface
uses
simpleipc,
msgintf,
classes;
Type
@ -40,7 +39,6 @@ procedure SendDebugFmtEx(const Msg: string; const Args: array of const; MType: T
{ low-level routines }
Procedure SendDebugMessage(Const Msg : TDebugMessage);
Function StartDebugServer : integer;
Procedure InitDebugClient;
@ -55,7 +53,7 @@ ResourceString
implementation
Uses SysUtils,process;
Uses SysUtils, msgintf, process;
Const
DmtInformation = lctInformation;
@ -68,6 +66,7 @@ var
DebugClient : TSimpleIPCClient = nil;
MsgBuffer : TMemoryStream = Nil;
ServerID : Integer;
Procedure WriteMessage(Const Msg : TDebugMessage);