URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [libgloss/] [debug.c] - Rev 273
Go to most recent revision | Compare with Previous | Blame | View Log
/* * Copyright (c) 1995, 1996 Cygnus Support * * The authors hereby grant permission to use, copy, modify, distribute, * and license this software and its documentation for any purpose, provided * that existing copyright notices are retained in all copies and that this * notice is included verbatim in any distributions. No written agreement, * license, or royalty fee is required for any of the authorized uses. * Modifications to this software may be copyrighted by their authors * and need not follow the licensing terms described here, provided that * the new terms are clearly indicated on the first page of each file where * they apply. */ /* * A debug packet whose contents are <data> looks like: * * $ <data> # CSUM1 CSUM2 * * <data> must be ASCII alphanumeric and cannot include characters * '$' or '#'. If <data> starts with two characters followed by * ':', then the existing stubs interpret this as a sequence number. * * CSUM1 and CSUM2 are ascii hex representation of an 8-bit * checksum of <data>, the most significant nibble is sent first. * the hex digits 0-9,a-f are used. * * We respond with: * * + - if CSUM is correct and ready for next packet * - - if CSUM is incorrect * * <data> is as follows: * Most values are encoded in ascii hex digits. */ #include "debug.h" #include <signal.h> /* * buffers that hold the packets while they're being constructed. */ char packet_in_buf[BUFMAX]; char packet_out_buf[BUFMAX]; int packet_index; /* * indicate to caller of mem2hex or hex2mem that there has been an error. * 0 means ok, 1 means error */ volatile int mem_err = 0; /* * 1 means print debugging messages from the target, 0 means be quiet. This is * changed by gdb_debug(). */ int remote_debug = 0; /* * indicate whether the debug vectors ahave been initialized * 0 means not yet, 1 means yep, it's ready. */ int initialized = 0; /* * These variables are instantialted in the GDB stub code. */ /* this is a list of signal to exception mappings. */ extern struct trap_info hard_trap_info[]; /* this is a memory fault exception handler, used by mem2hex & hex2mem */ extern void set_mem_fault_trap(); /* * print debugging messages. This uses print, rather than one of the * stdio routines, cause if there are stack or memory problems, the * stdio routines don't work. * params are the debug level, and the string to print * it doesn't return anything. */ void debuglog(int level, char *msg) { char *p; unsigned char buf[BUFMAX]; char newmsg[BUFMAX]; int i; if (level > remote_debug) return; if ((level <0) || (level > 100)) { print ("ERROR: debug print level out of range"); return; } /* convert some characters so it'll look right in the log */ p = newmsg; for (i = 0 ; msg[i] != '\0'; i++) { if (i > BUFMAX) print ("\r\nERROR: Debug message too long\r\n"); switch (msg[i]) { case '\n': /* newlines */ *p++ = '\\'; *p++ = 'n'; continue; case '\r': /* carriage returns */ *p++ = '\\'; *p++ = 'r'; continue; case '\033': /* escape */ *p++ = '\\'; *p++ = 'e'; continue; case '\t': /* tab */ *p++ = '\\'; *p++ = 't'; continue; case '\b': /* backspace */ *p++ = '\\'; *p++ = 'b'; continue; default: /* no change */ *p++ = msg[i]; } if (msg[i] < 26) { /* modify control characters */ *p++ = '^'; *p++ = msg[i] + 'A'; continue; } if (msg[i] >= 127) { /* modify control characters */ *p++ = '!'; *p++ = msg[i] + 'A'; continue; } } *p = '\0'; /* terminate the string */ print (newmsg); print ("\r\n"); } /* * convert an ascii hex digit to a number. * param is hex digit. * returns a decimal digit. */ int hex2digit (int digit) { if (digit == 0) return 0; if (digit >= '0' && digit <= '9') return digit - '0'; if (digit >= 'a' && digit <= 'f') return digit - 'a' + 10; if (digit >= 'A' && digit <= 'F') return digit - 'A' + 10; /* shouldn't ever get this far */ return ERROR; } /* * convert number NIB to a hex digit. * param is a decimal digit. * returns a hex digit. */ char digit2hex(int digit) { if (digit < 10) return '0' + digit; else return 'a' + digit - 10; } /* * Convert the memory pointed to by mem into hex, placing result in buf. * Return a pointer to the last char put in buf (null), in case of mem fault, * return 0. * If MAY_FAULT is non-zero, then we will handle memory faults by returning * a 0, else treat a fault like any other fault in the stub. */ unsigned char * mem2hex(unsigned char *mem, unsigned char *buf, int count, int may_fault) { unsigned char ch; DEBUG (1, "In mem2hex"); set_mem_fault_trap(MAY_FAULT); while (count-- > 0) { ch = *mem++; if (mem_err) { DEBUG (1, "memory fault in mem2hex"); return 0; } *buf++ = digit2hex(ch >> 4); *buf++ = digit2hex(ch & 0xf); } *buf = 0; set_mem_fault_trap(OK); return buf; } /* * Convert the hex array pointed to by buf into binary to be placed in mem * return a pointer to the character AFTER the last byte written */ unsigned char * hex2mem(unsigned char *buf, unsigned char *mem, int count, int may_fault) { int i; unsigned char ch; DEBUG (1, "In hex2mem"); set_mem_fault_trap(may_fault); for (i=0; i<count; i++) { ch = hex2digit(*buf++) << 4; ch |= hex2digit(*buf++); *mem++ = ch; if (mem_err) return 0; } set_mem_fault_trap(0); return mem; } /* * while we find nice hex chars, build an int. * param is a pointer to the string. * returns the int in the param field, and the number of chars processed. */ int hex2int (char **ptr, int *intValue) { int numChars = 0; int hexValue; *intValue = 0; while (**ptr) { hexValue = hex2digit(**ptr); if (hexValue < 0) break; *intValue = (*intValue << 4) | hexValue; numChars ++; (*ptr)++; } return (numChars); } /* * Scan for the sequence $<data>#<checksum> */ void getpacket(unsigned char *buffer) { unsigned char checksum; unsigned char xmitcsum; int i; int count; unsigned char ch; do { /* wait around for the start character, ignore all other characters */ while ((ch = (inbyte() & 0x7f)) != '$') ; checksum = 0; xmitcsum = -1; count = 0; /* now, read until a # or end of buffer is found */ while (count < BUFMAX) { ch = inbyte() & 0x7f; if (ch == '#') break; checksum = checksum + ch; buffer[count] = ch; count = count + 1; } if (count >= BUFMAX) continue; buffer[count] = 0; if (ch == '#') { xmitcsum = hex2digit(inbyte() & 0x7f) << 4; xmitcsum |= hex2digit(inbyte() & 0x7f); #if 1 /* Humans shouldn't have to figure out checksums to type to it. */ outbyte ('+'); return; #endif if (checksum != xmitcsum) outbyte('-'); /* failed checksum */ else { outbyte('+'); /* successful transfer */ /* if a sequence char is present, reply the sequence ID */ if (buffer[2] == ':') { outbyte(buffer[0]); outbyte(buffer[1]); /* remove sequence chars from buffer */ count = strlen(buffer); for (i=3; i <= count; i++) buffer[i-3] = buffer[i]; } } } } while (checksum != xmitcsum); } /* * Send the packet in buffer. */ void putpacket(unsigned char *buffer) { unsigned char checksum; int count; unsigned char ch; /* $<packet info>#<checksum>. */ do { outbyte('$'); checksum = 0; count = 0; while (ch = buffer[count]) { if (! outbyte(ch)) return; checksum += ch; count += 1; } outbyte('#'); outbyte(digit2hex(checksum >> 4)); outbyte(digit2hex(checksum & 0xf)); } while ((inbyte() & 0x7f) != '+'); } /* * */ void gdb_event_loop(int sigval, unsigned long *registers) { int addr; int length; unsigned char *ptr; ptr = packet_out_buf; DEBUG (1, "In gdb_event_loop"); while (1) { packet_out_buf[0] = 0; getpacket(packet_in_buf); ptr = &packet_in_buf[1]; switch (packet_in_buf[0]) { case '?': /* get the last known signal */ gdb_last_signal(sigval); break; case 'd': /* toggle debug messages from the stub */ gdb_toggle(); break; case 'g': /* return the value of the CPU registers */ target_read_registers(registers); break; case 'G': /* set the value of the CPU registers - return OK */ target_write_registers(registers); break; case 'm': /* mAA..AA,LLLL Read LLLL bytes at address AA..AA */ /* Try to read %x,%x. */ if (hex2int((char **)&ptr, &addr) && *ptr++ == ',' && hex2int((char **)&ptr, &length)) { gdb_read_memory(addr, length); } else { make_return_packet(1); } break; case 'M': /* MAA..AA,LLLL: Write LLLL bytes at address AA.AA return OK */ /* Try to read '%x,%x:'. */ if (hex2int((char **)&ptr, &addr) && *ptr++ == ',' && hex2int((char **)&ptr, &length) && *ptr++ == ':') { gdb_write_memory (addr, length, ptr); } else { make_return_packet(2); } break; case 'c': /* cAA..AA Continue at address AA..AA(optional) */ /* try to read optional parameter, pc unchanged if no parm */ if (hex2int((char **)&ptr, &addr)) { write_pc(registers, addr); } /* * we need to flush the instruction cache here, as we may have * deposited a breakpoint, and the icache probably has no way of * knowing that a data ref to some location may have changed * something that is in the instruction cache. */ flush_i_cache(); /* by returning, we pick up execution where we left off */ return; /* kill the program */ case 'k' : gdb_kill(); break; case 'r': /* Reset */ target_reset(); break; } /* switch */ /* reply to the request */ putpacket(packet_out_buf); } DEBUG (1, "Leaving handle_exception()"); } /* Convert the hardware trap type code to a unix signal number. */ int computeSignal(int tt) { struct trap_info *ht; for (ht = hard_trap_info; ht->tt && ht->signo; ht++) if (ht->tt == tt) return ht->signo; return SIGHUP; /* default for things we don't know about */ } /* * Set up exception handlers for tracing and breakpoints */ void set_debug_traps() { struct trap_info *ht; DEBUG (1, "Entering set_debug_traps()"); if (hard_trap_info->tt == 0) { print ("ERROR: ARG#$@%^&*!! no hard trap info!!\r\n"); } for (ht = hard_trap_info; ht->tt && ht->signo; ht++) { exception_handler(ht->tt, (unsigned long)default_trap_hook); } /* In case GDB is started before us, ack any packets (presumably "$?#xx") sitting there. */ outbyte ('+'); initialized = 1; DEBUG (1, "Leaving set_debug_traps()"); } /* * make a return packet. * param is the value to return. * 0 = OK, any other value is converted to a two digit hex number. * returns a string or "OK" or "ENN", where NN is the error number. Each N * is an ASCII encoded hex digit. */ char * make_return_packet(int val) { if (val == 0) { packet_out_buf[0] = 'O'; packet_out_buf[1] = 'K'; packet_out_buf[2] = 0; } else { packet_out_buf[0] = 'E'; packet_out_buf[1] = digit2hex((val >> 4) & 0xf); packet_out_buf[2] = digit2hex(val & 0xf); packet_out_buf[3] = 0; } return(packet_out_buf); } /* * g - read registers. * no params. * returns a vector of words, size is NUM_REGS. */ char * gdb_read_registers() { } /* * G - write registers. * param is a vector of words, size is NUM_REGS. * returns an OK or an error number. */ char * gdb_write_registers(char *regs) { } /* * m - read memory. * params are the address to start the read at and the number of * bytes to read. * returns a vector of nbytes or an error number. * Can be fewer bytes than requested if able to read only part of the * data. */ char * gdb_read_memory(long addr, int nbytes) { if (mem2hex((char *)addr, packet_out_buf, nbytes, MAY_FAULT)) return(packet_out_buf); else { return(make_return_packet(3)); } } /* * M write memory * params are the address to start writing to, the number of * bytes to write, and the new values of the bytes. * returns an OK or an error number. */ char * gdb_write_memory(long addr, int nbytes, char *mem) { if (hex2mem(mem, (char *)addr, nbytes, MAY_FAULT)) return(make_return_packet(OK)); else { return(make_return_packet(3)); } } /* * c - continue at address. * param is the address to start at, and an optional signal. If * sig is zero, then ignore it. * returns an OK or an error number. */ char * gdb_continue(int sig, long addr) { } /* * s - step instruction(s) * param is the address to start at, and an optional signal. If * sig is zero, then ignore it. * returns an OK or an error number. */ char * gdb_step(int sig, long addr) { } /* * k - kill program. * no params. * returns an OK or an error number. */ char * gdb_kill() { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * ? - last signal. * no params. * returns the last signal number. */ char * gdb_last_signal(int val) { DEBUG (1, "Entering gdb_last_signal()"); packet_out_buf[0] = 'S'; packet_out_buf[1] = digit2hex(val >> 4); packet_out_buf[2] = digit2hex(val & 0xf); packet_out_buf[3] = 0; DEBUG (1, "Leaving gdb_last_signal()"); return (packet_out_buf); } /* * b - change baud rate. * param is the new baudrate * returns the baud rate. */ char * gdb_baudrate(int baud) { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * T - dump state. * no params. * returns the signal number, the registers, the thread ID, and * possible extensions in a vector that looks like: * TAAn...:r...;n...:r...;n...:r...; where: * AA = signal number * n... = register number (hex) * r... = register contents * n... = `thread' * r... = thread process ID. This is a hex integer. * n... = other string not starting with valid hex digit. * gdb should ignore this n,r pair and go on to * the next. This way we can extend the protocol. */ char * gdb_dump_state() { } /* * D - host requests a detach * no params. * returns either a S, T, W, or X command. * returns an OK or an error number. */ char * gdb_detach() { } /* * H - set thread. * params are the command to execute and the thread ID. * cmd = 'c' for thread used in step and continue; * cmd = 'g' for thread used in other operations. * tid = -1 for all threads. * tid = zero, pick a thread,any thread. * returns an OK or an error number. */ char * gdb_set_thread(int cmd, int tid) { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * p - read one register. * param is the register number. * returns the register value or ENN. */ char * gdb_read_reg(int reg) { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * P - write one register. * params are the register number, and it's new value. * returns the register value or ENN. */ char * gdb_write_reg(int reg, long val) { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * W - process exited. * no params. * returns the exit status. */ char * gdb_exited() { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * X - process terminated. * no params. * returns the last signal. */ char * gdb_terminated() { } /* * O - hex encoding. * params are a vector of bytes, and the number of bytes to encode. * returns a vector of ASCII encoded hex numbers. */ char * gdb_hex(char *str, int nbytes) { } /* * A - tread alive request. * param is the thread ID. * returns an OK or an error number. */ char * gdb_thread_alive(int tid) { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * ! - extended protocol. * no params. * returns an OK or an error number. */ char * gdb_extended() { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * d - toggle gdb stub diagnostics. * no params. * returns an OK or an error number. */ char * gdb_debug() { if (remote_debug > 0) remote_debug = 0; else remote_debug = 1; return(make_return_packet(OK)); } /* * d - toggle gdb stub. * no params. * returns an OK or an error number. */ char * gdb_toggle() { static int level = 0; if (remote_debug) { level = remote_debug; remote_debug = 0; } else { remote_debug = level; } return(make_return_packet(OK)); } /* * r - reset target * no params. * returns an OK or an error number. */ char * gdb_reset() { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * t - search backwards. * params are the address to start searching from, a pattern to match, and * the mask to use. * FIXME: not entirely sure what this is supposed to return. */ char * gdb_search(long addr, long pat, long mask) { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * q - general get query. * param is a string, that's the query to be executed. * FIXME: not entirely sure what this is supposed to return. */ char * gdb_get_query(char *query) { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); } /* * Q - general set query * param is a string, that's the query to be executed. * FIXME: not entirely sure what this means. * returns an OK or an error number. */ char * gdb_set(char *query) { /* generically, we can't do anything for this command */ return(make_return_packet(OK)); }
Go to most recent revision | Compare with Previous | Blame | View Log