/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: April 9, 1992 11:43:32 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: GGStoragePoolsImpl, module: GGStoragePoolsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [4047108235,966966463] GGStoragePoolsImpl";
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_Q300();
static void GGStoragePoolsImpl_P0();
static word CreateClass_P60();
static word CreatePool_P120();
static word Allocate_P180();
static void Free_P240();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\066\171\236\174\300\023\130\350\134\100\244\000\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\066\171\236\174\300\023\130\350\134\100\260\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\0040\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\361\071\370\213\300\071\242\274\277\100\164\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\066\171\236\174\300\023\130\350\134\100\150\000\000"};
static struct {
   word f0[6]; word f6; word f7; word f8; 
   word f9; word f10; word f11; word f12; 
   word f13; word f14; word f15[2]; 
   } globalframe = {
   {0}, (word) Free_P240, 0, (word) Allocate_P180, 
   0, (word) CreatePool_P120, 0, (word) CreateClass_P60, 
   0, (word) GGStoragePoolsImpl_P0, {0}
   };

static void NoName_Q300()
   {
   register ptr gf_c024 =  (ptr) &globalframe;
   word var_c4408;
   (* (( (ptr) gf_c024)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c024)+5) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (void) XR_DeclareGlobalFrame((word) "GGStoragePoolsImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string5)), (word) (
         ( (bPt) gf_c024)+56)/* var_c4280 */ );
   var_c4408 = (word) XR_ExportInterface((word) "GGStoragePools", (word) XR_GetTypeIndexS((word) (&string6)), 4);
   (* (( (ptr) gf_c024)+16)/* var_c4376 */  ) = var_c4408;
   (void) XR_ExportProcS(var_c4408, (word) (( (bPt) gf_c024)+48)/* var_c4248 */ , 67895299);
   (void) XR_ExportProcS(var_c4408, (word) (( (bPt) gf_c024)+40)/* var_c4216 */ , 67633410);
   (void) XR_ExportProcS(var_c4408, (word) (( (bPt) gf_c024)+32)/* var_c4184 */ , 67371521);
   (void) XR_ExportProcS(var_c4408, (word) (( (bPt) gf_c024)+24)/* var_c4152 */ , 525058);
   }

static void GGStoragePoolsImpl_P0(formal_c010, formal_c09)
   word formal_c010;
   word formal_c09;
   {
   /* GGStoragePoolsImpl: */ 
   }

static word CreateClass_P60(name_v2820, allocate_v2848, free_v2876)
   word name_v2820;
   word allocate_v2848;
   word free_v2876;
   {
   register ptr gf_c4440 =  (ptr) &globalframe;
   word class_v2920;
   /* CreateClass: */ 
SOURCE(487, 173)
SOURCE(487, 173)
   class_v2920 = 0;
SOURCE(603, 57)
   {
      word var_c4312;
      var_c4312 = XR_NewObject(12, (* (( (ptr) gf_c4440)+4) ));
      (*  (ptr) var_c4312 ) = name_v2820;
      (* (( (ptr) var_c4312)+1) ) = XR_CheckProc(allocate_v2848);
      (* (( (ptr) var_c4312)+2) ) = XR_CheckProc(free_v2876);
      class_v2920 = var_c4312;
      };
SOURCE(487, 173)
   return(class_v2920);
   }

static word CreatePool_P120(class_v2980, makeStorage_v3008)
   word class_v2980;
   word makeStorage_v3008;
   {
   register ptr gf_c4472 =  (ptr) &globalframe;
   word pool_v3052;
   /* CreatePool: */ 
SOURCE(666, 185)
SOURCE(666, 185)
   pool_v3052 = 0;
SOURCE(778, 54)
   {
      word var_c4344;
      var_c4344 = XR_NewObject(24, (* (( (ptr) gf_c4472)+5) ));
      (* (( (ptr) var_c4344)+4) ) = class_v2980;
      pool_v3052 = var_c4344;
      };
SOURCE(834, 17)
   (void) ( *( (fPt) ((*  (ptr) makeStorage_v3008 ))))(pool_v3052, makeStorage_v3008);
SOURCE(666, 185)
   return(pool_v3052);
   }

static word Allocate_P180(pool_v3112)
   word pool_v3112;
   {
   word item_v3156;
   /* Allocate: */ 
SOURCE(856, 108)
   (void) (XR_MonitorEntry(pool_v3112));
SOURCE(856, 108)
   item_v3156 = 0;
SOURCE(932, 32)
   {
      word pd7;
      pd7 = (* (( (ptr) (* (( (ptr) pool_v3112)+4) ))+1) );
      item_v3156 = (word) ( *( (fPt) ((*  (ptr) pd7 ))))(pool_v3112, pd7);
      };
SOURCE(856, 108)
   (void) (XR_MonitorExit(pool_v3112));
   return(item_v3156);
   }

static void Free_P240(pool_v3232, item_v3260)
   word pool_v3232;
   word item_v3260;
   {
   /* Free: */ 
SOURCE(969, 90)
   (void) (XR_MonitorEntry(pool_v3232));
SOURCE(1032, 27)
   {
      word pd8;
      pd8 = (* (( (ptr) (* (( (ptr) pool_v3232)+4) ))+2) );
      (void) ( *( (fPt) ((*  (ptr) pd8 ))))(pool_v3232, item_v3260, pd8);
      };
SOURCE(969, 90)
   (void) (XR_MonitorExit(pool_v3232));
   return;
   }

/* file: GGStoragePoolsImpl, module: GGStoragePoolsImpl, compiled at: April 9, 1992 11:43:32 pm PDT */ 
extern void XR_install_GGStoragePoolsImpl() {
   NoName_Q300();
   }
extern void XR_run_GGStoragePoolsImpl() { XR_Start(&globalframe); }