4 call (void)scm_newline (scm_current_error_port ())
8 call (void)scm_call_1 (scm_variable_ref (scm_c_module_lookup (scm_c_resolve_module ("ice-9 pretty-print"), "pretty-print")), $arg0)
12 call (void)scm_display ($arg0, scm_current_error_port ())
17 call (void)scm_write ($arg0, scm_current_error_port ())
22 call (void)scm_puts ($arg0, scm_current_error_port ())
26 print ((SCM**)$arg0)[1][$arg1]
48 lforeach $uses modname
72 set $x=((SCM*)$arg0)[$arg1]
79 define program_objcode
83 p *(struct scm_objcode*)$x
90 gwrite fp[bp->nargs+$i]
103 p ((scm_t_bits)$arg0) & 0xffff
106 define smobdescriptor
107 p scm_smobs[0xff & (((scm_t_bits)$arg0) >> 8)]
112 set $vmstack_base=stack_base
120 while $vmsp > $vmstack_base
121 output $orig_vmsp - $vmsp
147 set $vmdl=(SCM*)(*$vmsp)
151 set $vmnlocs=(int)$vmbp->nlocs
160 set $vmnlocs=$vmnlocs-1
162 set $vmnargs=(int)$vmbp->nargs
171 set $vmnargs=$vmnargs-1
181 set $vmbp=(struct scm_objcode*)((SCM*)(((SCM*)($vmfp[-1]))[1])[1])
182 set $vmstack_base=$vmfp+$vmbp->nargs+$vmbp->nlocs+4
183 set $vmframe=$vmframe+1
190 while $vmsp > vp->stack_base
196 p scm_instruction_table[$arg0]