/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: July 22, 1992 10:02:06 am PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: UnsafeStorageImpl, module: UnsafeStorageImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [428995076,2903964516] UnsafeStorageImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
static void NoName_Q420();
static void UnsafeStorageImpl_P0();
static word GetSystemUZone_P60();
static word GetUZone_P120();
static word New_P180();
static void Free_P240();
static word NewUObject_P300();
static word GetTransientPageUZone_P360();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\031\221\362\004\300\255\026\373\144\100\150\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\311\270\056\075\300\372\060\276\203\100\150\000\000"};
static struct {
   word f0[7]; word f7; word f8; word f9; 
   word f10; word f11; word f12; word f13; 
   word f14; word f15; word f16; word f17; 
   word f18; word f19; word f20[2]; 
   } globalframe = {
   {0}, (word) GetTransientPageUZone_P360, 0, (word) NewUObject_P300, 
   0, (word) Free_P240, 0, (word) New_P180, 
   0, (word) GetUZone_P120, 0, (word) GetSystemUZone_P60, 
   0, (word) UnsafeStorageImpl_P0, {0}
   };

static void NoName_Q420()
   {
   register ptr gf_c030 =  (ptr) &globalframe;
   word var_c4584;
   (void) XR_DeclareGlobalFrame((word) "UnsafeStorageImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string1)), (word) (
         ( (bPt) gf_c030)+76)/* var_c4488 */ );
   var_c4584 = (word) XR_ExportInterface((word) "UnsafeStorage", (word) XR_GetTypeIndexS((word) (&string2)), 4);
   (* (( (ptr) gf_c030)+21)/* var_c4552 */  ) = var_c4584;
   (void) XR_ExportProcS(var_c4584, (word) (( (bPt) gf_c030)+36)/* var_c4328 */ , 67633154);
   (void) XR_ExportProcS(var_c4584, (word) (( (bPt) gf_c030)+68)/* var_c4456 */ , 67109120);
   (void) XR_ExportProcS(var_c4584, (word) (( (bPt) gf_c030)+28)/* var_c4296 */ , 67109376);
   (void) XR_ExportVar(var_c4584, 3, (word) (( (bPt) gf_c030)+24));
   }

static void UnsafeStorageImpl_P0(formal_c013, formal_c012)
   word formal_c013;
   word formal_c012;
   {
   register ptr gf_c4616 =  (ptr) &globalframe;
   /* UnsafeStorageImpl: */ 
SOURCE(27, 1301)
SOURCE(350, 49)
   (* (( (ptr) gf_c4616)+4)/* systemUZone_v2520 */  ) = (word) GetUZone_P120((word) (( (bPt) gf_c4616)+52)/* var_c4392 */ , (word) (
         ( (bPt) gf_c4616)+44)/* var_c4360 */ );
   }

static word GetSystemUZone_P60()
   {
   register ptr gf_c4648 =  (ptr) &globalframe;
   word var_c3188;
   /* GetSystemUZone: */ 
SOURCE(402, 76)
SOURCE(459, 19)
   return((* (( (ptr) gf_c4648)+4)/* systemUZone_v2520 */  ));
   }

static word GetUZone_P120(new_v3256, free_v3284)
   word new_v3256;
   word free_v3284;
   {
   word var_c3328;
   word uZone_v3672;
   /* GetUZone: */ 
SOURCE(482, 173)
SOURCE(565, 43)
   uZone_v3672 = (word) ( *( (fPt) ((*  (ptr) new_v3256 ))))(0, 8, new_v3256);
SOURCE(610, 20)
   (*  (ptr) uZone_v3672 ) = new_v3256;
   (* (( (ptr) uZone_v3672)+1) ) = free_v3284;
SOURCE(632, 23)
   return(uZone_v3672);
   }

static word New_P180(self_v4060, units_v4088)
   word self_v4060;
   word units_v4088;
   {
   word var_c4132;
   word ptr_v3744;
   /* New: */ 
SOURCE(760, 178)
SOURCE(861, 39)
   ptr_v3744 = (word) GC_malloc((units_v4088 + 8));
SOURCE(902, 36)
   return((ptr_v3744 + 8));
   }

static void Free_P240(self_v4192, object_v4220)
   word self_v4192;
   word object_v4220;
   {
   word ptr_v3920;
   /* Free: */ 
SOURCE(944, 159)
SOURCE(1026, 56)
   ptr_v3920 = (object_v4220 - 8);
SOURCE(1084, 19)
   (void) GC_free(ptr_v3920);
   }

static word NewUObject_P300(size_v3396, zone_v3424)
   word size_v3396;
   word zone_v3424;
   {
   word var_c3476;
   /* NewUObject: */ 
SOURCE(1111, 139)
SOURCE(1209, 41)
   return((word) New_P180(zone_v3424, size_v3396));
   }

static word GetTransientPageUZone_P360()
   {
   register ptr gf_c4680 =  (ptr) &globalframe;
   word var_c3548;
   /* GetTransientPageUZone: */ 
SOURCE(1256, 72)
SOURCE(1319, 9)
   (void) XR_RaiseError((word) (( (bPt) gf_c4680)+20), 0);
   }

/* file: UnsafeStorageImpl, module: UnsafeStorageImpl, compiled at: July 22, 1992 10:02:05 am PDT */ 
extern void XR_install_UnsafeStorageImpl() {
   NoName_Q420();
   }
extern void XR_run_UnsafeStorageImpl() { XR_Start(&globalframe); }