(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* Last modified on Mon Jan 22 10:27:34 1990 by muller         *)

INTERFACE ThreadF;

IMPORT Thread, Time;

PROCEDURE ProcessStacks (p: PROCEDURE (start, stop: ADDRESS));
(* This procedure apply p to each stack, with start and stop being the limits
   of the stack. It is there mainly for the benefit of the garbage collector.
   *)

PROCEDURE Pause (until: Time.T);
(* This procedure removes the calling thread from the list of running thread;
   it will be reinserted sometime after until, hopefully very near that time.
   This procedure is here for the benefit of the Time package. *)

PROCEDURE SetSwitchingInterval (interval: Time.T);
(* select the interval at which switching interrupts should occur. *)

PROCEDURE Shell ();

END ThreadF.