m3core/src/unix/Common/Uucontext.i3


 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
    context_t_size: int; (* VAR context := NEW(UNTRACED REF? ARRAY OF CHAR, Uucontext.context_t_size); *)

TYPE
    ucontext_t_star = ADDRESS;

<*EXTERNAL Uucontext__set_stack*>
PROCEDURE set_stack(a: ucontext_t_star; Start: ADDRESS; Size: INTEGER);
<*EXTERNAL Uucontext__getcontext*>PROCEDURE getcontext(a: ucontext_t_star);
<*EXTERNAL Uucontext__setcontext*>PROCEDURE setcontext(a: ucontext_t_star): int;
<*EXTERNAL Uucontext__makecontext*>
PROCEDURE makecontext(a: ucontext_t_star; b: PROCEDURE (); argc: int := 0);
<*EXTERNAL Uucontext__swapcontext*>PROCEDURE swapcontext(a, b: ucontext_t_star): int;

END Uucontext.