Commit 6e2de16a authored by Jean-Claude Beaudoin's avatar Jean-Claude Beaudoin
Browse files

Utility dpp is from now on in pre-retirement with very limited duties, restricted to .dh files.

parent 6193e618
......@@ -157,7 +157,7 @@ disassemble_tagbody(MKCL, mkcl_object bytecode, mkcl_opcode *vector) {
GET_LABEL(destination, vector);
mkcl_princ_str(env, "\n\tTAG\t", mk_cl_Ct);
mkcl_princ(env, MKCL_MAKE_FIXNUM(i), mk_cl_Ct);
mkcl_princ_str(env, " @@ ", mk_cl_Ct);
mkcl_princ_str(env, " @ ", mk_cl_Ct);
mkcl_princ(env, MKCL_MAKE_FIXNUM(destination - base), mk_cl_Ct);
}
vector = disassemble(env, bytecode, vector);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment