|
|
1.1 ! root 1: /* Parameters for execution on an HP 9000 model 320, for GDB, the GNU debugger. ! 2: Copyright (C) 1986, 1987 Free Software Foundation, Inc. ! 3: ! 4: GDB is distributed in the hope that it will be useful, but WITHOUT ANY ! 5: WARRANTY. No author or distributor accepts responsibility to anyone ! 6: for the consequences of using it or for whether it serves any ! 7: particular purpose or works at all, unless he says so in writing. ! 8: Refer to the GDB General Public License for full details. ! 9: ! 10: Everyone is granted permission to copy, modify and redistribute GDB, ! 11: but only under the conditions described in the GDB General Public ! 12: License. A copy of this license is supposed to have been given to you ! 13: along with GDB so you can know your rights and responsibilities. It ! 14: should be in a file named COPYING. Among other things, the copyright ! 15: notice and this notice must be preserved on all copies. ! 16: ! 17: In other words, go ahead and share GDB, but don't try to stop ! 18: anyone else from sharing it farther. Help stamp out software hoarding! ! 19: */ ! 20: ! 21: #ifndef HP9K320 ! 22: #define HP9K320 ! 23: #endif ! 24: ! 25: /* Set flag to indicate whether HP's assembler is in use. */ ! 26: #ifdef __GNU__ ! 27: #ifdef __HPUX_ASM__ ! 28: #define HPUX_ASM ! 29: #endif ! 30: #else ! 31: #define HPUX_ASM ! 32: #endif ! 33: ! 34: /* Define this for versions of hp-ux older than 6.0 */ ! 35: /* #define HPUX_VERSION_5 */ ! 36: ! 37: #define HAVE_TERMIO ! 38: ! 39: /* Get rid of any system-imposed stack limit if possible. */ ! 40: ! 41: /* #define SET_STACK_LIMIT_HUGE */ ! 42: ! 43: /* Define this if the C compiler puts an underscore at the front ! 44: of external names before giving them to the linker. */ ! 45: ! 46: #define NAMES_HAVE_UNDERSCORE ! 47: ! 48: /* Debugger information will be in DBX format. */ ! 49: ! 50: #define READ_DBX_FORMAT ! 51: ! 52: /* Offset from address of function to start of its code. ! 53: Zero on most machines. */ ! 54: ! 55: #define FUNCTION_START_OFFSET 0 ! 56: ! 57: /* Advance PC across any function entry prologue instructions ! 58: to reach some "real" code. */ ! 59: ! 60: #define SKIP_PROLOGUE(pc) \ ! 61: { register int op = read_memory_integer (pc, 2); \ ! 62: if (op == 0047126) \ ! 63: pc += 4; /* Skip link #word */ \ ! 64: else if (op == 0044016) \ ! 65: pc += 6; /* Skip link #long */ \ ! 66: } ! 67: ! 68: /* Immediately after a function call, return the saved pc. ! 69: Can't go through the frames for this because on some machines ! 70: the new frame is not set up until the new function executes ! 71: some instructions. */ ! 72: ! 73: #define SAVED_PC_AFTER_CALL(frame) \ ! 74: read_memory_integer (read_register (SP_REGNUM), 4) ! 75: ! 76: /* This is the amount to subtract from u.u_ar0 ! 77: to get the offset in the core file of the register values. */ ! 78: ! 79: #ifdef HPUX_VERSION_5 ! 80: #define KERNEL_U_ADDR 0x00979000 ! 81: #else ! 82: #define KERNEL_U_ADDR 0x00C01000 ! 83: #endif ! 84: ! 85: /* Address of end of stack space. */ ! 86: ! 87: #define STACK_END_ADDR 0xFFF00000 ! 88: ! 89: /* Stack grows downward. */ ! 90: ! 91: #define INNER_THAN < ! 92: ! 93: /* Sequence of bytes for breakpoint instruction. */ ! 94: ! 95: #define BREAKPOINT {0x4e, 0x41} ! 96: ! 97: /* Amount PC must be decremented by after a breakpoint. ! 98: This is often the number of bytes in BREAKPOINT ! 99: but not always. */ ! 100: ! 101: #define DECR_PC_AFTER_BREAK 2 ! 102: ! 103: /* Nonzero if instruction at PC is a return instruction. */ ! 104: ! 105: #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 2) == 0x4e75) ! 106: ! 107: /* Return 1 if P points to an invalid floating point value. */ ! 108: ! 109: #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ ! 110: ! 111: /* Say how long (ordinary) registers are. */ ! 112: ! 113: #define REGISTER_TYPE long ! 114: ! 115: /* Number of machine registers */ ! 116: ! 117: #define NUM_REGS 29 ! 118: ! 119: /* Initializer for an array of names of registers. ! 120: There should be NUM_REGS strings in this initializer. */ ! 121: ! 122: #define REGISTER_NAMES \ ! 123: {"d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7", \ ! 124: "a0", "a1", "a2", "a3", "a4", "a5", "fp", "sp", \ ! 125: "ps", "pc", \ ! 126: "fp0", "fp1", "fp2", "fp3", "fp4", "fp5", "fp6", "fp7", \ ! 127: "fpcontrol", "fpstatus", "fpiaddr" } ! 128: ! 129: /* Register numbers of various important registers. ! 130: Note that some of these values are "real" register numbers, ! 131: and correspond to the general registers of the machine, ! 132: and some are "phony" register numbers which are too large ! 133: to be actual register numbers as far as the user is concerned ! 134: but do serve to get the desired values when passed to read_register. */ ! 135: ! 136: #define FP_REGNUM 14 /* Contains address of executing stack frame */ ! 137: #define SP_REGNUM 15 /* Contains address of top of stack */ ! 138: #define PS_REGNUM 16 /* Contains processor status */ ! 139: #define PC_REGNUM 17 /* Contains program counter */ ! 140: #define FP0_REGNUM 18 /* Floating point register 0 */ ! 141: #define FPC_REGNUM 26 /* 68881 control register */ ! 142: ! 143: /* Total amount of space needed to store our copies of the machine's ! 144: register state, the array `registers'. */ ! 145: #define REGISTER_BYTES (16*4+8*12+8+12) ! 146: ! 147: /* Index within `registers' of the first byte of the space for ! 148: register N. */ ! 149: ! 150: #define REGISTER_BYTE(N) \ ! 151: ((N) >= FPC_REGNUM ? (((N) - FPC_REGNUM) * 4) + 168 \ ! 152: : (N) >= FP0_REGNUM ? (((N) - FP0_REGNUM) * 12) + 72 \ ! 153: : (N) * 4) ! 154: ! 155: /* Number of bytes of storage in the actual machine representation ! 156: for register N. On the 68000, all regs are 4 bytes ! 157: except the floating point regs which are 12 bytes. */ ! 158: ! 159: #define REGISTER_RAW_SIZE(N) (((unsigned)(N) - FP0_REGNUM) < 8 ? 12 : 4) ! 160: ! 161: /* Number of bytes of storage in the program's representation ! 162: for register N. On the 68000, all regs are 4 bytes ! 163: except the floating point regs which are 8-byte doubles. */ ! 164: ! 165: #define REGISTER_VIRTUAL_SIZE(N) (((unsigned)(N) - FP0_REGNUM) < 8 ? 8 : 4) ! 166: ! 167: /* Largest value REGISTER_RAW_SIZE can have. */ ! 168: ! 169: #define MAX_REGISTER_RAW_SIZE 12 ! 170: ! 171: /* Largest value REGISTER_VIRTUAL_SIZE can have. */ ! 172: ! 173: #define MAX_REGISTER_VIRTUAL_SIZE 8 ! 174: ! 175: /* Nonzero if register N requires conversion ! 176: from raw format to virtual format. */ ! 177: ! 178: #define REGISTER_CONVERTIBLE(N) (((unsigned)(N) - FP0_REGNUM) < 8) ! 179: ! 180: /* Convert data from raw format for register REGNUM ! 181: to virtual format for register REGNUM. */ ! 182: ! 183: #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,FROM,TO) \ ! 184: { if ((REGNUM) >= FP0_REGNUM && (REGNUM) < FPC_REGNUM) \ ! 185: convert_from_68881 ((FROM), (TO)); \ ! 186: else \ ! 187: bcopy ((FROM), (TO), 4); } ! 188: ! 189: /* Convert data from virtual format for register REGNUM ! 190: to raw format for register REGNUM. */ ! 191: ! 192: #define REGISTER_CONVERT_TO_RAW(REGNUM,FROM,TO) \ ! 193: { if ((REGNUM) >= FP0_REGNUM && (REGNUM) < FPC_REGNUM) \ ! 194: convert_to_68881 ((FROM), (TO)); \ ! 195: else \ ! 196: bcopy ((FROM), (TO), 4); } ! 197: ! 198: /* Return the GDB type object for the "standard" data type ! 199: of data in register N. */ ! 200: ! 201: #define REGISTER_VIRTUAL_TYPE(N) \ ! 202: (((unsigned)(N) - FP0_REGNUM) < 8 ? builtin_type_double : builtin_type_int) ! 203: ! 204: /* Extract from an array REGBUF containing the (raw) register state ! 205: a function return value of type TYPE, and copy that, in virtual format, ! 206: into VALBUF. */ ! 207: ! 208: #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ ! 209: bcopy (REGBUF, VALBUF, TYPE_LENGTH (TYPE)) ! 210: ! 211: /* Write into appropriate registers a function return value ! 212: of type TYPE, given in virtual format. */ ! 213: ! 214: #define STORE_RETURN_VALUE(TYPE,VALBUF) \ ! 215: write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) ! 216: ! 217: /* Extract from an array REGBUF containing the (raw) register state ! 218: the address in which a function should return its structure value, ! 219: as a CORE_ADDR (or an expression that can be used as one). */ ! 220: ! 221: #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) ! 222: ! 223: #define REGISTER_ADDR(u_ar0, regno) \ ! 224: (((regno) < PS_REGNUM) \ ! 225: ? (&((struct exception_stack *) (u_ar0))->e_regs[(regno + R0)]) \ ! 226: : (((regno) == PS_REGNUM) \ ! 227: ? ((int *) (&((struct exception_stack *) (u_ar0))->e_PS)) \ ! 228: : (&((struct exception_stack *) (u_ar0))->e_PC))) ! 229: ! 230: #define FP_REGISTER_ADDR(u, regno) \ ! 231: (((regno) < FPC_REGNUM) \ ! 232: ? (&u.u_pcb.pcb_mc68881[FMC68881_R0 + (((regno) - FP0_REGNUM) * 3)]) \ ! 233: : (&u.u_pcb.pcb_mc68881[FMC68881_C + ((regno) - FPC_REGNUM)])) ! 234: ! 235: /* It is safe to look for symsegs on a Sun, because Sun's ld ! 236: does not screw up with random garbage at end of file. */ ! 237: ! 238: #define READ_GDB_SYMSEGS ! 239: ! 240: /* Describe the pointer in each stack frame to the previous stack frame ! 241: (its caller). */ ! 242: ! 243: /* FRAME_CHAIN takes a frame's nominal address ! 244: and produces the frame's chain-pointer. ! 245: ! 246: FRAME_CHAIN_COMBINE takes the chain pointer and the frame's nominal address ! 247: and produces the nominal address of the caller frame. ! 248: ! 249: However, if FRAME_CHAIN_VALID returns zero, ! 250: it means the given frame is the outermost one and has no caller. ! 251: In that case, FRAME_CHAIN_COMBINE is not used. */ ! 252: ! 253: /* In the case of the Sun, the frame's nominal address ! 254: is the address of a 4-byte word containing the calling frame's address. */ ! 255: ! 256: #define FRAME_CHAIN(thisframe) (read_memory_integer (thisframe, 4)) ! 257: ! 258: #define FRAME_CHAIN_VALID(chain, thisframe) \ ! 259: (chain != 0 && (FRAME_SAVED_PC (thisframe) >= first_object_file_end)) ! 260: ! 261: #define FRAME_CHAIN_COMBINE(chain, thisframe) (chain) ! 262: ! 263: /* Define other aspects of the stack frame. */ ! 264: ! 265: #define FRAME_SAVED_PC(frame) (read_memory_integer (frame + 4, 4)) ! 266: ! 267: #define FRAME_ARGS_ADDRESS(fi) (fi.frame) ! 268: ! 269: #define FRAME_LOCALS_ADDRESS(fi) (fi.frame) ! 270: ! 271: /* Set VAL to the number of args passed to frame described by FI. ! 272: Can set VAL to -1, meaning no way to tell. */ ! 273: ! 274: /* We can't tell how many args there are ! 275: now that the C compiler delays popping them. */ ! 276: #define FRAME_NUM_ARGS(val,fi) (val = -1) ! 277: ! 278: #if 0 ! 279: #define FRAME_NUM_ARGS(val, fi) \ ! 280: { register CORE_ADDR pc = FRAME_SAVED_PC (fi.frame); \ ! 281: register int insn = 0177777 & read_memory_integer (pc, 2); \ ! 282: val = 0; \ ! 283: if (insn == 0047757 || insn == 0157374) /* lea W(sp),sp or addaw #W,sp */ \ ! 284: val = read_memory_integer (pc + 2, 2); \ ! 285: else if ((insn & 0170777) == 0050217 /* addql #N, sp */ \ ! 286: || (insn & 0170777) == 0050117) /* addqw */ \ ! 287: { val = (insn >> 9) & 7; if (val == 0) val = 8; } \ ! 288: else if (insn == 0157774) /* addal #WW, sp */ \ ! 289: val = read_memory_integer (pc + 2, 4); \ ! 290: val >>= 2; } ! 291: #endif ! 292: ! 293: /* Return number of bytes at start of arglist that are not really args. */ ! 294: ! 295: #define FRAME_ARGS_SKIP 8 ! 296: ! 297: /* Put here the code to store, into a struct frame_saved_regs, ! 298: the addresses of the saved registers of frame described by FRAME_INFO. ! 299: This includes special registers such as pc and fp saved in special ! 300: ways in the stack frame. sp is even more special: ! 301: the address we return for it IS the sp for the next frame. */ ! 302: ! 303: #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ ! 304: { register int regnum; \ ! 305: register int regmask; \ ! 306: register CORE_ADDR next_addr; \ ! 307: register CORE_ADDR pc; \ ! 308: int nextinsn; \ ! 309: bzero (&frame_saved_regs, sizeof frame_saved_regs); \ ! 310: if ((frame_info).pc >= (frame_info).frame - CALL_DUMMY_LENGTH - FP_REGNUM*4 - 8*12 - 4 \ ! 311: && (frame_info).pc <= (frame_info).frame) \ ! 312: { next_addr = (frame_info).frame; \ ! 313: pc = (frame_info).frame - CALL_DUMMY_LENGTH - FP_REGNUM * 4 - 8*12 - 4; }\ ! 314: else \ ! 315: { pc = get_pc_function_start ((frame_info).pc); \ ! 316: /* Verify we have a link a6 instruction next; \ ! 317: if not we lose. If we win, find the address above the saved \ ! 318: regs using the amount of storage from the link instruction. */\ ! 319: if (044016 == read_memory_integer (pc, 2)) \ ! 320: next_addr = (frame_info).frame + read_memory_integer (pc += 2, 4), pc+=4; \ ! 321: else if (047126 == read_memory_integer (pc, 2)) \ ! 322: next_addr = (frame_info).frame + read_memory_integer (pc += 2, 2), pc+=2; \ ! 323: else goto lose; \ ! 324: /* If have an addal #-n, sp next, adjust next_addr. */ \ ! 325: if ((0177777 & read_memory_integer (pc, 2)) == 0157774) \ ! 326: next_addr += read_memory_integer (pc += 2, 4), pc += 4; \ ! 327: } \ ! 328: /* next should be a moveml to (sp) or -(sp) or a movl r,-(sp) */ \ ! 329: regmask = read_memory_integer (pc + 2, 2); \ ! 330: /* But before that can come an fmovem. Check for it. */ \ ! 331: nextinsn = 0xffff & read_memory_integer (pc, 2); \ ! 332: if (0xf227 == nextinsn \ ! 333: && (regmask & 0xff00) == 0xe000) \ ! 334: { pc += 4; /* Regmask's low bit is for register fp7, the first pushed */ \ ! 335: for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--, regmask >>= 1) \ ! 336: if (regmask & 1) \ ! 337: (frame_saved_regs).regs[regnum] = (next_addr -= 12); \ ! 338: regmask = read_memory_integer (pc + 2, 2); } \ ! 339: if (0044327 == read_memory_integer (pc, 2)) \ ! 340: { pc += 4; /* Regmask's low bit is for register 0, the first written */ \ ! 341: for (regnum = 0; regnum < 16; regnum++, regmask >>= 1) \ ! 342: if (regmask & 1) \ ! 343: (frame_saved_regs).regs[regnum] = (next_addr += 4) - 4; } \ ! 344: else if (0044347 == read_memory_integer (pc, 2)) \ ! 345: { pc += 4; /* Regmask's low bit is for register 15, the first pushed */ \ ! 346: for (regnum = 15; regnum >= 0; regnum--, regmask >>= 1) \ ! 347: if (regmask & 1) \ ! 348: (frame_saved_regs).regs[regnum] = (next_addr -= 4); } \ ! 349: else if (0x2f00 == 0xfff0 & read_memory_integer (pc, 2)) \ ! 350: { regnum = 0xf & read_memory_integer (pc, 2); pc += 2; \ ! 351: (frame_saved_regs).regs[regnum] = (next_addr -= 4); } \ ! 352: /* fmovemx to index of sp may follow. */ \ ! 353: regmask = read_memory_integer (pc + 2, 2); \ ! 354: nextinsn = 0xffff & read_memory_integer (pc, 2); \ ! 355: if (0xf236 == nextinsn \ ! 356: && (regmask & 0xff00) == 0xf000) \ ! 357: { pc += 10; /* Regmask's low bit is for register fp0, the first written */ \ ! 358: for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--, regmask >>= 1) \ ! 359: if (regmask & 1) \ ! 360: (frame_saved_regs).regs[regnum] = (next_addr += 12) - 12; \ ! 361: regmask = read_memory_integer (pc + 2, 2); } \ ! 362: /* clrw -(sp); movw ccr,-(sp) may follow. */ \ ! 363: if (0x426742e7 == read_memory_integer (pc, 4)) \ ! 364: (frame_saved_regs).regs[PS_REGNUM] = (next_addr -= 4); \ ! 365: lose: ; \ ! 366: (frame_saved_regs).regs[SP_REGNUM] = (frame_info).frame + 8; \ ! 367: (frame_saved_regs).regs[FP_REGNUM] = (frame_info).frame; \ ! 368: (frame_saved_regs).regs[PC_REGNUM] = (frame_info).frame + 4; \ ! 369: } ! 370: ! 371: /* Things needed for making the inferior call functions. */ ! 372: ! 373: /* Push an empty stack frame, to record the current PC, etc. */ ! 374: ! 375: #define PUSH_DUMMY_FRAME \ ! 376: { register CORE_ADDR sp = read_register (SP_REGNUM); \ ! 377: register int regnum; \ ! 378: char raw_buffer[12]; \ ! 379: sp = push_word (sp, read_register (PC_REGNUM)); \ ! 380: sp = push_word (sp, read_register (FP_REGNUM)); \ ! 381: write_register (FP_REGNUM, sp); \ ! 382: for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--) \ ! 383: { read_register_bytes (REGISTER_BYTE (regnum), raw_buffer, 12); \ ! 384: sp = push_bytes (sp, raw_buffer, 12); } \ ! 385: for (regnum = FP_REGNUM - 1; regnum >= 0; regnum--) \ ! 386: sp = push_word (sp, read_register (regnum)); \ ! 387: sp = push_word (sp, read_register (PS_REGNUM)); \ ! 388: write_register (SP_REGNUM, sp); } ! 389: ! 390: /* Discard from the stack the innermost frame, ! 391: restoring all saved registers. */ ! 392: ! 393: #define POP_FRAME \ ! 394: { register CORE_ADDR fp = read_register (FP_REGNUM); \ ! 395: register int regnum; \ ! 396: struct frame_saved_regs fsr; \ ! 397: struct frame_info fi; \ ! 398: char raw_buffer[12]; \ ! 399: fi = get_frame_info (fp); \ ! 400: get_frame_saved_regs (&fi, &fsr); \ ! 401: for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--) \ ! 402: if (fsr.regs[regnum]) \ ! 403: { read_memory (fsr.regs[regnum], raw_buffer, 12); \ ! 404: write_register_bytes (REGISTER_BYTE (regnum), raw_buffer, 12); }\ ! 405: for (regnum = FP_REGNUM - 1; regnum >= 0; regnum--) \ ! 406: if (fsr.regs[regnum]) \ ! 407: write_register (regnum, read_memory_integer (fsr.regs[regnum], 4)); \ ! 408: if (fsr.regs[PS_REGNUM]) \ ! 409: write_register (PS_REGNUM, read_memory_integer (fsr.regs[PS_REGNUM], 4)); \ ! 410: write_register (FP_REGNUM, read_memory_integer (fp, 4)); \ ! 411: write_register (PC_REGNUM, read_memory_integer (fp + 4, 4)); \ ! 412: write_register (SP_REGNUM, fp + 8); \ ! 413: set_current_frame (read_register (FP_REGNUM)); } ! 414: ! 415: /* This sequence of words is the instructions ! 416: fmovem 0xff,-(sp) ! 417: moveml 0xfffc,-(sp) ! 418: clrw -(sp) ! 419: movew ccr,-(sp) ! 420: /..* The arguments are pushed at this point by GDB; ! 421: no code is needed in the dummy for this. ! 422: The CALL_DUMMY_START_OFFSET gives the position of ! 423: the following jsr instruction. *../ ! 424: jsr @#32323232 ! 425: addl #69696969,sp ! 426: bpt ! 427: nop ! 428: Note this is 28 bytes. ! 429: We actually start executing at the jsr, since the pushing of the ! 430: registers is done by PUSH_DUMMY_FRAME. If this were real code, ! 431: the arguments for the function called by the jsr would be pushed ! 432: between the moveml and the jsr, and we could allow it to execute through. ! 433: But the arguments have to be pushed by GDB after the PUSH_DUMMY_FRAME is done, ! 434: and we cannot allow the moveml to push the registers again lest they be ! 435: taken for the arguments. */ ! 436: ! 437: #define CALL_DUMMY {0xf227e0ff, 0x48e7fffc, 0x426742e7, 0x4eb93232, 0x3232dffc, 0x69696969, 0x4e414e71} ! 438: ! 439: #define CALL_DUMMY_LENGTH 28 ! 440: ! 441: #define CALL_DUMMY_START_OFFSET 12 ! 442: ! 443: /* Insert the specified number of args and function address ! 444: into a call sequence of the above form stored at DUMMYNAME. */ ! 445: ! 446: #define FIX_CALL_DUMMY(dummyname, fun, nargs) \ ! 447: { *(int *)((char *) dummyname + 20) = nargs * 4; \ ! 448: *(int *)((char *) dummyname + 14) = fun; } ! 449: ! 450: /* Interface definitions for kernel debugger KDB. */ ! 451: ! 452: /* Map machine fault codes into signal numbers. ! 453: First subtract 0, divide by 4, then index in a table. ! 454: Faults for which the entry in this table is 0 ! 455: are not handled by KDB; the program's own trap handler ! 456: gets to handle then. */ ! 457: ! 458: #define FAULT_CODE_ORIGIN 0 ! 459: #define FAULT_CODE_UNITS 4 ! 460: #define FAULT_TABLE \ ! 461: { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ ! 462: 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ ! 463: 0, 0, 0, 0, 0, 0, 0, 0, \ ! 464: SIGILL } ! 465: ! 466: #ifndef HPUX_ASM ! 467: ! 468: /* Start running with a stack stretching from BEG to END. ! 469: BEG and END should be symbols meaningful to the assembler. ! 470: This is used only for kdb. */ ! 471: ! 472: #define INIT_STACK(beg, end) \ ! 473: { asm (".globl end"); \ ! 474: asm ("movel $ end, sp"); \ ! 475: asm ("clrl fp"); } ! 476: ! 477: /* Push the frame pointer register on the stack. */ ! 478: #define PUSH_FRAME_PTR \ ! 479: asm ("movel fp, -(sp)"); ! 480: ! 481: /* Copy the top-of-stack to the frame pointer register. */ ! 482: #define POP_FRAME_PTR \ ! 483: asm ("movl (sp), fp"); ! 484: ! 485: /* After KDB is entered by a fault, push all registers ! 486: that GDB thinks about (all NUM_REGS of them), ! 487: so that they appear in order of ascending GDB register number. ! 488: The fault code will be on the stack beyond the last register. */ ! 489: ! 490: #define PUSH_REGISTERS \ ! 491: { asm ("clrw -(sp)"); \ ! 492: asm ("pea 10(sp)"); \ ! 493: asm ("movem $ 0xfffe,-(sp)"); } ! 494: ! 495: /* Assuming the registers (including processor status) have been ! 496: pushed on the stack in order of ascending GDB register number, ! 497: restore them and return to the address in the saved PC register. */ ! 498: ! 499: #define POP_REGISTERS \ ! 500: { asm ("subil $8,28(sp)"); \ ! 501: asm ("movem (sp),$ 0xffff"); \ ! 502: asm ("rte"); } ! 503: ! 504: #else /* HPUX_ASM */ ! 505: ! 506: /* Start running with a stack stretching from BEG to END. ! 507: BEG and END should be symbols meaningful to the assembler. ! 508: This is used only for kdb. */ ! 509: ! 510: #define INIT_STACK(beg, end) \ ! 511: { asm ("global end"); \ ! 512: asm ("mov.l &end,%sp"); \ ! 513: asm ("clr.l %a6"); } ! 514: ! 515: /* Push the frame pointer register on the stack. */ ! 516: #define PUSH_FRAME_PTR \ ! 517: asm ("mov.l %fp,-(%sp)"); ! 518: ! 519: /* Copy the top-of-stack to the frame pointer register. */ ! 520: #define POP_FRAME_PTR \ ! 521: asm ("mov.l (%sp),%fp"); ! 522: ! 523: /* After KDB is entered by a fault, push all registers ! 524: that GDB thinks about (all NUM_REGS of them), ! 525: so that they appear in order of ascending GDB register number. ! 526: The fault code will be on the stack beyond the last register. */ ! 527: ! 528: #define PUSH_REGISTERS \ ! 529: { asm ("clr.w -(%sp)"); \ ! 530: asm ("pea 10(%sp)"); \ ! 531: asm ("movm.l &0xfffe,-(%sp)"); } ! 532: ! 533: /* Assuming the registers (including processor status) have been ! 534: pushed on the stack in order of ascending GDB register number, ! 535: restore them and return to the address in the saved PC register. */ ! 536: ! 537: #define POP_REGISTERS \ ! 538: { asm ("subi.l &8,28(%sp)"); \ ! 539: asm ("mov.m (%sp),&0xffff"); \ ! 540: asm ("rte"); } ! 541: ! 542: #endif /* HPUX_ASM */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.