/* c2ccruntime.c */
/* Cedar to C runtime routines */
/* simplified, uncomplete */
/* Christian P. Jacobi, November 10, 1987 9:22:08 pm PST */
/* Mark Weiser, November 20, 1987 */

#include <stdio.h>
#include <signal.h>
#include <xr/ThreadsMsg.h>
#define stdout XR_MSG_STDOUT

#define UNITSPERWORD 4

typedef char  **c2cAddrPtr;
typedef int    *c2cIntPtr;

extern char    *GC_malloc();

void
XR_DebugPutChar(ch)
	char            ch;
{
	XR_FPrintF(stdout, "%c", ch);
}

int
XR_ExtensionAlloc(n)
	unsigned        n;
{
	char           *ptr;
	ptr = GC_malloc(n*UNITSPERWORD);
	return ((int) ptr);
}