tests/dock/one-instruction-loop.fleet

   1
   2 // This test case ensures that a single-instruction loop works
   3 // properly.  The two instructions after the tail will get "clogged"
   4 // in the switch fabric until the hatch opens, but that's okay.
   5
   6 #ship debug : Debug
   7 #ship fifo : Fifo
   8
   9 #expect 5
  10 #expect 4
  11
  12 debug.in:
  13   set word=5;
  14   deliver;
  15   set olc=4;
  16   head;
  17   set olc--;
  18   [d] abort;
  19   [d] set word=4;
  20   [d] deliver;
  21   tail;
  22