fix bytecode constants reuse

1 files changed, 3 insertions, 1 deletions

diff --git a/pez.c b/pez.c
index 306e3ca..b7ebad5 100644
--- a/pez.c
+++ b/pez.c
@@ -1336,6 +1336,7 @@ inspectproto(Proto *pr)
             assert(*argp < pr->ncon);
             v = pr->con[*argp];
             assert(isobj_of(v, PEZ_TString));
+            fprintf(stderr, "(%d) ", *argp);
             inspectstr(((Str *)unbox_obj(v))->dat, ((Str *)unbox_obj(v))->len);
             break;
         case Olambda:
@@ -1344,6 +1345,7 @@ inspectproto(Proto *pr)
             v = pr->con[*argp];
             assert(isobj_of(v, PEZ_TFnProto));
             opr = unbox_obj(v);
+            fprintf(stderr, "(%d) ", *argp);
             if (opr->named) {
                 fprintf(stderr, "<'%s %p>", opr->name, opr);
             } else {
@@ -2559,8 +2561,8 @@ compconst(Comp *cm, Val v)
         if (cm->con.len == UINT8_MAX) {
             return comperr(cm, peekchr(cm), "too many consts"), 0;
         }
-    K:
         vecpush(cm->cx, &cm->con, &v, 1);
+    K:
         TRY(compop(cm, Ostring));
         TRY(compbyte(cm, idx));
         return 1;