diff options
Diffstat (limited to 'gs/psi/interp.c')
-rw-r--r-- | gs/psi/interp.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gs/psi/interp.c b/gs/psi/interp.c index 506f8b899..d384e8164 100644 --- a/gs/psi/interp.c +++ b/gs/psi/interp.c @@ -94,16 +94,16 @@ do_call_operator_verbose(op_proc_t op_proc, i_ctx_t *i_ctx_p) int code; #ifndef SHOW_STACK_DEPTHS - if_debug1('!', "[!]operator %s\n", op_get_name_string(op_proc)); + if_debug1m('!', imemory, "[!]operator %s\n", op_get_name_string(op_proc)); #else - if_debug3('!', "[!][es=%d os=%d]operator %s\n", + if_debug3m('!', imemory, "[!][es=%d os=%d]operator %s\n", esp-i_ctx_p->exec_stack.stack.bot, osp-i_ctx_p->op_stack.stack.bot, op_get_name_string(op_proc)); #endif code = do_call_operator(op_proc, i_ctx_p); #if defined(SHOW_STACK_DEPTHS) - if_debug2('!', "[!][es=%d os=%d]\n", + if_debug2m('!', imemory, "[!][es=%d os=%d]\n", esp-i_ctx_p->exec_stack.stack.bot, osp-i_ctx_p->op_stack.stack.bot); #endif @@ -909,7 +909,7 @@ interp(i_ctx_t **pi_ctx_p /* context for execution, updated if resched */, if (iosp >= osbot && (r_type(iosp) == t__invalid || r_type(iosp) >= tx_next_op) ) { - lprintf("Invalid value on o-stack!\n"); + mlprintf(imemory, "Invalid value on o-stack!\n"); return_with_error_iref(e_Fatal); } if (gs_debug['I'] || @@ -923,18 +923,18 @@ interp(i_ctx_t **pi_ctx_p /* context for execution, updated if resched */, osp = iosp; esp = iesp; - dlprintf5("d%u,e%u<%u>0x%lx(%d): ", + dmlprintf5(imemory, "d%u,e%u<%u>0x%lx(%d): ", ref_stack_count(&d_stack), ref_stack_count(&e_stack), ref_stack_count(&o_stack), (ulong)IREF, icount); debug_print_ref(imemory, IREF); if (iosp >= osbot) { - dputs(" // "); + dmputs(imemory, " // "); debug_print_ref(imemory, iosp); } - dputc('\n'); + dmputc(imemory, '\n'); osp = save_osp; esp = save_esp; - dflush(); + dmflush(imemory); } #endif /* Objects that have attributes (arrays, dictionaries, files, and strings) */ |