From ccf1e898d77a0230f20a832ef4f3b1a09a493d18 Mon Sep 17 00:00:00 2001 From: Stu Grossman Date: Thu, 25 Mar 1993 22:34:26 +0000 Subject: [PATCH] * findvar.c (read_register, write_register): Make these capable of reading/writing registers that are shorter than REGISTER_TYPE. * (value_from_register): Install H8500 specific code to return proper value when register is being used as a pointer. * h8500-tdep.c: Remove extra defines of NUM_REGS. (h8500_skip_prologue): Use correct lengths for LINK instructions. (FRAME_CHAIN): Change name to h8500_frame_chain. Rewrite code to chain frames properly by combining frame pointer with T reg. (init_extra_frame_info): Delete. It's now a macro. (frame_args_address): Don't add PTR_SIZE. Stack args are already offset by the correct amount off of the frame pointer. (register_byte): Delete. It's now a macro. (register_raw_size, register_virtual_size): Delete. Replaced by common routine h8500_register_size, cuz there's no difference between the raw & virtual sizes on this machine. (register_convert_to_raw, register_convert_to_virtual): Delete, cuz there's no difference between the raw & virtual forms. Replaced by memcpy in tm file. (register_virtual_type): Rename to h8500_register_virtual_type. Get rid of pointer pseudo-regs, use _REGNUM with all reg names. (_initialize_h8500_tdep): Get rid of crock to ensure that GDB & emulator have same reg offsets. This is all handled in the simulator code now. (h8500_trapped_internalvar): New routine to detect references to convenience vars acting as pointer pseudo-regs. (h8500_value_trapped_internalvar): Conjure up value of pointer pseudo-regs. (h8500_set_trapped_internalvar): Convert set value in real register references. infcmd.c (read_pc, write_pc): Add h8500 specific code to handle code segment register. infrun.c (proceed): Simplify. Call write_pc instead of doing it by hand. (wait_for_inferior): Add h8500 specific code to add stack segment when reading SP register. remote-sim.c (fetch_register): Spacing. tm-h8500.h: #define GDB_TARGET_IS_H8500 to make it easier to detect cruft. Redo all register manipulation stuff. Get rid of pointer pseudo-regs. (INIT_EXTRA_FRAME_INFO): Adds stack segment to frame pointer. (IS_TRAPPED_INTERNALVAL, VALUE_OF_TRAPPED_INTERNALVAR, SET_TRAPPED_INTERNALVAR): Use these to create internal vars for pointer pseudo-regs. --- gdb/ChangeLog | 45 +++++++ gdb/h8500-tdep.c | 335 +++++++++++++++++++++-------------------------- gdb/remote-sim.c | 23 ++-- gdb/tm-h8500.h | 302 ++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 507 insertions(+), 198 deletions(-) create mode 100644 gdb/tm-h8500.h diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 5b53d9604a8..7e72fa15d7f 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,48 @@ +Thu Mar 25 12:26:50 1993 Stu Grossman (grossman@cygnus.com) + + * findvar.c (read_register, write_register): Make these capable + of reading/writing registers that are shorter than REGISTER_TYPE. + * (value_from_register): Install H8500 specific code to return + proper value when register is being used as a pointer. + * h8500-tdep.c: Remove extra defines of NUM_REGS. + (h8500_skip_prologue): Use correct lengths for LINK instructions. + (FRAME_CHAIN): Change name to h8500_frame_chain. Rewrite code to + chain frames properly by combining frame pointer with T reg. + (init_extra_frame_info): Delete. It's now a macro. + (frame_args_address): Don't add PTR_SIZE. Stack args are already + offset by the correct amount off of the frame pointer. + (register_byte): Delete. It's now a macro. + (register_raw_size, register_virtual_size): Delete. Replaced by + common routine h8500_register_size, cuz there's no difference + between the raw & virtual sizes on this machine. + (register_convert_to_raw, register_convert_to_virtual): Delete, + cuz there's no difference between the raw & virtual forms. + Replaced by memcpy in tm file. + (register_virtual_type): Rename to h8500_register_virtual_type. + Get rid of pointer pseudo-regs, use _REGNUM with all reg names. + (_initialize_h8500_tdep): Get rid of crock to ensure that GDB & + emulator have same reg offsets. This is all handled in the + simulator code now. + (h8500_trapped_internalvar): New routine to detect references to + convenience vars acting as pointer pseudo-regs. + (h8500_value_trapped_internalvar): Conjure up value of pointer + pseudo-regs. + (h8500_set_trapped_internalvar): Convert set value in real + register references. + infcmd.c (read_pc, write_pc): Add h8500 specific code to handle + code segment register. + infrun.c (proceed): Simplify. Call write_pc instead of doing it + by hand. + (wait_for_inferior): Add h8500 specific code to add stack segment + when reading SP register. + remote-sim.c (fetch_register): Spacing. + tm-h8500.h: #define GDB_TARGET_IS_H8500 to make it easier to + detect cruft. Redo all register manipulation stuff. Get rid of + pointer pseudo-regs. (INIT_EXTRA_FRAME_INFO): Adds stack segment + to frame pointer. (IS_TRAPPED_INTERNALVAL, + VALUE_OF_TRAPPED_INTERNALVAR, SET_TRAPPED_INTERNALVAR): Use these + to create internal vars for pointer pseudo-regs. + Thu Mar 25 10:10:28 1993 Fred Fish (fnf@cygnus.com) * Makefile.in: Numerous small changes to macro definitions diff --git a/gdb/h8500-tdep.c b/gdb/h8500-tdep.c index 31ad3f5fb59..50d5ae055a1 100644 --- a/gdb/h8500-tdep.c +++ b/gdb/h8500-tdep.c @@ -28,15 +28,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "symtab.h" #include "gdbtypes.h" #include "gdbcmd.h" +#include "value.h" #include "dis-asm.h" #include "../opcodes/h8500-opc.h" ; -#undef NUM_REGS -#define NUM_REGS 11 #define UNSIGNED_SHORT(X) ((X) & 0xffff) - /* Shape of an H8/500 frame : @@ -79,6 +77,11 @@ int minimum_mode = 1; CORE_ADDR examine_prologue (); void frame_find_saved_regs (); + +int regoff[NUM_REGS] = {0, 2, 4, 6, 8, 10, 12, 14, /* r0->r7 */ + 16, 18, /* ccr, pc */ + 20, 21, 22, 23}; /* cp, dp, ep, tp */ + CORE_ADDR h8500_skip_prologue (start_pc) CORE_ADDR start_pc; @@ -86,47 +89,20 @@ h8500_skip_prologue (start_pc) { short int w; - w = read_memory_integer (start_pc, 1); if (w == LINK_8) { - start_pc ++; + start_pc += 2; w = read_memory_integer (start_pc,1); } if (w == LINK_16) { - start_pc +=2; + start_pc += 3; w = read_memory_integer (start_pc,2); } - /* Skip past a move to FP */ - if (IS_MOVE_FP (w)) - { - start_pc += 2; - w = read_memory_short (start_pc); - } - - /* Skip the stack adjust */ - - if (IS_MOVK_R5 (w)) - { - start_pc += 2; - w = read_memory_short (start_pc); - } - if (IS_SUB_R5SP (w)) - { - start_pc += 2; - w = read_memory_short (start_pc); - } - while (IS_SUB2_SP (w)) - { - start_pc += 2; - w = read_memory_short (start_pc); - } - return start_pc; - } int @@ -150,22 +126,15 @@ print_insn (memaddr, stream) the function prologue to determine the caller's sp value, and return it. */ FRAME_ADDR -FRAME_CHAIN (thisframe) +h8500_frame_chain (thisframe) FRAME thisframe; { - static int loopcount; - static int prevr; - if (!inside_entry_file ((thisframe)->pc)) - { - int v = read_memory_integer ((thisframe)->frame, PTR_SIZE) ; - /* Detect loops in the stack */ - if (v == prevr) loopcount++; - else loopcount = 0; - v = prevr; - if (loopcount > 5) return 0; - } - return 0; + if (!inside_entry_file (thisframe->pc)) + return read_memory_integer(thisframe->frame, 2) + | (read_register(SEG_T_REGNUM) << 16); + else + return 0; } /* Put here the code to store, into a struct frame_saved_regs, @@ -361,19 +330,6 @@ examine_prologue (ip, limit, after_prolog_fp, fsr, fi) return (ip); } #endif -#if 0 -void -init_extra_frame_info (fromleaf, fi) - int fromleaf; - struct frame_info *fi; -{ - fi->fsr = 0; /* Not yet allocated */ - fi->args_pointer = 0; /* Unknown */ - fi->locals_pointer = 0; /* Unknown */ - fi->from_pc = 0; - -} -#endif /* Return the saved PC from this frame. */ @@ -381,7 +337,7 @@ CORE_ADDR frame_saved_pc (frame) FRAME frame; { - return read_memory_integer ((frame)->frame + 2, PTR_SIZE); + return read_memory_integer ((frame)->frame + 2, PTR_SIZE); } CORE_ADDR @@ -398,7 +354,7 @@ CORE_ADDR frame_args_address (fi) struct frame_info *fi; { - return fi->frame + PTR_SIZE; /* Skip the PC */ + return fi->frame; } void @@ -474,127 +430,43 @@ print_register_hook (regno) } } - - -#if 0 -register_byte (N) +int +h8500_register_size (regno) + int regno; { - return reginfo[N].offset; -} -#endif -register_raw_size (N) -{ - if (N <= R7) return 2; - return 4; -} - -register_virtual_size (N) -{ - if (N <= R7) return 2; - return 4; -} - - - -register_convert_to_raw (regnum, from, to) - int regnum; - char *from; - char *to; -{ - switch (regnum) - { - case PR0: - case PR1: - case PR2: - case PR3: - case PR4: - case PR5: - case PR6: - case PR7: - case PC_REGNUM: - to[0] = 0; - to[1] = from[1]; - to[2] = from[2]; - to[3] = from[3]; - break; - default: - to[0] = from[0]; - to[1] = from[1]; - break; - } -} - - -register_convert_to_virtual (regnum, from, to) - int regnum; - char *from; - char *to; -{ - switch (regnum) - { - case PR0: - case PR1: - case PR2: - case PR3: - case PR4: - case PR5: - case PR6: - case PR7: - case PC_REGNUM: - to[0] = 0; - to[1] = from[1]; - to[2] = from[2]; - to[3] = from[3]; - break; - default: - to[0] = from[0]; - to[1] = from[1]; - break; - } + if (regno <= PC_REGNUM) + return 2; + else + return 1; } struct type * -register_virtual_type (N) +h8500_register_virtual_type (regno) + int regno; { - switch (N) + switch (regno) { - /* Although these are actually word size registers, we treat them - like longs so that we can deal with any implicit segmentation */ - case PR0: - case PR1: - case PR2: - case PR3: - case PR4: - case PR5: - case PR6: - case PR7: - case PC_REGNUM: - return builtin_type_unsigned_long; - case SEG_C: - case SEG_E: - case SEG_D: - case SEG_T: + case SEG_C_REGNUM: + case SEG_E_REGNUM: + case SEG_D_REGNUM: + case SEG_T_REGNUM: return builtin_type_unsigned_char; - case R0: - case R1: - case R2: - case R3: - case R4: - case R5: - case R6: - case R7: + case R0_REGNUM: + case R1_REGNUM: + case R2_REGNUM: + case R3_REGNUM: + case R4_REGNUM: + case R5_REGNUM: + case R6_REGNUM: + case R7_REGNUM: + case PC_REGNUM: case CCR_REGNUM: return builtin_type_unsigned_short; - - default: abort(); } } - - - /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special @@ -769,28 +641,119 @@ set_memory (args, from_tty) help_list (setmemorylist, "set memory ", -1, stdout); } +/* See if variable name is ppc or pr[0-7] */ + +int +h8500_is_trapped_internalvar (name) + char *name; +{ + if (name[0] != 'p') + return 0; + + if (strcmp(name+1, "pc") == 0) + return 1; + + if (name[1] == 'r' + && name[2] >= '0' + && name[2] <= '7' + && name[3] == '\000') + return 1; + else + return 0; +} + +PTR +h8500_value_of_trapped_internalvar (var) + struct internalvar *var; +{ + LONGEST regval; + unsigned char regbuf[4]; + int page_regnum, regnum; + + regnum = var->name[2] == 'c' ? PC_REGNUM : var->name[2] - '0'; + + switch (var->name[2]) + { + case 'c': + page_regnum = SEG_C_REGNUM; + break; + case '0': case '1': case '2': case '3': + page_regnum = SEG_D_REGNUM; + break; + case '4': case '5': + page_regnum = SEG_E_REGNUM; + break; + case '6': case '7': + page_regnum = SEG_T_REGNUM; + break; + } + + get_saved_register (regbuf, NULL, NULL, selected_frame, page_regnum, NULL); + regval = regbuf[0] << 16; + + get_saved_register (regbuf, NULL, NULL, selected_frame, regnum, NULL); + regval |= regbuf[0] << 8 | regbuf[1]; /* XXX host/target byte order */ + + free (var->value); /* Free up old value */ + + var->value = value_from_longest (builtin_type_unsigned_long, regval); + release_value (var->value); /* Unchain new value */ + + VALUE_LVAL (var->value) = lval_internalvar; + VALUE_INTERNALVAR (var->value) = var; + return var->value; +} + +void +h8500_set_trapped_internalvar (var, newval, bitpos, bitsize, offset) + struct internalvar *var; + int offset, bitpos, bitsize; + value newval; +{ + char *page_regnum, *regnum; + char expression[100]; + unsigned new_regval; + struct type *type; + enum type_code newval_type_code; + + type = VALUE_TYPE (newval); + newval_type_code = TYPE_CODE (type); + + if ((newval_type_code != TYPE_CODE_INT + && newval_type_code != TYPE_CODE_PTR) + || TYPE_LENGTH (type) != sizeof(new_regval)) + error("Illegal type (%s) for assignment to $%s\n", + TYPE_NAME (type), var->name); + + new_regval = *(long *)VALUE_CONTENTS_RAW(newval); + + regnum = var->name + 1; + + switch (var->name[2]) + { + case 'c': + page_regnum = "cp"; + break; + case '0': case '1': case '2': case '3': + page_regnum = "dp"; + break; + case '4': case '5': + page_regnum = "ep"; + break; + case '6': case '7': + page_regnum = "tp"; + break; + } + + sprintf (expression, "$%s=%d", page_regnum, new_regval >> 16); + parse_and_eval(expression); + + sprintf (expression, "$%s=%d", regnum, new_regval & 0xffff); + parse_and_eval(expression); +} _initialize_h8500_tdep () { - /* Sanitity check a few things */ - if (FP_REGNUM != GPR6 - || SP_REGNUM != GPR7 - || CCR_REGNUM != GCCR - || PC_REGNUM != GPC - || SEG_C != GSEGC - || SEG_D != GSEGD - || SEG_E != GSEGE - || SEG_T != GSEGT - || PR0 != GPR0 - || PR1 != GPR1 - || PR2 != GPR2 - || PR3 != GPR3 - || PR4 != GPR4 - || PR5 != GPR5 - || PR6 != GPR6 - || PR7 != GPR7) - abort (); - add_prefix_cmd ("memory", no_class, set_memory, "set the memory model", &setmemorylist, "set memory ", 0, &setlist); diff --git a/gdb/remote-sim.c b/gdb/remote-sim.c index d5840bea30b..313c4849fbb 100644 --- a/gdb/remote-sim.c +++ b/gdb/remote-sim.c @@ -191,23 +191,22 @@ sim_wait (status) return 0; } - - static void fetch_register(regno) -int regno; + int regno; { if (regno == -1) - { - for (regno = 0; regno < NUM_REGS; regno++) - fetch_register(regno); - } + { + for (regno = 0; regno < NUM_REGS; regno++) + fetch_register(regno); + } else - { - char buf[MAX_REGISTER_RAW_SIZE]; - sim_fetch_register(regno, buf); - supply_register(regno, buf); - } + { + char buf[MAX_REGISTER_RAW_SIZE]; + + sim_fetch_register(regno, buf); + supply_register(regno, buf); + } } diff --git a/gdb/tm-h8500.h b/gdb/tm-h8500.h new file mode 100644 index 00000000000..6497aaab07b --- /dev/null +++ b/gdb/tm-h8500.h @@ -0,0 +1,302 @@ +/* Parameters for execution on a H8/500 series machine. + Copyright (C) 1993 Free Software Foundation, Inc. + +This file is part of GDB. + +This program is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ + +/* Contributed by Steve Chamberlain sac@cygnus.com */ + +#define GDB_TARGET_IS_H8500 + +#define IEEE_FLOAT 1 + +/* Define the bit, byte, and word ordering of the machine. */ + +#define TARGET_BYTE_ORDER BIG_ENDIAN + +#undef TARGET_INT_BIT +#define TARGET_INT_BIT 16 + +#undef TARGET_PTR_BIT +#define TARGET_PTR_BIT (minimum_mode ? 16 : 32) + + +/* Offset from address of function to start of its code. + Zero on most machines. */ + +#define FUNCTION_START_OFFSET 0 + +/* Advance PC across any function entry prologue instructions + to reach some "real" code. */ + +#define SKIP_PROLOGUE(ip) {(ip) = h8500_skip_prologue(ip);} +extern CORE_ADDR h8500_skip_prologue (); + + +/* Immediately after a function call, return the saved pc. + Can't always go through the frames for this because on some machines + the new frame is not set up until the new function executes + some instructions. */ + +#define SAVED_PC_AFTER_CALL(frame) saved_pc_after_call(frame) + + +/* Stack grows downward. */ + +#define INNER_THAN < + +/* Illegal instruction - used by the simulator for breakpoint + detection */ +#define BREAKPOINT {0x0b} + + +/* If your kernel resets the pc after the trap happens you may need to + define this before including this file. */ + +#define DECR_PC_AFTER_BREAK 0 + + +/* Nonzero if instruction at PC is a return instruction. */ + +#define ABOUT_TO_RETURN(pc) about_to_return(pc) + +/* Return 1 if P points to an invalid floating point value. */ + +#define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ + +/* Say how long registers are. */ + +#define REGISTER_TYPE unsigned long + +/* Say how much memory is needed to store a copy of the register set */ + +#define REGISTER_BYTES (24) + +/* Index within `registers' of the first byte of the space for + register N. */ + +int regoff[]; +#define REGISTER_BYTE(N) (regoff[N]) + +/* Number of bytes of storage in the actual machine representation + for register N. */ + +#define REGISTER_RAW_SIZE(N) h8500_register_size(N) +int h8500_register_size PARAMS ((int regno)); + +#define REGISTER_VIRTUAL_SIZE(N) h8500_register_size(N) + +/* Largest value REGISTER_RAW_SIZE can have. */ + +#define MAX_REGISTER_RAW_SIZE 4 + +/* Largest value REGISTER_VIRTUAL_SIZE can have. */ + +#define MAX_REGISTER_VIRTUAL_SIZE 4 + +/* Nonzero if register N requires conversion + from raw format to virtual format. */ + +#define REGISTER_CONVERTIBLE(N) (0) + +/* Convert data from raw format for register REGNUM + to virtual format for register REGNUM. */ + +#define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,FROM,TO) \ +{ memcpy ((TO), (FROM), 4); } + +/* Convert data from virtual format for register REGNUM + to raw format for register REGNUM. */ + +#define REGISTER_CONVERT_TO_RAW(REGNUM,FROM,TO) \ +{ memcpy ((TO), (FROM), 4); } + +/* Return the GDB type object for the "standard" data type + of data in register N. */ + +#define REGISTER_VIRTUAL_TYPE(N) h8500_register_virtual_type(N) +struct type *h8500_register_virtual_type PARAMS ((int regno)); + +/* Initializer for an array of names of registers. + Entries beyond the first NUM_REGS are ignored. */ + +#define REGISTER_NAMES \ + {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \ + "ccr","pc", \ + "cp","dp","ep","tp" } + +/* Register numbers of various important registers. + Note that some of these values are "real" register numbers, + and correspond to the general registers of the machine, + and some are "phony" register numbers which are too large + to be actual register numbers as far as the user is concerned + but do serve to get the desired values when passed to read_register. */ + + +#define R0_REGNUM 0 +#define R1_REGNUM 1 +#define R2_REGNUM 2 +#define R3_REGNUM 3 +#define R4_REGNUM 4 +#define R5_REGNUM 5 +#define R6_REGNUM 6 +#define R7_REGNUM 7 + +#define SP_REGNUM R7_REGNUM /* Contains address of top of stack */ +#define FP_REGNUM R6_REGNUM /* Contains address of executing stack frame */ + +#define CCR_REGNUM 8 /* Contains processor status */ +#define PC_REGNUM 9 /* Contains program counter */ + +#define SEG_C_REGNUM 10 /* Segment registers */ +#define SEG_D_REGNUM 11 +#define SEG_E_REGNUM 12 +#define SEG_T_REGNUM 13 + +#define NUM_REGS 14 + +#define PTR_SIZE (minimum_mode ? 2: 4) +#define PTR_MASK (minimum_mode ? 0x0000ffff : 0x00ffffff) + +/* Store the address of the place in which to copy the structure the + subroutine will return. This is called from call_function. */ + +/*#define STORE_STRUCT_RETURN(ADDR, SP) \ + { write_register (0, (ADDR)); abort(); }*/ + +/* Extract from an array REGBUF containing the (raw) register state + a function return value of type TYPE, and copy that, in virtual format, + into VALBUF. */ + +#define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ + bcopy ((char *)(REGBUF), VALBUF, TYPE_LENGTH(TYPE)) + + +/* Write into appropriate registers a function return value + of type TYPE, given in virtual format. Assumes floats are passed + in d0/d1. */ + + +#define STORE_RETURN_VALUE(TYPE,VALBUF) \ + write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) + + +/* Extract from an array REGBUF containing the (raw) register state + the address in which a function should return its structure value, + as a CORE_ADDR (or an expression that can be used as one). */ + +#define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(CORE_ADDR *)(REGBUF)) + + +/* Define other aspects of the stack frame. */ + +/* A macro that tells us whether the function invocation represented + by FI does not have a frame on the stack associated with it. If it + does not, FRAMELESS is set to 1, else 0. */ +#define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ + (FRAMELESS) = frameless_look_for_prologue(FI) + +/* Any function with a frame looks like this + SECOND ARG + FIRST ARG + RET PC + SAVED R2 + SAVED R3 + SAVED FP <-FP POINTS HERE + LOCALS0 + LOCALS1 <-SP POINTS HERE + + */ + +CORE_ADDR h8500_frame_chain PARAMS ((FRAME thisframe)); + +#define INIT_EXTRA_FRAME_INFO(fromleaf, fci) \ + (fci)->frame |= read_register(SEG_T_REGNUM) << 16; + +#define FRAME_CHAIN(FRAME) h8500_frame_chain(FRAME) + +#define FRAME_SAVED_PC(FRAME) frame_saved_pc(FRAME) + +#define FRAME_ARGS_ADDRESS(fi) frame_args_address(fi) + +#define FRAME_LOCALS_ADDRESS(fi) frame_locals_address(fi); + +/* Set VAL to the number of args passed to frame described by FI. + Can set VAL to -1, meaning no way to tell. */ + +/* We can't tell how many args there are + now that the C compiler delays popping them. */ + +#define FRAME_NUM_ARGS(val,fi) (val = -1) + +/* Return number of bytes at start of arglist that are not really args. */ + +#define FRAME_ARGS_SKIP 0 + +/* Put here the code to store, into a struct frame_saved_regs, + the addresses of the saved registers of frame described by FRAME_INFO. + This includes special registers such as pc and fp saved in special + ways in the stack frame. sp is even more special: + the address we return for it IS the sp for the next frame. */ + +#define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ + frame_find_saved_regs(frame_info, &(frame_saved_regs)) + + +/* Push an empty stack frame, to record the current PC, etc. */ + +/*#define PUSH_DUMMY_FRAME { h8300_push_dummy_frame (); }*/ + +/* Discard from the stack the innermost frame, restoring all registers. */ + +#define POP_FRAME { h8300_pop_frame (); } + +#define SHORT_INT_MAX 32767 +#define SHORT_INT_MIN -32768 + + + +#define BEFORE_MAIN_LOOP_HOOK \ + hms_before_main_loop(); + + +#define NAMES_HAVE_UNDERSCORE + +typedef unsigned short INSN_WORD; + +#define ADDR_BITS_REMOVE(addr) ((addr) & 0xffffff) +#define ADDR_BITS_SET(addr) (((addr))) + +#define read_memory_short(x) (read_memory_integer(x,2) & 0xffff) +#define DONT_USE_REMOTE + + +#define PRINT_REGISTER_HOOK(regno) print_register_hook(regno) + +int minimum_mode; + +#define CALL_DUMMY_LENGTH 10 + +/* Fake variables to make it easy to use 24 bit register pointers */ + +int h8500_is_trapped_internalvar PARAMS ((char *name)); +#define IS_TRAPPED_INTERNALVAR h8500_is_trapped_internalvar + +PTR h8500_value_of_trapped_internalvar PARAMS ((struct internalvar *var)); +#define VALUE_OF_TRAPPED_INTERNALVAR h8500_value_of_trapped_internalvar + +void h8500_set_trapped_internalvar PARAMS ((struct internalvar *var, value newval, int bitpos, int bitsize, int offset)); +#define SET_TRAPPED_INTERNALVAR h8500_set_trapped_internalvar