shithub: orca

Info  •  Files  •  Log  •  Branches

T out disabled with len 0

--- a/sim.c

+++ b/sim.c

@@ -630,7 +630,6 @@

   Usz key = index_of(PEEK(0, -2));

   PORT(0, -1, IN | PARAM);

   PORT(0, -2, IN | PARAM);

-  PORT(1, 0, OUT);

   if (len == 0) return;

   Isz read_val_x = (Isz)(key % len) + 1;

   for (Usz i = 0; i < len; ++i) {

@@ -637,6 +636,7 @@

     LOCK(0, (Isz)(i + 1));

   }

   PORT(0, (Isz)read_val_x, IN);

+  PORT(1, 0, OUT);

   POKE(1, 0, PEEK(0, read_val_x));

 END_OPERATOR