aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite
diff options
context:
space:
mode:
authorDaniel Jacobowitz <drow@false.org>2009-11-05 20:06:03 +0000
committerDaniel Jacobowitz <drow@false.org>2009-11-05 20:06:03 +0000
commitf8b7eaf30a06a95eb0e000f0bb36dcaa92725137 (patch)
tree836956d9e0574f0beeddcf5e636321b62988f142 /gdb/testsuite
parent12af2ab656102bf73265db464ab89e76ff8c0512 (diff)
downloadgdb-f8b7eaf30a06a95eb0e000f0bb36dcaa92725137.zip
gdb-f8b7eaf30a06a95eb0e000f0bb36dcaa92725137.tar.gz
gdb-f8b7eaf30a06a95eb0e000f0bb36dcaa92725137.tar.bz2
* config/m68k-emc.exp, lib/emc-support.exp,
gdb.trace/gdb_c_test.c: Delete. * gdb.trace/actions.exp, gdb.trace/backtrace.exp, gdb.trace/circ.exp, gdb.trace/collection.exp, gdb.trace/deltrace.exp, gdb.trace/infotrace.exp, gdb.trace/limits.exp, gdb.trace/packetlen.exp, gdb.trace/passc-dyn.exp, gdb.trace/passcount.exp, gdb.trace/report.exp, gdb.trace/save-trace.exp, gdb.trace/tfind.exp, gdb.trace/tracecmd.exp, gdb.trace/while-dyn.exp, gdb.trace/while-stepping.exp: Remove special casing for m68k-*-elf.
Diffstat (limited to 'gdb/testsuite')
-rw-r--r--gdb/testsuite/ChangeLog12
-rw-r--r--gdb/testsuite/config/m68k-emc.exp17
-rw-r--r--gdb/testsuite/gdb.trace/actions.exp19
-rw-r--r--gdb/testsuite/gdb.trace/backtrace.exp56
-rw-r--r--gdb/testsuite/gdb.trace/circ.exp5
-rw-r--r--gdb/testsuite/gdb.trace/collection.exp5
-rw-r--r--gdb/testsuite/gdb.trace/deltrace.exp19
-rw-r--r--gdb/testsuite/gdb.trace/gdb_c_test.c3792
-rw-r--r--gdb/testsuite/gdb.trace/infotrace.exp19
-rw-r--r--gdb/testsuite/gdb.trace/limits.exp5
-rw-r--r--gdb/testsuite/gdb.trace/packetlen.exp56
-rw-r--r--gdb/testsuite/gdb.trace/passc-dyn.exp68
-rw-r--r--gdb/testsuite/gdb.trace/passcount.exp19
-rw-r--r--gdb/testsuite/gdb.trace/report.exp57
-rw-r--r--gdb/testsuite/gdb.trace/save-trace.exp19
-rw-r--r--gdb/testsuite/gdb.trace/tfind.exp61
-rw-r--r--gdb/testsuite/gdb.trace/tracecmd.exp19
-rw-r--r--gdb/testsuite/gdb.trace/while-dyn.exp57
-rw-r--r--gdb/testsuite/gdb.trace/while-stepping.exp19
-rw-r--r--gdb/testsuite/lib/emc-support.exp223
20 files changed, 153 insertions, 4394 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index d251e21..8cb5882 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,15 @@
+2009-11-05 Daniel Jacobowitz <dan@codesourcery.com>
+
+ * config/m68k-emc.exp, lib/emc-support.exp,
+ gdb.trace/gdb_c_test.c: Delete.
+ * gdb.trace/actions.exp, gdb.trace/backtrace.exp, gdb.trace/circ.exp,
+ gdb.trace/collection.exp, gdb.trace/deltrace.exp,
+ gdb.trace/infotrace.exp, gdb.trace/limits.exp, gdb.trace/packetlen.exp,
+ gdb.trace/passc-dyn.exp, gdb.trace/passcount.exp, gdb.trace/report.exp,
+ gdb.trace/save-trace.exp, gdb.trace/tfind.exp, gdb.trace/tracecmd.exp,
+ gdb.trace/while-dyn.exp, gdb.trace/while-stepping.exp: Remove special
+ casing for m68k-*-elf.
+
2009-11-03 Pedro Alves <pedro@codesourcery.com>
* gdb.arch/i386-gnu-cfi.exp: Define SYMBOL_PREFIX on *-*-mingw*.
diff --git a/gdb/testsuite/config/m68k-emc.exp b/gdb/testsuite/config/m68k-emc.exp
deleted file mode 100644
index 70b8f5e..0000000
--- a/gdb/testsuite/config/m68k-emc.exp
+++ /dev/null
@@ -1,17 +0,0 @@
-load_lib gdb.exp
-load_lib "../config/monitor.exp"
-
-proc gdb_emclaptop_command { command } {
- global board_info;
- set tname [board_info target name];
-
- if ![info exists board_info($tname,m68k_connected)] {
- m68k_emc_board_connect target;
- }
- # This is about all we can do for now. *sigh*
- set dos_host [board_info target dos_host];
-
- remote_send $dos_host "${command}\n";
- #remote_expect $dos_host {
- #}
-}
diff --git a/gdb/testsuite/gdb.trace/actions.exp b/gdb/testsuite/gdb.trace/actions.exp
index 0cfeb0d..b22b210 100644
--- a/gdb/testsuite/gdb.trace/actions.exp
+++ b/gdb/testsuite/gdb.trace/actions.exp
@@ -27,18 +27,13 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- set binfile [board_info target d490_binfile];
- set srcfile gdb_c_test.c
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/actions
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested actions.exp
- return -1
- }
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/actions
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested actions.exp
+ return -1
}
gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.trace/backtrace.exp b/gdb/testsuite/gdb.trace/backtrace.exp
index 48056ed..b1e3f0f 100644
--- a/gdb/testsuite/gdb.trace/backtrace.exp
+++ b/gdb/testsuite/gdb.trace/backtrace.exp
@@ -27,39 +27,18 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- load_lib "emc-support.exp";
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
- gdb_test "set remotetimeout 6" "" ""
- set timeout 500
- gdb_target_monitor "$binfile"
- # Give a TSTOP and ignore errors, to make sure any previous trace is off
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- send_gdb "compare-sections CS\n"
- gdb_expect {
- -re "MIS-MATCHED.*$gdb_prompt $" {
- untested backtrace.exp
- return -1
- all tests in this module will fail.";
- }
- -re ".*$gdb_prompt $" { }
- }
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/backtrace
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested backtrace.exp
- return -1
- }
- gdb_load $binfile
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- runto_main
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/backtrace
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested backtrace.exp
+ return -1
}
+gdb_load $binfile
+gdb_test "tstop" "" ""
+gdb_test "tfind none" "" ""
+runto_main
gdb_reinitialize_dir $srcdir/$subdir
# We generously give ourselves one "pass" if we successfully
@@ -173,15 +152,10 @@ gdb_trace_setactions "8.6: setup TP to collect stack mem cast expr" \
gdb_test "tstart" "" ""
-if [istarget "m68k-*-elf"] then {
- gdb_emclaptop_command "85,$arg1,$arg2,$arg3,$arg4,$arg5,$arg6"
- sleep 5
-} else {
- gdb_test "break end" "" ""
- gdb_test "continue" \
- "Continuing.*Breakpoint $decimal, end.*" \
- "run trace experiment"
-}
+gdb_test "break end" "" ""
+gdb_test "continue" \
+ "Continuing.*Breakpoint $decimal, end.*" \
+ "run trace experiment"
gdb_test "tstop" "" ""
diff --git a/gdb/testsuite/gdb.trace/circ.exp b/gdb/testsuite/gdb.trace/circ.exp
index 1911d6a..9a2c6f9 100644
--- a/gdb/testsuite/gdb.trace/circ.exp
+++ b/gdb/testsuite/gdb.trace/circ.exp
@@ -13,11 +13,6 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if [istarget "m68k-*-elf"] then {
- pass "Test not supported on this target"
- return;
-}
-
load_lib "trace-support.exp"
if $tracelevel then {
diff --git a/gdb/testsuite/gdb.trace/collection.exp b/gdb/testsuite/gdb.trace/collection.exp
index dab2eb6..3a1b39d 100644
--- a/gdb/testsuite/gdb.trace/collection.exp
+++ b/gdb/testsuite/gdb.trace/collection.exp
@@ -13,11 +13,6 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if [istarget "m68k-*-elf"] then {
- pass "Test not supported on this target"
- return;
-}
-
load_lib "trace-support.exp"
if $tracelevel then {
diff --git a/gdb/testsuite/gdb.trace/deltrace.exp b/gdb/testsuite/gdb.trace/deltrace.exp
index 8afe7e5..7497e55 100644
--- a/gdb/testsuite/gdb.trace/deltrace.exp
+++ b/gdb/testsuite/gdb.trace/deltrace.exp
@@ -27,18 +27,13 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/deltrace
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested deltrace.exp
- return -1
- }
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/deltrace
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested deltrace.exp
+ return -1
}
gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.trace/gdb_c_test.c b/gdb/testsuite/gdb.trace/gdb_c_test.c
deleted file mode 100644
index 03382c2..0000000
--- a/gdb/testsuite/gdb.trace/gdb_c_test.c
+++ /dev/null
@@ -1,3792 +0,0 @@
-/*
- ******************************************************************************
- ******************************************************************************
- *
- * COPYRIGHT (C) by EMC Corporation, 1997 All rights reserved.
- * $Id$
- * DESCRIPTION: This module has been provided for the purpose of testing GDB.
- *
- * NOTES:
- *
- ******************************************************************************
- *****************************************************************************/
-
-/*=============================================================================
- * INCLUDE FILES
- *===========================================================================*/
-
-
-#ifdef DO_IT_BY_THE_BOOK
-
-
-#include "symtypes_defs.h"
-#include "printp.h"
-
-#include "adbg_expression.h"
-#include "common_hw_ds.h"
-#include "common_hw_defs.h"
-#include "evnttrac.h"
-#include "sym_scratch_ds.h"
-#include "symglob_ds.h"
-#include "sym_protglob_ds.h"
-
-#include "ether.h"
-
-#include <ctype.h>
-
-
-#else
-
-#include "adbg_dtc.h"
-
-#define YES 1
-#define NO 0
-
-#define TRUE 1
-#define FALSE 0
-
-#define ENABLED 1
-#define DISABLED 0
-
-#define CONTROL_C 3 /* ASCII 'ETX' */
-
-
-/*
- * Faked after ctype.h
- */
-
-#define isxdigit(X) (((X) >= '0' && (X) <= '9') || \
- ((X) >= 'A' && (X) <= 'F') || \
- ((X) >= 'a' && (X) <= 'f'))
-/*
- * Borrowed from string.h
- */
-
-extern unsigned int strlen ( const char * );
-
-/*
- * Extracted from symtypes.h:
- */
-
-typedef char BOOL; /* 8 Bits */
-typedef unsigned char UCHAR; /* 8 Bits */
-typedef unsigned short USHORT; /* 16 Bits */
-typedef unsigned long ULONG; /* 32 Bits */
-
-/*
- * for struct t_expr_tag and
- * decl of build_and_add_expression
- */
-#include "adbg_expression.h"
-#define NULL 0
-
-/*
- * Extracted from printp.h:
- */
-
-extern void printp ( const char * fptr, ... );
-extern void sprintp ( const char * fptr, ... );
-
-/*
- * Extracted from ether.h:
- */
-
-extern long eth_to_gdb ( UCHAR *buf, long length );
-
-
-/*
- * Derived from hwequs.s:
- */
-
-#define CS_CODE_START 0x100000
-#define CS_CODE_SIZE 0x200000
-#define LAST_CS_WORD (CS_CODE_START + CS_CODE_SIZE - 2)
-
-#define sh_genstat1 (*((volatile ULONG *) 0xFFFFFE54))
-
-#define rs232_mode1 0 /* rs-232 mode 1 reg. */
-#define rs232_mode2 rs232_mode1 /* rs-232 mode 2 reg. */
-#define rs232_stat 4 /* rs-232 status reg. */
-#define rs232_clk rs232_stat /* rs-232 clock select reg. */
-#define rs232_cmd 8 /* rs-232 command reg */
-#define rs232_transmit 12 /* rs-232 transmit reg. */
-#define rs232_receive rs232_transmit /* rs-232 transmit reg. */
-#define rs232_aux 16 /* rs-232 aux control reg. */
-#define rs232_isr 20 /* rs-232 interrupt status reg. */
-#define rs232_imr rs232_isr /* rs-232 interrupt mask reg. */
-#define rs232_tc_high 24 /* rs-232 timer/counter high reg. */
-#define rs232_tc_low 28 /* rs-232 timer/counter low reg. */
-
-
-#endif
-
-
-/*============================================================================
- * MODULE DEFINES
- *===========================================================================*/
-
-#define P_RST_LAN_UART_REG ((volatile UCHAR *) 0xFFFFFE45)
-#define M_RST_LAN_UART 0x80 /* Bit 7 */
-
-#define P_LAN0TR_REG P_RST_LAN_UART_REG
-#define M_LAN0TR 0x20 /* Bit 5 */
-
-#define M_SH_GENCON_LAN0TR 0x00200000 /* Bit 21 */
-
-#define MAX_RS232_CHARS 512
-
-#define LAN_Q_MOD(X) ((X) % MAX_RS232_CHARS)
-
-/*---------------------------------------*
- * LAN UART Registers *
- *---------------------------------------*/
-
-#define LAN_UART_BASE ((ULONG) 0xfffffc22)
-
-/* Write-Read */
-
-#define P_LAN_MR1 ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_mode1 )))
-#define P_LAN_MR2 ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_mode2 )))
-
-/* Write-Only */
-
-#define P_LAN_ACR ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_aux )))
-#define P_LAN_CR ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_cmd )))
-#define P_LAN_CSR ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_clk )))
-#define P_LAN_CTLR ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_tc_low )))
-#define P_LAN_CTUR ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_tc_high )))
-#define P_LAN_IMR ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_imr )))
-
-/* Read-Only */
-
-#define P_LAN_SR ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_stat )))
-#define P_LAN_ISR ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_isr )))
-#define P_LAN_XMT ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_transmit)))
-#define P_LAN_RCV ((volatile UCHAR *) (LAN_UART_BASE + ((ULONG) rs232_receive )))
-
-/*
- * Bit Values for Write-Read and Write-Only Registers
- */
-
-#define DEFAULT_LAN_MR1 ((UCHAR) 0x13)
-#define DEFAULT_LAN_MR2 ((UCHAR) 0x07)
-#define DEFAULT_LAN_CSR ((UCHAR) 0xcc)
-#define DEFAULT_LAN_ACR ((UCHAR) 0x38)
-#define DEFAULT_LAN_CTUR ((UCHAR) 0xff)
-#define DEFAULT_LAN_CTLR ((UCHAR) 0xff)
-
-#define LAN_ACR_SELECT_BRG_0 DEFAULT_LAN_ACR
-#define LAN_ACR_SELECT_BRG_1 (DEFAULT_LAN_ACR | 0x80)
-
-#define UART_CR_RESET_MR_PTR ((UCHAR) 0x10) /* Reset MR pointer (points to MR1). */
-#define UART_CR_RESET_RVCR ((UCHAR) 0x20) /* Reset receiver (disabled). */
-#define UART_CR_RESET_XMTR ((UCHAR) 0x30) /* Reset transmitter (disabled). */
-#define UART_CR_RESET_ERROR_STATUS ((UCHAR) 0x40) /* Reset error status. */
-#define UART_CR_RESET_BRK_CHG_INT ((UCHAR) 0x50) /* Reset break change interrupt. */
-#define UART_CR_START_CNTR_TIMER ((UCHAR) 0x80) /* Start counter/timer. */
-#define UART_CR_STOP_CNTR ((UCHAR) 0x90) /* Stop counter. */
-
-#define UART_CR_DISABLE_XMTR ((UCHAR) 0x08) /* Disable transmitter. */
-#define UART_CR_ENABLE_XMTR ((UCHAR) 0x04) /* Enable transmitter. */
-#define UART_CR_DISABLE_RCVR ((UCHAR) 0x02) /* Disable receiver. */
-#define UART_CR_ENABLE_RCVR ((UCHAR) 0x01) /* Enable receiver. */
-
-#define UART_CSR_BR_4800 ((UCHAR) 0x99) /* With either BRG Set selected (via ACR). */
-#define UART_CSR_BR_9600 ((UCHAR) 0xbb) /* With either BRG Set selected (via ACR). */
-#define UART_CSR_BR_19200 ((UCHAR) 0xcc) /* With BRG Set '1' selected (via ACR). */
-#define UART_CSR_BR_38400 ((UCHAR) 0xcc) /* With BRG Set '0' selected (via ACR). */
-
-#define UART_IMR_RxRDY ((UCHAR) 0x04) /* Enable 'RxRDY' interrupt. */
-#define UART_IMR_TxEMT ((UCHAR) 0x02) /* Enable 'TxEMT' interrupt. */
-#define UART_IMR_TxRDY ((UCHAR) 0x01) /* Enable 'TxRDY' interrupt. */
-
-/*
- * Bit Masks for Read-Only Registers
- */
-
-#define M_UART_SR_RCVD_BRK 0x80 /* Bit 7 */
-#define M_UART_SR_FE 0x40 /* Bit 6 */
-#define M_UART_SR_PE 0x20 /* Bit 5 */
-#define M_UART_SR_OE 0x10 /* Bit 4 */
-#define M_UART_SR_TxEMT 0x08 /* Bit 3 */
-#define M_UART_SR_TxRDY 0x04 /* Bit 2 */
-#define M_UART_SR_FFULL 0x02 /* Bit 1 */
-#define M_UART_SR_RxRDY 0x01 /* Bit 0 */
-
-#define M_UART_ISR_RxRDY 0x04 /* Bit 2 */
-#define M_UART_ISR_TxEMT 0x02 /* Bit 1 */
-#define M_UART_ISR_TxRDY 0x01 /* Bit 0 */
-
-/*---------------------------------------*
- * Support for 'Utility 83'. *
- *---------------------------------------*/
-
-#define LAN_UTIL_CODE 0x83
-
-#define LAN_INIT ((ULONG) (('I' << 24) | ('N' << 16) | ('I' << 8) | 'T'))
-#define LAN_BAUD ((ULONG) (('B' << 24) | ('A' << 16) | ('U' << 8) | 'D'))
-#define LAN_INTR ((ULONG) (('I' << 24) | ('N' << 16) | ('T' << 8) | 'R'))
-#define LAN_XMT ((ULONG) (('X' << 16) | ('M' << 8) | 'T'))
-#define LAN_ECHO ((ULONG) (('E' << 24) | ('C' << 16) | ('H' << 8) | 'O'))
-#define LAN_STAT ((ULONG) (('S' << 24) | ('T' << 16) | ('A' << 8) | 'T'))
-#define LAN_IN ((ULONG) (('I' << 8) | 'N'))
-#define LAN_OUT ((ULONG) (('O' << 16) | ('U' << 8) | 'T'))
-
-#define LAN_PUTC ((ULONG) (('P' << 24) | ('U' << 16) | ('T' << 8) | 'C'))
-#define LAN_WPM ((ULONG) (('W' << 16) | ('P' << 8) | 'M'))
-
-#define STATUS(X) ( ( ( X ) == 0 ) ? "disabled" : "enabled" )
-
-#define XMT_VIA_BP_ENABLED() ( *P_LAN0TR_REG & M_LAN0TR ? 1 : 0 )
-
-#define TRAP_1_INST 0x4E41
-
-/*
- * Bit #13 of shared genstat 1 indicates
- * which processor we are as follows.
- *
- * 0 => X (side A)
- * 1 => Y (side B)
- */
-
-#define M_PROC_ID 0x00002000
-
-#define IS_SIDE_A() ( ( (sh_genstat1) & M_PROC_ID ) == 0 )
-#define IS_SIDE_B() ( (sh_genstat1) & M_PROC_ID )
-
-
-#ifdef STANDALONE /* Compile this module stand-alone for debugging */
-#define LAN_PUT_CHAR(X) printf("%c", X)
-#else
-#define LAN_PUT_CHAR(X) while ( lan_put_char( X ) )
-#endif
-
-
-
-
-#define VIA_RS232 0
-#define VIA_ETHERNET 1
-
-#define MAX_IO_BUF_SIZE 400
-
-#define MAX_BYTE_CODES 200 /* maximum length for bytecode string */
-
-
-static ULONG gdb_host_comm;
-
-static ULONG gdb_cat_ack;
-
-static char eth_outbuffer[ MAX_IO_BUF_SIZE + 1 ];
-
-
-#ifdef STANDALONE
-
-#define ACK_PKT() LAN_PUT_CHAR( '+' )
-#define NACK_PKT() LAN_PUT_CHAR( '-' )
-
-#else
-
-#define ACK_PKT() { \
- if ( VIA_ETHERNET == gdb_host_comm ) \
- { \
- gdb_cat_ack = YES; \
- } \
- else \
- { \
- LAN_PUT_CHAR( '+' ); \
- } \
- }
-
-
-
-#define NACK_PKT() { \
- if ( VIA_ETHERNET == gdb_host_comm ) \
- { \
- eth_outbuffer[ 0 ] = '-'; \
- eth_to_gdb( (UCHAR *) eth_outbuffer, 1 ); \
- } \
- else \
- { \
- LAN_PUT_CHAR( '-' ); \
- } \
- }
-
-#endif
-
-
-
-
-/*============================================================================
- * MODULE TYPEDEFS
- *===========================================================================*/
-
-typedef struct rs232_queue {
-
- long head_index;
-
- long tail_index;
-
- ULONG overflows;
-
- long gdb_packet_start;
- long gdb_packet_end;
- long gdb_packet_csum1;
- long gdb_packet_csum2;
-
- UCHAR buf[ MAX_RS232_CHARS ];
-
-} T_RS232_QUEUE;
-
-
-
-
-/*=============================================================================
- * EXTERNAL GLOBAL VARIABLES
- *===========================================================================*/
-
-extern volatile UCHAR sss_trace_flag;
-
-
-/*=============================================================================
- * STATIC MODULE DECLARATIONS
- *===========================================================================*/
-
-static T_RS232_QUEUE lan_input_queue,
- lan_output_queue;
-
-static BOOL test_echo;
-
-#if 0
-/* The stub no longer seems to use this. */
-static BOOL write_access_enabled;
-#endif
-
-static int baud_rate_idx;
-
-static ULONG tx_by_intr,
- tx_by_poll;
-
-static UCHAR lan_shadow_imr;
-
-
-/*=============================================================================
- * EXTERNAL FUNCTION PROTOTYPES
- *===========================================================================*/
-
-extern long write_to_protected_mem( void *address, unsigned short value );
-
-
-/*=============================================================================
- * MODULE GLOBAL FUNCTIONS PROTOTYPES
- *===========================================================================*/
-
-ULONG gdb_c_test( ULONG *parm );
-
-
-void lan_init( void );
-
-void lan_isr( void );
-
-long lan_get_char( void );
-
-long lan_put_char( UCHAR c );
-
-ULONG lan_util( ULONG *parm );
-
-
-/*=============================================================================
- * MODULE LOCAL FUNCTION PROTOTYPES
- *===========================================================================*/
-
-static void lan_reset( void );
-
-static void lan_configure( void );
-
-static void lan_init_queue( T_RS232_QUEUE *p_queue );
-
-static void lan_add_to_queue( long c, T_RS232_QUEUE *p_queue );
-
-static UCHAR lan_next_queue_char( T_RS232_QUEUE *p_queue );
-
-static void lan_util_menu( void );
-
-static long get_gdb_input( long c, T_RS232_QUEUE *p_input_q );
-
-
-/*=============================================================================
- * GDB STUB FUNCTION PROTOTYPES
- *===========================================================================*/
-
-void gdb_trap_1_handler( void );
-void gdb_trace_handler ( void );
-
-void gdb_get_eth_input( unsigned char *buf, long length );
-
-static void getpacket ( void );
-static void putpacket ( char * );
-static void discard_packet ( void );
-
-#ifdef STANDALONE /* Compile this module stand-alone for debugging */
-#include <stdio.h>
-#define printp printf /* easier than declaring a local varargs stub func. */
-#endif /* STANDALONE */
-
-
-/*=============================================================================
- * MODULE BODY
- *===========================================================================*/
-
-/* ------------------- Things that belong in a header file --------------- */
-extern char *memset (char *, int, int);
-
- /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*
- * *
- * Global Module Functions *
- * *
- *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
-
-
-static char gdb_char_test;
-static short gdb_short_test;
-static long gdb_long_test;
-static char gdb_arr_test[25];
-static struct GDB_STRUCT_TEST
-{
- char c;
- short s;
- long l;
- int bfield : 11; /* collect bitfield */
- char arr[25];
- struct GDB_STRUCT_TEST *next;
-} gdb_struct1_test, gdb_struct2_test, *gdb_structp_test, **gdb_structpp_test;
-
-static union GDB_UNION_TEST
-{
- char c;
- short s;
- long l;
- int bfield : 11; /* collect bitfield */
- char arr[4];
- union GDB_UNION_TEST *next;
-} gdb_union1_test;
-
-void gdb_recursion_test (int, int, int, int, int, int, int);
-
-void gdb_recursion_test (int depth,
- int q1,
- int q2,
- int q3,
- int q4,
- int q5,
- int q6)
-{ /* gdb_recursion_test line 0 */
- int q = q1; /* gdbtestline 1 */
-
- q1 = q2; /* gdbtestline 2 */
- q2 = q3; /* gdbtestline 3 */
- q3 = q4; /* gdbtestline 4 */
- q4 = q5; /* gdbtestline 5 */
- q5 = q6; /* gdbtestline 6 */
- q6 = q; /* gdbtestline 7 */
- if (depth--) /* gdbtestline 8 */
- gdb_recursion_test (depth, q1, q2, q3, q4, q5, q6); /* gdbtestline 9 */
-}
-
-
-ULONG gdb_c_test( ULONG *parm )
-
-{
- char *p = "gdb_c_test";
- char *ridiculously_long_variable_name_with_equally_long_string_assignment;
- register long local_reg = 7;
- static unsigned long local_static, local_static_sizeof;
- long local_long;
- unsigned long *stack_ptr;
- unsigned long end_of_stack;
-
- ridiculously_long_variable_name_with_equally_long_string_assignment =
- "ridiculously long variable name with equally long string assignment";
- local_static = 9;
- local_static_sizeof = sizeof (struct GDB_STRUCT_TEST);
- local_long = local_reg + 1;
- stack_ptr = (unsigned long *) &local_long;
- end_of_stack =
- (unsigned long) &stack_ptr + sizeof(stack_ptr) + sizeof(end_of_stack) - 1;
-
- printp ("\n$Id$\n");
-
- printp( "%s: arguments = %X, %X, %X, %X, %X, %X\n",
- p, parm[ 1 ], parm[ 2 ], parm[ 3 ], parm[ 4 ], parm[ 5 ], parm[ 6 ] );
-
- gdb_char_test = gdb_struct1_test.c = (char) ((long) parm[1] & 0xff);
- gdb_short_test = gdb_struct1_test.s = (short) ((long) parm[2] & 0xffff);
- gdb_long_test = gdb_struct1_test.l = (long) ((long) parm[3] & 0xffffffff);
- gdb_union1_test.l = (long) parm[4];
- gdb_arr_test[0] = gdb_struct1_test.arr[0] = (char) ((long) parm[1] & 0xff);
- gdb_arr_test[1] = gdb_struct1_test.arr[1] = (char) ((long) parm[2] & 0xff);
- gdb_arr_test[2] = gdb_struct1_test.arr[2] = (char) ((long) parm[3] & 0xff);
- gdb_arr_test[3] = gdb_struct1_test.arr[3] = (char) ((long) parm[4] & 0xff);
- gdb_arr_test[4] = gdb_struct1_test.arr[4] = (char) ((long) parm[5] & 0xff);
- gdb_arr_test[5] = gdb_struct1_test.arr[5] = (char) ((long) parm[6] & 0xff);
- gdb_struct1_test.bfield = 144;
- gdb_struct1_test.next = &gdb_struct2_test;
- gdb_structp_test = &gdb_struct1_test;
- gdb_structpp_test = &gdb_structp_test;
-
- gdb_recursion_test (3, (long) parm[1], (long) parm[2], (long) parm[3],
- (long) parm[4], (long) parm[5], (long) parm[6]);
-
- gdb_char_test = gdb_short_test = gdb_long_test = 0;
- gdb_structp_test = (void *) 0;
- gdb_structpp_test = (void *) 0;
- memset ((char *) &gdb_struct1_test, 0, sizeof (gdb_struct1_test));
- memset ((char *) &gdb_struct2_test, 0, sizeof (gdb_struct2_test));
- local_static_sizeof = 0;
- local_static = 0;
- return ( (ULONG) 0 );
-}
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_init
- *
- *
- * DESCRIPTION:
- *
- *
- * RETURN VALUE:
- *
- *
- * USED GLOBAL VARIABLES:
- *
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- *
- * NOTES:
- *
- *
- *
- *---------------------------------------------------------------------------*/
-
-void lan_init( void )
-
-{
-
- if ( IS_SIDE_A( ) )
- {
-
- lan_reset( );
-
- lan_init_queue( &lan_input_queue );
-
- lan_init_queue( &lan_output_queue );
-
- lan_configure( );
- }
-
- return;
-}
-/* end of 'lan_init'
- *===========================================================================*/
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_isr
- *
- *
- * DESCRIPTION:
- *
- *
- * RETURN VALUE: None.
- *
- *
- * USED GLOBAL VARIABLES:
- *
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- *
- * NOTES:
- *
- *
- *---------------------------------------------------------------------------*/
-
-void lan_isr( void )
-
-{
- UCHAR c;
-
-
- lan_shadow_imr = 0; /* Disable all UART interrupts. */
- *P_LAN_IMR = lan_shadow_imr;
-
-
- if ( *P_LAN_ISR & M_UART_ISR_RxRDY )
- {
-
- gdb_host_comm = VIA_RS232;
-
- c = *P_LAN_RCV;
-
- if ( test_echo )
- {
- /* ????? */
- }
-
- if ( c == CONTROL_C )
- {
- /* can't stop the target, but we can tell gdb to stop waiting... */
- discard_packet( );
- putpacket( "S03" ); /* send back SIGINT to the debugger */
- }
-
- else
- {
- lan_add_to_queue( (long) c, &lan_input_queue );
- get_gdb_input( (long) c, &lan_input_queue );
- }
-
- }
-
- if ( XMT_VIA_BP_ENABLED( ) )
- {
-
- c = 0;
-
- while ( (*P_LAN_ISR & M_UART_ISR_TxRDY) && (c = lan_next_queue_char( &lan_output_queue )) )
- {
- *P_LAN_XMT = c;
- ++tx_by_intr;
- }
-
- if ( c )
- {
- lan_shadow_imr |= UART_IMR_TxRDY; /* (Re-)Enable 'TxRDY' interrupt from UART. */
- }
-
- }
-
-
- lan_shadow_imr |= UART_IMR_RxRDY; /* Re-Enable 'RxRDY' interrupt from UART. */
- *P_LAN_IMR = lan_shadow_imr;
-
-
-
- return;
-}
-/* end of 'lan_isr'
- *===========================================================================*/
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_get_char
- *
- *
- * DESCRIPTION: Fetches a character from the UART.
- *
- *
- * RETURN VALUE: 0 on success, -1 on failure.
- *
- *
- * USED GLOBAL VARIABLES:
- *
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- *
- * NOTES:
- *
- *
- *---------------------------------------------------------------------------*/
-
-long lan_get_char( void )
-
-{
- long status = -2; /* AGD: nothing found in rcv buffer */
-
- if ( *P_LAN_SR & M_UART_SR_RxRDY )
- {
- char c = (char) *P_LAN_RCV;
-
- if ( test_echo )
- {
- LAN_PUT_CHAR ( c );
- }
-
- if ( c == CONTROL_C )
- {
- /* can't stop the target, but we can tell gdb to stop waiting... */
- discard_packet( );
- putpacket( "S03" ); /* send back SIGINT to the debugger */
- status = 0; /* success */
- }
-
- else
- {
- lan_add_to_queue( (long) c, &lan_input_queue );
- status = get_gdb_input( (long) c, &lan_input_queue );
- }
-
- }
-
- return( status );
-}
-/* end of 'lan_get_char'
- *===========================================================================*/
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_put_char
- *
- * DESCRIPTION: Puts a character out via the UART.
- *
- * RETURN VALUE: 0 on success, -1 on failure.
- *
- * USED GLOBAL VARIABLES: none.
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- * NOTES: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- * !! !!
- * !! If 'XMT_VIA_BP_ENABLED()' is FALSE then output is THROWN AWAY. !!
- * !! This prevents anyone infinite-looping on this function. !!
- * !! !!
- * !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- *
- *---------------------------------------------------------------------------*/
-
-long lan_put_char( UCHAR c )
-
-{
- long status = -1;
-
- if ( XMT_VIA_BP_ENABLED( ) )
- {
-
- if ( *P_LAN_SR & M_UART_SR_TxRDY )
- {
- lan_add_to_queue( (long) c, &lan_output_queue );
-
- c = lan_next_queue_char( &lan_output_queue );
-
- *P_LAN_XMT = c;
- ++tx_by_poll;
- status = 0;
- }
-#if 0
- else
- {
- status = 0;
- lan_shadow_imr |= UART_IMR_TxRDY; /* Enable 'TxRDY' interrupt from UART. */
- *P_LAN_IMR = lan_shadow_imr;
- }
-#endif
- }
-
- else
- {
- status = 0; /* You lose: input character goes to the bit bucket. */
- }
-
- return( status );
-}
-/* end of 'lan_put_char'
- *===========================================================================*/
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_util
- *
- * DESCRIPTION:
- *
- * RETURN VALUE:
- *
- * USED GLOBAL VARIABLES:
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- * NOTES:
- *
- *---------------------------------------------------------------------------*/
-
-ULONG lan_util( ULONG *parm )
-
-{
-
-
- static const struct {
-
- ULONG rate_code;
- UCHAR acr_setting;
- UCHAR csr_setting;
-
- } baud_rate_setting [] = {
-
- { 0x38400, LAN_ACR_SELECT_BRG_0, UART_CSR_BR_38400 },
- { 0x19200, LAN_ACR_SELECT_BRG_1, UART_CSR_BR_19200 },
- { 0x9600, LAN_ACR_SELECT_BRG_0, UART_CSR_BR_9600 },
- { 0x4800, LAN_ACR_SELECT_BRG_0, UART_CSR_BR_4800 }
- };
-
-
-#define BOGUS_P1 0xE1
-#define BOGUS_P2 0xE2
-
- ULONG not_done_code;
-
-
- ULONG opcode;
- ULONG parm_1;
- ULONG parm_2;
-
- int i;
- UCHAR c;
-
-
- not_done_code = 0;
-
- opcode = parm[ 1 ];
- parm_1 = parm[ 2 ];
- parm_2 = parm[ 3 ];
-
-
- switch ( opcode )
- {
-
- case LAN_INIT:
- {
-
- lan_init( );
- printp( "\n\n Interface (Re)Initialized ...\n\n" );
-
- break;
- }
-
-
- case LAN_BAUD:
- {
-
- for ( i = 0; i < (int)(sizeof(baud_rate_setting) / sizeof(baud_rate_setting[0])); i ++ )
- {
- if ( baud_rate_setting[i].rate_code == parm_1 )
- {
- baud_rate_idx = i;
- *P_LAN_ACR = baud_rate_setting[i].acr_setting;
- *P_LAN_CSR = baud_rate_setting[i].csr_setting;
- printp ( "Baud rate set to %X!\n", baud_rate_setting[i].rate_code );
- return( not_done_code );
- }
- }
-
- printp( "\n\n *** SYNTAX Error - Invalid baudrate (P2)\n\n" );
- not_done_code = BOGUS_P2;
-
- break;
- }
-
-
- case LAN_INTR:
- {
-
- switch ( parm_1 )
- {
-
- case 0x0D: /* Disable 'RxRDY' Interrupts */
- {
- lan_shadow_imr &= ~UART_IMR_RxRDY;
- *P_LAN_IMR = lan_shadow_imr;
- printp( "\n\n Receive Ready Interrupts DISABLED ...\n\n" );
- break;
- }
-
- case 0x0E: /* Enable 'RxRDY' Interrupts */
- {
- lan_shadow_imr |= UART_IMR_RxRDY;
- *P_LAN_IMR = lan_shadow_imr;
- printp( "\n\n Receive Ready Interrupts ENABLED ...\n\n" );
- break;
- }
-
- default:
- {
- printp( "\n\n *** SYNTAX Error - Invalid P2 (use D or E)\n\n" );
- not_done_code = BOGUS_P2;
- }
- }
-
- break;
- }
-
-
- case LAN_XMT:
- {
-
- switch ( parm_1 )
- {
-
- case 0x0E: /* Enable Transmission-via-Backplane */
- {
- if ( !(*P_LAN0TR_REG & M_LAN0TR) )
- {
- *P_LAN0TR_REG |= M_LAN0TR; /* 0 -> 1 */
- }
-
- printp( "\n\n Transmit-via-Backplane ENABLED ...\n\n" );
- break;
- }
-
- case 0x0D: /* Disable Transmission-via-Backplane */
- {
- if ( *P_LAN0TR_REG & M_LAN0TR )
- {
- *P_LAN0TR_REG &= ~M_LAN0TR; /* 1 -> 0 */
- }
-
- printp( "\n\n Transmit-via-Backplane DISABLED ...\n\n" );
- break;
- }
-
- default:
- {
- printp( "\n\n *** SYNTAX Error - Invalid P2 (use D or E)\n\n" );
- not_done_code = BOGUS_P2;
- lan_util_menu( );
- }
- }
-
- break;
- }
-
-
- case LAN_STAT:
- {
-
- printp( "\n -- Status --\n\n" );
-
- printp( " Baud Rate: %X *\n", baud_rate_setting[ baud_rate_idx ].rate_code );
- printp( " Xmt-via-BP: %s *\n", STATUS( XMT_VIA_BP_ENABLED( ) ) );
- printp( " RxRdy Intr: %s *\n", STATUS( (lan_shadow_imr & M_UART_ISR_RxRDY) ) );
- /*** printp( " TxRdy Intr: %s\n", STATUS( (lan_shadow_imr & M_UART_ISR_TxRDY) ) ); ***/
- printp( " Echo: %s *\n\n", STATUS( test_echo ) );
-
- printp( " IMR: %02X\n", (ULONG) lan_shadow_imr );
- printp( " ISR: %02X\n", (ULONG) *P_LAN_ISR );
- printp( " SR: %02X\n\n", (ULONG) *P_LAN_SR );
-
- printp( " Input Overflows: %d\n\n", lan_input_queue.overflows );
-
- printp( " Tx by Intr: %d\n", tx_by_intr );
- printp( " Tx by Poll: %d\n\n", tx_by_poll );
-
- printp( " * Can be set or toggled via Utility %2X.\n\n", (ULONG) LAN_UTIL_CODE );
-
- break;
- }
-
-
- case LAN_IN:
- {
-
- switch ( parm_1 )
- {
-
- case 0x0C: /* Clear and Reset Queue */
- {
- lan_init_queue( &lan_input_queue );
- printp( "\n\n Queue CLEARED/RESET ...\n\n" );
- break;
- }
-
- case 0x0D: /* Display Queue */
- {
- printp( "\n -- Input Queue --\n" );
- printp( "\n Head Index: %8X Tail Index: %8X\n\n ",
- (ULONG) lan_input_queue.head_index, (ULONG) lan_input_queue.tail_index );
-
- for ( i = 0; i < MAX_RS232_CHARS; ++i )
- {
- printp( " %02X", (ULONG) lan_input_queue.buf[ i ] );
-
- if ( 15 == (i % 16) )
- {
- int j;
-
- printp ( " " );
- for ( j = i - 15; j <= i; j++ )
- {
- if ( lan_input_queue.buf[ j ] >= ' ' &&
- lan_input_queue.buf[ j ] < 127 )
- printp ( "%c", lan_input_queue.buf[ j ] );
- else
- printp ( "." );
- }
- printp( "\n " );
- }
-
- else if ( 7 == (i % 8) )
- {
- printp( " " );
- }
-
- }
-
- printp( "\n" );
-
- break;
- }
-
- case 0x0F: /* Fetch next character in Queue */
- {
- c = lan_next_queue_char( &lan_input_queue );
-
- if ( c )
- {
- printp( "\n\n Next Character: " );
- if ( 0x21 <= c && c <= 0x7F )
- {
- printp( "%c\n\n", (ULONG) c );
- }
-
- else if ( 0x20 == ((UCHAR) c) )
- {
- printp( "<space>\n\n" );
- }
-
- else
- {
- printp( "%02X\n\n", (ULONG) c );
- }
- }
-
- else
- {
- printp( "\n\n Input Queue EMPTY ...\n\n" );
- }
-
- break;
- }
-
- default:
- {
- printp( "\n\n *** SYNTAX Error - Invalid P2 ...\n\n" );
- not_done_code = BOGUS_P2;
- break;
- }
- }
-
- break;
- }
-
-
- case LAN_OUT:
- {
-
- switch ( parm_1 )
- {
-
- case 0x0C: /* Clear and Reset Queue */
- {
- lan_init_queue( &lan_output_queue );
- printp( "\n\n Queue CLEARED/RESET ...\n\n" );
- break;
- }
-
- case 0x0D: /* Display Queue */
- {
- printp( "\n -- Output Queue --\n" );
- printp( "\n Head Index: %8X Tail Index: %8X\n\n ",
- (ULONG) lan_output_queue.head_index, (ULONG) lan_output_queue.tail_index );
-
- for ( i = 0; i < MAX_RS232_CHARS; ++i )
- {
- printp( " %02X", (ULONG) lan_output_queue.buf[ i ] );
-
- if ( 15 == (i % 16) )
- {
- int j;
-
- printp ( " " );
- for ( j = i - 15; j <= i; j++ )
- {
- if ( lan_output_queue.buf[ j ] >= ' ' &&
- lan_output_queue.buf[ j ] < 127 )
- printp ( "%c", lan_output_queue.buf[ j ] );
- else
- printp ( "." );
- }
- printp( "\n " );
- }
-
- else if ( 7 == (i % 8) )
- {
- printp( " " );
- }
-
- }
-
- printp( "\n" );
-
- break;
- }
-
- case 0x0F: /* Fetch next character in Queue */
- {
- c = lan_next_queue_char( &lan_output_queue );
-
- if ( c )
- {
- printp( "\n\n Next Character: " );
- if ( 0x21 <= c && c <= 0x7F )
- {
- printp( "%c\n\n", (ULONG) c );
- }
-
- else if ( 0x20 == c )
- {
- printp( "<space>\n\n" );
- }
-
- else
- {
- printp( "%02X\n\n", (ULONG) c );
- }
- }
-
- else
- {
- printp( "\n\n Input Queue EMPTY ...\n\n" );
- }
-
- break;
- }
-
- default:
- {
- printp( "\n\n *** SYNTAX Error - Invalid P2 ...\n\n" );
- not_done_code = BOGUS_P2;
- break;
- }
- }
-
- break;
- }
-
-
- case LAN_ECHO:
- {
-
- switch ( parm_1 )
- {
-
- case 0x0E:
- {
- test_echo = ENABLED;
- printp( "\n\n Test echo ENABLED ...\n\n" );
- break;
- }
-
- case 0x0D:
- {
- test_echo = DISABLED;
- printp( "\n\n Test echo DISABLED ...\n\n" );
- break;
- }
-
- default:
- {
- printp( "\n\n *** SYNTAX Error - Invalid P2 ...\n\n" );
- not_done_code = BOGUS_P2;
- break;
- }
- }
-
- break;
- }
-
-
- case LAN_PUTC:
- {
-
- if ( 0x20 < parm_1 && parm_1 < 0x7F )
- {
- if ( lan_put_char( (UCHAR) parm_1 ) )
- {
- printp( "\n\n *** 'lan_put_char' Error ...\n" );
- }
-
- else
- {
- printp( "\n\n O.K. ...\n" );
- }
-
- }
-
- else
- {
- printp( "\n\n *** Error - character must be in the 0x21-0x7E range ...\n" );
- not_done_code = BOGUS_P2;
- }
-
- break;
- }
-
-/***
- case LAN_WPM:
- {
-
- if ( write_to_protected_mem( (void *) parm_1, (unsigned short) parm_2 ) )
- {
- printp( "\n Write to protected memory FAILED ...\n" );
- }
-
- break;
- }
-***/
-
- case 0: /* no argument -- print menu */
- {
- lan_util_menu( );
- break;
- }
-
-
- default:
- {
- parm_2 = 0; /* to supress compiler warning with 'LAN_WPM' case disabled */
-
- printp( "\n\n *** SYNTAX Error - Invalid P1 ...\n\n" );
- not_done_code = BOGUS_P1;
- break;
- }
-
-
- } /* End of 'switch ( opcode )'. */
-
-
-return( not_done_code );
-}
-/* end of 'lan_util'
- *===========================================================================*/
-
-
- /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*
- * *
- * Local Module Functions *
- * *
- *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_reset
- *
- * DESCRIPTION: Resets the LAN UART by strobing the 'RST_LAN_UART' bit in the
- * Shared Control 1 area.
- *
- * 1 _| ______
- * | | |
- * Bit | | |
- * | | |
- * 0 _|______| |______
- * |---------------------> t
- *
- * RETURN VALUE: None.
- *
- * USED GLOBAL VARIABLES:
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- * NOTES: H/W configuration requires that a byte in the shared
- * control 1 area must be read before being written.
- *
- *---------------------------------------------------------------------------*/
-
-static void lan_reset( void )
-
-{
-
- while ( *P_RST_LAN_UART_REG & M_RST_LAN_UART )
- {
- *P_RST_LAN_UART_REG &= ~M_RST_LAN_UART; /* 0 */
- }
-
- while ( !(*P_RST_LAN_UART_REG & M_RST_LAN_UART) )
- {
- *P_RST_LAN_UART_REG |= M_RST_LAN_UART; /* 1 */
- }
-
- while ( *P_RST_LAN_UART_REG & M_RST_LAN_UART )
- {
- *P_RST_LAN_UART_REG &= ~M_RST_LAN_UART; /* 0 */
- }
-
-}
-/* end of 'lan_reset'
- *===========================================================================*/
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_configure
- *
- *
- * DESCRIPTION:
- *
- *
- * RETURN VALUE:
- *
- *
- * USED GLOBAL VARIABLES:
- *
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- *
- * NOTES:
- *
- *
- *
- *---------------------------------------------------------------------------*/
-
-static void lan_configure( void )
-
-{
-
- *P_LAN_CR = UART_CR_RESET_MR_PTR; /* Points to MR1. */
- *P_LAN_CR = UART_CR_RESET_RVCR; /* Receiver disabled. */
- *P_LAN_CR = UART_CR_RESET_XMTR; /* Transmitter disabled. */
- *P_LAN_CR = UART_CR_RESET_ERROR_STATUS;
- *P_LAN_CR = UART_CR_RESET_BRK_CHG_INT;
-
- *P_LAN_MR1 = DEFAULT_LAN_MR1;
- *P_LAN_MR2 = DEFAULT_LAN_MR2;
-
- *P_LAN_ACR = DEFAULT_LAN_ACR;
-
- *P_LAN_CSR = UART_CSR_BR_9600;
- baud_rate_idx = 2;
-
- *P_LAN_CTUR = DEFAULT_LAN_CTUR;
- *P_LAN_CTLR = DEFAULT_LAN_CTLR;
-
- *P_LAN_CR = (UART_CR_START_CNTR_TIMER | UART_CR_ENABLE_XMTR | UART_CR_ENABLE_RCVR);
-
- lan_shadow_imr = UART_IMR_RxRDY; /* Enable only 'RxRDY' interrupt from UART. */
- *P_LAN_IMR = lan_shadow_imr;
-
- tx_by_intr = 0;
- tx_by_poll = 0;
-
- return;
-}
-/* end of 'lan_configure'
- *===========================================================================*/
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_init_queue
- *
- * DESCRIPTION:
- *
- * RETURN VALUE: None.
- *
- * USED GLOBAL VARIABLES:
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- * NOTES:
- *
- *---------------------------------------------------------------------------*/
-
-static void lan_init_queue( T_RS232_QUEUE *p_queue )
-
-{
- long i;
-
- /*
- * We set "head" equal to "tail" implying the queue is empty,
- * BUT the "head" and "tail" should each point to valid queue
- * positions.
- */
-
- p_queue->head_index = 0;
- p_queue->tail_index = 0;
-
- p_queue->overflows = 0;
-
- p_queue->gdb_packet_start = -1;
- p_queue->gdb_packet_end = -1;
-
- p_queue->gdb_packet_csum1 = -1;
- p_queue->gdb_packet_csum2 = -1;
-
- for ( i = 0; i < MAX_RS232_CHARS; ++i )
- {
- p_queue->buf[ i ] = 0;
- }
-
- return;
-}
-/* end of 'lan_init_queue'
- *===========================================================================*/
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_add_to_queue
- *
- *
- * DESCRIPTION: Adds the specified character to the tail of the
- * specified queue. Observes "oldest thrown on floor"
- * rule (i.e. the queue is allowed to "wrap" and the
- * input character is unconditionally placed at the
- * tail of the queue.
- *
- *
- * RETURN VALUE: None.
- *
- *
- * USED GLOBAL VARIABLES:
- *
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- *
- * NOTES:
- *
- *
- *---------------------------------------------------------------------------*/
-
-static void lan_add_to_queue( long c, T_RS232_QUEUE *p_queue )
-
-{
-
- if ( p_queue ) /* Sanity check. */
- {
-
- if ( c & 0x000000FF ) /* We don't allow NULL characters to be added to a queue. */
- {
- /* Insert the new character at the tail of the queue. */
-
- p_queue->buf[ p_queue->tail_index ] = (UCHAR) (c & 0x000000FF);
-
- /* Increment the tail index. */
-
- if ( MAX_RS232_CHARS <= ++(p_queue->tail_index) )
- {
- p_queue->tail_index = 0;
- }
-
- /* Check for wrapping (i.e. overflow). */
-
- if ( p_queue->head_index == p_queue->tail_index )
- {
- /* If the tail has caught up to the head record the overflow . . . */
-
- ++(p_queue->overflows);
-
- /* . . . then increment the head index. */
-
- if ( MAX_RS232_CHARS <= ++(p_queue->head_index) )
- {
- p_queue->head_index = 0;
- }
-
- }
-
- } /* End of 'if ( c & 0x000000FF )'. */
-
- } /* End of 'if ( p_queue )'. */
-
-
- return;
-}
-/* end of 'lan_add_to_queue'
- *===========================================================================*/
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_next_queue_char
- *
- * DESCRIPTION:
- *
- * RETURN VALUE:
- *
- * USED GLOBAL VARIABLES:
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- * NOTES:
- *
- *---------------------------------------------------------------------------*/
-
-static UCHAR lan_next_queue_char( T_RS232_QUEUE *p_queue )
-
-{
- UCHAR c;
-
-
- c = 0;
-
- if ( p_queue )
- {
-
- if ( p_queue->head_index != p_queue->tail_index )
- {
- /* Return the 'oldest' character in the queue. */
-
- c = p_queue->buf[ p_queue->head_index ];
-
- /* Increment the head index. */
-
- if ( MAX_RS232_CHARS <= ++(p_queue->head_index) )
- {
- p_queue->head_index = 0;
- }
-
- }
-
- } /* End of 'if ( p_queue )'. */
-
-
- return( c );
-}
-
-/* end of 'lan_next_queue_char'
- *===========================================================================*/
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: lan_util_menu
- *
- * DESCRIPTION: Prints out a brief help on the LAN UART control utility.
- *
- * RETURN VALUE: None.
- *
- * USED GLOBAL VARIABLES: None.
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS: None.
- *
- * NOTES: None.
- *
- *---------------------------------------------------------------------------*/
-
-static void lan_util_menu( void )
-
-{
-
- /*
- * Multiply calling printp() below is made due to the limitations
- * of printp(), incapable of handling long formatting constants:
- */
-
- printp( "\n -- Options --\n\n" );
-
- printp( " %2X,'INIT' ............... Reset & (Re)INITIALIZE Interface.\n", (ULONG) LAN_UTIL_CODE );
- printp( " %2X,'BAUD',<rate> ........ Set BAUD Rate.\n", (ULONG) LAN_UTIL_CODE );
- printp( " %2X,'INTR',<mode> ........ Toggle 'RxRDY' Interrupts.\n", (ULONG) LAN_UTIL_CODE );
- printp( " %2X,'XMT',<mode> ......... Toggle TRANSMIT-via-backplane.\n", (ULONG) LAN_UTIL_CODE );
- printp( " %2X,'STAT' ............... Display STATUS.\n", (ULONG) LAN_UTIL_CODE );
- printp( " %2X,'ECHO',<mode> ........ Enable/Disable Test ECHO.\n", (ULONG) LAN_UTIL_CODE );
- printp( " %2X,'IN',<action> ........ Access INPUT Queue.\n", (ULONG) LAN_UTIL_CODE );
- printp( " %2X,'OUT',<action> ....... Access OUTPUT Queue.\n\n", (ULONG) LAN_UTIL_CODE );
-
- printp( " %2X,'PUTC',<char> ........ Output a Character (i.e. <char>).\n\n", (ULONG) LAN_UTIL_CODE );
-
-/***
- printp( " %2X,'WPM',address,word ... Write Protected Memory Test.\n\n", (ULONG) LAN_UTIL_CODE );
-***/
-
- printp( " <rate>: 4800 <mode>: E - enable <action>: C - clear/reset\n" );
- printp( " 9600 D - disable D - display\n" );
- printp( " 19200 F - fetch next char\n" );
- printp( " 38400\n" );
-}
-/* end of 'lan_util_menu'
- *===========================================================================*/
-
-
-/* Thu Feb 5 17:14:41 EST 1998 CYGNUS...CYGNUS...CYGNUS...CYGNUS...CYGNUS...CYGNUS...CYGNUS...CYGNUS */
-
-
-static long get_gdb_input( long c, T_RS232_QUEUE * p_input_q )
-
-{
-
- /* Now to detect when we've got a gdb packet... */
-
- if ( '$' == c ) { /* char marks beginning of a packet */
-
- if ( -1 != p_input_q->gdb_packet_start ||
- -1 != p_input_q->gdb_packet_end ||
- -1 != p_input_q->gdb_packet_csum1 ||
- -1 != p_input_q->gdb_packet_csum2 ) { /* PROTOCOL ERROR */
-
- /* NEW: Actually, this probably means that we muffed a packet,
- and GDB has already resent it. The thing to do now is to
- throw away the one we WERE working on, but immediately start
- accepting the new one. Don't NAK, or GDB will have to try
- and send it yet a third time! */
-
- /*NACK_PKT( );*/ /*<ETHERNET>*/
- discard_packet( ); /* throw away old packet */
- lan_add_to_queue ('$', p_input_q); /* put the new "$" back in */
- return 0;
- } else { /* match new "$" */
- p_input_q->gdb_packet_start = p_input_q->tail_index;
- p_input_q->gdb_packet_end =
- p_input_q->gdb_packet_csum1 =
- p_input_q->gdb_packet_csum2 = -1;
- }
- } else if ( '#' == c ) { /* # marks end of packet (except for checksum) */
-
- if ( -1 == p_input_q->gdb_packet_start ||
- -1 != p_input_q->gdb_packet_end ||
- -1 != p_input_q->gdb_packet_csum1 ||
- -1 != p_input_q->gdb_packet_csum2 ) { /* PROTOCOL ERROR */
-
- /* Garbled packet. Discard, but do not NAK. */
-
- /*NACK_PKT( );*/ /*<ETHERNET>*/
- discard_packet( );
- return -1;
- }
- p_input_q->gdb_packet_end = p_input_q->tail_index;
- p_input_q->gdb_packet_csum1 = p_input_q->gdb_packet_csum2 = -1;
-
- } else if ( -1 != p_input_q->gdb_packet_start &&
- -1 != p_input_q->gdb_packet_end) {
-
- if ( isxdigit( c ) ) { /* char is one of two checksum digits for packet */
-
- if ( -1 == p_input_q->gdb_packet_csum1 &&
- LAN_Q_MOD( p_input_q->gdb_packet_end + 1 ) ==
- p_input_q->tail_index ) {
-
- /* first checksum digit */
-
- p_input_q->gdb_packet_csum1 = p_input_q->tail_index;
- p_input_q->gdb_packet_csum2 = -1;
-
- } else if ( -1 == p_input_q->gdb_packet_csum2 &&
- LAN_Q_MOD( p_input_q->gdb_packet_end + 2 ) ==
- p_input_q->tail_index ) {
-
- /* second checksum digit: packet is complete! */
-
- p_input_q->gdb_packet_csum2 = p_input_q->tail_index;
- getpacket(); /* got a packet -- extract it */
-
- } else { /* probably can't happen (um... three hex digits?) */
-
- /* PROTOCOL ERROR */
- /* Not sure how this can happen, but ...
- discard it, but do not NAK it. */
- /*NACK_PKT( );*/ /*<ETHERNET>*/
- discard_packet( );
- return -1;
- }
-
- } else { /* '#' followed by non-hex char */
-
- /* PROTOCOL ERROR */
- /* Bad packet -- discard but do not NAK */
- /*NACK_PKT( );*/ /*<ETHERNET>*/
- discard_packet( );
- return -1;
- }
- }
-
- return 0;
-}
-
-
-
-
-#ifdef STANDALONE
-
-/* stand-alone stand-alone stand-alone stand-alone stand-alone stand-alone
- stand-alone stand-alone
- stand-alone Enable stand-alone build, for ease of debugging stand-alone
- stand-alone stand-alone
- stand-alone stand-alone stand-alone stand-alone stand-alone stand-alone */
-
-long write_to_protected_mem (addr, word)
- void *addr;
- unsigned short word;
-{
- return 0;
-}
-
-
-char dummy_memory[0x4000];
-
-int main ( void )
-{
- long c;
-
- lan_init_queue( &lan_input_queue );
- printf( "Stand-alone EMC 'stub', pid = %d\n", getpid( ) );
- printf( "Start of simulated 'memory': 0x%08x\n", &dummy_memory);
- while ( (c = getc( stdin ) ) != EOF )
- {
- if ( c == '\\' ) /* escape char */
- break;
-
- lan_add_to_queue( c, &lan_input_queue );
- get_gdb_input (c, &lan_input_queue);
- fflush( stdout );
- }
-
- printf( "Goodbye!\n" );
- exit( 0 );
-}
-
-#define SRAM_START ((void *) (&dummy_memory[0] + 0x00000000))
-#define SRAM_END ((void *) (&dummy_memory[0] + 0x00000400))
-
-#define RO_AREA_START ((void *) (&dummy_memory[0] + 0x00000100))
-#define RO_AREA_END ((void *) (&dummy_memory[0] + 0x00000300))
-
-#define NVD_START ((void *) (&dummy_memory[0] + 0x00003000))
-#define NVD_END ((void *) (&dummy_memory[0] + 0x00003100))
-
-#else /* normal stub (not stand-alone) */
-
-#define SRAM_START ((void *) 0x00000000)
-#define SRAM_END ((void *) 0x00400000)
-
-#define RO_AREA_START ((void *) 0x00100000)
-#define RO_AREA_END ((void *) 0x00300000)
-
-#define NVD_START ((void *) 0x03000000)
-#define NVD_END ((void *) 0x03100000)
-
-#endif /* STANDALONE */
-
-
-
-
-/* gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb
- gdb gdb
- gdb Here begins the gdb stub section. gdb
- gdb The following functions were added by Cygnus, gdb
- gdb to make this thing act like a gdb stub. gdb
- gdb gdb
- gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb gdb */
-
-
-/* ------------------- global defines and data decl's -------------------- */
-
-#define hexchars "0123456789abcdef"
-
-/* there are 180 bytes of registers on a 68020 w/68881 */
-/* many of the fpa registers are 12 byte (96 bit) registers */
-#define NUMREGBYTES 180
-#define NUMREGS 29
-#define REGISTER_BYTE(regno) regno
-
-enum regnames { D0, D1, D2, D3, D4, D5, D6, D7,
- A0, A1, A2, A3, A4, A5, A6, A7,
- PS, PC,
- FP0, FP1,
- FP2, FP3,
- FP4, FP5,
- FP6, FP7,
- FPCONTROL, FPSTATUS, FPIADDR
- };
-
-unsigned long registers[NUMREGBYTES/4];
-
-static long remote_debug;
-
-#define BUFMAX MAX_IO_BUF_SIZE
-static char inbuffer[BUFMAX], outbuffer[BUFMAX];
-static char spare_buffer[BUFMAX];
-
-
-struct stub_trace_frame
-{
- int valid;
- unsigned long frame_id;
- unsigned long tdp_id;
- FRAME_DEF *frame_data;
- COLLECTION_FORMAT_DEF *format;
- unsigned long traceregs[NUMREGBYTES/4];
- unsigned char *stack_data;
- unsigned char *memrange_data;
-} curframe;
-
-/* ------------------- function prototypes -------------------- */
-
-void handle_request ( char * );
-
-/* ------------------- Implementation -------------------- */
-
-static void
-discard_packet( void )
-{
- lan_input_queue.head_index = lan_input_queue.tail_index;
-
- lan_input_queue.gdb_packet_start =
- lan_input_queue.gdb_packet_end =
- lan_input_queue.gdb_packet_csum1 =
- lan_input_queue.gdb_packet_csum2 = -1;
-}
-
-/* Utility function: convert an ASCII isxdigit to a hex nybble */
-
-static long
-hex( char ch )
-{
- if ( (ch >= 'A') && (ch <= 'F') )
- return ch - 'A' + 10;
- if ( (ch >= 'a') && (ch <= 'f') )
- return ch - 'a' + 10;
- if ( (ch >= '0') && (ch <= '9') )
- return ch - '0';
- return -1;
-}
-
-static void
-getpacket( void )
-{
- unsigned char our_checksum, their_checksum;
- char *copy = inbuffer;
- unsigned char c;
-
- our_checksum = 0;
-
- /* first find the '$' */
- while ((c = lan_next_queue_char ( &lan_input_queue )) != '$')
- if (c == 0) /* ??? Protocol error? (paranoia) */
- {
- /* PROTOCOL ERROR (missing '$') */
- /*NACK_PKT( );*/ /*<ETHERNET>*/
- return;
- }
-
- /* Now copy the message (up to the '#') */
- for (c = lan_next_queue_char ( &lan_input_queue ); /* skip the '$' */
- c != 0 && c != '#'; /* stop at the '#' */
- c = lan_next_queue_char ( &lan_input_queue ))
- {
- *copy++ = c;
- our_checksum += c;
- }
- *copy++ = '\0'; /* terminate the copy */
-
- if (c == 0) /* ??? Protocol error? (paranoia) */
- {
- /* PROTOCOL ERROR (missing '#') */
- /*NACK_PKT( );*/ /*<ETHERNET>*/
- return;
- }
- their_checksum = hex( lan_next_queue_char ( &lan_input_queue ) ) << 4;
- their_checksum += hex( lan_next_queue_char ( &lan_input_queue ) );
-
- /* Now reset the queue packet-recognition bits */
- discard_packet( );
-
- if ( remote_debug ||
- our_checksum == their_checksum )
- {
- ACK_PKT( ); /* good packet */
- /* Parse and process the packet */
- handle_request( inbuffer );
- }
- else
- /* PROTOCOL ERROR (bad check sum) */
- NACK_PKT( );
-}
-
-/* EMC will provide a better implementation
- (perhaps just of LAN_PUT_CHAR) that does not block.
- For now, this works. */
-
-
-static void
-putpacket( char *str )
-{
- unsigned char checksum;
-
- /* '$'<packet>'#'<checksum> */
-
- if ( VIA_ETHERNET == gdb_host_comm )
- {
- char *p_out;
- long length;
-
- p_out = eth_outbuffer;
- length = 0;
-
-
- if ( YES == gdb_cat_ack )
- {
- *p_out++ = '+';
- ++length;
- }
-
- gdb_cat_ack = NO;
-
-
- *p_out++ = '$';
- ++length;
-
- checksum = 0;
-
- while ( *str )
- {
- *p_out++ = *str;
- ++length;
- checksum += *str++;
- }
-
- *p_out++ = '#';
- *p_out++ = hexchars[checksum >> 4];
- *p_out = hexchars[checksum % 16];
- length += 3;
-
- eth_to_gdb( (UCHAR *) eth_outbuffer, length );
- }
-
- else
- {
-
- /* via RS-232 */
- do {
- LAN_PUT_CHAR( '$' );
- checksum = 0;
-
- while ( *str )
- {
- LAN_PUT_CHAR( *str );
- checksum += *str++;
- }
-
- LAN_PUT_CHAR( '#' );
- LAN_PUT_CHAR( hexchars[checksum >> 4] );
- LAN_PUT_CHAR( hexchars[checksum % 16] );
- } while ( 0 /* get_debug_char( ) != '+' */ );
- /* XXX FIXME: not waiting for the ack. */
-
- }
-
-}
-
-
-/*-----------------------------------------------------------------------------
- *
- * FUNCTION NAME: gdb_get_eth_input
- *
- *
- * DESCRIPTION:
- *
- *
- * RETURN VALUE: None.
- *
- *
- * USED GLOBAL VARIABLES:
- *
- *
- * AFFECTED GLOBAL VARIABLES/SIDE EFFECTS:
- *
- *
- * NOTES:
- *
- *
- *---------------------------------------------------------------------------*/
-
-void gdb_get_eth_input( unsigned char *buf, long length )
-
-{
-
- gdb_host_comm = VIA_ETHERNET;
-
- for ( ; 0 < length; ++buf, --length)
- {
-
- if ( *buf == CONTROL_C )
- {
- /* can't stop the target, but we can tell gdb to stop waiting... */
- discard_packet( );
- putpacket( "S03" ); /* send back SIGINT to the debugger */
- }
-
- else
- {
- lan_add_to_queue( (long) *buf, &lan_input_queue );
- get_gdb_input( (long) *buf, &lan_input_queue );
- }
-
- }
-
-
- return;
-}
-/* end of 'gdb_get_eth_input'
- *===========================================================================*/
-
-
-
-
-/* STDOUT STDOUT STDOUT STDOUT STDOUT STDOUT STDOUT STDOUT STDOUT STDOUT
- Stuff pertaining to simulating stdout by sending chars to gdb to be echoed.
-
- Dear reader:
- This code is based on the premise that if GDB receives a packet
- from the stub that begins with the character CAPITAL-OH, GDB will
- echo the rest of the packet to GDB's console / stdout. This gives
- the stub a way to send a message directly to the user. In practice,
- (as currently implemented), GDB will only accept such a packet when
- it believes the target to be running (ie. when you say STEP or
- CONTINUE); at other times it does not expect it. This will probably
- change as a side effect of the "asynchronous" behavior.
-
- Functions: gdb_putchar(char ch)
- gdb_write(char *str, int len)
- gdb_puts(char *str)
- gdb_error(char *format, char *parm)
- */
-
-#if 0 /* avoid compiler warning while this is not used */
-
-/* Function: gdb_putchar(int)
- Make gdb write a char to stdout.
- Returns: the char */
-
-static int
-gdb_putchar( long ch )
-{
- char buf[4];
-
- buf[0] = 'O';
- buf[1] = hexchars[ch >> 4];
- buf[2] = hexchars[ch & 0x0F];
- buf[3] = 0;
- putpacket( buf );
- return ch;
-}
-#endif
-
-/* Function: gdb_write(char *, int)
- Make gdb write n bytes to stdout (not assumed to be null-terminated).
- Returns: number of bytes written */
-
-static int
-gdb_write( char *data, long len )
-{
- char *buf, *cpy;
- long i;
-
- buf = outbuffer;
- buf[0] = 'O';
- i = 0;
- while ( i < len )
- {
- for ( cpy = buf+1;
- i < len && cpy < buf + BUFMAX - 3;
- i++ )
- {
- *cpy++ = hexchars[data[i] >> 4];
- *cpy++ = hexchars[data[i] & 0x0F];
- }
- *cpy = 0;
- putpacket( buf );
- }
- return len;
-}
-
-/* Function: gdb_puts(char *)
- Make gdb write a null-terminated string to stdout.
- Returns: the length of the string */
-
-static int
-gdb_puts( char *str )
-{
- return gdb_write( str, strlen( str ) );
-}
-
-/* Function: gdb_error(char *, char *)
- Send an error message to gdb's stdout.
- First string may have 1 (one) optional "%s" in it, which
- will cause the optional second string to be inserted. */
-
-#if 0
-static void
-gdb_error( char *format, char *parm )
-{
- static char buf[400];
- char *cpy;
- long len;
-
- if ( remote_debug )
- {
- if ( format && *format )
- len = strlen( format );
- else
- return; /* empty input */
-
- if ( parm && *parm )
- len += strlen( parm );
-
- for ( cpy = buf; *format; )
- {
- if ( format[0] == '%' && format[1] == 's' ) /* include 2nd string */
- {
- format += 2; /* advance two chars instead of just one */
- while ( parm && *parm )
- *cpy++ = *parm++;
- }
- else
- *cpy++ = *format++;
- }
- *cpy = '\0';
- gdb_puts( buf );
- }
-}
-#endif
-
-static void gdb_note (char *, int);
-static int error_ret (int, char *, int);
-
-static unsigned long
-elinum_to_index (unsigned long elinum)
-{
- if ((elinum & 0xf0) == 0xd0)
- return (elinum & 0x0f);
- else if ((elinum & 0xf0) == 0xa0)
- return (elinum & 0x0f) + 8;
- else
- return -1;
-}
-
-static long
-index_to_elinum (unsigned long index)
-{
- if (index <= 7)
- return index + 0xd0;
- else if (index <= 15)
- return (index - 8) + 0xa0;
- else
- return -1;
-}
-
-
-/*
- READMEM READMEM READMEM READMEM READMEM READMEM READMEM READMEM READMEM
-
- The following code pertains to reading memory from the target.
- Some sort of exception handling should be added to make it safe.
-
- READMEM READMEM READMEM READMEM READMEM READMEM READMEM READMEM READMEM
-
- Safe Memory Access:
-
- All reads and writes into the application's memory will pass thru
- get_uchar() or set_uchar(), which check whether accessing their
- argument is legal before actual access (thus avoiding a bus error).
-
- */
-
-enum { SUCCESS = 0, FAIL = -1 };
-
-#if 0
-static long get_uchar ( const unsigned char * );
-#endif
-static long set_uchar ( unsigned char *, unsigned char );
-static long read_access_violation ( const void * );
-static long write_access_violation ( const void * );
-static long read_access_range(const void *, long);
-static DTC_RESPONSE find_memory(unsigned char *,long,unsigned char **,long *);
-
-static int
-dtc_error_ret (int ret, char *src, DTC_RESPONSE code)
-{
- if (src)
- sprintp (spare_buffer,
- "'%s' returned DTC error '%s'.\n", src, get_err_text (code));
- else
- sprintp (spare_buffer, "DTC error '%s'.\n", get_err_text (code));
-
- gdb_puts (spare_buffer);
- return ret;
-}
-
-
-#if 0
-/* I think this function is unnecessary since the introduction of
- adbg_find_memory_addr_in_frame. */
-
-/* Return the number of expressions in the format associated with a
- given trace frame. */
-static int
-count_frame_exprs (FRAME_DEF *frame)
-{
- CFD *format;
- T_EXPR *expr;
- int num_exprs;
-
- /* Get the format from the frame. */
- get_frame_format_pointer (frame, &format);
-
- /* Walk the linked list of expressions, and count the number of
- expressions we find there. */
- num_exprs = 0;
- for (expr = format->p_cfd_expr; expr; expr = expr->next)
- num_exprs++;
-
- return num_exprs;
-}
-#endif
-
-#if 0
-/* Function: get_frame_addr
- *
- * Description: If the input memory address was collected in the
- * current trace frame, then lookup and return the address
- * from within the trace buffer from which the collected byte
- * may be retrieved. Else return -1. */
-
-unsigned char *
-get_frame_addr ( const unsigned char *addr )
-{
- unsigned char *base, *regs, *stack, *mem;
- CFD *dummy;
- DTC_RESPONSE ret;
-
- /* first, see if addr is on the saved piece of stack for curframe */
- if (curframe.format->stack_size > 0 &&
- (base = (unsigned char *) curframe.traceregs[A7]) <= addr &&
- addr < base + curframe.format->stack_size)
- {
- gdb_puts("STUB: get_frame_addr: call get_addr_to_frame_regs_stack_mem\n");
- if ((ret = get_addr_to_frame_regs_stack_mem (curframe.frame_data,
- &dummy,
- (void *) &regs,
- (void *) &stack,
- (void *) &mem))
- != OK_TARGET_RESPONSE)
- return (void *) dtc_error_ret (-1,
- "get_addr_to_frame_regs_stack_mem",
- ret);
- else
- return stack + (addr - base);
- }
-
- /* Next, try to find addr in the current frame's expression-
- collected memory blocks. I'm sure this is at least quadradic in
- time. */
- {
- int num_exprs = count_frame_exprs (curframe.frame_data);
- int expr, block;
-
- /* Try each expression in turn. */
- for (expr = 0; expr < num_exprs; expr++)
- {
- for (block = 0; ; block++)
- {
- T_EXPR_DATA *data;
- if (adbg_get_expr_data (curframe.frame_data,
- 'x', expr, block,
- &data)
- != OK_TARGET_RESPONSE)
- break;
- else if ((unsigned char *) data->address <= addr
- && addr < ((unsigned char *) data->address + data->size))
- {
- /* We have found the right block; is it valid data?
- Upper-case stamps mean bad data. */
- if ('A' <= data->stamp && data->stamp <= 'Z')
- {
- gdb_puts("STUB: get_frame_addr: adbg_get_expr_data INVALID\n");
- return (unsigned char *) -1;
- }
- else
- {
- if (remote_debug > 1)
- {
- sprintp(spare_buffer,
- "STUB: get_frame_addr: got it [%x,%x)\n",
- data->address, data->address + data->size);
- gdb_puts(spare_buffer);
- }
-
- return (((unsigned char *) &data->data)
- + (addr - (unsigned char *) data->address));
- }
- }
- }
- }
- }
-
- /* not found, return error */
- return (unsigned char *) -1;
-}
-
-/*============================================================*/
-
-static long get_uchar ( const unsigned char * addr )
-{
- unsigned char *frame_addr;
-
- if ( read_access_violation ( addr ) )
- return ( -1 ); /* Access error */
-
- if (curframe.valid) /* if debugging a trace frame? */
- {
- /* If the requested address was collected in the current frame,
- * then fetch and return the data from the trace buffer.
- */
- if ((frame_addr = get_frame_addr (addr)) != (unsigned char *) -1)
- return ( *frame_addr );
- /* If the requested address is in the Code Section,
- * let's be magnanimous and read it anyway (else we shall
- * not be able to disassemble, find function prologues, etc.)
- */
- else if (CS_CODE_START <= (unsigned long) addr &&
- (unsigned long) addr < CS_CODE_START + CS_CODE_SIZE)
- return (*addr);
- else
- return ( -1 ); /* "Access error" (the data was not collected) */
- }
- else
- /* Not debugging a trace frame, read the data from live memory. */
- return ( *addr ); /* Meaningful result >= 0 */
-}
-#endif
-
-/*============================================================*/
-
-static long set_uchar ( unsigned char * addr, unsigned char val )
-{
- long check_result = write_access_violation ( addr );
-
- if ( check_result != 0L )
- return ( check_result ); /* Access error */
-
- return ( *addr = val ); /* Successful writing */
-}
-
-/*============================================================*/
-
-/*
- * Function read_access_violation() below returns TRUE if dereferencing
- * its argument for reading would cause a bus error - and FALSE otherwise:
- */
-
-static long read_access_violation ( const void * addr )
-{
- return ( ( ( addr < SRAM_START ) || ( addr >= SRAM_END ) ) &&
- ( ( addr < NVD_START ) || ( addr >= NVD_END ) ) );
-}
-
-/*============================================================*/
-
-/*
- * Function write_access_violation() below returns zero if dereferencing
- * its argument for writing is safe, -1 on a soft error (the argument
- * falls into the write-protected area), -2 on a hard error (the argument
- * points to a non-existent memory location). In other words, it returns
- * FALSE when no bus error is expected - and an error code otherwise:
- */
-
-static long write_access_violation ( const void * addr )
-{
- /*
- * The boundaries of the write-protected area have to be received via
- * an API provided in the Symmetrix core code. For now, these limits
- * are hard-coded:
- */
-
- if ( ( addr >= RO_AREA_START ) && ( addr < RO_AREA_END ) )
- return ( -1 ); /* soft error */
-
- if ( ( ( addr < SRAM_START ) || ( addr >= SRAM_END ) ) &&
- ( ( addr < NVD_START ) || ( addr >= NVD_END ) ) )
- return ( -2 ); /* hard error */
-
- return ( 0 );
-}
-
-
-/* read_access_range is like read_access_violation,
- but returns the number of bytes we can read w/o faulting.
- that is, it checks an address range and tells us what portion
- (if any) of the prefix is safe to read without a bus error */
-static long
-read_access_range(const void *addr, long count)
-{
- if ((addr >= SRAM_START) && (addr < SRAM_END))
- {
- if ((char *)addr + count < (char *)SRAM_END)
- return (count);
- else
- return ((char *)SRAM_END - (char *)addr);
- }
- else if (((char *)addr >= (char *)NVD_START) &&
- ((char *)addr < (char *)NVD_END))
- {
- if ((char *)addr + count < (char *)NVD_END)
- return (count);
- else
- return ((char *)NVD_END - (char *)addr);
- }
- else
- return (0);
-}
-
-/* Convert the memory pointed to by mem into hex, placing result in buf.
- Return SUCCESS or FAIL.
- If MAY_FAULT is non-zero, then we should return FAIL in response to
- a fault; if zero treat a fault like any other fault in the stub. */
-
-static long
-mem2hex(unsigned char *mem, char *buf, long count, long may_fault)
-{
- long ndx;
- long ndx2;
- long ch;
- long incr;
- unsigned char *location;
- DTC_RESPONSE status;
-
- if (may_fault)
- {
- for (ndx = 0, incr = 1; (ndx < count) && (incr > 0); ndx += incr)
- {
- status = find_memory(mem, count - ndx, &location, &incr);
-
- if (status == OK_TARGET_RESPONSE)
- {
- if (incr > 0)
- {
- for (ndx2 = 0; ndx2 < incr; ndx2++)
- {
- ch = *location++;
- *buf++ = hexchars[ch >> 4];
- *buf++ = hexchars[ch & 0xf];
- }
- mem += incr;
- }
- else if (incr <= 0) /* should never happen */
- {
- *buf = 0;
- return (0);
- }
- }
- else if (status == NOT_FOUND_TARGET_RESPONSE)
- {
- *buf = 0;
- return (ndx); /* return amount copied */
- }
- else
- {
- *buf = 0;
- return (0); /* XXX: how do we tell the user the status? */
- }
- }
- *buf = 0;
- return (count);
- }
- else
- {
- for (ndx = 0; ndx < count; ndx++)
- {
- ch = *mem++;
- *buf++ = hexchars[ch >> 4];
- *buf++ = hexchars[ch & 0xf];
- }
- *buf = 0;
- return (count); /* we copied everything */
- }
-}
-
-static DTC_RESPONSE
-find_memory(unsigned char *mem, long count,
- unsigned char **location, long *incr)
-{
- DTC_RESPONSE retval;
- long length;
-
- /* figure out how much of the memory range we can read w/o faulting */
- count = read_access_range(mem, count);
- if (count == 0)
- return (NOT_FOUND_TARGET_RESPONSE);
-
- if (curframe.valid)
- {
- unsigned char *mem_block;
- unsigned char *mem_addr;
- unsigned long mem_size;
- unsigned long mem_stamp;
-
- retval = adbg_find_memory_addr_in_frame(curframe.frame_data, mem,
- (unsigned long **)&mem_block,
- (unsigned long **)&mem_addr,
- &mem_size, &mem_stamp);
-
- switch (retval)
- {
- case OK_TARGET_RESPONSE:
-#if 0
- printp("FOUND: mem %x block %x addr %x size %d stamp %x\n",
- mem, mem_block, mem_addr, mem_size, mem_stamp);
-#endif
- *location = mem_block + (mem - mem_addr);
- length = mem_size - (mem - mem_addr);
-
- if (length < count)
- *incr = length;
- else
- *incr = count;
-
- break;
-
- case NOT_FOUND_TARGET_RESPONSE:
- case NEAR_FOUND_TARGET_RESPONSE:
-#if 0
- printp("NOT FOUND: mem %x, checking code region\n", mem);
-#endif
- /* check to see if it's in the code region */
- if ((CS_CODE_START <= (long)mem) &&
- ((long)mem < CS_CODE_START + CS_CODE_SIZE))
- {
- /* some or all of the address range is in the code */
- *location = mem;
- if ((long)mem + count <= CS_CODE_START + CS_CODE_SIZE)
- *incr = count; /* it's totally in the code */
- else
- /* how much is in the code? */
- *incr = CS_CODE_START + CS_CODE_SIZE - (long)mem;
-#if 0
- printp("FOUND in code region: %x\n", mem);
-#endif
- retval = OK_TARGET_RESPONSE;
- }
- else
- retval = NOT_FOUND_TARGET_RESPONSE;
-
- break;
-
- default:
-#if 0
- printp("BAD RETURN: %d\n", retval);
-#endif
- retval = NOT_FOUND_TARGET_RESPONSE;
- break;
- }
- }
- else
- {
- *location = mem;
- *incr = count;
- retval = OK_TARGET_RESPONSE;
- }
-
- return (retval);
-}
-
-/* Convert the hex array pointed to by buf into binary to be placed in mem.
- Return SUCCESS or FAIL. */
-
-static long
-hex2mem( char *buf, unsigned char *mem, long count, long may_fault )
-{
- long i, ch;
-
- for ( i=0; i<count; i++ )
- {
- ch = hex( *buf++ ) << 4;
- ch = ch + hex( *buf++ );
- if ( may_fault )
- {
- ch = set_uchar( mem++, ch );
- if ( ch < 0 ) /* negative return indicates error */
- return FAIL;
- }
- else
- *mem++ = ch;
- }
- return SUCCESS;
-}
-
-/**********************************************/
-/* WHILE WE FIND NICE HEX CHARS, BUILD AN INT */
-/* RETURN NUMBER OF CHARS PROCESSED */
-/**********************************************/
-
-static int
-hexToInt( char **ptr, unsigned long *intValue )
-{
- long numChars = 0;
- long hexValue;
-
- *intValue = 0;
- while ( **ptr )
- {
- hexValue = hex( **ptr );
- if ( hexValue >=0 )
- {
- *intValue = (*intValue << 4) | hexValue;
- numChars ++;
- }
- else
- break;
- (*ptr)++;
- }
- return numChars;
-}
-
-static volatile long gdb_handling_trap1;
-static volatile long gdb_handling_sstrace;
-static volatile long gdb_signo;
-
-/*
- Here is the "callable" stub entry point.
- Call this function with a GDB request as an argument,
- and it will service the request and return.
-
- May be further broken up as we go along, with individual requests
- broken out as separate functions.
- */
-
-static char * handle_trace_query (char *);
-static char * handle_trace_set (char *);
-static int handle_format (char **request, CFD *format);
-static unsigned long crc32 (unsigned char *buf, int len, unsigned long crc);
-static char * crc_query (char *);
-static char * handle_test (char *);
-
-void
-handle_request( char *request )
-{
-#if 0
- remote_debug = 2;
-#endif
- switch( *request++ )
- {
- case 'k': /* "kill" */
- curframe.valid = FALSE;
- putpacket ("");
- break;
- case 'D': /* "detach" */
- curframe.valid = FALSE;
- putpacket ("");
- break;
- default: /* Unknown code. Return an empty reply message. */
- putpacket( "" ); /* return empty packet */
- break;
-
- case 'H': /* Set thread for subsequent operations.
- Hct... c = 'c' for thread used in step and continue;
- t... can be -1 for all threads.
- c = 'g' for thread used in other operations.
- If zero, pick a thread, any thread. */
-
- putpacket( "OK" );
- break;
-
- case 'g': /* Read registers.
- Each byte of register data is described by
- two hex digits. registers are in the
- internal order for GDB, and the bytes in a
- register are in the same order the machine
- uses. */
- {
- /* Return the values in (one of) the registers cache(s).
- Several situations may pertain:
- 1) We're synchronous, in which case the "registers" array
- should actually be current.
- 2) We're asynchronous, in which case the "registers" array
- holds whatever was cached most recently.
- 3) We're looking at a trace frame that was collected earlier:
- we will return those earlier registers.
- */
-
- /* all registers default to zero */
- memset (outbuffer, '0', NUMREGBYTES);
- outbuffer[NUMREGBYTES] = '\0';
-
- if (curframe.valid) /* debugging a trace frame */
- mem2hex( (unsigned char*) curframe.traceregs,
- outbuffer, NUMREGBYTES, 0 );
- else
- mem2hex( (unsigned char*) registers, outbuffer, NUMREGBYTES, 0 );
-
- putpacket( outbuffer );
- }
- break;
- case 'G': /* Write registers.
- Gxxxxxxxx Each byte of register data is described by
- two hex digits. */
- if (curframe.valid) /* debugging a trace frame */
- putpacket ("E03"); /* can't write regs into a trace frame! */
- else
- {
- /* Write the values into the local registers cache...
- Note that no actual registers are being changed. */
-
- hex2mem( request,
- (unsigned char *) registers, NUMREGBYTES, 0 );
- putpacket( "OK" );
- }
- break;
- case 'P': /* Write (single) register.
- Pnn=xxxxxxxx register nn gets value xxxxxxxx;
- two hex digits for each byte in the register
- (target byte order). */
-
- if (curframe.valid)
- putpacket ("E03"); /* can't write regs into a trace frame! */
- else
- {
- unsigned long regno;
-
- if ( hexToInt( &request, &regno ) && *(request++) == '=' )
- {
- if ( regno < NUMREGS )
- {
- hexToInt( &request,
- (unsigned long *) &registers[REGISTER_BYTE(regno)]);
-
- putpacket( "OK" );
- }
- else
- putpacket( "E01" ); /* bad packet or regno */
- }
- }
- break;
- case 'm': /* Read memory.
- mAAAAAAAA,LLLL AAAAAAAA is address, LLLL is length.
- Reply can be fewer bytes than requested
- if able to read only part of the data. */
- {
- unsigned long addr, len;
-
- if ( hexToInt( &request, &addr ) &&
- *(request++) == ',' &&
- hexToInt( &request, &len ) )
- {
- /* better not overwrite outbuffer! */
- if ( len > (BUFMAX / 2) - 5 )
- len = (BUFMAX / 2) - 5;
- if (mem2hex((unsigned char *) addr, outbuffer, len, 1) == 0) /* XXX: eventually use returned value */
- putpacket( "E03" ); /* read fault (access denied) */
- else
- putpacket( outbuffer ); /* read succeeded */
- }
- else
- putpacket( "E01" ); /* badly formed read request */
-
- }
- break;
- case 'M': /* Write memory.
- Maaaaaaaa,llll:xxxx aaaaaaaa is address, llll is length;
- xxxx is data to write. */
-
- {
- unsigned long addr, len;
-
- if (curframe.valid) /* can't write memory into a trace frame! */
- putpacket ("E03"); /* "access denied" */
- else /*** if ( write_access_enabled ) ***/
- {
- if ( hexToInt( &request, &addr ) &&
- *(request++) == ',' &&
- hexToInt( &request, &len ) &&
- *(request++) == ':' )
- {
- if (len == 2 &&
- addr >= CS_CODE_START &&
- addr <= LAST_CS_WORD)
- {
- unsigned long val;
-
- if ( !hexToInt( &request, &val ) ||
- write_to_protected_mem( (void *)addr, val ) )
- putpacket( "E03" ); /* write fault (access denied) */
- else
- putpacket( "OK" ); /* write succeeded */
- }
- else
- {
- if ( hex2mem( request, (unsigned char*) addr, len, 1 ) )
- putpacket( "E03" ); /* write fault (access denied) */
- else
- putpacket( "OK" ); /* write succeeded */
- }
- }
- else
- putpacket( "E02" ); /* badly formed write request */
- }
- }
- break;
- case 'c': /* Continue.
- cAAAAAAAA AAAAAAAA is address from which to resume.
- If omitted, resume at current PC. */
-
- {
- unsigned long addr;
-
- if (curframe.valid)
- {
- /* Don't continue if debugging a trace frame! */
- gdb_puts ("Error: can't continue!\n");
- putpacket ("S03");
- }
- else
- {
- gdb_signo = 3;
- if (isxdigit(request[0]))
- {
- hexToInt(&request, &addr);
- registers[REGISTER_BYTE(PC)] = addr;
- }
-
- gdb_handling_trap1 = FALSE;
- gdb_handling_sstrace = FALSE;
- sss_trace_flag = '\0';
- }
- }
- break;
- case 's': /* Step.
- sAAAAAAAA AAAAAAAA is address from which to begin stepping.
- If omitted, begin stepping at current PC. */
- {
- unsigned long addr;
-
- if (curframe.valid)
- {
- /* Don't step if debugging a trace frame! */
- gdb_puts ("Error: can't step!\n");
- putpacket ("S03");
- }
- else
- {
- gdb_signo = 3;
- if (isxdigit(request[0]))
- {
- hexToInt(&request, &addr);
- registers[REGISTER_BYTE(PC)] = addr;
- }
-
- gdb_handling_trap1 = FALSE;
- gdb_handling_sstrace = FALSE;
- sss_trace_flag = 't';
- }
- }
- break;
- case 'C': /* Continue with signal.
- Cxx;AAAAAAAA xx is signal number in hex;
- AAAAAAAA is adddress from which to resume.
- If ;AAAAAAAA omitted, continue from PC. */
-
- {
- unsigned long addr = 0;
-
- if (!gdb_handling_trap1 || curframe.valid)
- {
- /* Don't continue if not currently in synchronous mode,
- or if currently debugging a trace frame! */
- gdb_puts( "Error: can't continue!\n" );
- putpacket( "S03" ); /* "sigquit" (better idea?) */
- }
- else
- {
- gdb_signo = 3;
- if ( isxdigit( *request ) )
- {
- hex2mem( request, (unsigned char *) &gdb_signo, 2, 0 );
- request += 2;
- if ( *request == ';' && isxdigit( *++request ) )
- {
- hexToInt( &request, &addr );
- registers[REGISTER_BYTE(PC)] = addr;
- }
- }
- gdb_handling_trap1 = FALSE;
- gdb_handling_sstrace = FALSE;
- sss_trace_flag = '\0';
- }
- }
- break;
- case 'S': /* Step with signal.
- Sxx;AAAAAAAA xx is signal number in hex;
- AAAAAAAA is adddress from which to begin stepping.
- If ;AAAAAAAA omitted, begin stepping from PC. */
- {
- unsigned long addr = 0;
-
- if (!gdb_handling_trap1 || curframe.valid)
- {
- /* Don't step if not currently in synchronous mode,
- or if currently debugging a trace frame! */
- gdb_puts( "Error: can't step!\n" );
- putpacket( "S03" ); /* "sigquit" (better idea?) */
- }
- else
- {
- gdb_signo = 3;
- if ( isxdigit( *request ) )
- {
- hex2mem( request, (unsigned char *) &gdb_signo, 2, 0 );
- request += 2;
- if ( *request == ';' && isxdigit( *++request ) )
- {
- hexToInt( &request, &addr );
- registers[REGISTER_BYTE(PC)] = addr;
- }
- }
- gdb_handling_trap1 = FALSE;
- gdb_handling_sstrace = FALSE;
- sss_trace_flag = 't';
- }
- }
- break;
- case '?': /* Query the latest reason for stopping.
- Should be same reply as was last generated
- for step or continue. */
-
- if ( gdb_signo == 0 )
- gdb_signo = 3; /* default to SIGQUIT */
- outbuffer[ 0 ] = 'S';
- outbuffer[ 1 ] = hexchars[ gdb_signo >> 4 ];
- outbuffer[ 2 ] = hexchars[ gdb_signo & 0xf ];
- outbuffer[ 3 ] = 0;
- putpacket( outbuffer );
- break;
-
- case 'd': /* Toggle debug mode
- I'm sure we can think of something interesting. */
-
- remote_debug = !remote_debug;
- putpacket( "" ); /* return empty packet */
- break;
-
- case 'q': /* general query */
- switch (*request++)
- {
- default:
- putpacket (""); /* nak a request which we don't handle */
- break;
- case 'T': /* trace query */
- putpacket (handle_trace_query (request));
- break;
- case 'C': /* crc query (?) */
- if (*request++ == 'R' &&
- *request++ == 'C' &&
- *request++ == ':')
- putpacket (crc_query (request));
- else
- putpacket (""); /* unknown query */
- break;
- }
- break;
-
- case 'Q': /* general set */
- switch (*request++)
- {
- default:
- putpacket (""); /* nak a request which we don't handle */
- break;
- case 'T': /* trace */
- putpacket (handle_trace_set (request));
- break;
- }
- break;
-
- case 'T':
- /* call test function: TAAA,BBB,CCC
- A, B, and C are arguments to pass to gdb_c_test. Reply is
- "E01" (bad arguments) or "OK" (test function called). */
- putpacket (handle_test (request));
- break;
- }
-}
-
-static TDP_SETUP_INFO tdp_temp;
-static int trace_running;
-
-/*
- * Function msgcmp:
- *
- * If second argument (str) is matched in first argument,
- * then advance first argument past end of str and return "SAME"
- * else return "DIFFERENT" without changing first argument.
- *
- * Return: zero for DIFFERENT, non-zero for SUCCESS
- */
-
-static int
-msgcmp (char **msgp, char *str)
-{
- char *next;
-
- if (msgp != 0 && str != 0) /* input validation */
- if ((next = *msgp) != 0)
- {
- for (;
- *next && *str && *next == *str;
- next++, str++)
- ;
-
- if (*str == 0) /* matched all of str in msg */
- return (int) (*msgp = next); /* advance msg ptr past str */
- }
- return 0; /* failure */
-}
-
-static char *
-handle_trace_query (char *request)
-{
- if (msgcmp (&request, "Status"))
- {
- if (adbg_check_if_active ())
- {
- gdb_puts ("Target trace is running.\n");
- return "T1";
- }
- else
- {
- gdb_puts ("Target trace not running.\n");
- trace_running = 0;
- return "T0";
- }
- }
- else /* unknown trace query */
- {
- return "";
- }
-}
-
-static void
-gdb_note (char *fmt, int arg1)
-{
- if (remote_debug > 1)
- {
- sprintp (spare_buffer, fmt, arg1);
- gdb_puts (spare_buffer);
- }
-}
-
-static int
-error_ret (int ret, char *fmt, int arg1)
-{
- if (remote_debug > 0)
- {
- sprintp (spare_buffer, fmt, arg1);
- gdb_puts (spare_buffer);
- }
- return ret;
-}
-
-static int
-handle_format (char **request, COLLECTION_FORMAT_DEF *format)
-{
- MEMRANGE_DEF m;
- DTC_RESPONSE ret;
- int elinum;
- unsigned long regnum;
- long bytecodes[(MAX_BYTE_CODES + sizeof (struct t_expr_tag))/ 4];
- struct t_expr_tag *t_expr = (struct t_expr_tag *)bytecodes;
-
- if (format->id == 0)
- {
- if ((ret = get_unused_format_id (&format->id)) != OK_TARGET_RESPONSE)
- return dtc_error_ret (-1, "get_unused_format_id", ret);
-
- if (**request == 'R')
- {
- (*request)++;
- hexToInt (request, &format->regs_mask);
- }
- gdb_note ("STUB: call define_format (id = %d, ", format->id);
- gdb_note ("regs_mask = 0x%X);\n", format->regs_mask);
-
- if ((ret = define_format (format)) != OK_TARGET_RESPONSE)
- {
- sprintp (spare_buffer,
- "'define_format': DTC error '%s' for format id %d.\n",
- get_err_text (ret),
- format->id);
- gdb_puts (spare_buffer);
- return -1;
- }
- }
-
- while ((**request == 'M') || (**request == 'X'))
- {
- switch (**request)
- {
- case 'M': /* M<regnum>,<offset>,<size> */
- (*request)++;
- hexToInt(request, &regnum);
-
- if (regnum == 0 || regnum == (unsigned long) -1)
- m.typecode = -1;
- else if ((elinum = index_to_elinum (regnum)) > 0)
- m.typecode = elinum;
- else
- return error_ret (-1,
- "Memrange register %d is not between 0 and 15\n",
- regnum);
-
- if (*(*request)++ != ',')
- return error_ret (-1,"Malformed memrange (comma #%d missing)\n",1);
- hexToInt(request, &m.offset);
- if (*(*request)++ != ',')
- return error_ret (-1,"Malformed memrange (comma #%d missing)\n",2);
- hexToInt(request, &m.size);
-
- gdb_note ("STUB: call add_format_mem_range (typecode = 0x%x, ",
- m.typecode);
- gdb_note ("offset = 0x%X, ", m.offset);
- gdb_note ("size = %d);\n", m.size);
- if ((ret = add_format_mem_ranges (format->id, &m)) !=
- OK_TARGET_RESPONSE)
- {
- dtc_error_ret (-1, "add_format_mem_ranges", ret);
- sprintp (spare_buffer,
- "format id %d: memrange (0x%x, 0x%x, 0x%x).\n",
- format->id, m.typecode, m.offset, m.size);
- gdb_puts (spare_buffer);
- return -1;
- }
- break;
-
- case 'X': /* X<length>,<bytecodes> */
- {
- unsigned long length;
-
- (*request)++;
- hexToInt(request, &length);
-
- if ((length <= 0) || (length > MAX_BYTE_CODES))
- return error_ret (-1,
- "Bytecode expression length (%d) too large\n",
- length);
-
- if (*(*request)++ != ',')
- return error_ret (-1,
- "Malformed bytecode expr (comma#%d missing)\n",
- 1);
- t_expr->next = NULL;
- /* subtract one to account for expr[0] in header */
- t_expr->size = sizeof(struct t_expr_tag) + length - 1;
- t_expr->expr_size = length;
-
- hex2mem(*request, &t_expr->expr[0], length, 0);
- *request += 2 * length;
- build_and_add_expression(format->id, t_expr);
- }
- break;
- }
- }
- return 0;
-}
-
-static char *
-handle_trace_set (char *request)
-{
- long n_frame;
- unsigned long frameno, tdp, pc, start, stop;
- DTC_RESPONSE ret = -1;
- static COLLECTION_FORMAT_DEF tempfmt1;
- static char enable;
- static char retbuf[20];
-
- if (msgcmp (&request, "init"))
- {
- gdb_note ("STUB: call clear_trace_state();\n", 0);
- curframe.valid = 0; /* all old frames become invalid now */
- if ((ret = clear_trace_state ()) == OK_TARGET_RESPONSE)
- return "OK";
- else
- {
- sprintp (retbuf, "E2%x", ret);
- return (char *) dtc_error_ret ((int) &retbuf,
- "clear_trace_state",
- ret);
- }
- }
- else if (msgcmp (&request, "Start"))
- {
- trace_running = 1;
- curframe.valid = 0; /* all old frames become invalid now */
- gdb_note ("STUB: call start_trace_experiment();\n", 0);
- adbg_save_trace_in_nvd ();
- if ((ret = start_trace_experiment ()) == OK_TARGET_RESPONSE)
- return "OK";
- else
- {
- sprintp (retbuf, "E2%x", ret);
- return (char *) dtc_error_ret ((int) &retbuf,
- "start_trace_experiment",
- ret);
- }
- }
- else if (msgcmp (&request, "Stop"))
- {
- trace_running = 0;
- if (adbg_check_if_active ())
- {
- gdb_note ("STUB: call end_trace_experiment();\n", 0);
- if ((ret = end_trace_experiment ()) == OK_TARGET_RESPONSE)
- return "OK";
- else
- {
- sprintp (retbuf, "E2%x", ret);
- return (char *) dtc_error_ret ((int) &retbuf,
- "end_trace_experiment",
- ret);
- }
- }
- else return "OK";
- }
- /* "TDP:" (The 'T' was consumed in handle_request.) */
- else if (msgcmp (&request, "DP:"))
- {
- /* TDP:<id>:<addr>:{D,E}:<stepcount>:<pass_limit>{R[M,X]+}<tdp-format>
- {S{R[M,X]+}}<tp-format>
-
- D -- disable tracepoint (illegal from EMC's point of view)
- E -- enable tracepoint?
-
- R -- regs format: R<regs-mask>
- M -- memory format: M<regnum>,<offset>,<size>
- X -- expr format: X<size>,<bytecodes>
- S -- fencepost between trap formats and stepping formats.
- */
-
- /* state variable, required for splitting TDP packets. */
- static int doing_step_formats;
-
- /*
- * TDP: packets may now be split into multiple packets.
- * If a TDP packet is to be continued in another packet, it
- * must end in a "-" character. The subsequent continuation
- * packet will then begin with a "-" character, between the
- * token "TDP:" and the tdp_id field. The ID and address
- * will be repeated in each sub-packet. The step_count,
- * pass_count, and 'enabled' field must appear in the first
- * packet. The boundary between sub-packets may not appear
- * between the "S" that denotes the start of stepping "formats",
- * and the regs_mask that follows it. The split may also not
- * occur in the middle of either a memrange description or a
- * bytecode string. -- MVS
- */
-
- if (*request == '-') /* this is a continuation of a
- trace definition in progress */
- {
- unsigned long temp_id, temp_addr;
-
- request++;
- if (!(hexToInt (&request, &temp_id) &&
- *request++ == ':'))
- return "E11"; /* badly formed packet, field 1 */
-
- if (!(hexToInt (&request, (unsigned long *) &temp_addr) &&
- *request++ == ':'))
- return "E12"; /* badly formed packet, field 2 */
-
- if (temp_id != tdp_temp.id)
- return "E11"; /* something wrong: field 1 doesn't match */
- if (temp_addr != (unsigned long) tdp_temp.addr)
- return "E12"; /* something wrong: field 2 doesn't match */
- }
- else /* This is a new TDP definition */
- {
- memset ((char *) &tdp_temp, 0, sizeof (tdp_temp));
- memset ((char *) &tempfmt1, 0, sizeof (tempfmt1));
- doing_step_formats = FALSE;
-
- if (!(hexToInt (&request, &tdp_temp.id) &&
- *request++ == ':'))
- return "E11"; /* badly formed packet, field 1 */
-
- if (!(hexToInt (&request, (unsigned long *) &tdp_temp.addr) &&
- *request++ == ':'))
- return "E12"; /* badly formed packet, field 2 */
-
- if (!(((enable = *request++) == 'D' || enable == 'E') &&
- *request++ == ':'))
- return "E13"; /* badly formed packet, field 3 */
-#if 0
- if (enable == 'D')
- {
- gdb_puts ("Disabling of tracepoints not supported by EMC target\n");
- return "E20";
- }
-#endif
- if (!(hexToInt (&request, &tdp_temp.stepcount) &&
- *request++ == ':'))
- return "E14"; /* badly formed packet, field 4 */
-
- if (!hexToInt (&request, &tdp_temp.pass_limit))
- return "E15"; /* badly formed packet, field 5 */
-
- }
-
- /* Typically, the first group of collection descriptors
- refers to the trap collection. There is an "S" token
- to act as a fencepost between collection descriptors for
- the trap, and those for the single-stepping.
-
- However, when the packet is split up into several packets,
- this "S" token may already have been seen in a previous
- sub-packet; so we have to remember it in a state variable. */
-
- if (*request == 'R' || *request == 'M' || *request == 'X')
- {
- if (handle_format (&request, &tempfmt1))
- return "E16";
- if (doing_step_formats)
- tdp_temp.tp_format_p = tempfmt1.id;
- else
- tdp_temp.tdp_format_p = tempfmt1.id;
- }
-
- /* When we see the "S" token, we remember it in a state variable
- (in case the packet is split up and continued in another message),
- and discard all current state from the collection "format". */
- if (*request == 'S')
- {
- doing_step_formats = TRUE;
- /* discard prev format and start a new one */
- memset ((char *) &tempfmt1, 0, sizeof (tempfmt1));
- request++;
-
- /* Having seen the "S" fencepost, it is now possible that
- we will see some more collection descriptors pertaining
- to the stepping collection. */
- if (*request == 'R' || *request == 'M' || *request == 'X')
- {
- if (handle_format (&request, &tempfmt1))
- return "E17";
- /* new format ID is tp_format */
- tdp_temp.tp_format_p = tempfmt1.id;
- }
- }
-
- if (*request == '-') /* this TDP definition will be continued. */
- sprintp (retbuf, "OK");
- else if (enable == 'E') /* end of TDP definition: pass to ADBG (if enabled!) */
- {
- gdb_note ("STUB: call define_tdp (id %d, ", tdp_temp.id);
- gdb_note ("addr 0x%X, ", (int) tdp_temp.addr);
- gdb_note ("passc %d, ", tdp_temp.pass_limit);
- gdb_note ("stepc %d, ", tdp_temp.stepcount);
- gdb_note ("TDP fmt #%d, ", tdp_temp.tdp_format_p);
- gdb_note ("TP fmt #%d);\n", tdp_temp.tp_format_p);
-
- ret = define_tdp (tdp_temp.id, &tdp_temp, 0);
-
- if (ret == OK_TARGET_RESPONSE)
- {
- sprintp (retbuf, "OK");
- }
- else
- {
- sprintp (spare_buffer,
- "'define_tdp' returned DTC error '%s' for tracepoint %d.\n",
- get_err_text (ret),
- tdp_temp.id);
- gdb_puts (spare_buffer);
- sprintp (retbuf, "E2%x", ret);
- }
- /* Redundant, but let's try to make sure this state gets discarded. */
- {
- memset ((char *) &tdp_temp, 0, sizeof (tdp_temp));
- memset ((char *) &tempfmt1, 0, sizeof (tempfmt1));
- }
- }
- else /* ADBG_DTC does not support disabled tracepoints -- ignore it. */
- gdb_note ("STUB: ignoring disabled tracepoint %d.\n", tdp_temp.id);
-
- return retbuf;
- }
- else if (msgcmp (&request, "Frame:"))
- {
- ret = OK_TARGET_RESPONSE;
-
- if (msgcmp (&request, "pc:"))
- {
- if (!hexToInt (&request, &pc))
- return "E10"; /* badly formed packet */
- n_frame = curframe.valid ? curframe.frame_id + 1 : 0;
- gdb_note ("STUB: call fetch_trace_frame_pc (id %d, ", n_frame);
- gdb_note ("pc 0x%X);\n", pc);
- ret = fetch_trace_frame_with_pc (&n_frame,
- (void *) pc,
- &curframe.format,
- &curframe.frame_data);
- }
- else if (msgcmp (&request, "tdp:"))
- {
- if (!hexToInt (&request, &tdp))
- return "E10"; /* badly formed packet */
- n_frame = curframe.valid ? curframe.frame_id + 1: 0;
- gdb_note ("STUB: call fetch_trace_frame_tdp (id %d, ", n_frame);
- gdb_note ("tdp 0x%X);\n", tdp);
- ret = fetch_trace_frame_with_tdp (&n_frame,
- tdp,
- &curframe.format,
- &curframe.frame_data);
- }
- else if (msgcmp (&request, "range:"))
- {
- if (!(hexToInt (&request, &start) &&
- *request++ == ':'))
- return "E11"; /* badly formed packet, field 1 */
- else if (!hexToInt (&request, &stop))
- return "E12"; /* badly formed packet, field 2 */
- n_frame = curframe.valid ? curframe.frame_id + 1: 0;
- gdb_note ("STUB: call fetch_trace_frame_range (id %d, ", n_frame);
- gdb_note ("start 0x%X, ", start);
- gdb_note ("stop 0x%X);\n", stop);
- ret = fetch_trace_frame_with_pc_in_range (&n_frame,
- (void *) start,
- (void *) stop,
- &curframe.format,
- &curframe.frame_data);
- }
- else if (msgcmp (&request, "outside:"))
- {
- if (!(hexToInt (&request, &start) &&
- *request++ == ':'))
- return "E11"; /* badly formed packet, field 1 */
- else if (!hexToInt (&request, &stop))
- return "E12"; /* badly formed packet, field 2 */
- n_frame = curframe.valid ? curframe.frame_id + 1: 0;
- gdb_note ("STUB: call fetch_trace_frame_outside (id %d, ", n_frame);
- gdb_note ("start 0x%X, ", start);
- gdb_note ("stop 0x%X);\n", stop);
- ret = fetch_trace_frame_with_pc_outside (&n_frame,
- (void *) start,
- (void *) stop,
- &curframe.format,
- &curframe.frame_data);
- }
- else /* simple TFind by frame number: */
- {
- if (!hexToInt (&request, &frameno))
- return "E10"; /* badly formed packet */
- if (frameno != (unsigned long) -1)
- {
- gdb_note ("STUB: call fetch_trace_frame (id %d);\n", frameno);
- ret = fetch_trace_frame (n_frame = frameno,
- &curframe.format,
- &curframe.frame_data);
-#if 0
- printp("STUB: fetch_trace_frame: return %d\n", ret);
-#endif
- }
- else /* discard any trace frame, debug "the real world" */
- {
- if (curframe.valid)
- gdb_note ("STUB: discard current trace frame #%d.\n",
- curframe.frame_id);
- curframe.valid = 0;
- return "OK";
- }
- }
- if (ret == OK_TARGET_RESPONSE) /* fetch_trace_frame succeeded */
- { /* setup for debugging the trace frame */
- curframe.valid = 1;
- curframe.frame_id = n_frame;
- curframe.tdp_id = curframe.frame_data->id;
-
- memset ((char *) &curframe.traceregs, 0,
- sizeof (curframe.traceregs));
- curframe.traceregs[PC] = (unsigned long)
- curframe.frame_data->program_counter;
-
- if (curframe.format)
- {
- unsigned long regs_mask = curframe.format->regs_mask;
- unsigned long *regs, *stack, *mem;
- unsigned long regno, index = 0;
- CFD *dummy;
-
- if ((ret = get_addr_to_frame_regs_stack_mem
- (curframe.frame_data, &dummy, &regs, &stack, &mem))
- != OK_TARGET_RESPONSE)
- {
- curframe.valid = 0;
- sprintp (retbuf, "E2%x", ret);
- return (char *)
- dtc_error_ret ((int) &retbuf,
- "get_addr_to_frame_regs_stack_mem",
- ret);
- }
-
- if (remote_debug > 1)
- { /* echo what we've found to gdb console */
- sprintp (spare_buffer,
- "STUB: Found frame %d, TDP %d, format %d (%s):\n",
- curframe.frame_id,
- curframe.tdp_id & 0x7fffffff,
- curframe.format->id,
- curframe.tdp_id & 0x80000000 ?
- "trap frame" : "stepping frame");
- gdb_puts (spare_buffer);
- }
- /* copy trace frame regs into stub's data format */
- for (regno = 0, index = 0;
- regno < 16;
- regno++, regs_mask >>= 1)
- if (regs_mask & 1) /* got a collected register */
- {
- curframe.traceregs[regno] = regs[index++];
- if (remote_debug > 1)
- {
- sprintp (spare_buffer,
- " Collected 0x%08x for register %d.\n",
- curframe.traceregs[regno], regno);
- gdb_puts (spare_buffer);
- }
- }
- if (remote_debug > 1)
- {
- long midx, ridx, len;
- MEMRANGE_DEF *mrange;
- unsigned char *data, *base;
-
- if (curframe.format->stack_size > 0)
- {
- len = curframe.format->stack_size;
- sprintp (spare_buffer,
- " Collected %d bytes of stack at 0x%x:\n",
- len, curframe.traceregs[A7]);
- gdb_puts (spare_buffer);
-
- /* print stack data, but stay under msg len */
- if (len >= (NUMREGBYTES/2 - 2))
- len = (NUMREGBYTES/2 - 3);
- mem2hex ((unsigned char *) stack,
- spare_buffer, len, 0);
- spare_buffer [len * 2] = '\n';
- spare_buffer [len * 2 + 1] = '\0'; /* EOS */
- gdb_puts (spare_buffer);
- }
- else
- gdb_puts ("Stack not collected\n");
-
- for (midx = 0;
- get_addr_to_a_mem_range (curframe.frame_data,
- midx,
- &mrange,
- (void **) &data)
- == OK_TARGET_RESPONSE;
- midx++)
- {
- if ((mrange->typecode == 0) ||
- (mrange->typecode == (unsigned long) -1))
- {
- sprintp (spare_buffer,
- " Collected %d bytes at MEM: 0x%x:\n",
- mrange->size, mrange->offset);
- base = (unsigned char *) mrange->offset;
- }
- else
- {
- if ((ridx = elinum_to_index (mrange->typecode)) > 0)
- base = (unsigned char *) curframe.traceregs[ridx]
- + (long) mrange->offset;
- else
- {
- sprintp (spare_buffer,
- "STUB: bad typecode in memrange #%d: (0x%x,0x%x,0x%x).\n",
- midx,
- mrange->typecode,
- mrange->offset,
- mrange->size);
- gdb_puts (spare_buffer);
- continue;
- }
- sprintp (spare_buffer,
- " Collected %d bytes at 0x%x (REG %X + %d):\n",
- mrange->size,
- base,
- mrange->typecode,
- mrange->offset);
- }
- gdb_puts (spare_buffer);
- len = mrange->size;
- if (len >= (NUMREGBYTES/2 - 2))
- len = (NUMREGBYTES/2 - 3);
- mem2hex (data, spare_buffer, len, 0);
- spare_buffer [len * 2] = '\n';
- spare_buffer [len * 2 + 1] = '\0'; /* EOS */
- gdb_puts (spare_buffer);
- }
- }
- }
- sprintp (retbuf, "F%xT%x", n_frame, curframe.tdp_id & 0x7fffffff);
- return retbuf;
- }
- else if (ret == NOT_FOUND_TARGET_RESPONSE)
- {
- /* Here's a question: if the fetch_trace_frame call failed
- (which probably means a bad "TFIND" command from GDB),
- should we remain focused on the previous frame (if any),
- or should we revert to "no current frame"?
- */
- return "F-1";
- }
- else
- {
- sprintp (retbuf, "E2%x", ret);
- return (char *) dtc_error_ret ((int) &retbuf,
- "fetch_trace_frame[...]",
- ret);
- }
- }
- else /* unknown trace command */
- {
- return "";
- }
-}
-
-/* Table used by the crc32 function to calcuate the checksum. */
-static unsigned long crc32_table[256];
-
-static int crc_mem_err;
-
-static unsigned long
-crc32 (buf, len, crc)
- unsigned char *buf;
- int len;
- unsigned long crc;
-{
- crc_mem_err = FALSE;
-
- if (! crc32_table[1])
- {
- /* Initialize the CRC table and the decoding table. */
- int i, j;
- unsigned int c;
-
- for (i = 0; i < 256; i++)
- {
- for (c = i << 24, j = 8; j > 0; --j)
- c = c & 0x80000000 ? (c << 1) ^ 0x04c11db7 : (c << 1);
- crc32_table[i] = c;
- }
- }
-
- while (len--)
- {
- if (read_access_violation (buf))
- {
- crc_mem_err = TRUE;
- return -1;
- }
- crc = (crc << 8) ^ crc32_table[((crc >> 24) ^ *buf++) & 255];
- }
- return crc;
-}
-
-static char *
-crc_query (cmd)
- char *cmd;
-{
- unsigned long startmem, len, crc;
- static char buf[32];
-
- if (hexToInt (&cmd, &startmem) &&
- *cmd++ == ',' &&
- hexToInt (&cmd, &len))
- {
- crc = crc32 ((unsigned char *) startmem, len, 0xffffffff);
- if (!crc_mem_err)
- {
- sprintp (buf, "C%08x", crc);
- return buf;
- }
- /* else error, fall thru */
- }
- sprintp (buf, "E01");
- return buf;
-}
-
-
-static char *
-handle_test (request)
- char *request;
-{
- ULONG args[7];
- int i;
-
- /* Parse the arguments, a comma-separated list of hex numbers, into
- ARGS. Parse at most six arguments. */
- i = 1;
- if (*request != '\0')
- while (i < 7)
- {
- if (! hexToInt (&request, &args[i++]))
- return "E01";
- if (*request == '\0')
- break;
- if (*request++ != ',')
- return "E01";
- }
-
- /* Fill the rest of the args array with zeros. This is what the
- INLINES command processor does with omitted arguments. */
- for (; i < 7; i++)
- args[i] = 0;
-
- gdb_c_test (args);
-
- return "OK";
-}
-
-
-/* GDB_TRAP_1_HANDLER
-
- By the time this is called, the registers have been saved in "registers",
- and the interrupt priority has been set to permit serial UART interrupts.
-
- However, since no gdb request has yet been received, and there is no
- equivalent of getpacket for us to wait on, we can't sit here waiting
- for packets and processing them.
-
- In fact, the ONLY thing for us to do here is sit and wait.
- As gdb sends packet requests, they will handle themselves at the
- interrupt level. When gdb decides we can continue, it will reset
- the global variable "gdb_handling_trap1", and we will return
- (whereupon registers will be restored etc.) */
-
-void gdb_trap_1_handler( void )
-{
- gdb_handling_trap1 = TRUE;
- sss_trace_flag = '\0'; /* shut off "trace bit" (indirectly) */
- gdb_signo = 5;
- putpacket( "S05" );
- while ( gdb_handling_trap1 )
- ;
- return;
-}
-
-void gdb_trace_handler( void )
-{
- sss_trace_flag = '\0'; /* shut off "trace bit" (indirectly) */
- gdb_handling_trap1 = TRUE;
- gdb_handling_sstrace = TRUE;
- gdb_signo = 5;
- putpacket( "S05" );
- while ( gdb_handling_trap1 )
- ;
- return;
-}
diff --git a/gdb/testsuite/gdb.trace/infotrace.exp b/gdb/testsuite/gdb.trace/infotrace.exp
index 9b43c98..0832367 100644
--- a/gdb/testsuite/gdb.trace/infotrace.exp
+++ b/gdb/testsuite/gdb.trace/infotrace.exp
@@ -27,18 +27,13 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/infotrace
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested infotrace.exp
- return -1
- }
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/infotrace
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested infotrace.exp
+ return -1
}
gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.trace/limits.exp b/gdb/testsuite/gdb.trace/limits.exp
index 4f323af..d85e084 100644
--- a/gdb/testsuite/gdb.trace/limits.exp
+++ b/gdb/testsuite/gdb.trace/limits.exp
@@ -13,11 +13,6 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if [istarget "m68k-*-elf"] then {
- pass "Test not supported on this target"
- return;
-}
-
load_lib "trace-support.exp"
if $tracelevel then {
diff --git a/gdb/testsuite/gdb.trace/packetlen.exp b/gdb/testsuite/gdb.trace/packetlen.exp
index a6f2572..2c552ec 100644
--- a/gdb/testsuite/gdb.trace/packetlen.exp
+++ b/gdb/testsuite/gdb.trace/packetlen.exp
@@ -27,39 +27,18 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- load_lib "emc-support.exp"
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
- gdb_test "set remotetimeout 6" "" ""
- set timeout 500
- gdb_target_monitor "$binfile"
- # Give a TSTOP and ignore errors, to make sure any previous trace is off
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- send_gdb "compare-sections CS\n"
- gdb_expect {
- -re "MIS-MATCHED.*$gdb_prompt $" {
- untested packetlen.exp
- return -1
- all tests in this module will fail.";
- }
- -re ".*$gdb_prompt $" { }
- }
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/packetlen
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested packetlen.exp
- return -1
- }
- gdb_load $binfile
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- runto_main
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/packetlen
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested packetlen.exp
+ return -1
}
+gdb_load $binfile
+gdb_test "tstop" "" ""
+gdb_test "tfind none" "" ""
+runto_main
gdb_reinitialize_dir $srcdir/$subdir
# If testing on a remote host, download the source file.
@@ -84,15 +63,10 @@ gdb_trace_setactions "setup collect actions" \
"end" ""
gdb_test "tstart" "" "survive the long packet send"
-if [istarget "m68k-*-elf"] then {
- gdb_emclaptop_command "85,1,2,3,4,5,6"
- sleep 5
-} else {
- gdb_test "break end" "" ""
- gdb_test "continue" \
- "Continuing.*Breakpoint $decimal, end.*" \
- "run trace experiment"
-}
+gdb_test "break end" "" ""
+gdb_test "continue" \
+ "Continuing.*Breakpoint $decimal, end.*" \
+ "run trace experiment"
gdb_test "tstop" "" "confirm: survived the long packet send"
diff --git a/gdb/testsuite/gdb.trace/passc-dyn.exp b/gdb/testsuite/gdb.trace/passc-dyn.exp
index 29f95a0..2d77e6d 100644
--- a/gdb/testsuite/gdb.trace/passc-dyn.exp
+++ b/gdb/testsuite/gdb.trace/passc-dyn.exp
@@ -26,39 +26,18 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- load_lib "emc-support.exp";
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
- gdb_test "set remotetimeout 6" "" ""
- set timeout 500
- gdb_target_monitor $binfile
- # Give a TSTOP and ignore errors, to make sure any previous trace is off
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- send_gdb "compare-sections CS\n"
- gdb_expect {
- -re "MIS-MATCHED.*$gdb_prompt $" {
- untested passc-dyn.exp
- return -1
- all tests in this module will fail.";
- }
- -re ".*$gdb_prompt $" { }
- }
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/passc-dyn
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested passc-dyn.exp
- return -1
- }
- gdb_load $binfile
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- runto_main
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/passc-dyn
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested passc-dyn.exp
+ return -1
}
+gdb_load $binfile
+gdb_test "tstop" "" ""
+gdb_test "tfind none" "" ""
+runto_main
gdb_reinitialize_dir $srcdir/$subdir
# We generously give ourselves one "pass" if we successfully
@@ -117,26 +96,11 @@ gdb_test "passcount 3 $tdp4" "Setting tracepoint $tdp4's passcount to 3" \
gdb_test "tstart" "" ""
-if [istarget "m68k-*-elf"] then {
- gdb_emclaptop_command "85,1,2,3,4,5,6"
- sleep 5
- gdb_emclaptop_command "85,7,8,9,A,B,C"
- sleep 5
- gdb_emclaptop_command "85,D,E,F,10,11,12"
- sleep 5
- # gdb_test "tstop"
- ##
- ## Note! Must NOT give the tstop command, because the passcount
- ## has already stopped the experiment. You would not
- ## think this would be an error, but in EMC's mind it is...
- ##
-} else {
- gdb_test "break end" "" ""
- gdb_test "continue" \
- "Continuing.*Breakpoint $decimal, end.*" \
- "run trace experiment"
- gdb_test "tstop" "" ""
-}
+gdb_test "break end" "" ""
+gdb_test "continue" \
+ "Continuing.*Breakpoint $decimal, end.*" \
+ "run trace experiment"
+gdb_test "tstop" "" ""
gdb_test "tfind none" "" ""
if [gdb_test "printf \"x \%d x\\n\", \$trace_frame" "x -1 x" ""] {
diff --git a/gdb/testsuite/gdb.trace/passcount.exp b/gdb/testsuite/gdb.trace/passcount.exp
index e01f7c3..bb7de97 100644
--- a/gdb/testsuite/gdb.trace/passcount.exp
+++ b/gdb/testsuite/gdb.trace/passcount.exp
@@ -26,18 +26,13 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/passcount
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested passcount.exp
- return -1
- }
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/passcount
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested passcount.exp
+ return -1
}
gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.trace/report.exp b/gdb/testsuite/gdb.trace/report.exp
index f9030e3..9757eb8 100644
--- a/gdb/testsuite/gdb.trace/report.exp
+++ b/gdb/testsuite/gdb.trace/report.exp
@@ -27,39 +27,18 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- load_lib "emc-support.exp";
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
- gdb_test "set remotetimeout 6" "" ""
- set timeout 500
- gdb_target_monitor $binfile
- # Give a TSTOP and ignore errors, to make sure any previous trace is off
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- send_gdb "compare-sections CS\n"
- gdb_expect {
- -re "MIS-MATCHED.*$gdb_prompt $" {
- untested report.exp
- return -1
- all tests in this module will fail.";
- }
- -re ".*$gdb_prompt $" { }
- }
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/report
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested report.exp
- return -1
- }
- gdb_load $binfile
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- runto_main
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/report
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested report.exp
+ return -1
}
+gdb_load $binfile
+gdb_test "tstop" "" ""
+gdb_test "tfind none" "" ""
+runto_main
gdb_reinitialize_dir $srcdir/$subdir
# We generously give ourselves one "pass" if we successfully
@@ -186,16 +165,10 @@ gdb_trace_setactions "9.x: setup TP to collect expressions" \
gdb_test "tstart" "" ""
-if [istarget "m68k-*-elf"] then {
- gdb_emclaptop_command "85,$arg1,$arg2,$arg3,$arg4,$arg5,$arg6"
- sleep 5
-
-} else {
- gdb_test "break end" "" ""
- gdb_test "continue" \
- "Continuing.*Breakpoint $decimal, end.*" \
- "run trace experiment"
-}
+gdb_test "break end" "" ""
+gdb_test "continue" \
+ "Continuing.*Breakpoint $decimal, end.*" \
+ "run trace experiment"
gdb_test "tstop" "" ""
diff --git a/gdb/testsuite/gdb.trace/save-trace.exp b/gdb/testsuite/gdb.trace/save-trace.exp
index 1867847..62e872e 100644
--- a/gdb/testsuite/gdb.trace/save-trace.exp
+++ b/gdb/testsuite/gdb.trace/save-trace.exp
@@ -27,18 +27,13 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/save-trace
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested save-trace.exp
- return -1
- }
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/save-trace
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested save-trace.exp
+ return -1
}
gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.trace/tfind.exp b/gdb/testsuite/gdb.trace/tfind.exp
index 902a32e..f1bc46b 100644
--- a/gdb/testsuite/gdb.trace/tfind.exp
+++ b/gdb/testsuite/gdb.trace/tfind.exp
@@ -28,40 +28,19 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- load_lib "emc-support.exp";
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
- gdb_test "set remotetimeout 6" "" ""
- set timeout 500
- gdb_target_monitor $binfile
- # Give a TSTOP and ignore errors, to make sure any previous trace is off
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- send_gdb "compare-sections CS\n"
- gdb_expect {
- -re "MIS-MATCHED.*$gdb_prompt $" {
- untested tfind.exp
- return -1
- all tests in this module will fail.";
- }
- -re ".*$gdb_prompt $" { }
- }
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/tfind
-
- if { [gdb_compile "$srcdir/$subdir/$srcfile" "$binfile" \
- executable {debug nowarnings}] != "" } {
- untested tfind.exp
- return -1
- }
- gdb_load $binfile
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- runto_main
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/tfind
+
+if { [gdb_compile "$srcdir/$subdir/$srcfile" "$binfile" \
+ executable {debug nowarnings}] != "" } {
+ untested tfind.exp
+ return -1
}
+gdb_load $binfile
+gdb_test "tstop" "" ""
+gdb_test "tfind none" "" ""
+runto_main
gdb_reinitialize_dir $srcdir/$subdir
# We generously give ourselves one "pass" if we successfully
@@ -135,18 +114,10 @@ gdb_test "tstatus" "\[Tt\]race is running.*" "test tstatus on"
# 6.2 test help tstart
gdb_test "help tstart" "Start trace data collection." "6.2: help tstart"
-if [istarget "m68k-*-elf"] then {
- gdb_emclaptop_command "85,1,2,3,4,5,6"
- sleep 5
-
- gdb_emclaptop_command "85,7,8,9,A,B,C"
- sleep 5
-} else {
- gdb_test "break end" "" ""
- gdb_test "continue" \
- "Continuing.*Breakpoint $decimal, end.*" \
- "run trace experiment"
-}
+gdb_test "break end" "" ""
+gdb_test "continue" \
+ "Continuing.*Breakpoint $decimal, end.*" \
+ "run trace experiment"
# 7.1 test tstop command
send_gdb "tstop\n"
diff --git a/gdb/testsuite/gdb.trace/tracecmd.exp b/gdb/testsuite/gdb.trace/tracecmd.exp
index 968088b..7b33e24 100644
--- a/gdb/testsuite/gdb.trace/tracecmd.exp
+++ b/gdb/testsuite/gdb.trace/tracecmd.exp
@@ -26,18 +26,13 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile $objdir/$subdir/tracecmd
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested tracecmd.exp
- return -1
- }
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile $objdir/$subdir/tracecmd
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested tracecmd.exp
+ return -1
}
gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.trace/while-dyn.exp b/gdb/testsuite/gdb.trace/while-dyn.exp
index e9d6565..b279c10 100644
--- a/gdb/testsuite/gdb.trace/while-dyn.exp
+++ b/gdb/testsuite/gdb.trace/while-dyn.exp
@@ -27,40 +27,18 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- load_lib "emc-support.exp"
- set testfile "gdb_c_test"
- set srcfile $testfile.c
- set binfile [board_info target d490_binfile];
- gdb_test "set remotetimeout 6" "" ""
- set timeout 500
- gdb_target_monitor "$binfile"
- # Give a TSTOP and ignore errors, to make sure any previous trace is off
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- send_gdb "compare-section CS\n"
- gdb_expect {
- -re "MIS-MATCHED.*$gdb_prompt $" {
- untested while-dyn.exp
- return -1
- all tests in this module will fail.";
- }
- -re ".*$gdb_prompt $" { }
- }
-} else {
- set testfile "actions"
- set srcfile $testfile.c
- set binfile $objdir/$subdir/while-dyn
- if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested while-dyn.exp
- return -1
- }
- gdb_load $binfile
- gdb_test "tstop" "" ""
- gdb_test "tfind none" "" ""
- runto_main
+set testfile "actions"
+set srcfile $testfile.c
+set binfile $objdir/$subdir/while-dyn
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested while-dyn.exp
+ return -1
}
+gdb_load $binfile
+gdb_test "tstop" "" ""
+gdb_test "tfind none" "" ""
+runto_main
gdb_reinitialize_dir $srcdir/$subdir
# We generously give ourselves one "pass" if we successfully
@@ -95,15 +73,10 @@ gdb_trace_setactions "5.12: define while-stepping <stepcount>" \
gdb_test "tstart" "" ""
-if [istarget "m68k-*-elf"] then {
- gdb_emclaptop_command "85,1,2,3,4,5,6"
- sleep 5
-} else {
- gdb_test "break end" "" ""
- gdb_test "continue" \
- "Continuing.*Breakpoint $decimal, end.*" \
- "run trace experiment"
-}
+gdb_test "break end" "" ""
+gdb_test "continue" \
+ "Continuing.*Breakpoint $decimal, end.*" \
+ "run trace experiment"
gdb_test "tstop" "" ""
diff --git a/gdb/testsuite/gdb.trace/while-stepping.exp b/gdb/testsuite/gdb.trace/while-stepping.exp
index 3cf1e33..bce61a3 100644
--- a/gdb/testsuite/gdb.trace/while-stepping.exp
+++ b/gdb/testsuite/gdb.trace/while-stepping.exp
@@ -27,18 +27,13 @@ set bug_id 0
gdb_exit
gdb_start
-if [istarget "m68k-*-elf"] then {
- set srcfile gdb_c_test.c
- set binfile [board_info target d490_binfile];
-} else {
- set testfile "actions"
- set srcfile ${testfile}.c
- set binfile ${objdir}/${subdir}/while-stepping
- if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" $binfile \
- executable {debug nowarnings}] != "" } {
- untested while-stepping.exp
- return -1
- }
+set testfile "actions"
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/while-stepping
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" $binfile \
+ executable {debug nowarnings}] != "" } {
+ untested while-stepping.exp
+ return -1
}
gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/lib/emc-support.exp b/gdb/testsuite/lib/emc-support.exp
deleted file mode 100644
index 70bf2df..0000000
--- a/gdb/testsuite/lib/emc-support.exp
+++ /dev/null
@@ -1,223 +0,0 @@
-proc gdb_emc_readvar { varname } {
- global gdb_prompt;
-
- set result -1;
- send_gdb "print $varname\n"
- gdb_expect 5 {
- -re "\[$\].*= (\[0-9\]+).*$gdb_prompt $" {
- set result $expect_out(1,string);
- }
- -re "$gdb_prompt $" { }
- default { }
- }
- return $result;
-}
-
-proc gdb_emc_gettpnum { testname } {
- global gdb_prompt;
-
- if { $testname != "" } {
- gdb_test "trace $testname" "" ""
- }
- return [gdb_emc_readvar "\$tpnum"];
-}
-
-proc gdb_emc_setactions { testname actionname args } {
- global gdb_prompt;
-
- set state 0;
- set status "pass";
- send_gdb "actions $actionname\n";
- set expected_result "";
- gdb_expect 5 {
- -re "No tracepoint number .*$gdb_prompt $" {
- fail $testname
- return 1;
- }
- -re "Enter actions for tracepoint $actionname.*>" {
- if { [llength $args] > 0 } {
- set lastcommand "[lindex $args $state]";
- send_gdb "[lindex $args $state]\n";
- incr state;
- set expected_result [lindex $args $state];
- incr state;
- } else {
- send_gdb "end\n";
- }
- exp_continue;
- }
- -re "\(.*\[\r\n\]+)\[ \t]*> $" {
- if { $expected_result != "" } {
- # Remove echoed command and its associated newline.
- regsub "^\[^\r\n\]+\[\r\n\]+" "$expect_out(1,string)" "" out;
- # Strip off any newlines at the end of the string.
- regsub "\[\r\n\]+$" "$out" "" out;
- verbose "expected '$expected_result', got '$out', expect_out is '$expect_out(1,string)'";
- if ![regexp $expected_result $out] {
- set status "fail";
- }
- set expected_result "";
- }
- if { $state < [llength $args] } {
- send_gdb "[lindex $args $state]\n";
- incr state;
- set expected_result [lindex $args $state];
- incr state;
- } else {
- send_gdb "end\n";
- set expected_result "";
- }
- exp_continue;
- }
- -re "\(.*\)$gdb_prompt $" {
- if { $expected_result != "" } {
- if ![regexp $expected_result $expect_out(1,string)] {
- set status "fail";
- }
- set expected_result "";
- }
- if { [llength $args] < $state } {
- set status "fail";
- }
- }
- default {
- set status "fail";
- }
- }
- if { $testname != "" } {
- $status $testname;
- }
- if { $status == "pass" } then {
- return 0;
- } else {
- return 1;
- }
-}
-
-#
-# test collect command
-#
-
-proc gdb_emc_tracetest_collect { arg1 msgstring } {
- global decimal
- global gdb_prompt;
-
- set teststate 0
- gdb_expect 30 {
- -re "Enter actions for tracepoint $decimal.*> $" {
- send_gdb "collect $arg1\n"
- incr teststate;
- exp_continue
- }
- -re "> $" {
- if { $teststate == 1 } {
- send_gdb "end\n"
- incr teststate;
- exp_continue
- } else {
- fail "$msgstring"
- }
- }
- -re ".*$gdb_prompt $" {
- if { $teststate == 2 } {
- pass "$msgstring";
- } else {
- fail "$msgstring";
- }
- }
- default {
- fail "$msgstring (default)";
- }
- }
- regsub -all "(\[($@*+)\])" "collect $arg1" "\[\\1\]" arg1_regexp;
- gdb_test "info tracepoints" ".*$arg1_regexp.*" "$msgstring info tracepoint"
-}
-
-proc gdb_delete_tracepoints { } {
- global gdb_prompt;
-
- send_gdb "delete tracepoints\n"
- gdb_expect 30 {
- -re "Delete all tracepoints.*y or n.*$" {
- send_gdb "y\n"
- exp_continue;
- }
- -re "$gdb_prompt $" { }
- timeout { fail "delete all tracepoints (timeout)" }
- }
-}
-
-
-# Send each command in the list CMDLIST to gdb. If we see the string
-# "error" or "warning" from gdb, we assume an error has occured and
-# return a non-zero result. All of the commands in CMDLIST are always
-# sent, even if an error occurs.
-# If TESTNAME is non-null, we call pass or fail with the string in TESTNAME
-# depending on whether or not an error/warning has occurred.
-#
-proc gdb_do_cmdlist { cmdlist testname } {
- global gdb_prompt;
-
- set status 0;
-
- foreach x $cmdlist {
- send_gdb "$x\n";
- gdb_expect 60 {
- -re "\[Ee\]rror|\[Ww\]arning" {
- set status 1;
- exp_continue;
- }
- -re "$gdb_prompt $" { }
- -re "\[\r\n\]\[ \t\]*> *$" { }
- }
- }
- if { $testname != "" } {
- if { $status == 0 } {
- pass "$testname";
- } else {
- fail "$testname";
- }
- }
- return $status;
-}
-
-#
-# Given the file FILENAME, we read it as a list of commands and generate
-# a list suitable for use by gdb_do_cmdlist. Lines beginning with # are
-# ignored; blank lines are interpreted as empty lines to be sent to gdb.
-#
-proc gdb_process_cmdfile { filename } {
- set id [open $filename "r"];
- if { $id < 0 } {
- return "";
- }
- set result {};
- while { [gets $id line] >= 0 } {
- if [regexp "^#" $line] {
- continue;
- }
- set result [concat $result [list "$line"]];
- }
- close $id;
- return $result;
-}
-
-# gdb_find_c_test_baseline
-# returns -1 on failure (CALLER MUST CHECK RETURN!)
-proc gdb_find_c_test_baseline { } {
- global gdb_prompt;
-
- set gdb_c_test_baseline -1;
-
- send_gdb "list gdb_c_test\n"
- gdb_expect {
- -re "void.*p5,.*void.*p6.*\[\r\n\](\[0-9\]+)\[\t \]+\{.*$gdb_prompt $" {
- set gdb_c_test_baseline $expect_out(1,string)
- }
- -re "$gdb_prompt $" { }
- default { }
- }
- return $gdb_c_test_baseline;
-}
-
-
generated by cgit v1.1 at 2024-11-24 04:52:46 +0000