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

* merged changes from fixes branch

Browse Source
This commit is contained in:
peter 2001-04-08 11:43:39 +00:00
parent f2b653319b
commit 85a15f1788
4 changed files with 145 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/gdbint/Makefile
View File

@ -882,8 +882,20 @@ info: fpc_info
ifneq ($(wildcard fpcmake.loc),) ifneq ($(wildcard fpcmake.loc),)
include fpcmake.loc include fpcmake.loc
endif endif
.PHONY: localgdbverexe
localgdbverexe : ./getver$(EXEEXT)
./getver$(EXEEXT) : ./gdbver.pp
$(COMPILER) -o./getver$(EXEEXT) gdbver.pp
ifdef GDBVER
gdbint$(PPUEXT): gdbint.pp gdbint$(PPUEXT): gdbint.pp
$(ECHO) Using GDB $(GDBVER)
$(COMPILER) -d$(GDBVER) gdbint.pp
else
gdbint$(PPUEXT): localgdbverexe gdbver$(EXEEXT)
$(MAKE) gdbint$(PPUEXT) GDBVER=GDB_V$(strip $(shell ./gdbver$(EXEEXT) -n))
endif
gdbcon$(PPUEXT): gdbcon.pp gdbint$(PPUEXT) gdbcon$(PPUEXT): gdbcon.pp gdbint$(PPUEXT)
gdbver$(EXEEXT): gdbver.pp
ifeq ($(OS_TARGET),go32v2) ifeq ($(OS_TARGET),go32v2)
DBGCOM=dbgcom$(OEXT) DBGCOM=dbgcom$(OEXT)
else else

16
packages/gdbint/Makefile.fpc
View File

@ -22,10 +22,26 @@ fpcdir=../..
[rules] [rules]
.PHONY: localgdbverexe
localgdbverexe : ./getver$(EXEEXT)
./getver$(EXEEXT) : ./gdbver.pp
$(COMPILER) -o./getver$(EXEEXT) gdbver.pp
ifdef GDBVER
gdbint$(PPUEXT): gdbint.pp gdbint$(PPUEXT): gdbint.pp
$(ECHO) Using GDB $(GDBVER)
$(COMPILER) -d$(GDBVER) gdbint.pp
else
gdbint$(PPUEXT): localgdbverexe gdbver$(EXEEXT)
$(MAKE) gdbint$(PPUEXT) GDBVER=GDB_V$(strip $(shell ./gdbver$(EXEEXT) -n))
endif
gdbcon$(PPUEXT): gdbcon.pp gdbint$(PPUEXT) gdbcon$(PPUEXT): gdbcon.pp gdbint$(PPUEXT)
gdbver$(EXEEXT): gdbver.pp
ifeq ($(OS_TARGET),go32v2) ifeq ($(OS_TARGET),go32v2)
DBGCOM=dbgcom$(OEXT) DBGCOM=dbgcom$(OEXT)
else else

24
packages/gdbint/gdbcon.pp
View File

@ -36,6 +36,8 @@ type
procedure Run;virtual; procedure Run;virtual;
procedure TraceStep;virtual; procedure TraceStep;virtual;
procedure TraceNext;virtual; procedure TraceNext;virtual;
procedure TraceStepI;virtual;
procedure TraceNextI;virtual;
procedure Continue;virtual; procedure Continue;virtual;
{ needed for dos because newlines are only #10 (PM) } { needed for dos because newlines are only #10 (PM) }
procedure WriteErrorBuf; procedure WriteErrorBuf;
@ -122,7 +124,8 @@ begin
strdispose(progname); strdispose(progname);
getmem(progname,length(fn)+1); getmem(progname,length(fn)+1);
strpcopy(progname,fn); strpcopy(progname,fn);
Command('file '+fn); if fn<>'' then
Command('file '+fn);
LoadFile:=true; LoadFile:=true;
end; end;
@ -174,6 +177,18 @@ begin
end; end;
procedure TGDBController.TraceStepI;
begin
Command('stepi');
end;
procedure TGDBController.TraceNextI;
begin
Command('nexti');
end;
procedure TGDBController.Continue; procedure TGDBController.Continue;
begin begin
Command('continue'); Command('continue');
@ -243,7 +258,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:15 michael Revision 1.3 2001-04-08 11:43:39 peter
* merged changes from fixes branch
Revision 1.2 2000/07/13 11:33:15 michael
+ removed logs + removed logs
} }

176
packages/gdbint/gdbint.pp
View File

@ -19,7 +19,7 @@ interface
{ this is not needed (PM) $output_format as} { this is not needed (PM) $output_format as}
{.$define Debug} {.$define Verbose}
{.$define DebugCommand} {.$define DebugCommand}
{$define NotImplemented} {$define NotImplemented}
@ -45,6 +45,7 @@ interface
{$LINKLIB opcodes} {$LINKLIB opcodes}
{$LINKLIB history} {$LINKLIB history}
{$LINKLIB iberty} {$LINKLIB iberty}
{$LINKLIB intl}
{$endif GDB_V5} {$endif GDB_V5}
{$endif ndef USE_GDB_OBJS} {$endif ndef USE_GDB_OBJS}
{$LINKLIB dbg} {$LINKLIB dbg}
@ -59,15 +60,14 @@ interface
{$LINKLIB gdb} {$LINKLIB gdb}
{$ifdef GDB_V5} {$ifdef GDB_V5}
{$LINKLIB bfd} {$LINKLIB bfd}
{$LINKLIB intl}
{$LINKLIB readline} {$LINKLIB readline}
{$LINKLIB opcodes} {$LINKLIB opcodes}
{$LINKLIB history} {$LINKLIB history}
{$LINKLIB iberty} {$LINKLIB iberty}
{$LINKLIB ncurses} {$LINKLIB ncurses}
{$LINKLIB m} {$LINKLIB m}
{$LINKLIB intl}
{$LINKLIB iberty} {$LINKLIB iberty}
{$LINKLIB dl}
{$endif GDB_V5} {$endif GDB_V5}
{$LINKLIB c} {$LINKLIB c}
{$LINKLIB gcc} {$LINKLIB gcc}
@ -153,6 +153,7 @@ type
type type
CORE_ADDR = cardinal; { might be target dependent PM }
streamtype = (afile,astring); streamtype = (afile,astring);
C_FILE = longint; { at least under DJGPP } C_FILE = longint; { at least under DJGPP }
P_C_FILE = ^C_FILE; P_C_FILE = ^C_FILE;
@ -278,6 +279,7 @@ type
file_end, file_end,
line_start, line_start,
line_end : longint; line_end : longint;
current_pc : CORE_ADDR;
{ breakpoint } { breakpoint }
last_breakpoint_number, last_breakpoint_number,
last_breakpoint_address, last_breakpoint_address,
@ -344,7 +346,18 @@ uses
initc, initc,
{$endif win32} {$endif win32}
{$ifdef linux} {$ifdef linux}
Unix, {$ifdef ver1_0}
linux,
{$else}
unix,
{$endif}
{$endif}
{$ifdef freebsd}
{$ifdef ver1_0}
linux,
{$else}
unix,
{$endif}
{$endif} {$endif}
{$ifdef go32v2} {$ifdef go32v2}
go32, go32,
@ -403,7 +416,6 @@ type
{$endif win32} {$endif win32}
type type
CORE_ADDR = longint;
pCORE_ADDR = ^CORE_ADDR; pCORE_ADDR = ^CORE_ADDR;
pblock = ^block; pblock = ^block;
@ -515,7 +527,7 @@ type
value : record value : record
case integer of case integer of
(* The fact that this is a long not a LONGEST mainly limits the (* The fact that this is a long not a LONGEST mainly limits the
range of a LOC_CONST. Since LOC_CONST_BYTES exists, I am not range of a LOC_CONST. Since LOC_CONST_BYTES exists, I'm not
sure that is a big deal. *) sure that is a big deal. *)
0 : (ivalue : longint;); 0 : (ivalue : longint;);
@ -556,7 +568,7 @@ type
(* Which section is this symbol in? This is an index into (* Which section is this symbol in? This is an index into
section_offsets for this objfile. Negative means that the symbol section_offsets for this objfile. Negative means that the symbol
does not get relocated relative to a section. does not get relocated relative to a section.
Disclaimer: currently this is just used for xcoff, so do not Disclaimer: currently this is just used for xcoff, so don't
expect all symbol-reading code to set it correctly (the ELF code expect all symbol-reading code to set it correctly (the ELF code
also tries to set it correctly). *) also tries to set it correctly). *)
@ -593,7 +605,7 @@ type
namespace_enum = ( namespace_enum = (
(* UNDEF_NAMESPACE is used when a namespace has not been discovered or (* UNDEF_NAMESPACE is used when a namespace has not been discovered or
none of the following apply. This usually indicates an error either none of the following apply. This usually indicates an error either
in the symbol information or in gdbs handling of symbols. *) in the symbol information or in gdb's handling of symbols. *)
UNDEF_NAMESPACE, UNDEF_NAMESPACE,
(* VAR_NAMESPACE is the usual namespace. In C, this contains variables, (* VAR_NAMESPACE is the usual namespace. In C, this contains variables,
@ -638,7 +650,7 @@ type
(* Value is in register. SYMBOL_VALUE is the register number. *) (* Value is in register. SYMBOL_VALUE is the register number. *)
LOC_REGISTER, LOC_REGISTER,
(* It is an argument; the value is at SYMBOL_VALUE offset in arglist. *) (* It's an argument; the value is at SYMBOL_VALUE offset in arglist. *)
LOC_ARG, LOC_ARG,
(* Value address is at SYMBOL_VALUE offset in arglist. *) (* Value address is at SYMBOL_VALUE offset in arglist. *)
@ -1154,7 +1166,7 @@ end;
procedure annotate_signalled;cdecl;public; procedure annotate_signalled;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|signalled|'); Debug('|signalled|');
{$endif} {$endif}
end; end;
@ -1162,7 +1174,7 @@ end;
procedure annotate_signal_name;cdecl;public; procedure annotate_signal_name;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|signal_name|'); Debug('|signal_name|');
with curr_gdb^ do with curr_gdb^ do
signal_start:=gdboutputbuf.idx; signal_start:=gdboutputbuf.idx;
@ -1172,7 +1184,7 @@ end;
procedure annotate_signal_name_end;cdecl;public; procedure annotate_signal_name_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|signal_name_end|'); Debug('|signal_name_end|');
{$endif} {$endif}
end; end;
@ -1180,7 +1192,7 @@ end;
procedure annotate_signal_string;cdecl;public; procedure annotate_signal_string;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|signal_string|'); Debug('|signal_string|');
{$endif} {$endif}
end; end;
@ -1188,7 +1200,7 @@ end;
procedure annotate_signal_string_end;cdecl;public; procedure annotate_signal_string_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|signal_string_end|'); Debug('|signal_string_end|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1211,7 +1223,7 @@ end;
procedure annotate_signal;cdecl;public; procedure annotate_signal;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|signal|'); Debug('|signal|');
{$endif} {$endif}
end; end;
@ -1219,7 +1231,7 @@ end;
procedure annotate_exited(exitstatus:longint);cdecl;public; procedure annotate_exited(exitstatus:longint);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|exited|'); Debug('|exited|');
{$endif} {$endif}
{#ifdef __DJGPP__ {#ifdef __DJGPP__
@ -1246,7 +1258,7 @@ end;
procedure annotate_error;cdecl;public; procedure annotate_error;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|error|'); Debug('|error|');
{$endif} {$endif}
end; end;
@ -1254,7 +1266,7 @@ end;
procedure annotate_error_begin;cdecl;public; procedure annotate_error_begin;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|error begin|'); Debug('|error begin|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1262,7 +1274,7 @@ begin
error_start:=gdboutputbuf.idx+strlen(gdboutputbuf.buf); error_start:=gdboutputbuf.idx+strlen(gdboutputbuf.buf);
got_error:=true; got_error:=true;
end; end;
{$ifdef Debug} {$ifdef Verbose}
Debug('|end of error begin|'); Debug('|end of error begin|');
{$endif} {$endif}
end; end;
@ -1270,7 +1282,7 @@ end;
procedure annotate_starting;cdecl;public; procedure annotate_starting;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|starting|'); Debug('|starting|');
{$endif} {$endif}
{$ifdef go32v2} {$ifdef go32v2}
@ -1285,7 +1297,7 @@ var
sym : symtab_and_line; sym : symtab_and_line;
fname : pchar; fname : pchar;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|stopped|'); Debug('|stopped|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1294,6 +1306,7 @@ begin
reload_fs; reload_fs;
{$endif go32v2} {$endif go32v2}
DebuggerScreen; DebuggerScreen;
current_pc:=stop_pc;
Debuggee_started:=inferior_pid<>0; Debuggee_started:=inferior_pid<>0;
if not Debuggee_started then exit; if not Debuggee_started then exit;
if reset_command then exit; if reset_command then exit;
@ -1314,7 +1327,7 @@ end;
procedure breakpoints_changed;cdecl;public; procedure breakpoints_changed;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|breakpoints_changed|'); Debug('|breakpoints_changed|');
{$endif} {$endif}
end; end;
@ -1322,7 +1335,7 @@ end;
{ only from version 5.0 } { only from version 5.0 }
procedure annotate_ignore_count_change;cdecl;public; procedure annotate_ignore_count_change;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|annotate_ignore_count_change()|'); Debug('|annotate_ignore_count_change()|');
{$endif} {$endif}
end; end;
@ -1330,7 +1343,7 @@ end;
procedure annotate_breakpoint(num:longint);cdecl;public; procedure annotate_breakpoint(num:longint);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|breakpoint(%d)|'); Debug('|breakpoint(%d)|');
{$endif} {$endif}
With Curr_gdb^ do With Curr_gdb^ do
@ -1340,7 +1353,7 @@ end;
procedure annotate_watchpoint(num:longint);cdecl;public; procedure annotate_watchpoint(num:longint);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|watchpoint(%d)|'); Debug('|watchpoint(%d)|');
{$endif} {$endif}
With Curr_gdb^ do With Curr_gdb^ do
@ -1349,7 +1362,7 @@ end;
procedure annotate_catchpoint(num:longint);cdecl;public; procedure annotate_catchpoint(num:longint);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|catchpoint(%d)|'); Debug('|catchpoint(%d)|');
{$endif} {$endif}
With Curr_gdb^ do With Curr_gdb^ do
@ -1359,7 +1372,7 @@ end;
procedure annotate_breakpoints_headers;cdecl;public; procedure annotate_breakpoints_headers;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|breakpoints_headers|'); Debug('|breakpoints_headers|');
{$endif} {$endif}
end; end;
@ -1367,7 +1380,7 @@ end;
procedure annotate_breakpoints_table;cdecl;public; procedure annotate_breakpoints_table;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|breakpoints_table|'); Debug('|breakpoints_table|');
{$endif} {$endif}
end; end;
@ -1375,7 +1388,7 @@ end;
procedure annotate_record;cdecl;public; procedure annotate_record;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|record|'); Debug('|record|');
{$endif} {$endif}
end; end;
@ -1383,7 +1396,7 @@ end;
procedure annotate_breakpoints_table_end;cdecl;public; procedure annotate_breakpoints_table_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|breakpoints_table_end|'); Debug('|breakpoints_table_end|');
{$endif} {$endif}
end; end;
@ -1391,7 +1404,7 @@ end;
procedure annotate_frames_invalid;cdecl;public; procedure annotate_frames_invalid;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frames_invalid|'); Debug('|frames_invalid|');
{$endif} {$endif}
end; end;
@ -1399,7 +1412,7 @@ end;
procedure annotate_frame_begin(level:longint;pc:CORE_ADDR);cdecl;public; procedure annotate_frame_begin(level:longint;pc:CORE_ADDR);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_begin(%d,%ld)|'); Debug('|frame_begin(%d,%ld)|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1422,7 +1435,7 @@ end;
procedure annotate_frame_address;cdecl;public; procedure annotate_frame_address;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_address|'); Debug('|frame_address|');
{$endif} {$endif}
end; end;
@ -1430,14 +1443,14 @@ end;
procedure annotate_frame_address_end;cdecl;public; procedure annotate_frame_address_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_address_end|'); Debug('|frame_address_end|');
{$endif} {$endif}
end; end;
procedure annotate_frame_function_name;cdecl;public; procedure annotate_frame_function_name;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_function_name|'); Debug('|frame_function_name|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1447,7 +1460,7 @@ end;
procedure annotate_frame_args;cdecl;public; procedure annotate_frame_args;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_args|'); Debug('|frame_args|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1459,7 +1472,7 @@ end;
procedure annotate_frame_source_begin;cdecl;public; procedure annotate_frame_source_begin;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_source_begin|'); Debug('|frame_source_begin|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1469,7 +1482,7 @@ end;
procedure annotate_frame_source_file;cdecl;public; procedure annotate_frame_source_file;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_source_file|'); Debug('|frame_source_file|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1478,7 +1491,7 @@ end;
procedure annotate_frame_source_file_end;cdecl;public; procedure annotate_frame_source_file_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_source_file_end|'); Debug('|frame_source_file_end|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1488,7 +1501,7 @@ end;
procedure annotate_frame_source_line;cdecl;public; procedure annotate_frame_source_line;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_source_line|'); Debug('|frame_source_line|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1498,7 +1511,7 @@ end;
procedure annotate_frame_source_end;cdecl;public; procedure annotate_frame_source_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_source_end|'); Debug('|frame_source_end|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1508,7 +1521,7 @@ end;
procedure annotate_frame_where;cdecl;public; procedure annotate_frame_where;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_where|'); Debug('|frame_where|');
{$endif} {$endif}
end; end;
@ -1520,7 +1533,7 @@ var
c : char; c : char;
err : integer; err : integer;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|frame_end|'); Debug('|frame_end|');
{$endif} {$endif}
with curr_gdb^ do with curr_gdb^ do
@ -1571,7 +1584,7 @@ end;
procedure annotate_quit;cdecl;public; procedure annotate_quit;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|quit|'); Debug('|quit|');
{$endif} {$endif}
end; end;
@ -1579,7 +1592,7 @@ end;
procedure annotate_arg_begin;cdecl;public; procedure annotate_arg_begin;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|arg_begin|'); Debug('|arg_begin|');
{$endif} {$endif}
end; end;
@ -1587,7 +1600,7 @@ end;
procedure annotate_arg_name_end;cdecl;public; procedure annotate_arg_name_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|arg_name_end|'); Debug('|arg_name_end|');
{$endif} {$endif}
end; end;
@ -1595,7 +1608,7 @@ end;
procedure annotate_arg_value(typ:pointer);cdecl;public; procedure annotate_arg_value(typ:pointer);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|arg_value|'); Debug('|arg_value|');
{$endif} {$endif}
end; end;
@ -1603,14 +1616,14 @@ end;
procedure annotate_arg_end;cdecl;public; procedure annotate_arg_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|arg_end|'); Debug('|arg_end|');
{$endif} {$endif}
end; end;
procedure annotate_source(filename:pchar;line,character,mid:longint;pc:CORE_ADDR);cdecl;public; procedure annotate_source(filename:pchar;line,character,mid:longint;pc:CORE_ADDR);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|source|'); Debug('|source|');
{$endif} {$endif}
end; end;
@ -1618,7 +1631,7 @@ end;
procedure annotate_function_call;cdecl;public; procedure annotate_function_call;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|function_call|'); Debug('|function_call|');
{$endif} {$endif}
end; end;
@ -1626,7 +1639,7 @@ end;
procedure annotate_signal_handler_caller;cdecl;public; procedure annotate_signal_handler_caller;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|signal_handler_caller|'); Debug('|signal_handler_caller|');
{$endif} {$endif}
end; end;
@ -1634,7 +1647,7 @@ end;
procedure annotate_array_section_begin(index:longint;elttype:pointer);cdecl;public; procedure annotate_array_section_begin(index:longint;elttype:pointer);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|array_section_begin()|'); Debug('|array_section_begin()|');
{$endif} {$endif}
end; end;
@ -1642,14 +1655,14 @@ end;
procedure annotate_elt_rep(repcount:longint);cdecl;public; procedure annotate_elt_rep(repcount:longint);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|elt_rep()|'); Debug('|elt_rep()|');
{$endif} {$endif}
end; end;
procedure annotate_elt_rep_end;cdecl;public; procedure annotate_elt_rep_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|elt_rep_end|'); Debug('|elt_rep_end|');
{$endif} {$endif}
end; end;
@ -1657,7 +1670,7 @@ end;
procedure annotate_elt;cdecl;public; procedure annotate_elt;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|elt|'); Debug('|elt|');
{$endif} {$endif}
end; end;
@ -1665,14 +1678,14 @@ end;
procedure annotate_array_section_end;cdecl;public; procedure annotate_array_section_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|array_section_end|'); Debug('|array_section_end|');
{$endif} {$endif}
end; end;
procedure annotate_display_begin;cdecl;public; procedure annotate_display_begin;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|display_begin|'); Debug('|display_begin|');
{$endif} {$endif}
end; end;
@ -1680,7 +1693,7 @@ end;
procedure annotate_display_number_end;cdecl;public; procedure annotate_display_number_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|display_number_end|'); Debug('|display_number_end|');
{$endif} {$endif}
end; end;
@ -1688,14 +1701,14 @@ end;
procedure annotate_display_format;cdecl;public; procedure annotate_display_format;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|display_format|'); Debug('|display_format|');
{$endif} {$endif}
end; end;
procedure annotate_display_expression;cdecl;public; procedure annotate_display_expression;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|display_expression|'); Debug('|display_expression|');
{$endif} {$endif}
end; end;
@ -1703,7 +1716,7 @@ end;
procedure annotate_display_expression_end;cdecl;public; procedure annotate_display_expression_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|display_expression_end|'); Debug('|display_expression_end|');
{$endif} {$endif}
end; end;
@ -1711,7 +1724,7 @@ end;
procedure annotate_display_value;cdecl;public; procedure annotate_display_value;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|display_value|'); Debug('|display_value|');
{$endif} {$endif}
end; end;
@ -1719,7 +1732,7 @@ end;
procedure annotate_display_end;cdecl;public; procedure annotate_display_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|display_end|'); Debug('|display_end|');
{$endif} {$endif}
end; end;
@ -1727,7 +1740,7 @@ end;
procedure annotate_field (num:longint);cdecl;public; procedure annotate_field (num:longint);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_field(%d)'); Debug('a_field(%d)');
{$endif} {$endif}
end; end;
@ -1735,7 +1748,7 @@ end;
procedure annotate_field_begin(typ:pointer);cdecl;public; procedure annotate_field_begin(typ:pointer);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_field_begin\n'); Debug('a_field_begin\n');
{$endif} {$endif}
end; end;
@ -1743,7 +1756,7 @@ end;
procedure annotate_field_name_end;cdecl;public; procedure annotate_field_name_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_field_name_end\n'); Debug('a_field_name_end\n');
{$endif} {$endif}
end; end;
@ -1751,7 +1764,7 @@ end;
procedure annotate_field_value;cdecl;public; procedure annotate_field_value;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_field_value\n'); Debug('a_field_value\n');
{$endif} {$endif}
end; end;
@ -1759,7 +1772,7 @@ end;
procedure annotate_field_end;cdecl;public; procedure annotate_field_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_field_end\n'); Debug('a_field_end\n');
{$endif} {$endif}
end; end;
@ -1767,7 +1780,7 @@ end;
procedure annotate_value_history_begin (histindex:longint;typ:pointer);cdecl;public; procedure annotate_value_history_begin (histindex:longint;typ:pointer);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_value_history_begin(%d)\n'); Debug('a_value_history_begin(%d)\n');
{$endif} {$endif}
end; end;
@ -1775,7 +1788,7 @@ end;
procedure annotate_value_begin (typ:pointer);cdecl;public; procedure annotate_value_begin (typ:pointer);cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_value_begin\n'); Debug('a_value_begin\n');
{$endif} {$endif}
end; end;
@ -1783,7 +1796,7 @@ end;
procedure annotate_value_history_value;cdecl;public; procedure annotate_value_history_value;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_value_history_value\n'); Debug('a_value_history_value\n');
{$endif} {$endif}
end; end;
@ -1791,7 +1804,7 @@ end;
procedure annotate_value_history_end;cdecl;public; procedure annotate_value_history_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_value_history_end\n'); Debug('a_value_history_end\n');
{$endif} {$endif}
end; end;
@ -1799,7 +1812,7 @@ end;
procedure annotate_value_end;cdecl;public; procedure annotate_value_end;cdecl;public;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('a_value_end\n'); Debug('a_value_end\n');
{$endif} {$endif}
end; end;
@ -2032,7 +2045,7 @@ begin
{$endif go32v2} {$endif go32v2}
end end
else else
{$ifdef Debug} {$ifdef Verbose}
Debug('error longjmp in handle_gdb_command ('+s+')'); Debug('error longjmp in handle_gdb_command ('+s+')');
{$endif} {$endif}
; ;
@ -2177,7 +2190,7 @@ end;
procedure tgdbinterface.DebuggerScreen; procedure tgdbinterface.DebuggerScreen;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|DebuggerScreen|'); Debug('|DebuggerScreen|');
{$endif} {$endif}
if user_screen_shown then if user_screen_shown then
@ -2188,7 +2201,7 @@ end;
procedure tgdbinterface.UserScreen; procedure tgdbinterface.UserScreen;
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|UserScreen|'); Debug('|UserScreen|');
{$endif} {$endif}
if switch_to_user then if switch_to_user then
@ -2206,12 +2219,12 @@ end;
---------------------------------------} ---------------------------------------}
procedure tgdbinterface.DoSelectSourceLine(const fn:string;line:longint); procedure tgdbinterface.DoSelectSourceLine(const fn:string;line:longint);
{$ifdef Debug} {$ifdef Verbose}
var var
s : string; s : string;
{$endif} {$endif}
begin begin
{$ifdef Debug} {$ifdef Verbose}
Str(line,S); Str(line,S);
Debug('|SelectSource '+fn+':'+s+'|'); Debug('|SelectSource '+fn+':'+s+'|');
{$endif} {$endif}
@ -2375,7 +2388,7 @@ begin
end end
else else
begin begin
{$ifdef Debug} {$ifdef Verbose}
Debug('|LongJump to Init|'); Debug('|LongJump to Init|');
{$endif} {$endif}
{$ifdef go32v2} {$ifdef go32v2}
@ -2391,7 +2404,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.4 2001-01-21 21:38:52 marco Revision 1.5 2001-04-08 11:43:39 peter
* merged changes from fixes branch
Revision 1.4 2001/01/21 21:38:52 marco
* renamefest in packages * renamefest in packages
Revision 1.3 2000/10/08 10:07:22 peter Revision 1.3 2000/10/08 10:07:22 peter