gdb/tm-irix3.h

   1 /* Target machine description for SGI Iris under Irix, for GDB.
   2    Copyright 1990, 1991 Free Software Foundation, Inc.
   3
   4 This file is part of GDB.
   5
   6 This program is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2 of the License, or
   9 (at your option) any later version.
  10
  11 This program is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with this program; if not, write to the Free Software
  18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20 #define TARGET_BYTE_ORDER BIG_ENDIAN
  21
  22 /* Floating point is IEEE compliant */
  23 #define IEEE_FLOAT
  24
  25 /* Define this if the C compiler puts an underscore at the front
  26    of external names before giving them to the linker.  */
  27
  28 /*#define NAMES_HAVE_UNDERSCORE*/
  29
  30 /* Offset from address of function to start of its code.
  31    Zero on most machines.  */
  32
  33 #define FUNCTION_START_OFFSET 0
  34
  35 /* Advance PC across any function entry prologue instructions
  36    to reach some "real" code.  */
  37
  38 #define SKIP_PROLOGUE(pc)       pc = mips_skip_prologue(pc)
  39
  40 /* Immediately after a function call, return the saved pc.
  41    Can't always go through the frames for this because on some machines
  42    the new frame is not set up until the new function executes
  43    some instructions.  */
  44
  45 #define SAVED_PC_AFTER_CALL(frame)      read_register(RA_REGNUM)
  46
  47 /* Are we currently handling a signal */
  48
  49 #define IN_SIGTRAMP(pc, name)   in_sigtramp(pc, name)
  50
  51 /* Address of end of stack space.  */
  52
  53 #define STACK_END_ADDR (0x7ffff000)
  54
  55 /* Stack grows downward.  */
  56
  57 #define INNER_THAN <
  58
  59 #define BREAKPOINT {0, 0x5, 0, 0xd}
  60
  61 /* Amount PC must be decremented by after a breakpoint.
  62    This is often the number of bytes in BREAKPOINT
  63    but not always.  */
  64
  65 #define DECR_PC_AFTER_BREAK 0
  66
  67 /* Nonzero if instruction at PC is a return instruction. "j ra" on mips. */
  68
  69 #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 4) == 0x3e00008)
  70
  71 /* Return 1 if P points to an invalid floating point value. */
  72
  73 #define INVALID_FLOAT(p,l)      isa_NAN(p,l)
  74
  75 /* Say how long (all) registers are.  */
  76
  77 #define REGISTER_TYPE long
  78
  79 /* Number of machine registers */
  80
  81 #define NUM_REGS 71
  82
  83 /* Initializer for an array of names of registers.
  84    There should be NUM_REGS strings in this initializer.  */
  85
  86 #define REGISTER_NAMES  \
  87     {   "zero", "at",   "v0",   "v1",   "a0",   "a1",   "a2",   "a3", \
  88         "t0",   "t1",   "t2",   "t3",   "t4",   "t5",   "t6",   "t7", \
  89         "s0",   "s1",   "s2",   "s3",   "s4",   "s5",   "s6",   "s7", \
  90         "t8",   "t9",   "k0",   "k1",   "gp",   "sp",   "fp",   "ra", \
  91         "f0",   "f1",   "f2",   "f3",   "f4",   "f5",   "f6",   "f7", \
  92         "f8",   "f9",   "f10",  "f11",  "f12",  "f13",  "f14",  "f15", \
  93         "f16",  "f17",  "f18",  "f19",  "f20",  "f21",  "f22",  "f23",\
  94         "f24",  "f25",  "f26",  "f27",  "f28",  "f29",  "f30",  "f31",\
  95         "pc",   "cause", "bad", "hi",   "lo",   "fsr",  "fir" \
  96     }
  97
  98 /* Register numbers of various important registers.
  99    Note that some of these values are "real" register numbers,
 100    and correspond to the general registers of the machine,
 101    and some are "phony" register numbers which are too large
 102    to be actual register numbers as far as the user is concerned
 103    but do serve to get the desired values when passed to read_register.  */
 104
 105 #define SP_REGNUM 29            /* Contains address of top of stack */
 106 #define FP_REGNUM 30            /* Pseudo register that contains true address of executing stack frame */
 107 #define RA_REGNUM 31            /* Contains return address value */
 108 #define FP0_REGNUM 32           /* Floating point register 0 (single float) */
 109 #define PC_REGNUM 64            /* Contains program counter */
 110 #define PS_REGNUM 65            /* Contains processor status */
 111 #define HI_REGNUM 67            /* Multiple/divide temp */
 112 #define LO_REGNUM 68            /* ... */
 113 #define FCRCS_REGNUM 69         /* FP control/status */
 114 #define FCRIR_REGNUM 70         /* FP implementation/revision */
 115
 116 /* Define DO_REGISTERS_INFO() to do machine-specific formatting
 117    of register dumps. */
 118
 119 #define DO_REGISTERS_INFO(_regnum, fp) mips_do_registers_info(_regnum, fp)
 120
 121 /* Total amount of space needed to store our copies of the machine's
 122    register state, the array `registers'.  */
 123 #define REGISTER_BYTES (NUM_REGS*4)
 124
 125 /* Index within `registers' of the first byte of the space for
 126    register N.  */
 127
 128 #define REGISTER_BYTE(N) ((N) * 4)
 129
 130 /* Number of bytes of storage in the actual machine representation
 131    for register N.  On mips, all regs are 4 bytes.  */
 132
 133 #define REGISTER_RAW_SIZE(N) 4
 134
 135 /* Number of bytes of storage in the program's representation
 136    for register N.  On mips, all regs are 4 bytes.  */
 137
 138 #define REGISTER_VIRTUAL_SIZE(N) 4
 139
 140 /* Largest value REGISTER_RAW_SIZE can have.  */
 141
 142 #define MAX_REGISTER_RAW_SIZE 4
 143
 144 /* Largest value REGISTER_VIRTUAL_SIZE can have.  */
 145
 146 #define MAX_REGISTER_VIRTUAL_SIZE 4
 147
 148 /* Nonzero if register N requires conversion
 149    from raw format to virtual format.  */
 150
 151 #define REGISTER_CONVERTIBLE(N) 0
 152
 153 /* Convert data from raw format for register REGNUM
 154    to virtual format for register REGNUM.  */
 155
 156 #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,FROM,TO)     \
 157   bcopy ((FROM), (TO), 4);
 158
 159 /* Convert data from virtual format for register REGNUM
 160    to raw format for register REGNUM.  */
 161
 162 #define REGISTER_CONVERT_TO_RAW(REGNUM,FROM,TO) \
 163   bcopy ((FROM), (TO), 4);
 164
 165 /* Return the GDB type object for the "standard" data type
 166    of data in register N.  */
 167
 168 #define REGISTER_VIRTUAL_TYPE(N) builtin_type_int
 169 /* Store the address of the place in which to copy the structure the
 170    subroutine will return.  This is called from call_function. */
 171
 172 #define STORE_STRUCT_RETURN(addr, sp) \
 173   { sp = push_word(sp, addr);}
 174
 175 /* Extract from an array REGBUF containing the (raw) register state
 176    a function return value of type TYPE, and copy that, in virtual format,
 177    into VALBUF.  XXX floats */
 178
 179 #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \
 180   bcopy (REGBUF+REGISTER_BYTE (TYPE_CODE (TYPE) == TYPE_CODE_FLT ? FP0_REGNUM : 2), VALBUF, TYPE_LENGTH (TYPE))
 181
 182 /* Write into appropriate registers a function return value
 183    of type TYPE, given in virtual format.  */
 184
 185 #define STORE_RETURN_VALUE(TYPE,VALBUF) \
 186   write_register_bytes (REGISTER_BYTE (TYPE_CODE (TYPE) == TYPE_CODE_FLT ? FP0_REGNUM : 2), VALBUF, TYPE_LENGTH (TYPE))
 187
 188 /* Extract from an array REGBUF containing the (raw) register state
 189    the address in which a function should return its structure value,
 190    as a CORE_ADDR (or an expression that can be used as one).  */
 191
 192 #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF+16))
 193
 194 /* Structures are returned by ref in extra arg0 */
 195 #define USE_STRUCT_CONVENTION(gcc_p, type)      1
 196
 197 \f
 198 /* Describe the pointer in each stack frame to the previous stack frame
 199    (its caller).  */
 200
 201 /* FRAME_CHAIN takes a frame's nominal address
 202    and produces the frame's chain-pointer.
 203
 204    FRAME_CHAIN_COMBINE takes the chain pointer and the frame's nominal address
 205    and produces the nominal address of the caller frame.
 206
 207    However, if FRAME_CHAIN_VALID returns zero,
 208    it means the given frame is the outermost one and has no caller.
 209    In that case, FRAME_CHAIN_COMBINE is not used.  */
 210
 211 #define FRAME_CHAIN(thisframe) (FRAME_ADDR)mips_frame_chain(thisframe)
 212
 213 #define FRAME_CHAIN_VALID(chain, thisframe) \
 214   (chain != 0 && (outside_startup_file (FRAME_SAVED_PC (thisframe))))
 215
 216 #define FRAME_CHAIN_COMBINE(chain, thisframe) (chain)
 217
 218 /* Define other aspects of the stack frame.  */
 219
 220
 221 /* A macro that tells us whether the function invocation represented
 222    by FI does not have a frame on the stack associated with it.  If it
 223    does not, FRAMELESS is set to 1, else 0.  */
 224 /* We handle this differently for mips, and maybe we should not */
 225
 226 #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS)  {(FRAMELESS) = 0;}
 227
 228 /* Saved Pc.  */
 229
 230 #define FRAME_SAVED_PC(FRAME)   (mips_frame_saved_pc(FRAME))
 231
 232 #define FRAME_ARGS_ADDRESS(fi)  (fi)->frame
 233
 234 #define FRAME_LOCALS_ADDRESS(fi) (fi)->frame
 235
 236 /* Return number of args passed to a frame.
 237    Can return -1, meaning no way to tell.  */
 238
 239 #define FRAME_NUM_ARGS(num, fi) (num = mips_frame_num_args(fi))
 240
 241 /* Return number of bytes at start of arglist that are not really args.  */
 242
 243 #define FRAME_ARGS_SKIP 0
 244
 245 /* Put here the code to store, into a struct frame_saved_regs,
 246    the addresses of the saved registers of frame described by FRAME_INFO.
 247    This includes special registers such as pc and fp saved in special
 248    ways in the stack frame.  sp is even more special:
 249    the address we return for it IS the sp for the next frame.  */
 250
 251 #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) ( \
 252   (frame_saved_regs) = *(frame_info)->saved_regs, \
 253   (frame_saved_regs).regs[SP_REGNUM] = (frame_info)->frame)
 254
 255 \f
 256 /* Things needed for making the inferior call functions.  */
 257
 258 /* Stack has strict alignment. However, use PUSH_ARGUMENTS
 259    to take care of it. */
 260 /*#define STACK_ALIGN(addr)     (((addr)+3)&~3)*/
 261
 262 #define PUSH_ARGUMENTS(nargs, args, sp, struct_return, struct_addr) \
 263     sp = mips_push_arguments(nargs, args, sp, struct_return, struct_addr)
 264
 265 /* Push an empty stack frame, to record the current PC, etc.  */
 266
 267 #define PUSH_DUMMY_FRAME        mips_push_dummy_frame()
 268
 269 /* Discard from the stack the innermost frame, restoring all registers.  */
 270
 271 #define POP_FRAME               mips_pop_frame()
 272
 273 #define MK_OP(op,rs,rt,offset) (((op)<<26)|((rs)<<21)|((rt)<<16)|(offset))
 274 #define CALL_DUMMY_SIZE (16*4)
 275 #define Dest_Reg 2
 276 #define CALL_DUMMY {\
 277  MK_OP(0,RA_REGNUM,0,8),        /* jr $ra # Fake ABOUT_TO_RETURN ...*/\
 278  0,                             /* nop    #  ... to stop raw backtrace*/\
 279  0x27bd0000,                    /* addu sp,?0 # Pseudo prologue */\
 280 /* Start here: */\
 281  MK_OP(061,SP_REGNUM,12,0),     /* lwc1 $f12,0(sp) # Reload first 4 args*/\
 282  MK_OP(061,SP_REGNUM,13,4),     /* lwc1 $f13,4(sp) */\
 283  MK_OP(061,SP_REGNUM,14,8),     /* lwc1 $f14,8(sp) */\
 284  MK_OP(061,SP_REGNUM,15,12),    /* lwc1 $f15,12(sp) */\
 285  MK_OP(043,SP_REGNUM,4,0),      /* lw $r4,0(sp) # Re-load FP regs*/\
 286  MK_OP(043,SP_REGNUM,5,4),      /* lw $r5,4(sp) */\
 287  MK_OP(043,SP_REGNUM,6,8),      /* lw $r6,8(sp) */\
 288  MK_OP(043,SP_REGNUM,7,12),     /* lw $r7,12(sp) */\
 289  (017<<26)| (Dest_Reg << 16),   /* lui $r31,<target upper 16 bits>*/\
 290  MK_OP(13,Dest_Reg,Dest_Reg,0), /* ori $r31,$r31,<lower 16 bits>*/ \
 291  (Dest_Reg<<21) | (31<<11) | 9, /* jalr $r31 */\
 292  MK_OP(043,SP_REGNUM,7,12),     /* lw $r7,12(sp) */\
 293  0x5000d,                       /* bpt */\
 294 }
 295
 296 #define CALL_DUMMY_START_OFFSET 12
 297
 298 /* Insert the specified number of args and function address
 299    into a call sequence of the above form stored at DUMMYNAME.  */
 300
 301 #define FIX_CALL_DUMMY(dummyname, start_sp, fun, nargs, args, rettype, gcc_p)\
 302   (((int*)dummyname)[11] |= (((unsigned long)(fun)) >> 16), \
 303    ((int*)dummyname)[12] |= (unsigned short)(fun))
 304
 305 /* Specific information about a procedure.
 306    This overlays the MIPS's PDR records,
 307    mipsread.c (ab)uses this to save memory */
 308
 309 typedef struct mips_extra_func_info {
 310         unsigned long   adr;    /* memory address of start of procedure */
 311         long    isym;           /* pointer to procedure symbol */
 312         long    pad2;           /* iline: start of line number entries*/
 313         long    regmask;        /* save register mask */
 314         long    regoffset;      /* save register offset */
 315         long    numargs;        /* number of args to procedure (was iopt) */
 316         long    fregmask;       /* save floating point register mask */
 317         long    fregoffset;     /* save floating point register offset */
 318         long    framesize;      /* frameoffset: frame size */
 319         short   framereg;       /* frame pointer register */
 320         short   pcreg;          /* offset or reg of return pc */
 321         long    lnLow;          /* lowest line in the procedure */
 322         long    lnHigh;         /* highest line in the procedure */
 323         long    pad3;           /* cbLineOffset: byte offset for this procedure from the fd base */
 324 } *mips_extra_func_info_t;
 325
 326 #define EXTRA_FRAME_INFO \
 327   char *proc_desc; /* actually, a mips_extra_func_info_t */\
 328   int num_args;\
 329   struct frame_saved_regs *saved_regs;
 330
 331 #define INIT_EXTRA_FRAME_INFO(fromleaf, fci) init_extra_frame_info(fci)