/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: September 3, 1993 12:58:19 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: InstallationTypesImpl, module: InstallationTypesImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2408724016,1676823515] InstallationTypesImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static void NoName_Q2112();
static void InstallationTypesImpl_P0();
static word TypeFromTypeString_P60();
static void UnmonitoredFindTypeFromTypeString_P120();
extern word XR_GetTypeIndex();
static void MaybeGetTypeIndex_P240();
static word TypeStringFromType_P300();
static word UnmonitoredTypeStringFromType_P360();
static word MaybeMonitoredTypeStringFromType_P420();
static void FetchFromList_P600();
static void StoreInList_P660();
static word StringEqual_P720();
static void FetchTypeFromList_P780();
static word Equal_P840();
static word Hash_P900();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\217\222\066\060\300\143\362\113\333\100\230\000\000"};
static struct {unsigned f; char r[44];} string2 = {2752556, "\260\006\005\146\151\162\163\164\257\300\217\222\066\060\300\143\362\113\333\101\210\005\004\162\145\163\164\214\257\300\217\222\066\060\300\143\362\113\333\101\210\261\000"};
static struct {unsigned f; char r[4];} string3 = {131074, "\004\006\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\217\222\066\060\300\143\362\113\333\100\164\000\000"};
static struct {unsigned f; char r[4];} string5 = {196611, "\004@\340"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\223\215\300\016\300\070\141\304\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\317\073\175\317\300\370\307\271\356\100\150\000\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\242\221\264\046\300\105\142\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\036\137\320\376\300\071\321\170\251\100\150\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\371\361\330\220\300\372\202\000\101\100\150\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\200\367\017\371\300\261\172\333\044\100\150\000\000"};
static struct {
   word f0[4]; word f4; word f5[8]; 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; 
   word f26; word f27; word f28; word f29; 
   word f30; word f31; word f32; word f33; 
   word f34; word f35; word f36; word f37; 
   word f38; word f39; word f40[6]; 
   } globalframe = {
   {0}, (word) 4, {0}, (word) Hash_P900, 
   0, (word) Equal_P840, 0, (word) FetchTypeFromList_P780, 
   0, (word) StringEqual_P720, 0, (word) StoreInList_P660, 
   0, (word) FetchFromList_P600, 0, (word) MaybeMonitoredTypeStringFromType_P420, 
   0, (word) UnmonitoredTypeStringFromType_P360, 0, (word) TypeStringFromType_P300, 
   0, (word) MaybeGetTypeIndex_P240, 0, (word) XR_GetTypeIndex, 
   0, (word) UnmonitoredFindTypeFromTypeString_P120, 0, (word) TypeFromTypeString_P60, 
   0, (word) InstallationTypesImpl_P0, {0}
   };

static void NoName_Q2112()
   {
   register ptr gf_c0133 =  (ptr) &globalframe;
   word var_c13272;
   (* (( (ptr) gf_c0133)+9) ) = (word) XR_GetTypeIndexS((word) (&string1));
   (* (( (ptr) gf_c0133)+10) ) = (word) XR_GetTypeIndex((word) &string2, 0, (word) &string3);
   (void) XR_DeclareGlobalFrame((word) "InstallationTypesImpl", &globalframe, (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5)
      , (word) (( (bPt) gf_c0133)+156)/* var_c11928 */ );
   var_c13272 = (word) XR_ImportInterface((word) "CardTab", (word) XR_GetTypeIndexS((word) (&string6)), 12);
   (* (( (ptr) gf_c0133)+42)/* var_c11992 */  ) = var_c13272;
   (void) XR_ImportProcS(var_c13272, 134742786);
   (void) XR_ImportProcS(var_c13272, 67896579);
   (void) XR_ImportProcS(var_c13272, 67371265);
   var_c13272 = (word) XR_ImportInterface((word) "CardTabBackdoor", (word) XR_GetTypeIndexS((word) (&string7)), 2);
   (* (( (ptr) gf_c0133)+44)/* var_c12696 */  ) = var_c13272;
   (void) XR_ImportProcS(var_c13272, 134742018);
   var_c13272 = (word) XR_ImportInterface((word) "RefTab", (word) XR_GetTypeIndexS((word) (&string8)), 16);
   (* (( (ptr) gf_c0133)+41)/* var_c11960 */  ) = var_c13272;
   (void) XR_ImportProcS(var_c13272, 134742786);
   (void) XR_ImportProcS(var_c13272, 67896579);
   (void) XR_ImportProcS(var_c13272, 67895555);
   var_c13272 = (word) XR_ImportInterface((word) "RefTabBackdoor", (word) XR_GetTypeIndexS((word) (&string9)), 2);
   (* (( (ptr) gf_c0133)+43)/* var_c12312 */  ) = var_c13272;
   (void) XR_ImportProcS(var_c13272, 134742018);
   var_c13272 = (word) XR_ExportInterface((word) "MesaLoadState", (word) XR_GetTypeIndexS((word) (&string10)), 20);
   (* (( (ptr) gf_c0133)+45)/* var_c13304 */  ) = var_c13272;
   (void) XR_ExportProcS(var_c13272, (word) (( (bPt) gf_c0133)+116)/* var_c11768 */ , 67375361, (word) "TypeStringFromType")
   ;
   (void) XR_ExportProcS(var_c13272, (word) (( (bPt) gf_c0133)+148)/* var_c11896 */ , 67375617, (word) "TypeFromTypeString")
   ;
   var_c13272 = (word) XR_ExportInterface((word) "MesaLoadStateBackdoor", (word) XR_GetTypeIndexS((word) (&string11)), 3);
   (* (( (ptr) gf_c0133)+45)/* var_c13304 */  ) = var_c13272;
   (void) XR_ExportProcS(var_c13272, (word) (( (bPt) gf_c0133)+108)/* var_c11736 */ , 67371265, (word) "UnmonitoredTypeStringFromType")
   ;
   (void) XR_ExportProcS(var_c13272, (word) (( (bPt) gf_c0133)+140)/* var_c11864 */ , 134480385, (word) "UnmonitoredFindTypeFromTypeString")
   ;
   }

static void InstallationTypesImpl_P0(formal_c037, formal_c027)
   word formal_c037;
   word formal_c027;
   {
   register ptr gf_c13336 =  (ptr) &globalframe;
   /* InstallationTypesImpl: */ 
SOURCE(123, 4763)
   /* moved to installation proc */ 
SOURCE(4542, 59)
   {
      word pd12;
      pd12 = (* (( (ptr) (* (( (ptr) gf_c13336)+41)/* var_c11960 */  ))+5) );
      (* (( (ptr) gf_c13336)+6)/* typeTab_v3420 */  ) = (word) ( *( (fPt) ((*  (ptr) pd12 ))))(509, (word) (( (bPt) gf_c13336)+60)
         /* var_c11544 */ , (word) (( (bPt) gf_c13336)+52)/* var_c11512 */ , pd12);
      };
SOURCE(4603, 37)
   {
      word pd13;
      pd13 = (* (( (ptr) (* (( (ptr) gf_c13336)+42)/* var_c11992 */  ))+5) );
      (* (( (ptr) gf_c13336)+7)/* invTypeTab_v3448 */  ) = (word) ( *( (fPt) ((*  (ptr) pd13 ))))(509, pd13);
      };
SOURCE(4643, 201)
   {
      register word l_v5636;
      l_v5636 = (* (( (ptr) gf_c13336)+5)/* typeList_v3252 */  );
      lab_L100003: ;
      if ((l_v5636 != 0)) {
         }
      else {
         goto lab_L100000;
         };
SOURCE(4699, 65)
      {
         word var_c12088;
         {
            word var_c12024;
            {
               word var_c12056;
               word s_v11308;
               s_v11308 = (*  (ptr) l_v5636 );
SOURCE(3320, 19)
               var_c12056 = s_v11308;
               var_c12024 = var_c12056;
               };
            {
               word pd14;
               pd14 = (* (( (ptr) (* (( (ptr) gf_c13336)+41)/* var_c11960 */  ))+9) );
               var_c12088 = (word) ( *( (fPt) ((*  (ptr) pd14 ))))((* (( (ptr) gf_c13336)+6)/* typeTab_v3420 */  ), var_c12024, (* (( (ptr) l_v5636)+1)
                   ), pd14);
               };
            };
         };
SOURCE(4766, 78)
      {
         word var_c12184;
         {
            word var_c12120;
            {
               word var_c12152;
               word s_v11260;
               s_v11260 = (*  (ptr) l_v5636 );
SOURCE(3320, 19)
               var_c12152 = s_v11260;
               var_c12120 = var_c12152;
               };
            {
               word pd15;
               pd15 = (* (( (ptr) (* (( (ptr) gf_c13336)+42)/* var_c11992 */  ))+9) );
               var_c12184 = (word) ( *( (fPt) ((*  (ptr) pd15 ))))((* (( (ptr) gf_c13336)+7)/* invTypeTab_v3448 */  ), (*  (ptr) (* (( (ptr) l_v5636)+1)
                   ) ), var_c12120, pd15);
               };
            };
         };
      l_v5636 = (* (( (ptr) l_v5636)+2) );
      goto lab_L100003;
      lab_L100000: ;
      };
SOURCE(4855, 14)
   (* (( (ptr) gf_c13336)+5)/* typeList_v3252 */  ) = 0;
   }

static word TypeFromTypeString_P60(typeString_v3816)
   word typeString_v3816;
   {
   word type_v3860;
   /* TypeFromTypeString: */ 
SOURCE(708, 146)
SOURCE(804, 50)
   return((word) XR_GetTypeIndex(typeString_v3816, 0, 0));
   }

static void UnmonitoredFindTypeFromTypeString_P120(formal_c046, typeString_v3920)
   word formal_c046;
   word typeString_v3920;
   {
   word found_v3964;
   word type_v3992;
   word typeIndex_v5764;
   /* UnmonitoredFindTypeFromTypeString: */ 
SOURCE(860, 325)
SOURCE(998, 64)
   {
      W2 var_c12248;
      (void) MaybeGetTypeIndex_P240((word) &var_c12248, typeString_v3920, 0, 0, 1);
      typeIndex_v5764 = var_c12248.f1;
      found_v3964 = var_c12248.f0;
      };
SOURCE(1064, 112)
   if ((0 != found_v3964)) {
SOURCE(1122, 27)
      type_v3992 = typeIndex_v5764;
      }
   else {
SOURCE(1149, 27)
      type_v3992 = 0;
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c046 ) = found_v3964;
   (* (( (ptr) formal_c046)+1) ) = type_v3992;
   return;
   }

extern word XR_GetTypeIndex(typeString_v4052, structure_v4080, rcMapIndex_v4108)
   word typeString_v4052;
   word structure_v4080;
   word rcMapIndex_v4108;
   {
   word typeIndex_v4164;
   /* GetTypeIndex: */ 
SOURCE(1189, 217)
SOURCE(1327, 79)
   {
      word var_c0140;
      W2 var_c051;
      (void) MaybeGetTypeIndex_P240((word) &var_c051, typeString_v4052, structure_v4080, rcMapIndex_v4108, 0);
      var_c0140 = var_c051.f1;
      return(var_c0140);
      };
   }

static void MaybeGetTypeIndex_P240(formal_c073, typeString_v4224, structure_v4252, rcMapIndex_v4280, timidly_v4308)
   word formal_c073;
   word typeString_v4224;
   word structure_v4252;
   word rcMapIndex_v4280;
   word timidly_v4308;
   {
   register ptr gf_c13368 =  (ptr) &globalframe;
   word found_v4364;
   word typeIndex_v4392;
   /* MaybeGetTypeIndex: */ 
SOURCE(1410, 966)
SOURCE(1562, 78)
   if ((structure_v4252 != 0)) {
SOURCE(1586, 54)
      {
         W2 var_c058;
         (*  (ptr) (word) &var_c058 ) = 0;
         (* (( (ptr) (word) &var_c058) + 1) ) = typeString_v4224;
         (void) XR_RaiseError((word) (( (bPt) gf_c13368)+48)/* var_c11480 */ , (word) &var_c058);
         };
      };
SOURCE(1642, 723)
   if (((* (( (ptr) gf_c13368)+6)/* typeTab_v3420 */  ) != 0)) {
SOURCE(1664, 436)
      {
         word val_v5808 = 0;
SOURCE(1683, 116)
         {
            W2 var_c12344;
            {
               word pd16;
               pd16 = (word)  ( (0 != timidly_v4308) ? (* (( (ptr) (* (( (ptr) gf_c13368)+43)/* var_c12312 */  ))+4) ) : (* (( (ptr) (* (
                     ( (ptr) gf_c13368)+41)/* var_c11960 */  ))+7) ) ) ;
               (void) ( *( (fPt) ((*  (ptr) pd16 ))))((word) &var_c12344, (* (( (ptr) gf_c13368)+6)/* typeTab_v3420 */  ), typeString_v4224, pd16)
               ;
               };
            val_v5808 = var_c12344.f1;
            found_v4364 = var_c12344.f0;
            };
SOURCE(1801, 56)
         if ((0 != found_v4364)) {
SOURCE(1815, 42)
            typeIndex_v4392 = (*  (ptr) XR_Narrow(val_v5808, (* (( (ptr) gf_c13368)+9) )) );
            found_v4364 = 1;
            goto lab_L100007;
            };
SOURCE(1859, 44)
         if ((0 != timidly_v4308)) {
SOURCE(1875, 28)
            found_v4364 = 0;
            typeIndex_v4392 = 0;
            goto lab_L100007;
            };
SOURCE(1905, 21)
         typeIndex_v4392 = (* (( (ptr) gf_c13368)+4)/* typeCount_v3224 */  );
SOURCE(1928, 23)
         (* (( (ptr) gf_c13368)+4)/* typeCount_v3224 */  ) = ((* (( (ptr) gf_c13368)+4)/* typeCount_v3224 */  ) + 1);
SOURCE(1953, 86)
         {
            word var_c12504;
            {
               word var_c12440;
               {
                  word var_c12472;
                  var_c12472 = XR_NewObject(8, (* (( (ptr) gf_c13368)+9) ));
                  (*  (ptr) var_c12472 ) = typeIndex_v4392;
                  (* (( (ptr) var_c12472)+1) ) = rcMapIndex_v4280;
                  var_c12440 = var_c12472;
                  };
               {
                  word pd17;
                  pd17 = (* (( (ptr) (* (( (ptr) gf_c13368)+41)/* var_c11960 */  ))+9) );
                  var_c12504 = (word) ( *( (fPt) ((*  (ptr) pd17 ))))((* (( (ptr) gf_c13368)+6)/* typeTab_v3420 */  ), typeString_v4224, var_c12440, pd17)
                  ;
                  };
               };
            };
SOURCE(2041, 57)
         {
            word var_c12536;
            word pd18;
            pd18 = (* (( (ptr) (* (( (ptr) gf_c13368)+42)/* var_c11992 */  ))+9) );
            var_c12536 = (word) ( *( (fPt) ((*  (ptr) pd18 ))))((* (( (ptr) gf_c13368)+7)/* invTypeTab_v3448 */  ), typeIndex_v4392, typeString_v4224, pd18)
            ;
            };
         };
      }
   else {
SOURCE(2107, 260)
      {
         word val_v5852 = 0;
SOURCE(2120, 40)
         {
            W2 var_c12568;
            (void) FetchFromList_P600((word) &var_c12568, typeString_v4224);
            val_v5852 = var_c12568.f1;
            found_v4364 = var_c12568.f0;
            };
SOURCE(2162, 41)
         if ((0 != found_v4364)) {
SOURCE(2176, 27)
            typeIndex_v4392 = (*  (ptr) val_v5852 );
            found_v4364 = 1;
            goto lab_L100007;
            };
SOURCE(2205, 44)
         if ((0 != timidly_v4308)) {
SOURCE(2221, 28)
            found_v4364 = 0;
            typeIndex_v4392 = 0;
            goto lab_L100007;
            };
SOURCE(2251, 21)
         typeIndex_v4392 = (* (( (ptr) gf_c13368)+4)/* typeCount_v3224 */  );
SOURCE(2274, 23)
         (* (( (ptr) gf_c13368)+4)/* typeCount_v3224 */  ) = ((* (( (ptr) gf_c13368)+4)/* typeCount_v3224 */  ) + 1);
SOURCE(2299, 66)
         {
            word var_c12632;
            {
               word var_c12664;
               var_c12664 = XR_NewObject(8, (* (( (ptr) gf_c13368)+9) ));
               (*  (ptr) var_c12664 ) = typeIndex_v4392;
               (* (( (ptr) var_c12664)+1) ) = rcMapIndex_v4280;
               var_c12632 = var_c12664;
               };
            (void) StoreInList_P660(typeString_v4224, var_c12632);
            };
         };
      };
   /* removed tail goto */ 
   lab_L100007: ;
   (*  (ptr) formal_c073 ) = found_v4364;
   (* (( (ptr) formal_c073)+1) ) = typeIndex_v4392;
   return;
   }

static word TypeStringFromType_P300(type_v4452)
   word type_v4452;
   {
   word typeString_v4496;
   /* TypeStringFromType: */ 
SOURCE(2381, 138)
SOURCE(2468, 51)
   return((word) MaybeMonitoredTypeStringFromType_P420(type_v4452, 1));
   }

static word UnmonitoredTypeStringFromType_P360(type_v4556)
   word type_v4556;
   {
   word typeString_v4600;
   /* UnmonitoredTypeStringFromType: */ 
SOURCE(2523, 150)
SOURCE(2621, 52)
   return((word) MaybeMonitoredTypeStringFromType_P420(type_v4556, 0));
   }

static word MaybeMonitoredTypeStringFromType_P420(type_v4660, monitor_v4688)
   word type_v4660;
   word monitor_v4688;
   {
   register ptr gf_c13400 =  (ptr) &globalframe;
   word typeString_v4732;
   /* MaybeMonitoredTypeStringFromType: */ 
SOURCE(2677, 483)
SOURCE(2795, 365)
   if (((* (( (ptr) gf_c13400)+7)/* invTypeTab_v3448 */  ) != 0)) {
SOURCE(2820, 211)
      {
         word found_v5896;
         word val_v5924 = 0;
SOURCE(2853, 112)
         {
            W2 var_c12728;
            {
               word pd19;
               pd19 = (word)  ( (0 != monitor_v4688) ? (* (( (ptr) (* (( (ptr) gf_c13400)+42)/* var_c11992 */  ))+7) ) : (* (( (ptr) (* (
                     ( (ptr) gf_c13400)+44)/* var_c12696 */  ))+4) ) ) ;
               (void) ( *( (fPt) ((*  (ptr) pd19 ))))((word) &var_c12728, (* (( (ptr) gf_c13400)+7)/* invTypeTab_v3448 */  ), type_v4660, pd19)
               ;
               };
            val_v5924 = var_c12728.f1;
            found_v5896 = var_c12728.f0;
            };
SOURCE(2967, 62)
         if ((0 != found_v5896)) {
SOURCE(2981, 37)
            return(val_v5924);
            }
         else {
SOURCE(3018, 11)
            return(0);
            };
         };
      }
   else {
SOURCE(3038, 124)
      {
         word found_v5968;
         word val_v5996;
SOURCE(3066, 48)
         {
            W2 var_c12760;
            (void) FetchTypeFromList_P780((word) &var_c12760, type_v4660);
            val_v5996 = var_c12760.f1;
            found_v5968 = var_c12760.f0;
            };
SOURCE(3116, 44)
         if ((0 != found_v5968)) {
SOURCE(3130, 19)
            return(val_v5996);
            }
         else {
SOURCE(3149, 11)
            return(0);
            };
         };
      };
   }

static void FetchFromList_P600(formal_c094, typeString_v5184)
   word formal_c094;
   word typeString_v5184;
   {
   register ptr gf_c13432 =  (ptr) &globalframe;
   word found_v5228;
   word val_v5256;
   /* FetchFromList: */ 
SOURCE(3448, 239)
SOURCE(3448, 239)
   val_v5256 = 0;
SOURCE(3526, 132)
   {
      register word l_v6040;
      l_v6040 = (* (( (ptr) gf_c13432)+5)/* typeList_v3252 */  );
      lab_L100012: ;
      if ((l_v6040 != 0)) {
         }
      else {
         goto lab_L100009;
         };
SOURCE(3580, 78)
      if ((0 != (word) StringEqual_P720(typeString_v5184, (*  (ptr) l_v6040 )))) {
SOURCE(3632, 26)
         val_v5256 = (* (( (ptr) l_v6040)+1) );
         found_v5228 = 1;
         goto lab_L100008;
         };
      l_v6040 = (* (( (ptr) l_v6040)+2) );
      goto lab_L100012;
      lab_L100009: ;
      };
SOURCE(3669, 18)
   found_v5228 = 0;
   val_v5256 = 0;
   /* removed tail goto */ 
   lab_L100008: ;
   (*  (ptr) formal_c094 ) = found_v5228;
   (* (( (ptr) formal_c094)+1) ) = val_v5256;
   return;
   }

static void StoreInList_P660(typeString_v5316, type_v5344)
   word typeString_v5316;
   word type_v5344;
   {
   register ptr gf_c13464 =  (ptr) &globalframe;
   /* StoreInList: */ 
SOURCE(3693, 100)
SOURCE(3748, 45)
   {
      word var_c12824;
      var_c12824 = XR_NewObject(12, (* (( (ptr) gf_c13464)+10) ));
      (*  (ptr) var_c12824 ) = typeString_v5316;
      (* (( (ptr) var_c12824)+1) ) = type_v5344;
      (* (( (ptr) var_c12824)+2) ) = (* (( (ptr) gf_c13464)+5)/* typeList_v3252 */  );
      (* (( (ptr) gf_c13464)+5)/* typeList_v3252 */  ) = var_c12824;
      };
   }

static word StringEqual_P720(s1_v5404, s2_v5432)
   word s1_v5404;
   word s2_v5432;
   {
   word var_c5476;
   /* StringEqual: */ 
SOURCE(3799, 200)
SOURCE(3861, 43)
   if (( (unsigned) (*  (hPt) s1_v5404 ) !=  (unsigned) (*  (hPt) s2_v5432 ))) {
SOURCE(3889, 15)
      return(0);
      };
SOURCE(3906, 67)
   {
      register word i_v6168 = 0;
      register word noName_c12856;
      noName_c12856 =  (unsigned) (*  (hPt) s1_v5404 );
      if ((i_v6168 >= noName_c12856)) {
         goto lab_L100013;
         };
      lab_L100016: ;
SOURCE(3938, 35)
      {
         word limit20;
         word limit21;
         if (( (unsigned) (word) (* ((( (bPt) s1_v5404)+4)+(
               limit20 = (word)  (unsigned) (* (( (hPt) s1_v5404)+1) ),
               BCK(i_v6168, limit20)
               )) ) !=  (unsigned) (word) (* ((( (bPt) s2_v5432)+4)+(
               limit21 = (word)  (unsigned) (* (( (hPt) s2_v5432)+1) ),
               BCK(i_v6168, limit21)
               )) ))) {
SOURCE(3958, 15)
            return(0);
            };
         };
      i_v6168 = (i_v6168 + 1);
      if ((i_v6168 < noName_c12856)) {
         goto lab_L100016;
         };
      lab_L100013: ;
      };
SOURCE(3985, 14)
   return(1);
   }

static void FetchTypeFromList_P780(formal_c0108, type_v5536)
   word formal_c0108;
   word type_v5536;
   {
   register ptr gf_c13496 =  (ptr) &globalframe;
   word found_v5580;
   word typeString_v5608;
   /* FetchTypeFromList: */ 
SOURCE(4005, 241)
SOURCE(4093, 124)
   {
      register word l_v6212;
      l_v6212 = (* (( (ptr) gf_c13496)+5)/* typeList_v3252 */  );
      lab_L100021: ;
      if ((l_v6212 != 0)) {
         }
      else {
         goto lab_L100018;
         };
SOURCE(4147, 70)
      if ((type_v5536 == (*  (ptr) (* (( (ptr) l_v6212)+1) ) ))) {
SOURCE(4185, 32)
         typeString_v5608 = (*  (ptr) l_v6212 );
         found_v5580 = 1;
         goto lab_L100017;
         };
      l_v6212 = (* (( (ptr) l_v6212)+2) );
      goto lab_L100021;
      lab_L100018: ;
      };
SOURCE(4228, 18)
   found_v5580 = 0;
   typeString_v5608 = 0;
   /* removed tail goto */ 
   lab_L100017: ;
   (*  (ptr) formal_c0108 ) = found_v5580;
   (* (( (ptr) formal_c0108)+1) ) = typeString_v5608;
   return;
   }

static word Equal_P840(key1_v7176, key2_v7204)
   word key1_v7176;
   word key2_v7204;
   {
   word var_c7248;
   /* Equal: */ 
SOURCE(4300, 95)
SOURCE(4336, 59)
   {
      word var_c12952;
      word var_c13016;
      {
         word r_v11212;
         r_v11212 = key1_v7176;
SOURCE(3232, 19)
         var_c12952 = r_v11212;
         };
      {
         word r_v11164;
         r_v11164 = key2_v7204;
SOURCE(3232, 19)
         var_c13016 = r_v11164;
         };
      return((word) StringEqual_P720(var_c12952, var_c13016));
      };
   }

static word Hash_P900(key_v7308)
   word key_v7308;
   {
   word var_c7352;
   word s_v6340;
   /* Hash: */ 
SOURCE(4401, 135)
SOURCE(4435, 28)
   {
      word r_v11116;
      r_v11116 = key_v7308;
SOURCE(3232, 19)
      s_v6340 = r_v11116;
      };
SOURCE(4465, 71)
   {
      word var_c13144;
      word nHalfWords_v11356;
      word p_v11384;
      word var_c13208;
      word cs_v10644 = 0;
      word nHalfWords_v10676;
      word p_v10708;
      word offset_v10740 = 0;
      nHalfWords_v11356 = ((word) ( (unsigned) (*  (hPt) s_v6340 ) + 1) >> 1);
      p_v11384 = (word) (( (bPt) s_v6340)+4);
      nHalfWords_v10676 = nHalfWords_v11356;
      p_v10708 = p_v11384;
      {
         word phw_v10788;
         phw_v10788 = p_v10708;
         {
            register word i_v10836;
            register word noName_c13240;
            i_v10836 = offset_v10740;
            noName_c13240 = (nHalfWords_v10676 + offset_v10740);
            if ((i_v10836 >= noName_c13240)) {
               goto lab_L100025;
               };
            lab_L100028: ;
            {
               word t_v10884;
               word w_v10916;
               w_v10916 =  (unsigned) (word) (* (( (hPt) phw_v10788)+i_v10836) );
               t_v10884 = (cs_v10644 + w_v10916);
               t_v10884 = (( (((unsigned)t_v10884 << 16) >> 16) ) + ((word) t_v10884 >> 16));
               t_v10884 = ((word) t_v10884 << 1);
               {
                  word idx22;
                  cs_v10644 = (
                     idx22 = (word) (( (((unsigned)t_v10884 << 16) >> 16) ) + ((word) t_v10884 >> 16)),
                     BCK(idx22, 65536)
                     );
                  };
               };
            i_v10836 = (i_v10836 + 1);
            if ((i_v10836 < noName_c13240)) {
               goto lab_L100028;
               };
            lab_L100025: ;
            };
         if ((cs_v10644 == 65535)) {
            cs_v10644 = 0;
            };
         var_c13208 = cs_v10644;
         };
      var_c13144 = var_c13208;
      return(var_c13144);
      };
   }

/* file: InstallationTypesImpl, module: InstallationTypesImpl, compiled at: September 3, 1993 12:58:17 pm PDT */ 
extern void XR_install_InstallationTypesImpl() {
   NoName_Q2112();
   }
extern void XR_run_InstallationTypesImpl() { XR_Start(&globalframe); }