mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 19:03:45 +00:00
f175dd9930
.gdbinit: Don't source .gdbinit.arch, since it seems to have suffered software rot. aux.c, std.h, imp.h, access.c, iface.mod, prof.c: Make sure that all memory allocation goes through newmem(), resizemem() and oldmem(). Fix those functions so that they work with conservative garbage collection.
112 lines
2.7 KiB
Plaintext
112 lines
2.7 KiB
Plaintext
#-----------------------------------------------------------------------------#
|
|
|
|
# .gdbinit.arch should be a link to .gdbinit.sparc
|
|
# source .gdbinit.arch
|
|
|
|
|
|
# file sys
|
|
# break main
|
|
# break call_engine
|
|
# run -wappend_1
|
|
|
|
#-----------------------------------------------------------------------------#
|
|
|
|
|
|
|
|
define pr
|
|
gdb-save-saved-regs # save saved_regs[] array
|
|
gdb-get-regs # copy registers to gdb vars $mr0, $mr1, ...
|
|
# (using .gdbinit.arch)
|
|
gdb-save-regs # copy registers $mr0, ... to saved_regs[] array
|
|
set printregs("Register dump")
|
|
gdb-restore-saved-regs # restore saved_regs[] array
|
|
end
|
|
document pr
|
|
Prints the registers.
|
|
Doesn't work if you use -DUSE_GCC_GLOBAL_REGISTERS,
|
|
unless you also `source .gdbinit.<machine>'.
|
|
end
|
|
#-----------------------------------------------------------------------------#
|
|
define pr1
|
|
set printregs("Register dump")
|
|
end
|
|
document pr1
|
|
Prints the registers
|
|
end
|
|
#-----------------------------------------------------------------------------#
|
|
define pr2
|
|
gdb-get-regs
|
|
printf "succip = %d (0x%x)\n", $mr0, $mr0
|
|
printf "r1 = %d (0x%x)\n", $mr1, $mr1
|
|
printf "r2 = %d (0x%x)\n", $mr2, $mr2
|
|
printf "r3 = %d (0x%x)\n", $mr3, $mr3
|
|
printf "r4 = %d (0x%x)\n", $mr4, $mr4
|
|
end
|
|
document pr2
|
|
Prints some of the registers
|
|
Works using only gcc, doesn't call any C functions.
|
|
end
|
|
#-----------------------------------------------------------------------------#
|
|
define pmf
|
|
gdb-get-regs
|
|
set dumpframe($mr8)
|
|
end
|
|
document pmf
|
|
Prints the maximum (top) nondet stack frame.
|
|
end
|
|
#-----------------------------------------------------------------------------#
|
|
define pf
|
|
gdb-get-regs
|
|
set dumpframe($mr8)
|
|
end
|
|
document pf
|
|
Prints the current nondet stack frame.
|
|
end
|
|
#-----------------------------------------------------------------------------#
|
|
define ps
|
|
set dumpcpstack()
|
|
end
|
|
document ps
|
|
Prints the whole nondet stack.
|
|
end
|
|
#-----------------------------------------------------------------------------#
|
|
|
|
define gdb-save-saved-regs
|
|
set $tmp0 = saved_regs[0]
|
|
set $tmp1 = saved_regs[1]
|
|
set $tmp2 = saved_regs[2]
|
|
set $tmp3 = saved_regs[3]
|
|
set $tmp4 = saved_regs[4]
|
|
set $tmp5 = saved_regs[5]
|
|
set $tmp6 = saved_regs[6]
|
|
set $tmp7 = saved_regs[7]
|
|
set $tmp8 = saved_regs[8]
|
|
set $tmp9 = saved_regs[9]
|
|
end
|
|
|
|
define gdb-restore-saved-regs
|
|
set saved_regs[0] = $tmp0
|
|
set saved_regs[1] = $tmp1
|
|
set saved_regs[2] = $tmp2
|
|
set saved_regs[3] = $tmp3
|
|
set saved_regs[4] = $tmp4
|
|
set saved_regs[5] = $tmp5
|
|
set saved_regs[6] = $tmp6
|
|
set saved_regs[7] = $tmp7
|
|
set saved_regs[8] = $tmp8
|
|
set saved_regs[9] = $tmp9
|
|
end
|
|
|
|
define gdb-save-regs
|
|
set saved_regs[0] = $mr0
|
|
set saved_regs[1] = $mr1
|
|
set saved_regs[2] = $mr2
|
|
set saved_regs[3] = $mr3
|
|
set saved_regs[4] = $mr4
|
|
set saved_regs[5] = $mr5
|
|
set saved_regs[6] = $mr6
|
|
set saved_regs[7] = $mr7
|
|
set saved_regs[8] = $mr8
|
|
set saved_regs[9] = $mr9
|
|
end
|