X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_inner.c;fp=csrc%2Fpf_inner.c;h=b7c8ae156af3dd213c4af109b86dc4020e580cde;hb=36a42cf251672481da028bb30eea1b16779b5f05;hp=b23974d6747968a83b56ac1cff1d20e6903435b1;hpb=e1fe6a3e5393fc9a90c8b2ad40b4c2092d551d57;p=debian%2Fpforth

diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c
index b23974d..b7c8ae1 100644
--- a/csrc/pf_inner.c
+++ b/csrc/pf_inner.c
@@ -1635,6 +1635,10 @@ DBUG(("XX ah,m,l = 0x%8x,%8x,%8x - qh,l = 0x%8x,%8x\n", ah,am,al, qh,ql ));
             endcase;
 #endif
 
+        case ID_SLEEP_P:
+            TOS = sdSleepMillis(TOS);
+            endcase;
+
         case ID_SP_FETCH:    /* ( -- sp , address of top of stack, sorta ) */
             PUSH_TOS;
             TOS = (cell_t)STKPTR;