/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 21, 1992 4:26:06 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: FinalizationImpl, module: FinalizationImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [4148406558,3787425269] FinalizationImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q600();
static void FinalizationImpl_P0();
static word NewFQ_P60();
static word FQEmpty_P120();
static word FQNextNoAbort_P180();
static word FQNext_P240();
static word EnableFinalization_P300();
static word DisableFinalization_P360();
static word ReenableFinalization_P420();
static word GetFinalizationState_P480();
static word HandleToObject_P540();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\367\103\251\036\300\341\277\205\365\100\164\000\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\004\014\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\367\103\251\036\300\341\277\205\365\100\150\000\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\247\301\054\125\300\015\075\063\112\100\150\000\000"};
static struct {unsigned f; char r[32];} string5 = {1966112, "\211\022\021\106\151\156\141\154\151\172\141\142\154\145\117\142\152\145\143\164\300\247\301\054\125\300\015\075\063\112\000"};
static struct {unsigned f; char r[36];} string6 = {2162724, "\211\025\024\106\151\156\141\154\151\172\141\164\151\157\156\121\165\145\165\145\122\145\160\300\247\301\054\125\300\015\075\063\112\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\367\103\251\036\300\341\277\205\365\100\200\000\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\004\003\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; word f16; 
   word f17; word f18; word f19; word f20; 
   word f21; word f22; word f23; word f24; 
   word f25[2]; 
   } globalframe = {
   {0}, (word) HandleToObject_P540, 0, (word) GetFinalizationState_P480, 
   0, (word) ReenableFinalization_P420, 0, (word) DisableFinalization_P360, 
   0, (word) EnableFinalization_P300, 0, (word) FQNext_P240, 
   0, (word) FQNextNoAbort_P180, 0, (word) FQEmpty_P120, 
   0, (word) NewFQ_P60, 0, (word) FinalizationImpl_P0, 
   {0}
   };

static void NoName_Q600()
   {
   register ptr gf_c036 =  (ptr) &globalframe;
   word var_c6144;
   (* (( (ptr) gf_c036)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (void) XR_DeclareGlobalFrame((word) "FinalizationImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string3)), (word) (
         ( (bPt) gf_c036)+96)/* var_c5824 */ );
   var_c6144 = (word) XR_ExportInterface((word) "Finalization", (word) XR_GetTypeIndexS((word) (&string4)), 11);
   (* (( (ptr) gf_c036)+26)/* var_c6112 */  ) = var_c6144;
   (void) XR_ExportType((word) "FinalizableObject", (word) XR_GetTypeIndexS((word) (&string5)), (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2)
      );
   (void) XR_ExportType((word) "FinalizationQueueRep", (word) XR_GetTypeIndexS((word) (&string6)), (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8)
      );
   (void) XR_ExportProcS(var_c6144, (word) (( (bPt) gf_c036)+56)/* var_c5664 */ , 67633666);
   (void) XR_ExportProcS(var_c6144, (word) (( (bPt) gf_c036)+48)/* var_c5632 */ , 67371777);
   (void) XR_ExportProcS(var_c6144, (word) (( (bPt) gf_c036)+40)/* var_c5600 */ , 67634178);
   (void) XR_ExportProcS(var_c6144, (word) (( (bPt) gf_c036)+32)/* var_c5568 */ , 67372289);
   (void) XR_ExportProcS(var_c6144, (word) (( (bPt) gf_c036)+24)/* var_c5536 */ , 67372545);
   (void) XR_ExportProcS(var_c6144, (word) (( (bPt) gf_c036)+88)/* var_c5792 */ , 67110656);
   (void) XR_ExportProcS(var_c6144, (word) (( (bPt) gf_c036)+64)/* var_c5696 */ , 67373057);
   (void) XR_ExportProcS(var_c6144, (word) (( (bPt) gf_c036)+72)/* var_c5728 */ , 67373313);
   (void) XR_ExportProcS(var_c6144, (word) (( (bPt) gf_c036)+80)/* var_c5760 */ , 67373569);
   }

static void FinalizationImpl_P0(formal_c015, formal_c014)
   word formal_c015;
   word formal_c014;
   {
   /* FinalizationImpl: */ 
   }

static word NewFQ_P60()
   {
   word var_c3104;
   /* NewFQ: */ 
SOURCE(528, 151)
SOURCE(660, 19)
   return((word) XR_NewFQ());
   }

static word FQEmpty_P120(fq_v3164)
   word fq_v3164;
   {
   word var_c3208;
   /* FQEmpty: */ 
SOURCE(685, 182)
SOURCE(843, 24)
   return((word) XR_FQEmpty(fq_v3164));
   }

static word FQNextNoAbort_P180(fq_v3268)
   word fq_v3268;
   {
   word handle_v3312;
   /* FQNextNoAbort: */ 
SOURCE(873, 226)
SOURCE(873, 226)
   handle_v3312 = 0;
SOURCE(1069, 30)
   return((word) XR_FQNextNoAbort(fq_v3268));
   }

static word FQNext_P240(fq_v3372)
   word fq_v3372;
   {
   word handle_v3416;
   /* FQNext: */ 
SOURCE(1105, 257)
SOURCE(1105, 257)
   handle_v3416 = 0;
SOURCE(1300, 26)
   handle_v3416 = (word) FQNextNoAbort_P180(fq_v3372);
SOURCE(1328, 34)
   if ((handle_v3416 == 0)) {
SOURCE(1349, 13)
      (void) XR_RaiseError(XR_Aborted, 0);
      };
SOURCE(1105, 257)
   return(handle_v3416);
   }

static word EnableFinalization_P300(object_v3476, fq_v3504)
   word object_v3476;
   word fq_v3504;
   {
   register ptr gf_c6176 =  (ptr) &globalframe;
   word handle_v3564;
   /* EnableFinalization: */ 
SOURCE(1367, 322)
SOURCE(1367, 322)
   handle_v3564 = 0;
SOURCE(1597, 50)
   {
      word var_c5952;
      var_c5952 = XR_NewObject(16, (* (( (ptr) gf_c6176)+4) ));
      (* (( (ptr) var_c5952)+2) ) = fq_v3504;
      handle_v3564 = var_c5952;
      };
SOURCE(1649, 40)
   (void) XR_EnableFinalization(object_v3476, fq_v3504, handle_v3564);
SOURCE(1367, 322)
   return(handle_v3564);
   }

static word DisableFinalization_P360(handle_v3624)
   word handle_v3624;
   {
   word oldState_v3668;
   /* DisableFinalization: */ 
SOURCE(1695, 267)
SOURCE(1923, 39)
   return((word) XR_DisableFinalization(handle_v3624));
   }

static word ReenableFinalization_P420(handle_v3728, fq_v3756)
   word handle_v3728;
   word fq_v3756;
   {
   word oldState_v3800;
   /* ReenableFinalization: */ 
SOURCE(1968, 321)
SOURCE(2245, 44)
   return((word) XR_ReenableFinalization(handle_v3728, fq_v3756));
   }

static word GetFinalizationState_P480(handle_v3860)
   word handle_v3860;
   {
   word state_v3904;
   /* GetFinalizationState: */ 
SOURCE(2295, 265)
SOURCE(2520, 40)
   return((word) XR_GetFinalizationState(handle_v3860));
   }

static word HandleToObject_P540(handle_v3964)
   word handle_v3964;
   {
   word object_v4008;
   /* HandleToObject: */ 
SOURCE(2566, 215)
SOURCE(2566, 215)
   object_v4008 = 0;
SOURCE(2747, 34)
   return((word) XR_HandleToObject(handle_v3964));
   }

/* file: FinalizationImpl, module: FinalizationImpl, compiled at: February 21, 1992 4:26:06 pm PST */ 
extern void XR_install_FinalizationImpl() {
   NoName_Q600();
   }
extern void XR_run_FinalizationImpl() { XR_Start(&globalframe); }