blob: 909e384acbf07e5adf8a693f745f85748b6263d8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
unit debug;
{$mode objfpc}
{$J+}
{$INLINE ON}
{$MACRO ON}
{$ASSERTIONS ON}
interface
uses
ctypes, gctypes;
const
GDBSTUB_DEVICE_USB = 0;
GDBSTUB_DEVICE_TCP = 1;
GDBSTUB_DEF_CHANNEL = 0;
GDBSTUB_DEF_TCPPORT = 2828;
var
tcp_localip: pcchar; cvar; external;
tcp_netmask: pcchar; cvar; external;
tcp_gateway: pcchar; cvar; external;
procedure _break(); cdecl; external;
procedure DEBUG_Init(device_type, channel_port: cint32); cdecl; external;
implementation
initialization
{$linklib db}
end.
|
