blob: 81b3413f957d717d031a8a2fafc6afd240dd552f (
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
program gdbstub;
{$J+}
{$macro on}
{$mode objfpc}
uses
cmem, ctypes, gctypes, debug, gccore;
var
xfb: pcuint32 = nil;
rmode: PGXRModeObj = nil;
begin
VIDEO_Init();
WPAD_Init();
rmode := VIDEO_GetPreferredMode(nil);
xfb := SYS_AllocateFramebuffer(rmode);
console_init(xfb,20,20,rmode^.fbWidth,rmode^.xfbHeight,rmode^.fbWidth*VI_DISPLAY_PIX_SZ);
VIDEO_Configure(rmode);
VIDEO_SetNextFramebuffer(xfb);
VIDEO_SetBlack(FALSE);
VIDEO_Flush();
VIDEO_WaitVSync();
if(rmode^.viTVMode and VI_NON_INTERLACE) <> 0 then VIDEO_WaitVSync();
// Configure for use with USB on EXI channel 1 (memcard slot B)
// Other option: GDBSTUB_DEVICE_TCP. Note: second parameter acts as port for this type of device
DEBUG_Init(GDBSTUB_DEVICE_USB,1);
printf('Waiting for debugger ...'#10);
// This function call enters the debug stub for the first time
// It's needed to call this if one wants to start debugging.
_break();
printf('debugger connected ...'#10);
while true do
begin
VIDEO_WaitVSync();
WPAD_ScanPads();
if (WPAD_ButtonsDown(0) and WPAD_BUTTON_A) <> 0 then
printf('Button A pressed.'#10);
if (WPAD_ButtonsDown(0) and WPAD_BUTTON_HOME) <> 0 then break;
end;
end.
|
