/*
 * ProcessSupport.c
 *   Copyright Ó 1988 by Xerox Corporation.  All rights reserved.
 *
 *
 * Interface between Mimosa-generated code and the Xerox Runtime lightweight process package
 * CHauser, May 25, 1988 2:46:36 pm PDT
 */
 
 
#include <xr/Threads.h>"
static char c_version[] = "@(#)c_stamp [2758060674,0] ProcessSupport.C";

extern unsigned XR_Aborted;
void XR_Wait(lock, cond) {
  if (XR_WaitCV(cond, lock)) {
    XR_RaiseError(XR_Aborted, 0);
    };
  };

extern unsigned XR_InvalidProcess;
int *XR_Join(process)
struct XR_CTRep process;
{
    XR_Pointer r;
	if (((int) (r = XR_JoinCT(&process))) == -1) {
	  XR_RaiseError(XR_InvalidProcess, process);
	  };
	return((int *) r);
	};


static void XR_load_ProcessSupport () {};
static void XR_run_ProcessSupport () {};