From: Dawn Perchik Date: Mon, 11 Nov 1996 21:02:55 +0000 (+0000) Subject: * mips-tdep.c, remote-mips.c, values.c, mdebugread.c, X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=28444bf3a1e0d6422cb9236baacb6cac11f384de;p=binutils-gdb.git * mips-tdep.c, remote-mips.c, values.c, mdebugread.c, config/mips/tm-mips.h: Add/fix bugs for 64-bit mips support. * defs.h: Cleanup; add prototypess * corefile.c: Change FIXME #ifdef * win32-nat.c: Include windefs instead of windows.h. * utils.c: Add routines for printing addresses and registers based on type size. --- diff --git a/gdb/ChangeLog b/gdb/ChangeLog index d494b620c49..be575481df7 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,14 @@ + +Mon Nov 11 12:59:00 1996 Dawn Perchik + + * mips-tdep.c, remote-mips.c, values.c, mdebugread.c, + config/mips/tm-mips.h: Add/fix bugs for 64-bit mips support. + * defs.h: Cleanup; add prototypess + * corefile.c: Change FIXME #ifdef + * win32-nat.c: Include windefs instead of windows.h. + * utils.c: Add routines for printing addresses and registers + based on type size. + Sat Nov 9 01:05:10 1996 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * alpha-tdep.c (heuristic_proc_desc): Stop examining the prologue diff --git a/gdb/config/mips/tm-mips.h b/gdb/config/mips/tm-mips.h index d96dd0bfaab..d903e203ed1 100644 --- a/gdb/config/mips/tm-mips.h +++ b/gdb/config/mips/tm-mips.h @@ -305,7 +305,7 @@ extern CORE_ADDR mips_frame_chain PARAMS ((struct frame_info *)); /* Saved Pc. */ #define FRAME_SAVED_PC(FRAME) (mips_frame_saved_pc(FRAME)) -extern int mips_frame_saved_pc PARAMS ((struct frame_info *)); +extern CORE_ADDR mips_frame_saved_pc PARAMS ((struct frame_info *)); #define FRAME_ARGS_ADDRESS(fi) (fi)->frame @@ -479,6 +479,7 @@ extern void ecoff_relocate_efi PARAMS ((struct symbol *, CORE_ADDR)); typedef struct mips_extra_func_info { long numargs; /* number of args to procedure (was iopt) */ + bfd_vma high_addr; /* upper address bound */ PDR pdr; /* Procedure descriptor record */ } *mips_extra_func_info_t; @@ -543,6 +544,8 @@ extern void fixup_sigtramp PARAMS ((void)); /* Defined in mips-tdep.c and used in remote-mips.c */ extern char *mips_read_processor_type PARAMS ((void)); +#ifndef TARGET_MIPS #define TARGET_MIPS +#endif #endif /* TM_MIPS_H */ diff --git a/gdb/corefile.c b/gdb/corefile.c index 65ea357db97..b792514fa3b 100644 --- a/gdb/corefile.c +++ b/gdb/corefile.c @@ -137,7 +137,7 @@ specify_exec_file_hook (hook) void close_exec_file () { -#ifdef FIXME +#if 0 /* FIXME */ if (exec_bfd) bfd_tempclose (exec_bfd); #endif @@ -146,7 +146,7 @@ close_exec_file () void reopen_exec_file () { -#ifdef FIXME +#if 0 /* FIXME */ if (exec_bfd) bfd_reopen (exec_bfd); #endif diff --git a/gdb/defs.h b/gdb/defs.h index eb3f85cdde1..2f5ed4a6006 100644 --- a/gdb/defs.h +++ b/gdb/defs.h @@ -67,8 +67,12 @@ extern char *strsignal PARAMS ((int)); typedef bfd_vma CORE_ADDR; +#ifndef min #define min(a, b) ((a) < (b) ? (a) : (b)) +#endif +#ifndef max #define max(a, b) ((a) > (b) ? (a) : (b)) +#endif /* Gdb does *lots* of string compares. Use macros to speed them up by avoiding function calls if the first characters are not the same. */ @@ -90,11 +94,17 @@ extern int sevenbit_strings; extern void quit PARAMS ((void)); +#ifdef QUIT +/* do twice to force compiler warning */ +#define FIXME "FIXME" +#define FIXME "ignoring redefinition of QUIT" +#else #define QUIT { \ if (quit_flag) quit (); \ if (interactive_hook) interactive_hook (); \ PROGRESS (1); \ } +#endif /* Command classes are top-level categories into which commands are broken down for "help" purposes. @@ -207,10 +217,6 @@ extern char *chill_demangle PARAMS ((const char *)); /* From utils.c */ -extern PTR xmalloc PARAMS ((long)); - -extern PTR xrealloc PARAMS ((PTR, long)); - extern void notice_quit PARAMS ((void)); extern int strcmp_iw PARAMS ((const char *, const char *)); @@ -330,6 +336,12 @@ extern void gdb_printchar PARAMS ((int, GDB_FILE *, int)); extern void gdb_print_address PARAMS ((void *, GDB_FILE *)); +typedef bfd_vma t_addr; +typedef bfd_vma t_reg; +extern char* paddr PARAMS ((t_addr addr)); + +extern char* preg PARAMS ((t_reg reg)); + extern void fprintf_symbol_filtered PARAMS ((GDB_FILE *, char *, enum language, int)); @@ -559,9 +571,15 @@ extern char *strsave PARAMS ((const char *)); extern char *mstrsave PARAMS ((void *, const char *)); +#ifdef _WIN32 /* FIXME; was long, but this causes compile errors in msvc if already defined */ +extern PTR xmmalloc PARAMS ((PTR, size_t)); + +extern PTR xmrealloc PARAMS ((PTR, PTR, size_t)); +#else extern PTR xmmalloc PARAMS ((PTR, long)); extern PTR xmrealloc PARAMS ((PTR, PTR, long)); +#endif extern int parse_escape PARAMS ((char **)); @@ -627,8 +645,19 @@ extern char *getenv PARAMS ((const char *)); #endif #ifdef HAVE_STDLIB_H +#if defined(_MSC_VER) && !defined(__cplusplus) +/* msvc defines these in stdlib.h for c code */ +#undef min +#undef max +#endif #include #endif +#ifndef min +#define min(a, b) ((a) < (b) ? (a) : (b)) +#endif +#ifndef max +#define max(a, b) ((a) > (b) ? (a) : (b)) +#endif /* We take the address of fclose later, but some stdio's forget diff --git a/gdb/mips-tdep.c b/gdb/mips-tdep.c index 6a37d1a44b3..e03b093c2fb 100644 --- a/gdb/mips-tdep.c +++ b/gdb/mips-tdep.c @@ -32,18 +32,27 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "symfile.h" #include "objfiles.h" #include "gdbtypes.h" +#include "target.h" #include "opcode/mips.h" -#define VM_MIN_ADDRESS (unsigned)0x400000 +#define VM_MIN_ADDRESS (CORE_ADDR)0x400000 /* FIXME: Put this declaration in frame.h. */ extern struct obstack frame_cache_obstack; + +/* FIXME! this code assumes 4-byte instructions. */ +#define MIPS_INSTLEN 4 +#define MIPS_NUMREGS 32 /* FIXME! how many on 64-bit mips? */ +typedef unsigned long t_inst; + #if 0 static int mips_in_lenient_prologue PARAMS ((CORE_ADDR, CORE_ADDR)); #endif +static int gdb_print_insn_mips PARAMS ((bfd_vma, disassemble_info *)); + static void mips_print_register PARAMS ((int, int)); static mips_extra_func_info_t @@ -51,7 +60,7 @@ heuristic_proc_desc PARAMS ((CORE_ADDR, CORE_ADDR, struct frame_info *)); static CORE_ADDR heuristic_proc_start PARAMS ((CORE_ADDR)); -static int read_next_frame_reg PARAMS ((struct frame_info *, int)); +static CORE_ADDR read_next_frame_reg PARAMS ((struct frame_info *, int)); static void mips_set_fpu_command PARAMS ((char *, int, struct cmd_list_element *)); @@ -181,7 +190,7 @@ struct { static unsigned int heuristic_fence_post = 0; #define PROC_LOW_ADDR(proc) ((proc)->pdr.adr) /* least address */ -#define PROC_HIGH_ADDR(proc) ((proc)->pdr.iline) /* upper address bound */ +#define PROC_HIGH_ADDR(proc) ((proc)->high_addr) /* upper address bound */ #define PROC_FRAME_OFFSET(proc) ((proc)->pdr.frameoffset) #define PROC_FRAME_REG(proc) ((proc)->pdr.framereg) #define PROC_REG_MASK(proc) ((proc)->pdr.regmask) @@ -265,23 +274,26 @@ mips_find_saved_regs (fci) #ifndef SIGFRAME_BASE /* To satisfy alignment restrictions, sigcontext is located 4 bytes above the sigtramp frame. */ -#define SIGFRAME_BASE 4 -#define SIGFRAME_PC_OFF (SIGFRAME_BASE + 2 * 4) -#define SIGFRAME_REGSAVE_OFF (SIGFRAME_BASE + 3 * 4) -#define SIGFRAME_FPREGSAVE_OFF (SIGFRAME_REGSAVE_OFF + 32 * 4 + 3 * 4) +#define SIGFRAME_BASE MIPS_REGSIZE +/* FIXME! Are these correct?? */ +#define SIGFRAME_PC_OFF (SIGFRAME_BASE + 2 * MIPS_REGSIZE) +#define SIGFRAME_REGSAVE_OFF (SIGFRAME_BASE + 3 * MIPS_REGSIZE) +#define SIGFRAME_FPREGSAVE_OFF \ + (SIGFRAME_REGSAVE_OFF + MIPS_NUMREGS * MIPS_REGSIZE + 3 * MIPS_REGSIZE) #endif #ifndef SIGFRAME_REG_SIZE -#define SIGFRAME_REG_SIZE 4 +/* FIXME! Is this correct?? */ +#define SIGFRAME_REG_SIZE MIPS_REGSIZE #endif if (fci->signal_handler_caller) { - for (ireg = 0; ireg < 32; ireg++) + for (ireg = 0; ireg < MIPS_NUMREGS; ireg++) { reg_position = fci->frame + SIGFRAME_REGSAVE_OFF + ireg * SIGFRAME_REG_SIZE; fci->saved_regs->regs[ireg] = reg_position; } - for (ireg = 0; ireg < 32; ireg++) + for (ireg = 0; ireg < MIPS_NUMREGS; ireg++) { reg_position = fci->frame + SIGFRAME_FPREGSAVE_OFF + ireg * SIGFRAME_REG_SIZE; @@ -327,8 +339,8 @@ mips_find_saved_regs (fci) CORE_ADDR addr; int status; - char buf[4]; - unsigned long inst; + char buf[MIPS_INSTLEN]; + t_inst inst; /* Bitmasks; set if we have found a save for the register. */ unsigned long gen_save_found = 0; @@ -337,12 +349,12 @@ mips_find_saved_regs (fci) for (addr = PROC_LOW_ADDR (proc_desc); addr < fci->pc /*&& (gen_mask != gen_save_found || float_mask != float_save_found)*/; - addr += 4) + addr += MIPS_INSTLEN) { - status = read_memory_nobpt (addr, buf, 4); + status = read_memory_nobpt (addr, buf, MIPS_INSTLEN); if (status) memory_error (status, addr); - inst = extract_unsigned_integer (buf, 4); + inst = extract_unsigned_integer (buf, MIPS_INSTLEN); if (/* sw reg,n($sp) */ (inst & 0xffe00000) == 0xafa00000 @@ -381,7 +393,7 @@ mips_find_saved_regs (fci) /* Fill in the offsets for the registers which gen_mask says were saved. */ reg_position = fci->frame + PROC_REG_OFFSET (proc_desc); - for (ireg= 31; gen_mask; --ireg, gen_mask <<= 1) + for (ireg= MIPS_NUMREGS-1; gen_mask; --ireg, gen_mask <<= 1) if (gen_mask & 0x80000000) { fci->saved_regs->regs[ireg] = reg_position; @@ -393,8 +405,14 @@ mips_find_saved_regs (fci) /* The freg_offset points to where the first *double* register is saved. So skip to the high-order word. */ - reg_position += 4; - for (ireg = 31; float_mask; --ireg, float_mask <<= 1) + if (! GDB_TARGET_IS_MIPS64) + reg_position += 4; + + /* FIXME! this code looks scary... + * Looks like it's trying to do stuff with a register, + * but .... ??? + */ + for (ireg = MIPS_NUMREGS-1; float_mask; --ireg, float_mask <<= 1) if (float_mask & 0x80000000) { fci->saved_regs->regs[FP0_REGNUM+ireg] = reg_position; @@ -404,7 +422,7 @@ mips_find_saved_regs (fci) fci->saved_regs->regs[PC_REGNUM] = fci->saved_regs->regs[RA_REGNUM]; } -static int +static CORE_ADDR read_next_frame_reg(fi, regno) struct frame_info *fi; int regno; @@ -426,10 +444,11 @@ read_next_frame_reg(fi, regno) return read_register (regno); } -int +CORE_ADDR mips_frame_saved_pc(frame) struct frame_info *frame; { + CORE_ADDR saved_pc; mips_extra_func_info_t proc_desc = frame->proc_desc; /* We have to get the saved pc from the sigcontext if it is a signal handler frame. */ @@ -437,9 +456,22 @@ mips_frame_saved_pc(frame) : (proc_desc ? PROC_PC_REG(proc_desc) : RA_REGNUM); if (proc_desc && PROC_DESC_IS_DUMMY(proc_desc)) - return read_memory_integer(frame->frame - 4, 4); + saved_pc = read_memory_integer(frame->frame - MIPS_REGSIZE, MIPS_REGSIZE); + else + saved_pc = read_next_frame_reg(frame, pcreg); - return read_next_frame_reg(frame, pcreg); + if (GDB_TARGET_IS_MIPS64 && strcmp(current_target.to_shortname,"pmon")==0) + { + /* This hack is a work-around for PMON. + * The PMON version in the Vr4300 board has been + * compiled without the 64bit register access commands. + * Thus, the upper word of the PC may be sign extended to all 1s. + * If so, change it to zero. */ + if (saved_pc >> 32 == (CORE_ADDR)0xffffffff) + saved_pc &= (CORE_ADDR)0xffffffff; + } + + return saved_pc; } static struct mips_extra_func_info temp_proc_desc; @@ -463,7 +495,7 @@ heuristic_proc_start(pc) fence = VM_MIN_ADDRESS; /* search back for previous return */ - for (start_pc -= 4; ; start_pc -= 4) + for (start_pc -= MIPS_INSTLEN; ; start_pc -= MIPS_INSTLEN) /* FIXME!! */ if (start_pc < fence) { /* It's not clear to me why we reach this point when @@ -498,11 +530,11 @@ Otherwise, you told GDB there was a function where there isn't one, or\n\ else if (ABOUT_TO_RETURN(start_pc)) break; - start_pc += 8; /* skip return, and its delay slot */ + start_pc += 8; /* skip return, and its delay slot */ /* FIXME!! */ #if 0 /* skip nops (usually 1) 0 - is this */ - while (start_pc < pc && read_memory_integer (start_pc, 4) == 0) - start_pc += 4; + while (start_pc < pc && read_memory_integer (start_pc, MIPS_INSTLEN) == 0) + start_pc += MIPS_INSTLEN; #endif return start_pc; } @@ -514,9 +546,9 @@ heuristic_proc_desc(start_pc, limit_pc, next_frame) { CORE_ADDR sp = read_next_frame_reg (next_frame, SP_REGNUM); CORE_ADDR cur_pc; - int frame_size; + unsigned long frame_size; int has_frame_reg = 0; - int reg30 = 0; /* Value of $r30. Used by gcc for frame-pointer */ + CORE_ADDR reg30 = 0; /* Value of $r30. Used by gcc for frame-pointer */ unsigned long reg_mask = 0; if (start_pc == 0) return NULL; @@ -528,14 +560,14 @@ heuristic_proc_desc(start_pc, limit_pc, next_frame) limit_pc = start_pc + 200; restart: frame_size = 0; - for (cur_pc = start_pc; cur_pc < limit_pc; cur_pc += 4) { - char buf[4]; + for (cur_pc = start_pc; cur_pc < limit_pc; cur_pc += MIPS_INSTLEN) { + char buf[MIPS_INSTLEN]; unsigned long word; int status; - status = read_memory_nobpt (cur_pc, buf, 4); + status = (unsigned long) read_memory_nobpt (cur_pc, buf, MIPS_INSTLEN); /* FIXME!! */ if (status) memory_error (status, cur_pc); - word = extract_unsigned_integer (buf, 4); + word = (unsigned long) extract_unsigned_integer (buf, MIPS_INSTLEN); /* FIXME!! */ if ((word & 0xFFFF0000) == 0x27bd0000) /* addiu $sp,$sp,-i */ frame_size += (-word) & 0xFFFF; @@ -550,10 +582,10 @@ heuristic_proc_desc(start_pc, limit_pc, next_frame) if ((word & 0xffff) != frame_size) reg30 = sp + (word & 0xffff); else if (!has_frame_reg) { - int alloca_adjust; + unsigned alloca_adjust; has_frame_reg = 1; reg30 = read_next_frame_reg(next_frame, 30); - alloca_adjust = reg30 - (sp + (word & 0xffff)); + alloca_adjust = (unsigned)(reg30 - (sp + (word & 0xffff))); if (alloca_adjust > 0) { /* FP > SP + frame_size. This may be because * of an alloca or somethings similar. @@ -744,6 +776,7 @@ init_extra_frame_info(fci) /* hack: if argument regs are saved, guess these contain args */ if ((PROC_REG_MASK(proc_desc) & 0xF0) == 0) fci->num_args = -1; +/* FIXME! Increase this for MIPS EABI */ else if ((PROC_REG_MASK(proc_desc) & 0x80) == 0) fci->num_args = 4; else if ((PROC_REG_MASK(proc_desc) & 0x40) == 0) fci->num_args = 3; else if ((PROC_REG_MASK(proc_desc) & 0x20) == 0) fci->num_args = 2; @@ -787,16 +820,34 @@ mips_push_arguments(nargs, args, sp, struct_return, struct_addr) CORE_ADDR struct_addr; { register i; - int accumulate_size = struct_return ? MIPS_REGSIZE : 0; + int accumulate_size; struct mips_arg { char *contents; int len; int offset; }; - struct mips_arg *mips_args = - (struct mips_arg*)alloca((nargs + 4) * sizeof(struct mips_arg)); + struct mips_arg *mips_args; register struct mips_arg *m_arg; int fake_args = 0; + int len; + + /* Macro to round n up to the next a boundary (a must be a power of two) */ + #define ALIGN(n,a) (((n)+(a)-1) & ~((a)-1)) + + /* First ensure that the stack and structure return address (if any) + are properly aligned. */ + + sp = ALIGN (sp, MIPS_REGSIZE); + struct_addr = ALIGN (struct_addr, MIPS_REGSIZE); + + accumulate_size = struct_return ? MIPS_REGSIZE : 0; + + /* Allocate descriptors for each argument, plus some extras for the + dummies we will create to zero-fill the holes left when we align + arguments passed in registers that are smaller than a register. */ + mips_args = /* FIXME! Should this 4 be increased for MIPS64? */ + (struct mips_arg*) alloca ((nargs + 4) * sizeof (struct mips_arg)); + /* Build up the list of argument descriptors. */ for (i = 0, m_arg = mips_args; i < nargs; i++, m_arg++) { value_ptr arg = args[i]; - m_arg->len = TYPE_LENGTH (VALUE_TYPE (arg)); + len = m_arg->len = TYPE_LENGTH (VALUE_TYPE (arg)); /* This entire mips-specific routine is because doubles must be aligned * on 8-byte boundaries. It still isn't quite right, because MIPS decided * to align 'struct {int a, b}' on 4-byte boundaries (even though this @@ -807,27 +858,46 @@ mips_push_arguments(nargs, args, sp, struct_return, struct_addr) * using eight bytes each, so that we can load them up correctly * in CALL_DUMMY. */ - if (m_arg->len > 4) - accumulate_size = (accumulate_size + 7) & -8; + if (len > 4) /* FIXME? */ + accumulate_size = ALIGN (accumulate_size, 8); m_arg->offset = accumulate_size; m_arg->contents = VALUE_CONTENTS(arg); if (! GDB_TARGET_IS_MIPS64) - accumulate_size = (accumulate_size + m_arg->len + 3) & -4; + /* For 32-bit targets, align the next argument on a 32-bit boundary. */ + accumulate_size = ALIGN (accumulate_size + len, 4); else { + /* If the argument is being passed on the stack, not a register, + adjust the size of the argument upward to account for stack + alignment. The EABI allows 8 arguments to be passed in + registers; the old ABI allows only four. This code seems + bogus to me: shouldn't we be right-aligning small arguments + as we do below for the args-in-registers case? FIXME!! */ +#if MIPS_EABI + if (accumulate_size >= 8 * MIPS_REGSIZE) /* Ignores FP. FIXME!! */ + accumulate_size = ALIGN (accumulate_size + len, 8); +#else if (accumulate_size >= 4 * MIPS_REGSIZE) - accumulate_size = (accumulate_size + m_arg->len + 3) &~ 4; + accumulate_size = ALIGN (accumulate_size + len, 4); +#endif else { - static char zeroes[8] = { 0 }; - int len = m_arg->len; - - if (len < 8) + if (len < MIPS_REGSIZE) { + /* The argument is being passed in a register, but is smaller + than a register. So it it must be right-aligned in the + register image being placed in the stack, and the rest + of the register image must be zero-filled. */ + static char zeroes[MIPS_REGSIZE] = { 0 }; + + /* Align the arg in the rightmost part of the 64-bit word. */ if (TARGET_BYTE_ORDER == BIG_ENDIAN) - m_arg->offset += 8 - len; + m_arg->offset += MIPS_REGSIZE - len; + + /* Create a fake argument to zero-fill the unsused part + of the 64-bit word. */ ++m_arg; - m_arg->len = 8 - len; + m_arg->len = MIPS_REGSIZE - len; m_arg->contents = zeroes; if (TARGET_BYTE_ORDER == BIG_ENDIAN) m_arg->offset = accumulate_size; @@ -835,11 +905,11 @@ mips_push_arguments(nargs, args, sp, struct_return, struct_addr) m_arg->offset = accumulate_size + len; ++fake_args; } - accumulate_size = (accumulate_size + len + 7) & ~8; + accumulate_size = ALIGN (accumulate_size + len, MIPS_REGSIZE); } } } - accumulate_size = (accumulate_size + 7) & (-8); + accumulate_size = ALIGN (accumulate_size, 8); if (accumulate_size < 4 * MIPS_REGSIZE) accumulate_size = 4 * MIPS_REGSIZE; sp -= accumulate_size; @@ -855,23 +925,35 @@ mips_push_arguments(nargs, args, sp, struct_return, struct_addr) return sp; } -/* MASK(i,j) == (1<info; CORE_ADDR sp = read_register (SP_REGNUM); - CORE_ADDR save_address; + CORE_ADDR old_sp = sp; link->next = linked_proc_desc_table; linked_proc_desc_table = link; + +/* FIXME! are these correct ? */ #define PUSH_FP_REGNUM 16 /* must be a register preserved across calls */ -#define GEN_REG_SAVE_MASK MASK(1,16)|MASK(24,28)|(1<<31) +#define GEN_REG_SAVE_MASK MASK(1,16)|MASK(24,28)|(1<<(MIPS_NUMREGS-1)) #define GEN_REG_SAVE_COUNT 22 #define FLOAT_REG_SAVE_MASK MASK(0,19) #define FLOAT_REG_SAVE_COUNT 20 @@ -882,8 +964,9 @@ mips_push_dummy_frame() /* * The registers we must save are all those not preserved across * procedure calls. Dest_Reg (see tm-mips.h) must also be saved. - * In addition, we must save the PC, and PUSH_FP_REGNUM. - * (Ideally, we should also save MDLO/-HI and FP Control/Status reg.) + * In addition, we must save the PC, PUSH_FP_REGNUM, MMLO/-HI + * and FP Control/Status registers. + * * * Dummy frame layout: * (high memory) @@ -900,72 +983,35 @@ mips_push_dummy_frame() * Parameter build area (not yet implemented) * (low memory) */ + + /* Save special registers (PC, MMHI, MMLO, FPC_CSR) */ + write_register (PUSH_FP_REGNUM, sp); + PROC_FRAME_REG(proc_desc) = PUSH_FP_REGNUM; + PROC_FRAME_OFFSET(proc_desc) = 0; + mips_push_register (&sp, PC_REGNUM); + mips_push_register (&sp, HI_REGNUM); + mips_push_register (&sp, LO_REGNUM); + mips_push_register (&sp, mips_fpu == MIPS_FPU_NONE ? 0 : FCRCS_REGNUM); + + /* Save general CPU registers */ PROC_REG_MASK(proc_desc) = GEN_REG_SAVE_MASK; - switch (mips_fpu) - { - case MIPS_FPU_DOUBLE: - PROC_FREG_MASK(proc_desc) = FLOAT_REG_SAVE_MASK; - break; - case MIPS_FPU_SINGLE: - PROC_FREG_MASK(proc_desc) = FLOAT_SINGLE_REG_SAVE_MASK; - break; - case MIPS_FPU_NONE: - PROC_FREG_MASK(proc_desc) = 0; - break; - } - PROC_REG_OFFSET(proc_desc) = /* offset of (Saved R31) from FP */ - -sizeof(long) - 4 * SPECIAL_REG_SAVE_COUNT; - PROC_FREG_OFFSET(proc_desc) = /* offset of (Saved D18) from FP */ - -sizeof(double) - 4 * (SPECIAL_REG_SAVE_COUNT + GEN_REG_SAVE_COUNT); - /* save general registers */ - save_address = sp + PROC_REG_OFFSET(proc_desc); + PROC_REG_OFFSET(proc_desc) = sp - old_sp; /* offset of (Saved R31) from FP */ for (ireg = 32; --ireg >= 0; ) if (PROC_REG_MASK(proc_desc) & (1 << ireg)) - { - read_register_gen (ireg, buffer); + mips_push_register (&sp, ireg); - /* Need to fix the save_address decrement below, and also make sure - that we don't run into problems with the size of the dummy frame - or any of the offsets within it. */ - if (REGISTER_RAW_SIZE (ireg) > 4) - error ("Cannot call functions on mips64"); - - write_memory (save_address, buffer, REGISTER_RAW_SIZE (ireg)); - save_address -= 4; - } - /* save floating-points registers starting with high order word */ - save_address = sp + PROC_FREG_OFFSET(proc_desc) + 4; + /* Save floating point registers starting with high order word */ + PROC_FREG_MASK(proc_desc) = + mips_fpu == MIPS_FPU_DOUBLE ? FLOAT_REG_SAVE_MASK + : mips_fpu == MIPS_FPU_SINGLE ? FLOAT_SINGLE_REG_SAVE_MASK : 0; + PROC_FREG_OFFSET(proc_desc) = sp - old_sp; /* offset of (Saved D18) from FP */ for (ireg = 32; --ireg >= 0; ) if (PROC_FREG_MASK(proc_desc) & (1 << ireg)) - { - read_register_gen (ireg + FP0_REGNUM, buffer); - - if (REGISTER_RAW_SIZE (ireg + FP0_REGNUM) > 4) - error ("Cannot call functions on mips64"); + mips_push_register (&sp, ireg + FP0_REGNUM); - write_memory (save_address, buffer, - REGISTER_RAW_SIZE (ireg + FP0_REGNUM)); - save_address -= 4; - } - write_register (PUSH_FP_REGNUM, sp); - PROC_FRAME_REG(proc_desc) = PUSH_FP_REGNUM; - PROC_FRAME_OFFSET(proc_desc) = 0; - read_register_gen (PC_REGNUM, buffer); - write_memory (sp - 4, buffer, REGISTER_RAW_SIZE (PC_REGNUM)); - read_register_gen (HI_REGNUM, buffer); - write_memory (sp - 8, buffer, REGISTER_RAW_SIZE (HI_REGNUM)); - read_register_gen (LO_REGNUM, buffer); - write_memory (sp - 12, buffer, REGISTER_RAW_SIZE (LO_REGNUM)); - if (mips_fpu != MIPS_FPU_NONE) - read_register_gen (FCRCS_REGNUM, buffer); - else - memset (buffer, 0, REGISTER_RAW_SIZE (FCRCS_REGNUM)); - write_memory (sp - 16, buffer, REGISTER_RAW_SIZE (FCRCS_REGNUM)); - sp -= 4 * (GEN_REG_SAVE_COUNT + SPECIAL_REG_SAVE_COUNT); - if (mips_fpu == MIPS_FPU_DOUBLE) - sp -= 4 * FLOAT_REG_SAVE_COUNT; - else if (mips_fpu == MIPS_FPU_SINGLE) - sp -= 4 * FLOAT_SINGLE_REG_SAVE_COUNT; + /* Update the stack pointer. Set the procedure's starting and ending + addresses to point to the place on the stack where we'll be writing the + dummy code (in mips_push_arguments). */ write_register (SP_REGNUM, sp); PROC_LOW_ADDR(proc_desc) = sp - CALL_DUMMY_SIZE + CALL_DUMMY_START_OFFSET; PROC_HIGH_ADDR(proc_desc) = sp; @@ -987,15 +1033,15 @@ mips_pop_frame() mips_find_saved_regs (frame); if (proc_desc) { - for (regnum = 32; --regnum >= 0; ) + for (regnum = MIPS_NUMREGS; --regnum >= 0; ) if (PROC_REG_MASK(proc_desc) & (1 << regnum)) write_register (regnum, read_memory_integer (frame->saved_regs->regs[regnum], - 4)); - for (regnum = 32; --regnum >= 0; ) + MIPS_REGSIZE)); + for (regnum = MIPS_NUMREGS; --regnum >= 0; ) if (PROC_FREG_MASK(proc_desc) & (1 << regnum)) write_register (regnum + FP0_REGNUM, - read_memory_integer (frame->saved_regs->regs[regnum + FP0_REGNUM], 4)); + read_memory_integer (frame->saved_regs->regs[regnum + FP0_REGNUM], MIPS_REGSIZE)); } write_register (SP_REGNUM, new_sp); flush_cached_frames (); @@ -1022,10 +1068,13 @@ mips_pop_frame() free (pi_ptr); - write_register (HI_REGNUM, read_memory_integer(new_sp - 8, 4)); - write_register (LO_REGNUM, read_memory_integer(new_sp - 12, 4)); + write_register (HI_REGNUM, + read_memory_integer (new_sp - 2*MIPS_REGSIZE, MIPS_REGSIZE)); + write_register (LO_REGNUM, + read_memory_integer (new_sp - 3*MIPS_REGSIZE, MIPS_REGSIZE)); if (mips_fpu != MIPS_FPU_NONE) - write_register (FCRCS_REGNUM, read_memory_integer(new_sp - 16, 4)); + write_register (FCRCS_REGNUM, + read_memory_integer (new_sp - 4*MIPS_REGSIZE, MIPS_REGSIZE)); } } @@ -1043,13 +1092,13 @@ mips_print_register (regnum, all) } /* If an even floating pointer register, also print as double. */ - if (regnum >= FP0_REGNUM && regnum < FP0_REGNUM+32 + if (regnum >= FP0_REGNUM && regnum < FP0_REGNUM+MIPS_NUMREGS && !((regnum-FP0_REGNUM) & 1)) { char dbuffer[MAX_REGISTER_RAW_SIZE]; read_relative_register_raw_bytes (regnum, dbuffer); - read_relative_register_raw_bytes (regnum+1, dbuffer+4); + read_relative_register_raw_bytes (regnum+1, dbuffer+4); /* FIXME!! */ #ifdef REGISTER_CONVERT_TO_TYPE REGISTER_CONVERT_TO_TYPE(regnum, builtin_type_double, dbuffer); #endif @@ -1064,7 +1113,7 @@ mips_print_register (regnum, all) the user can't use them on input. Probably the best solution is to fix it so that either the numeric or the funky (a2, etc.) names are accepted on input. */ - if (regnum < 32) + if (regnum < MIPS_NUMREGS) printf_filtered ("(r%d): ", regnum); else printf_filtered (": "); @@ -1161,12 +1210,12 @@ int mips_step_skips_delay (pc) CORE_ADDR pc; { - char buf[4]; + char buf[4]; /* FIXME!! */ - if (target_read_memory (pc, buf, 4) != 0) + if (target_read_memory (pc, buf, 4) != 0) /* FIXME!! */ /* If error reading memory, guess that it is not a delayed branch. */ return 0; - return is_delayed (extract_unsigned_integer (buf, 4)); + return is_delayed ((unsigned long)extract_unsigned_integer (buf, 4)); /* FIXME */ } /* To skip prologues, I use this predicate. Returns either PC itself @@ -1183,8 +1232,8 @@ mips_skip_prologue (pc, lenient) CORE_ADDR pc; int lenient; { - unsigned long inst; - int offset; + t_inst inst; + unsigned offset; int seen_sp_adjust = 0; int load_immediate_bytes = 0; CORE_ADDR post_prologue_pc; @@ -1204,15 +1253,15 @@ mips_skip_prologue (pc, lenient) /* Skip the typical prologue instructions. These are the stack adjustment instruction and the instructions that save registers on the stack or in the gcc frame. */ - for (offset = 0; offset < 100; offset += 4) + for (offset = 0; offset < 100; offset += MIPS_INSTLEN) /* FIXME!! */ { - char buf[4]; + char buf[MIPS_INSTLEN]; int status; - status = read_memory_nobpt (pc + offset, buf, 4); + status = read_memory_nobpt (pc + offset, buf, MIPS_INSTLEN); if (status) memory_error (status, pc + offset); - inst = extract_unsigned_integer (buf, 4); + inst = (unsigned long)extract_unsigned_integer (buf, MIPS_INSTLEN); #if 0 if (lenient && is_delayed (inst)) @@ -1257,7 +1306,7 @@ mips_skip_prologue (pc, lenient) if ((inst & 0xffff0000) == 0x3c010000 || /* lui $at,n */ (inst & 0xffff0000) == 0x3c080000) /* lui $t0,n */ { - load_immediate_bytes += 4; + load_immediate_bytes += MIPS_INSTLEN; /* FIXME!! */ continue; } else if ((inst & 0xffff0000) == 0x34210000 || /* ori $at,$at,n */ @@ -1265,7 +1314,7 @@ mips_skip_prologue (pc, lenient) (inst & 0xffff0000) == 0x34010000 || /* ori $at,$zero,n */ (inst & 0xffff0000) == 0x34080000) /* ori $t0,$zero,n */ { - load_immediate_bytes += 4; + load_immediate_bytes += MIPS_INSTLEN; /* FIXME!! */ continue; } else @@ -1315,7 +1364,7 @@ mips_extract_return_value (valtype, regbuf, valbuf) regnum = 2; if (TYPE_CODE (valtype) == TYPE_CODE_FLT && (mips_fpu == MIPS_FPU_DOUBLE - || (mips_fpu == MIPS_FPU_SINGLE && TYPE_LENGTH (valtype) <= 4))) + || (mips_fpu == MIPS_FPU_SINGLE && TYPE_LENGTH (valtype) <= 4))) /* FIXME!! */ regnum = FP0_REGNUM; if (TARGET_BYTE_ORDER == BIG_ENDIAN @@ -1343,7 +1392,7 @@ mips_store_return_value (valtype, valbuf) regnum = 2; if (TYPE_CODE (valtype) == TYPE_CODE_FLT && (mips_fpu == MIPS_FPU_DOUBLE - || (mips_fpu == MIPS_FPU_SINGLE && TYPE_LENGTH (valtype) <= 4))) + || (mips_fpu == MIPS_FPU_SINGLE && TYPE_LENGTH (valtype) <= 4))) /* FIXME!! */ regnum = FP0_REGNUM; memcpy(raw_buffer, valbuf, TYPE_LENGTH (valtype)); @@ -1501,7 +1550,7 @@ mips_set_processor_type (str) char * mips_read_processor_type () { - int prid; + CORE_ADDR prid; prid = read_register (PRID_REGNUM); @@ -1523,7 +1572,7 @@ reinit_frame_cache_sfunc (args, from_tty, c) reinit_frame_cache (); } -int +static int gdb_print_insn_mips (memaddr, info) bfd_vma memaddr; disassemble_info *info; diff --git a/gdb/remote-mips.c b/gdb/remote-mips.c index 526866b9288..c0c16864e46 100644 --- a/gdb/remote-mips.c +++ b/gdb/remote-mips.c @@ -61,8 +61,8 @@ static void mips_send_command PARAMS ((const char *cmd, int prompt)); static int mips_receive_packet PARAMS ((char *buff, int throw_error, int timeout)); -static int mips_request PARAMS ((int cmd, unsigned int addr, - unsigned int data, int *perr, int timeout, +static CORE_ADDR mips_request PARAMS ((int cmd, CORE_ADDR addr, + CORE_ADDR data, int *perr, int timeout, char *buff)); static void mips_initialize PARAMS ((void)); @@ -92,9 +92,9 @@ static void mips_prepare_to_store PARAMS ((void)); static void mips_store_registers PARAMS ((int regno)); -static int mips_fetch_word PARAMS ((CORE_ADDR addr)); +static unsigned int mips_fetch_word PARAMS ((CORE_ADDR addr)); -static int mips_store_word PARAMS ((CORE_ADDR addr, int value, +static int mips_store_word PARAMS ((CORE_ADDR addr, unsigned int value, char *old_contents)); static int mips_xfer_memory PARAMS ((CORE_ADDR memaddr, char *myaddr, int len, @@ -1070,11 +1070,11 @@ mips_receive_packet (buff, throw_error, timeout) occurs, it sets *PERR to 1 and sets errno according to what the target board reports. */ -static int +static CORE_ADDR mips_request (cmd, addr, data, perr, timeout, buff) int cmd; - unsigned int addr; - unsigned int data; + CORE_ADDR addr; + CORE_ADDR data; int *perr; int timeout; char *buff; @@ -1093,7 +1093,7 @@ mips_request (cmd, addr, data, perr, timeout, buff) { if (mips_need_reply) fatal ("mips_request: Trying to send command before reply"); - sprintf (buff, "0x0 %c 0x%x 0x%x", cmd, addr, data); + sprintf (buff, "0x0 %c 0x%s 0x%s", cmd, paddr(addr), paddr(data)); mips_send_packet (buff, 1); mips_need_reply = 1; } @@ -1755,7 +1755,7 @@ mips_fetch_registers (regno) val = (unsigned)mips_request ('t', (unsigned int) mips_map_regno (regno), (unsigned int) 0, &err, mips_receive_wait, NULL); else - val = (unsigned)mips_request ('r', (unsigned int) mips_map_regno (regno), + val = mips_request ('r', (unsigned int) mips_map_regno (regno), (unsigned int) 0, &err, mips_receive_wait, NULL); if (err) mips_error ("Can't read register %d: %s", regno, @@ -1796,7 +1796,7 @@ mips_store_registers (regno) } mips_request ('R', (unsigned int) mips_map_regno (regno), - (unsigned int) read_register (regno), + read_register (regno), &err, mips_receive_wait, NULL); if (err) mips_error ("Can't write register %d: %s", regno, safe_strerror (errno)); @@ -1804,22 +1804,25 @@ mips_store_registers (regno) /* Fetch a word from the target board. */ -static int +static unsigned int mips_fetch_word (addr) CORE_ADDR addr; { - int val; + unsigned int val; int err; - val = mips_request ('d', (unsigned int) addr, (unsigned int) 0, &err, + /* FIXME! addr was cast to uint! */ + val = mips_request ('d', addr, (unsigned int) 0, &err, mips_receive_wait, NULL); if (err) { /* Data space failed; try instruction space. */ - val = mips_request ('i', (unsigned int) addr, (unsigned int) 0, &err, + /* FIXME! addr was cast to uint! */ + val = mips_request ('i', addr, (unsigned int) 0, &err, mips_receive_wait, NULL); if (err) - mips_error ("Can't read address 0x%x: %s", addr, safe_strerror (errno)); + mips_error ("Can't read address 0x%s: %s", + paddr(addr), safe_strerror (errno)); } return val; } @@ -1828,22 +1831,23 @@ mips_fetch_word (addr) success. If OLD_CONTENTS is non-NULL, put the old contents of that memory location there. */ +/* FIXME! make sure only 32-bit quantities get stored! */ static int mips_store_word (addr, val, old_contents) CORE_ADDR addr; - int val; + unsigned int val; char *old_contents; { int err; unsigned int oldcontents; - oldcontents = mips_request ('D', (unsigned int) addr, (unsigned int) val, + oldcontents = mips_request ('D', addr, (unsigned int) val, &err, mips_receive_wait, NULL); if (err) { /* Data space failed; try instruction space. */ - oldcontents = mips_request ('I', (unsigned int) addr, + oldcontents = mips_request ('I', addr, (unsigned int) val, &err, mips_receive_wait, NULL); if (err) @@ -2142,6 +2146,8 @@ pmon_insert_breakpoint (addr, contents_cache) tbuff[0] = '0'; tbuff[1] = 'x'; + /* FIXME!! only 8 bytes! need to expand for Bfd64; + which targets return 64-bit addresses? PMON returns only 32! */ if (!mips_getstring (&tbuff[2], 8)) return 1; tbuff[10] = '\0'; /* terminate the string */ @@ -2191,7 +2197,7 @@ pmon_remove_breakpoint (addr, contents_cache) if (bpnum >= PMON_MAX_BP) { - fprintf_unfiltered (stderr, "pmon_remove_breakpoint: Failed to find breakpoint at address 0x%x\n", addr); + fprintf_unfiltered (stderr, "pmon_remove_breakpoint: Failed to find breakpoint at address 0x%s\n", paddr(addr)); return 1; } @@ -2344,8 +2350,8 @@ common_breakpoint (cmd, addr, mask, flags) if (mips_monitor == MON_DDB) rresponse = rerrflg; if (rresponse != 22) /* invalid argument */ - fprintf_unfiltered (stderr, "common_breakpoint (0x%x): Got error: 0x%x\n", - (unsigned int)addr, rresponse); + fprintf_unfiltered (stderr, "common_breakpoint (0x%s): Got error: 0x%x\n", + paddr(addr), rresponse); return 1; } @@ -2421,6 +2427,7 @@ mips_load_srec (args) { int numbytes; + /* FIXME! vma too small?? */ printf_filtered ("%s\t: 0x%4x .. 0x%4x ", s->name, s->vma, s->vma + s->_raw_size); gdb_flush (gdb_stdout); @@ -2516,6 +2523,7 @@ mips_make_srec (buf, type, memaddr, myaddr, len) /* Create the header for the srec. addr_size is the number of bytes in the address, and 1 is the number of bytes in the count. */ + /* FIXME!! bigger buf required for 64-bit! */ buf[0] = 'S'; buf[1] = type; buf[2] = len + 4 + 1; /* len + 4 byte address + 1 byte checksum */ @@ -2981,8 +2989,8 @@ struct target_ops pmon_ops = "pmon", /* to_shortname */ "Remote MIPS debugging over serial line", /* to_longname */ "\ -Debug a board using the PMON MIPS remote debugging protocol over a serial line.\n\ -The argument is the device it is connected to or, if it contains a\n\ +Debug a board using the PMON MIPS remote debugging protocol over a serial\n\ +line. The argument is the device it is connected to or, if it contains a\n\ colon, HOST:PORT to access a board over a network", /* to_doc */ pmon_open, /* to_open */ mips_close, /* to_close */ @@ -3031,8 +3039,8 @@ struct target_ops ddb_ops = "ddb", /* to_shortname */ "Remote MIPS debugging over serial line", /* to_longname */ "\ -Debug a board using the DDBVR4300 (PMON) MIPS remote debugging protocol over a serial line.\n\ -The argument is the device it is connected to or, if it contains a\n\ +Debug a board using the PMON MIPS remote debugging protocol over a serial\n\ +line. The argument is the device it is connected to or, if it contains a\n\ colon, HOST:PORT to access a board over a network", /* to_doc */ ddb_open, /* to_open */ mips_close, /* to_close */ diff --git a/gdb/utils.c b/gdb/utils.c index 9687ca0df2e..abb7d11ded1 100644 --- a/gdb/utils.c +++ b/gdb/utils.c @@ -2268,10 +2268,11 @@ floatformat_from_doublest (fmt, from, to) if (mant_bits_left == fmt->man_len && fmt->intbit == floatformat_intbit_no) { - mant_long &= 0x7fffffff; + mant_long <<= 1; mant_bits -= 1; } - else if (mant_bits < 32) + + if (mant_bits < 32) { /* The bits we want are in the most significant MANT_BITS bits of mant_long. Move them to the least significant. */ @@ -2284,3 +2285,63 @@ floatformat_from_doublest (fmt, from, to) mant_bits_left -= mant_bits; } } + +/* temporary storage using circular buffer */ +#define MAXCELLS 16 +#define CELLSIZE 32 +char* +get_cell() +{ + static char buf[MAXCELLS][CELLSIZE]; + static int cell=0; + if (++cell>MAXCELLS) cell=0; + return buf[cell]; +} + +/* print routines to handle variable size regs, etc */ +char* +paddr(addr) + t_addr addr; +{ + char *paddr_str=get_cell(); + switch (sizeof(t_addr)) + { + case 8: + sprintf(paddr_str,"%08x%08x", + (unsigned long)(addr>>32),(unsigned long)(addr&0xffffffff)); + break; + case 4: + sprintf(paddr_str,"%08x",(unsigned long)addr); + break; + case 2: + sprintf(paddr_str,"%04x",(unsigned short)(addr&0xffff)); + break; + default: + sprintf(paddr_str,"%x",addr); + } + return paddr_str; +} + +char* +preg(reg) + t_reg reg; +{ + char *preg_str=get_cell(); + switch (sizeof(t_reg)) + { + case 8: + sprintf(preg_str,"%08x%08x", + (unsigned long)(reg>>32),(unsigned long)(reg&0xffffffff)); + break; + case 4: + sprintf(preg_str,"%08x",(unsigned long)reg); + break; + case 2: + sprintf(preg_str,"%04x",(unsigned short)(reg&0xffff)); + break; + default: + sprintf(preg_str,"%x",reg); + } + return preg_str; +} + diff --git a/gdb/values.c b/gdb/values.c index 954f6205513..0c3a6b97689 100644 --- a/gdb/values.c +++ b/gdb/values.c @@ -675,7 +675,16 @@ unpack_double (type, valaddr, invp) else if (nosign) { /* Unsigned -- be sure we compensate for signed LONGEST. */ +#ifndef _MSC_VER return (unsigned LONGEST) unpack_long (type, valaddr); +#else +#if (_MSC_VER > 800) + return (unsigned LONGEST) unpack_long (type, valaddr); +#else + /* FIXME!!! msvc22 doesn't support unsigned __int64 -> double */ + return (LONGEST) unpack_long (type, valaddr); +#endif +#endif /* _MSC_VER */ } else { diff --git a/gdb/win32-nat.c b/gdb/win32-nat.c index 81a8a0662f4..580b13b179f 100644 --- a/gdb/win32-nat.c +++ b/gdb/win32-nat.c @@ -32,7 +32,7 @@ #include #include #include -#include +#include "windefs.h" #include "buildsym.h" #include "symfile.h" #include "objfiles.h"