In elisp-compiler.test, check that let* works without values given, too.

[bpt/guile.git] / gdbinit

diff --git a/gdbinit b/gdbinit
index cd3add5..381cf84 100644 (file)
--- a/gdbinit
+++ b/gdbinit
@@ -76,9 +76,11 @@ define smobdatatox
   smobwordtox $arg0 1
 end
 
-define program
+define program_objcode
   smobdatatox $arg0
-  p *(struct scm_program*)$x
+  set $objcode=$x
+  smobdatatox $objcode
+  p *(struct scm_objcode*)$x
 end
 
 define proglocals
@@ -146,11 +148,6 @@ define nextframe
   output $vmdl
   newline
   set $vmsp=$vmsp-1
-  sputs "hl:\t"
-  output $vmsp
-  sputs "\t"
-  gwrite *$vmsp
-  set $vmsp=$vmsp-1
   sputs "el:\t"
   output $vmsp
   sputs "\t"
@@ -184,14 +181,13 @@ define nextframe
   gwrite *$vmsp
   set $vmsp=$vmsp-1
   newline
-  if !$vmdl
-    loop_break
+  if $vmdl
+    set $vmfp=$vmdl
+    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
   end
-  set $vmfp=$vmdl
-  set $vmbp=(struct scm_program*)(((SCM*)($vmfp[-1]))[1])
-  set $vmstack_base=$vmfp+$vmbp->nargs+$vmbp->nlocs+4
-  set $vmframe=$vmframe+1
-  newline
 end
 
 define vmstack