/*->c.arc */


#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "swis.h"
#include "h.os"
#include "h.bbc"
#include "h.wimpt"
#include "h.werr"
#include "h.kernel"


#include "h.TWAIN"  /* for TW data type defines */
#include "h.glue"   /* for function prototypes */
#include "h.con"    /* common lib of container routines */

#include "h.arc"



void * GlobalAlloc(int size)
{
 _kernel_oserror  *  err;
 _kernel_swi_regs    rx;

 rx.r[0]=6;
 rx.r[3]=size;

 err=_kernel_swi(OS_Module,&rx,&rx);

 if(err) return(NULL);
 else    return((void*)rx.r[2]);
}


void * GlobalLock(void * memory)
{
 return(memory);
}


void GlobalFree(void * memory)
{
 _kernel_oserror  *  err;
 _kernel_swi_regs    rx;

 rx.r[0]=7;
 rx.r[2]=(int)memory;

 err=_kernel_swi(OS_Module,&rx,&rx);
}


void GlobalUnlock(void * memory)
{
 memory=memory;
}


