:bug: Few fixes

diff --git a/src/emit/emit.c b/src/emit/emit.c
index e9c61bd05c83085691207d0cb15b2f0f4d71d09f..9587c5305e39d834f674225c77a5e196bb98b979 100644 (file)
--- a/src/emit/emit.c
+++ b/src/emit/emit.c
@@ -2227,10 +2227,11 @@ struct Looper {
   /*const */ m_uint   offset;
   const m_uint        n;
   const f_looper_init roll;
-  const f_looper      unroll;
+  const f_looper_init unroll;
+  struct Vector_ unroll_v;
 };
 
-ANN static inline m_bool roll(const Emitter emit, const struct Looper *loop) {
+ANN static inline m_bool roll(const Emitter emit, struct Looper *const loop) {
   const Instr instr = loop->roll(emit, loop);
   CHECK_BB(scoped_stmt(emit, loop->stmt, 1));
   instr->m_val = emit_code_size(emit) + 1; // pass after goto
@@ -2252,11 +2253,18 @@ ANN static inline void unroll_init(const Emitter emit, const m_uint n) {
 
 ANN static inline m_bool unroll_run(const Emitter        emit,
                                     const struct Looper *loop) {
-  if (loop->unroll) loop->unroll(emit, loop);
-  return emit_stmt(emit, loop->stmt, 1);
+  const Instr instr = loop->unroll ? loop->unroll(emit, loop) : NULL;
+  CHECK_BB(scoped_stmt(emit, loop->stmt, 1));
+  if(instr)
+//    instr->m_val = emit_code_size(emit) + 13; // pass after goto
+printf("code size %lu\n", emit_code_size(emit));
+//    instr->m_val = 46;
+  vector_add(&loop->unroll_v, (m_uint)instr);
+  return GW_OK;
+//  return emit_stmt(emit, loop->stmt, 1);
 }
 
-ANN static m_bool unroll(const Emitter emit, const struct Looper *loop) {
+ANN static m_bool _unroll(const Emitter emit, struct Looper *loop) {
   scoped_ini(emit);
   const Instr unroll = emit_add_instr(emit, Unroll);
   unroll->m_val      = loop->offset;
@@ -2271,14 +2279,28 @@ ANN static m_bool unroll(const Emitter emit, const struct Looper *loop) {
   return GW_OK;
 }
 
-ANN static void stmt_each_unroll(const Emitter        emit,
+ANN static m_bool unroll(const Emitter emit, struct Looper *loop) {
+  if(loop->unroll)
+    vector_init(&loop->unroll_v);
+  const m_bool ret = _unroll(emit, loop);
+  if(loop->unroll) {
+    for(m_uint i = 0; i < vector_size(&loop->unroll_v); i++) {
+      const Instr instr = (Instr)vector_at(&loop->unroll_v, i);
+      instr->m_val = emit_code_size(emit) + 2;
+    }
+    vector_release(&loop->unroll_v);
+  }
+  return ret;
+}
+ANN static Instr stmt_each_unroll(const Emitter        emit,
                                  const struct Looper *loop) {
   const Instr instr = emit_add_instr(emit, AutoLoop);
-  instr->m_val      = loop->offset + SZ_INT * 2;
+  instr->m_val2     = loop->offset + SZ_INT * 2;
+  return instr;
 }
 
 ANN static inline m_bool looper_run(const Emitter        emit,
-                                    const struct Looper *loop) {
+                                    struct Looper *const loop) {
   return (!loop->n ? roll : unroll)(emit, loop);
 }
 
@@ -2292,7 +2314,6 @@ ANN static m_bool _emit_stmt_each(const Emitter emit, const Stmt_Each stmt,
 
   CHECK_BB(emit_exp(emit, stmt->exp)); // add ref?
   regpop(emit, SZ_INT);
-//  emit_exp_addref(emit, stmt->exp, 0);
   const m_uint offset = emit_local(emit, emit->gwion->type[et_int]); // array?
   emit_local(emit, emit->gwion->type[et_int]);
   emit_local(emit, emit->gwion->type[et_int]);

diff --git a/src/lib/dict.c b/src/lib/dict.c
index ba43527e2c3819c61b97a11fb5f619bbc11edeb9..1a900fb8795513ebe43700d0cbc8287c6d3a067a 100644 (file)
--- a/src/lib/dict.c
+++ b/src/lib/dict.c
@@ -341,8 +341,6 @@ static INSTR(hmap_val) {
   const HMapInfo *hinfo = (HMapInfo*)o->type_ref->nspc->class_data;
   const m_uint bucket = *(m_uint*)REG(0);
   const m_bit *new_data = hmap->data + hinfo->sz * bucket;
-  HState *const new_state = (HState*)(hmap->state + sizeof(HState) * bucket);
-  if(new_state->deleted) exit(3);
   const m_int tombstone = *(m_int*)(shred->reg - SZ_INT);
   if (tombstone != -1) {
     m_bit  *const old_data = hmap->data + (hmap->key_size + hmap->val_size) * tombstone;
@@ -462,7 +460,6 @@ if(info->is_var) {
   not_ok->m_val = top_pc;
   ok->m_val = emit_code_size(emit);
 
-//  if(isa(val, emit->gwion->type[et_compound]) > 0) exit(3);
   const Instr iseq = emit_add_instr(emit, hmap_addr);
   iseq->m_val = key->size;
   fast->m_val = emit_code_size(emit);
@@ -543,8 +540,6 @@ static OP_EMIT(opem_dict_remove) {
   const Instr pushval = emit_add_instr(emit, hmap_remove);
   pushval->m_val2 = hinfo->key->size;
   return GW_OK;
-
-//  exit(3);
 }
 
 ANN static m_bool emit_next_access(const Emitter emit, struct ArrayAccessInfo *const info) {