Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Set LAST-AWAKE when waking up tasks

  • Loading branch information...
commit ea36fe38cd1600f95ac8afb2ee02513d52eccfa5 1 parent 924a695
@ekoeppen authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  generic/multitasking.ft
  2. +1 −1  lm3s811/precompiled_words.s
View
2  generic/multitasking.ft
@@ -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>
View
2  lm3s811/precompiled_words.s
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.