(* Copyright (C) 1992, Digital Equipment Corporation *) (* All rights reserved. *) (* See the file COPYRIGHT for a full description. *) (* File: Mutex.m3 *) (* Last Modified On Mon Mar 2 10:33:23 PST 1992 By kalsow *) (* Modified On Thu Jul 27 17:26:29 1989 By muller *) MODULE Mutex; IMPORT OpaqueType, ObjectRef, Tipe; PROCEDURE Initialize () = BEGIN T := OpaqueType.New (ObjectRef.T); Tipe.Define ("MUTEX", T, TRUE); END Initialize; BEGIN END Mutex.