3 handle SIGPWR noprint nostop
4 handle SIGXCPU noprint nostop
7 call (void)scm_newline (scm_current_error_port ())
11 call (void)scm_call_1 (scm_variable_ref (scm_c_module_lookup (scm_c_resolve_module ("ice-9 pretty-print"), "pretty-print")), $arg0)
15 call (void)scm_display ($arg0, scm_current_error_port ())
20 call (void)scm_write ($arg0, scm_current_error_port ())
25 call (void)scm_puts ($arg0, scm_current_error_port ())
29 print ((SCM**)$arg0)[1][$arg1]
51 lforeach $uses modname
75 set $x=((SCM*)$arg0)[$arg1]
82 define program_objcode
86 p *(struct scm_objcode*)$x
93 gwrite fp[bp->nargs+$i]
106 p ((scm_t_bits)$arg0) & 0xffff
109 define smobdescriptor
110 p scm_smobs[0xff & (((scm_t_bits)$arg0) >> 8)]
115 set $vmstack_base=stack_base
123 while $vmsp > $vmstack_base
124 output $orig_vmsp - $vmsp
150 set $vmdl=(SCM*)(*$vmsp)
154 set $vmnlocs=(int)$vmbp->nlocs
163 set $vmnlocs=$vmnlocs-1
165 set $vmnargs=(int)$vmbp->nargs
174 set $vmnargs=$vmnargs-1
184 set $vmbp=(struct scm_objcode*)((SCM*)(((SCM*)($vmfp[-1]))[1])[1])
185 set $vmstack_base=$vmfp+$vmbp->nargs+$vmbp->nlocs+4
186 set $vmframe=$vmframe+1
193 while $vmsp > vp->stack_base
199 p scm_instruction_table[$arg0]
203 call scm_display_backtrace (scm_make_stack(0x404,0x304), scm_current_error_port (), 0x704, 0x704, 0x704)