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

UNSAFE INTERFACE Uucontext;

FROM Ctypes IMPORT int;

(*CONST*)
VAR
    Size: int;

TYPE
    ucontext_t_star = ADDRESS;
    T = ADDRESS;

    Stack = RECORD
        Start: ADDRESS;
        Size: INTEGER;
    END;

PROCEDURE set_stack(a: T; READONLY a: Stack);
PROCEDURE new(VAR a: T);
PROCEDURE dispose(VAR a: T);
PROCEDURE get(a: T);
PROCEDURE set(a: T): int;
PROCEDURE make(a: T; b: PROCEDURE ());
PROCEDURE swap(a, b : T): int;

END Uucontext.
