Permalink
Browse files

Set LAST-AWAKE when waking up tasks

  • Loading branch information...
ekoeppen committed Jun 14, 2012
1 parent 924a695 commit ea36fe38cd1600f95ac8afb2ee02513d52eccfa5
Showing with 2 additions and 2 deletions.
  1. +1 −1 generic/multitasking.ft
  2. +1 −1 lm3s811/precompiled_words.s
View
@@ -29,7 +29,7 @@ VARIABLE LAST-AWAKE
' (WAKE) CONSTANT WAKE
-: AWAKE ( tid -- ) WAKE SWAP STATUS 'U ! ;
+: AWAKE ( tid -- ) DUP LAST-AWAKE ! WAKE SWAP STATUS 'U ! ;
: (PASS)
R>
@@ -787,7 +787,7 @@
defword "AWAKE", AWAKE, 0x0
- .word WAKE, SWAP, STATUS, TICKU, STORE, EXIT
+ .word DUP, LAST_AWAKE, STORE, WAKE, SWAP, STATUS, TICKU, STORE, EXIT
defword "(PASS)", LPARENPASSRPAREN, 0x0
.word RGT, DUP, WAKE_AT, TICKU, FETCH, QDUP, QBRANCH, 0x20, TICKS, FETCH, LT, QBRANCH, 0xC, DUP, AWAKE, DUP, LAST_AWAKE, FETCH, EQU, QBRANCH, 0x8, WFI, FETCH, GTR, EXIT

0 comments on commit ea36fe3

Please sign in to comment.