init-thread-state ( -- )

Vocabulary

threads.private

Inputs

None

Outputs

None

Definition

USING: dlists heaps kernel kernel.private ;

IN: threads.private

: init-thread-state ( -- )
    H{ } clone OBJ-THREADS set-special-object
    <dlist> OBJ-RUN-QUEUE set-special-object
    <min-heap> OBJ-SLEEP-QUEUE set-special-object
    H{ } clone OBJ-WAITING-CALLBACKS set-special-object ;