HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Replace $letrec with $rec
[bpt/guile.git]
/
gdbinit
diff --git
a/gdbinit
b/gdbinit
index
7c1b216
..
fdc9c75
100644
(file)
--- a/
gdbinit
+++ b/
gdbinit
@@
-1,5
+1,8
@@
# -*- GDB-Script -*-
# -*- GDB-Script -*-
+handle SIGPWR noprint nostop
+handle SIGXCPU noprint nostop
+
define newline
call (void)scm_newline (scm_current_error_port ())
end
define newline
call (void)scm_newline (scm_current_error_port ())
end
@@
-76,9
+79,11
@@
define smobdatatox
smobwordtox $arg0 1
end
smobwordtox $arg0 1
end
-define program
+define program
_objcode
smobdatatox $arg0
smobdatatox $arg0
- p *(struct scm_program*)$x
+ set $objcode=$x
+ smobdatatox $objcode
+ p *(struct scm_objcode*)$x
end
define proglocals
end
define proglocals
@@
-146,11
+151,6
@@
define nextframe
output $vmdl
newline
set $vmsp=$vmsp-1
output $vmdl
newline
set $vmsp=$vmsp-1
- sputs "el:\t"
- output $vmsp
- sputs "\t"
- gwrite *$vmsp
- set $vmsp=$vmsp-1
set $vmnlocs=(int)$vmbp->nlocs
while $vmnlocs > 0
sputs "loc #"
set $vmnlocs=(int)$vmbp->nlocs
while $vmnlocs > 0
sputs "loc #"
@@
-181,7
+181,7
@@
define nextframe
newline
if $vmdl
set $vmfp=$vmdl
newline
if $vmdl
set $vmfp=$vmdl
- set $vmbp=(struct scm_
program*)(((SCM*)($vmfp[-1])
)[1])
+ set $vmbp=(struct scm_
objcode*)((SCM*)(((SCM*)($vmfp[-1]))[1]
)[1])
set $vmstack_base=$vmfp+$vmbp->nargs+$vmbp->nlocs+4
set $vmframe=$vmframe+1
newline
set $vmstack_base=$vmfp+$vmbp->nargs+$vmbp->nlocs+4
set $vmframe=$vmframe+1
newline
@@
-198,3
+198,7
@@
end
define inst
p scm_instruction_table[$arg0]
end
define inst
p scm_instruction_table[$arg0]
end
+
+define gbt
+ call scm_display_backtrace (scm_make_stack(0x404,0x304), scm_current_error_port (), 0x704, 0x704, 0x704)
+end