/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: April 21, 1992 1:09:55 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XlAssocImpl, module: XlAssocImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1512459903,3469295224] XlAssocImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; word r;} W9;
typedef word (*fPt)();
typedef struct {W8 f; W8 r;} W16;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W9 *W9Pt;
#define SOURCE(p, l) /* source p, l */
#define MAX(cast, x, y)  ( ( cast x) > ( cast y) ? (x) : (y) )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
static void NoName_Q2712();
static void XlAssocImpl_P0();
static word Create_P120();
static word FindNode_P180();
static void FetchValue_P240();
static word NoName_Q2772();
static word StoreValue_P300();
static word NoName_Q2832();
static word InsertWindow_P360();
static word StoreWindow_P420();
static void InternalRemoveNode_P720();
static word RemoveWindow_P780();
static word NoName_Q2892();
static void EnumerateChildren_P840();
static word NoName_Q2952();
static word Inhibit_P1416();
static void Release_P1476();
static word Enumerate_P1536();
static word GetSize_P900();
static word NoName_Q3012();
static void Erase_P960();
static word NoName_Q3072();
static void ReHash_P1020();
static void NoName_Q3132();
static void NoName_Q3192();
static void NoName_Q3252();
static void NoName_Q3312();
static void NoName_Q3372();
static void NoName_Q3432();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\132\046\116\177\300\316\311\076\170\100\214\000\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\004\030\000"};
static struct {unsigned f; char r[8];} string3 = {393224, "\205\210\242\000\015\241\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\132\046\116\177\300\316\311\076\170\100\230\000\000"};
static struct {unsigned f; char r[12];} string5 = {524296, "\011\000\004\000\040\000\004\001\000\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\132\046\116\177\300\316\311\076\170\100\244\000\000"};
static struct {unsigned f; char r[4];} string7 = {196611, "\004@\376"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\072\360\037\045\300\374\044\132\334\100\164\000\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\003\004\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\132\046\116\177\300\316\311\076\170\100\200\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\072\360\037\045\300\374\044\132\334\100\150\000\000"};
static struct {unsigned f; char r[32];} string12 = {1835040, "\211\020\017\101\163\163\157\143\124\141\142\111\155\160\154\122\145\160\300\072\360\037\045\300\374\044\132\334\000\000\000"};
static struct {
   word f0[15]; 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[2]; 
   } globalframe = {
   {0}, (word) ReHash_P1020, 0, (word) Erase_P960, 
   0, (word) GetSize_P900, 0, (word) EnumerateChildren_P840, 
   0, (word) RemoveWindow_P780, 0, (word) InternalRemoveNode_P720, 
   0, (word) StoreWindow_P420, 0, (word) InsertWindow_P360, 
   0, (word) StoreValue_P300, 0, (word) FetchValue_P240, 
   0, (word) FindNode_P180, 0, (word) Create_P120, 
   0, (word) XlAssocImpl_P0, {0}
   };

static void NoName_Q2712()
   {
   register ptr gf_c0202 =  (ptr) &globalframe;
   word var_c11944;
   (* (( (ptr) gf_c0202)+5) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0202)+6) ) = (word) XR_GetTypeIndexS((word) (&string3));
   (* (( (ptr) gf_c0202)+9) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5);
   (* (( (ptr) gf_c0202)+10) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7);
   (* (( (ptr) gf_c0202)+11) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string9);
   (void) XR_DeclareGlobalFrame((word) "XlAssocImpl", &globalframe, (word) XR_GetTypeIndex((word) &string10, 0, (word) &string9)
      , (word) (( (bPt) gf_c0202)+156)/* var_c10376 */ );
   var_c11944 = (word) XR_ExportInterface((word) "XlAssoc", (word) XR_GetTypeIndexS((word) (&string11)), 12);
   (* (( (ptr) gf_c0202)+41)/* var_c11912 */  ) = var_c11944;
   (void) XR_ExportType((word) "AssocTabImplRep", (word) XR_GetTypeIndexS((word) (&string12)), (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2)
      );
   (void) XR_ExportVar(var_c11944, 1, (word) (( (bPt) gf_c0202)+48));
   (void) XR_ExportVar(var_c11944, 2, (word) (( (bPt) gf_c0202)+52));
   (void) XR_ExportProcS(var_c11944, (word) (( (bPt) gf_c0202)+148)/* var_c10344 */ , 67371777);
   (void) XR_ExportProcS(var_c11944, (word) (( (bPt) gf_c0202)+76)/* var_c10056 */ , 67372033);
   (void) XR_ExportProcS(var_c11944, (word) (( (bPt) gf_c0202)+116)/* var_c10216 */ , 68158724);
   (void) XR_ExportProcS(var_c11944, (word) (( (bPt) gf_c0202)+108)/* var_c10184 */ , 67896835);
   (void) XR_ExportProcS(var_c11944, (word) (( (bPt) gf_c0202)+92)/* var_c10120 */ , 67634946);
   (void) XR_ExportProcS(var_c11944, (word) (( (bPt) gf_c0202)+132)/* var_c10280 */ , 201852930);
   (void) XR_ExportProcS(var_c11944, (word) (( (bPt) gf_c0202)+124)/* var_c10248 */ , 67897603);
   (void) XR_ExportProcS(var_c11944, (word) (( (bPt) gf_c0202)+84)/* var_c10088 */ , 135531013);
   (void) XR_ExportProcS(var_c11944, (word) (( (bPt) gf_c0202)+68)/* var_c10024 */ , 264961);
   }

static void XlAssocImpl_P0(formal_c026, formal_c024)
   word formal_c026;
   word formal_c024;
   {
   register ptr gf_c11976 =  (ptr) &globalframe;
   /* XlAssocImpl: */ 
SOURCE(62, 7574)
SOURCE(7686, 212)
   {
      word var_c10408;
      var_c10408 = XR_NewObject(56, (* (( (ptr) gf_c11976)+6) ));
      (*  (ptr) var_c10408 ) = 2;
      (* (( (ptr) var_c10408)+1) ) = 5;
      (* (( (ptr) var_c10408)+2) ) = 11;
      (* (( (ptr) var_c10408)+3) ) = 23;
      (* (( (ptr) var_c10408)+4) ) = 53;
      (* (( (ptr) var_c10408)+5) ) = 113;
      (* (( (ptr) var_c10408)+6) ) = 251;
      (* (( (ptr) var_c10408)+7) ) = 509;
      (* (( (ptr) var_c10408)+8) ) = 1019;
      (* (( (ptr) var_c10408)+9) ) = 2039;
      (* (( (ptr) var_c10408)+10) ) = 4079;
      (* (( (ptr) var_c10408)+11) ) = 8179;
      (* (( (ptr) var_c10408)+12) ) = 16369;
      (* (( (ptr) var_c10408)+13) ) = 32749;
      (* (( (ptr) gf_c11976)+4)/* primeTable_v3280 */  ) = var_c10408;
      };
   }

static word Create_P120(mod_v4080)
   word mod_v4080;
   {
   register ptr gf_c12008 =  (ptr) &globalframe;
   word var_c4124;
   word seqLen_v6152;
   word impl_v6180;
   /* Create: */ 
SOURCE(971, 5541)
SOURCE(1028, 35)
   seqLen_v6152 = (MAX( (unsigned) , mod_v4080, 2));
SOURCE(1065, 160)
   {
      word var_c10440;
      word var_c10568;
      word var_c10632;
      {
         word var_c10472;
         word var_c10504;
         word var_c10536;
         var_c10472 = BCK(seqLen_v6152, 67108863);
         var_c10504 = (var_c10472 << 2);
         var_c10536 = XR_NewObject((4 + var_c10504), (* (( (ptr) gf_c12008)+9) ));
         (*  (ptr) var_c10536 ) = var_c10472;
         var_c10440 = var_c10536;
         };
      var_c10568 = XR_NewObject(36, (* (( (ptr) gf_c12008)+10) ));
      var_c10632 = XR_NewObject(20, (* (( (ptr) gf_c12008)+5) ));
      (* (( (ptr) var_c10632)+1) ) = seqLen_v6152;
      (* (( (ptr) var_c10632)+3) ) = var_c10440;
      (* (( (ptr) var_c10632)+4) ) = var_c10568;
      impl_v6180 = var_c10632;
      };
SOURCE(1227, 5285)
   {
      word var_c10696;
      var_c10696 = XR_NewObject(20, (* (( (ptr) gf_c12008)+11) ));
      (* (( (ptr) var_c10696)+4) ) = impl_v6180;
      return(var_c10696);
      };
   }

static word FindNode_P180(impl_v4184, window_v4212)
   word impl_v4184;
   word window_v4212;
   {
   word var_c4256;
   /* FindNode: */ 
SOURCE(1273, 5239)
SOURCE(1273, 5239)
   var_c4256 = 0;
SOURCE(1351, 5161)
   if ((window_v4212 == 0)) {
SOURCE(1377, 31)
      return((* (( (ptr) impl_v4184)+4) ));
      }
   else {
SOURCE(1408, 172)
      {
         word index_v6224;
         word node_v6252;
SOURCE(1410, 48)
         {
            word var_c10728;
            word id_v6124;
            id_v6124 = window_v4212;
SOURCE(926, 41)
            {
               word idx13;
               var_c10728 = (
                  idx13 = (word) (( (((unsigned)id_v6124 << 17) >> 17) ) + (id_v6124 >> 15)),
                  BCK(idx13, 65536)
                  );
               };
            index_v6224 = (var_c10728 % (*  (ptr) (* (( (ptr) impl_v4184)+3) ) ));
            };
SOURCE(1460, 29)
         {
            word var_c10760;
            var_c10760 = (* (( (ptr) impl_v4184)+3) );
            {
               word limit14;
               node_v6252 = (* ((( (ptr) var_c10760)+1)+(
                     limit14 = (*  (ptr) var_c10760 ),
                     BCK(index_v6224, limit14)
                     )) );
               };
            };
SOURCE(1491, 78)
         lab_L100003: ;
         if ((node_v6252 != 0)) {
            }
         else {
            goto lab_L100001;
            };
SOURCE(1511, 40)
         if ((window_v4212 == (*  (ptr) node_v6252 ))) {
SOURCE(1538, 13)
            return(node_v6252);
            };
SOURCE(1553, 16)
         node_v6252 = (* (( (ptr) node_v6252)+3) );
         goto lab_L100003;
         lab_L100001: ;
         };
      };
SOURCE(1273, 5239)
   return(var_c4256);
   }

static void FetchValue_P240(formal_c051, formal_c0236, formal_c0237)
   word formal_c051;
   word formal_c0236;
   word formal_c0237;
   {
   W9 var_c12040;
   /* declaration of x_v4316 skipped */ 
   /* declaration of window_v4344 skipped */ 
   /* declaration of found_v4388 skipped */ 
   /* declaration of parent_v4416 skipped */ 
   /* declaration of val_v4444 skipped */ 
   (* (( (ptr) &var_c12040)+4)/* x_v4316 */  ) = formal_c0236;
   (* (( (ptr) &var_c12040)+5)/* window_v4344 */  ) = formal_c0237;
   /* FetchValue: */ 
SOURCE(1587, 4925)
   (void) (XR_MonitorEntry(* (( (ptr) &var_c12040)+4)/* x_v4316 */  ));
SOURCE(1587, 4925)
   (* (( (ptr) &var_c12040)+8)/* val_v4444 */  ) = 0;
SOURCE(1696, 4816)
   {
      word var_c01;
      {
         word var_c0218;
         var_c0218 = (word) &var_c12040;
         var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q2772) ), ( ((word)  (fPt) NoName_Q3432) ), var_c0218);
         };
      /* removed trivial cond node */ 
      };
   (void) (XR_MonitorExit(* (( (ptr) &var_c12040)+4)/* x_v4316 */  ));
   (*  (ptr) formal_c051 ) = (* (( (ptr) &var_c12040)+6)/* found_v4388 */  );
   (* (( (ptr) formal_c051)+1) ) = (* (( (ptr) &var_c12040)+7)/* parent_v4416 */  );
   (* (( (ptr) formal_c051)+2) ) = (* (( (ptr) &var_c12040)+8)/* val_v4444 */  );
   return;
   }

static word NoName_Q2772(formal_c0205)
   word formal_c0205;
   {
SOURCE(1719, 37)
   {
      word node_v6296;
SOURCE(1719, 37)
      node_v6296 = (word) FindNode_P180((* (( (ptr) (* (( (ptr) formal_c0205)+4) ))+4) ), (* (( (ptr) formal_c0205)+5) ));
SOURCE(1758, 98)
      if ((node_v6296 != 0)) {
SOURCE(1776, 49)
         (* (( (ptr) formal_c0205)+7) ) = (*  (ptr) (* (( (ptr) node_v6296)+4) ) );
         (* (( (ptr) formal_c0205)+8) ) = (* (( (ptr) node_v6296)+1) );
         (* (( (ptr) formal_c0205)+6) ) = 1;
         return(2);
         }
      else {
SOURCE(1825, 31)
         (* (( (ptr) formal_c0205)+6) ) = 0;
         (* (( (ptr) formal_c0205)+7) ) = 0;
         (* (( (ptr) formal_c0205)+8) ) = 0;
         return(2);
         };
      };
   /* c2c skipped dead code */ 
   }

static word StoreValue_P300(formal_c0238, formal_c0239, formal_c0240)
   word formal_c0238;
   word formal_c0239;
   word formal_c0240;
   {
   W8 var_c12072;
   /* declaration of x_v4516 skipped */ 
   /* declaration of window_v4544 skipped */ 
   /* declaration of val_v4572 skipped */ 
   /* declaration of found_v4628 skipped */ 
   var_c12072.f4/* x_v4516 */  = formal_c0238;
   var_c12072.f5/* window_v4544 */  = formal_c0239;
   var_c12072.f6/* val_v4572 */  = formal_c0240;
   /* StoreValue: */ 
SOURCE(1862, 4650)
   (void) (XR_MonitorEntry(var_c12072.f4/* x_v4516 */ ));
SOURCE(1961, 4551)
   {
      word var_c0219;
      var_c0219 = (word) &var_c12072;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q2832) ), ( ((word)  (fPt) NoName_Q3372) ), var_c0219);
      };
SOURCE(1862, 4650)
   (void) (XR_MonitorExit(var_c12072.f4/* x_v4516 */ ));
   return(var_c12072.f7/* found_v4628 */ );
   }

static word NoName_Q2832(formal_c0206)
   word formal_c0206;
   {
SOURCE(1984, 37)
   {
      word node_v6340;
SOURCE(1984, 37)
      node_v6340 = (word) FindNode_P180((* (( (ptr) (* (( (ptr) formal_c0206)+4) ))+4) ), (* (( (ptr) formal_c0206)+5) ));
SOURCE(2023, 39)
      (* (( (ptr) formal_c0206)+7) ) = (node_v6340 != 0);
      if ((0 != (* (( (ptr) formal_c0206)+7) ))) {
SOURCE(2048, 14)
         (* (( (ptr) node_v6340)+1) ) = (* (( (ptr) formal_c0206)+6) );
         };
      };
   return(0);
   }

static word InsertWindow_P360(x_v4688, window_v4716, parent_v4744, val_v4772)
   word x_v4688;
   word window_v4716;
   word parent_v4744;
   word val_v4772;
   {
   register ptr gf_c12104 =  (ptr) &globalframe;
   word var_c10856;
   word var_c11048;
   word done_v4828;
   word impl_v6384;
   word node_v6412;
   word parentNode_v6440;
   /* InsertWindow: */ 
SOURCE(2069, 4443)
   (void) (XR_MonitorEntry(x_v4688));
SOURCE(2198, 19)
   impl_v6384 = (* (( (ptr) x_v4688)+4) );
SOURCE(2219, 35)
   node_v6412 = (word) FindNode_P180(impl_v6384, window_v4716);
SOURCE(2256, 41)
   parentNode_v6440 = (word) FindNode_P180(impl_v6384, parent_v4744);
SOURCE(2300, 55)
   if ((window_v4716 == parent_v4744)) {
SOURCE(2322, 33)
      var_c10856 = (word) (( (bPt) gf_c12104)+56);
      (void) (XR_MonitorExit(x_v4688));
      goto lab_L100010;
      };
SOURCE(2357, 4155)
   if ((node_v6412 == 0)) {
SOURCE(2375, 295)
      {
         word index_v6484;
         word var_c11016;
SOURCE(2378, 48)
         {
            word var_c10888;
            word id_v9356;
            id_v9356 = window_v4716;
SOURCE(926, 41)
            {
               word idx15;
               var_c10888 = (
                  idx15 = (word) (( (((unsigned)id_v9356 << 17) >> 17) ) + (id_v9356 >> 15)),
                  BCK(idx15, 65536)
                  );
               };
            index_v6484 = (var_c10888 % (*  (ptr) (* (( (ptr) impl_v6384)+3) ) ));
            };
SOURCE(2428, 4084)
         {
            word var_c10920;
            var_c10920 = XR_NewObject(36, (* (( (ptr) gf_c12104)+10) ));
            (*  (ptr) var_c10920 ) = window_v4716;
            (* (( (ptr) var_c10920)+1) ) = val_v4772;
            (* (( (ptr) var_c10920)+8) ) = index_v6484;
            node_v6412 = var_c10920;
            };
SOURCE(2493, 34)
         {
            word child_v9788;
            word parent_v9816;
            child_v9788 = node_v6412;
            parent_v9816 = parentNode_v6440;
SOURCE(4150, 21)
            (* (( (ptr) child_v9788)+4) ) = parent_v9816;
SOURCE(4173, 19)
            (* (( (ptr) child_v9788)+7) ) = 0;
SOURCE(4194, 33)
            (* (( (ptr) child_v9788)+6) ) = (* (( (ptr) parent_v9816)+5) );
SOURCE(4229, 126)
            if (((* (( (ptr) parent_v9816)+5) ) != 0)) {
SOURCE(4261, 38)
               if (((* (( (ptr) (* (( (ptr) parent_v9816)+5) ))+7) ) != 0)) {
SOURCE(4299, 5)
                  (void) XR_RaiseUnnamedError();
                  };
SOURCE(4322, 33)
               (* (( (ptr) (* (( (ptr) parent_v9816)+5) ))+7) ) = child_v9788;
               };
SOURCE(4360, 25)
            (* (( (ptr) parent_v9816)+5) ) = child_v9788;
            };
SOURCE(2529, 31)
         {
            word node_v9512;
            node_v9512 = node_v6412;
SOURCE(3734, 15)
            (* (( (ptr) node_v9512)+2) ) = 0;
SOURCE(3751, 2761)
            {
               word var_c10952;
               var_c10952 = (* (( (ptr) impl_v6384)+3) );
               {
                  word idx16;
                  word limit17;
                  (* (( (ptr) node_v9512)+3) ) = (* ((( (ptr) var_c10952)+1)+(
                        idx16 = (* (( (ptr) node_v9512)+8) ),
                        limit17 = (*  (ptr) var_c10952 ),
                        BCK(idx16, limit17)
                        )) );
                  };
               };
SOURCE(3786, 43)
            if (((* (( (ptr) node_v9512)+3) ) != 0)) {
SOURCE(3808, 21)
               (* (( (ptr) (* (( (ptr) node_v9512)+3) ))+2) ) = node_v9512;
               };
SOURCE(3831, 2681)
            {
               word var_c10984;
               var_c10984 = (* (( (ptr) impl_v6384)+3) );
               {
                  word idx18;
                  word limit19;
                  (* ((( (ptr) var_c10984)+1)+(
                        idx18 = (* (( (ptr) node_v9512)+8) ),
                        limit19 = (*  (ptr) var_c10984 ),
                        BCK(idx18, limit19)
                        )) ) = node_v9512;
                  };
               };
            };
SOURCE(2562, 91)
         {
            word tc20;
            var_c11016 = ((*  (ptr) impl_v6384 ) + 1);
            (*  (ptr) impl_v6384 ) = var_c11016;
            if (( (int)var_c11016 >  (int)(* (( (ptr) impl_v6384)+1) ))) {
               tc20 =  (word) ( (int)(* (( (ptr) impl_v6384)+2) ) ==  (int)0);
               }
            else {
               tc20 =  (word) 0;
               };
            if (tc20) {
SOURCE(2641, 12)
               (void) ReHash_P1020(impl_v6384);
               };
            };
SOURCE(2655, 13)
         (void) (XR_MonitorExit(x_v4688));
         return(1);
         };
      }
   else {
SOURCE(2679, 58)
      if ((window_v4716 == 0)) {
SOURCE(2705, 32)
         var_c11048 = (word) (( (bPt) gf_c12104)+52);
         (void) (XR_MonitorExit(x_v4688));
         goto lab_L100012;
         };
SOURCE(2739, 14)
      (void) (XR_MonitorExit(x_v4688));
      return(0);
      };
   /* c2c skipped dead code */ 
   lab_L100010: ;
SOURCE(2322, 33)
   (void) XR_RaiseError(var_c10856, 0);
   lab_L100012: ;
SOURCE(2705, 32)
   (void) XR_RaiseError(var_c11048, 0);
   }

static word StoreWindow_P420(x_v4888, window_v4916, parent_v4944)
   word x_v4888;
   word window_v4916;
   word parent_v4944;
   {
   register ptr gf_c12136 =  (ptr) &globalframe;
   word var_c11080;
   word var_c11272;
   word var_c11304;
   word new_v4988;
   word impl_v6528;
   word node_v6556;
   word parentNode_v6584;
   /* StoreWindow: */ 
SOURCE(2762, 3750)
   (void) (XR_MonitorEntry(x_v4888));
SOURCE(2873, 19)
   impl_v6528 = (* (( (ptr) x_v4888)+4) );
SOURCE(2894, 35)
   node_v6556 = (word) FindNode_P180(impl_v6528, window_v4916);
SOURCE(2931, 41)
   parentNode_v6584 = (word) FindNode_P180(impl_v6528, parent_v4944);
SOURCE(2975, 54)
   if ((parentNode_v6584 == 0)) {
SOURCE(2998, 31)
      var_c11080 = (word) (( (bPt) gf_c12136)+48);
      (void) (XR_MonitorExit(x_v4888));
      goto lab_L100014;
      };
SOURCE(3032, 3480)
   if ((node_v6556 == 0)) {
SOURCE(3050, 284)
      {
         word index_v6628;
         word var_c11240;
SOURCE(3052, 48)
         {
            word var_c11112;
            word id_v9312;
            id_v9312 = window_v4916;
SOURCE(926, 41)
            {
               word idx21;
               var_c11112 = (
                  idx21 = (word) (( (((unsigned)id_v9312 << 17) >> 17) ) + (id_v9312 >> 15)),
                  BCK(idx21, 65536)
                  );
               };
            index_v6628 = (var_c11112 % (*  (ptr) (* (( (ptr) impl_v6528)+3) ) ));
            };
SOURCE(3102, 3410)
         {
            word var_c11144;
            var_c11144 = XR_NewObject(36, (* (( (ptr) gf_c12136)+10) ));
            (*  (ptr) var_c11144 ) = window_v4916;
            (* (( (ptr) var_c11144)+8) ) = index_v6628;
            node_v6556 = var_c11144;
            };
SOURCE(3157, 34)
         {
            word child_v9712;
            word parent_v9740;
            child_v9712 = node_v6556;
            parent_v9740 = parentNode_v6584;
SOURCE(4150, 21)
            (* (( (ptr) child_v9712)+4) ) = parent_v9740;
SOURCE(4173, 19)
            (* (( (ptr) child_v9712)+7) ) = 0;
SOURCE(4194, 33)
            (* (( (ptr) child_v9712)+6) ) = (* (( (ptr) parent_v9740)+5) );
SOURCE(4229, 126)
            if (((* (( (ptr) parent_v9740)+5) ) != 0)) {
SOURCE(4261, 38)
               if (((* (( (ptr) (* (( (ptr) parent_v9740)+5) ))+7) ) != 0)) {
SOURCE(4299, 5)
                  (void) XR_RaiseUnnamedError();
                  };
SOURCE(4322, 33)
               (* (( (ptr) (* (( (ptr) parent_v9740)+5) ))+7) ) = child_v9712;
               };
SOURCE(4360, 25)
            (* (( (ptr) parent_v9740)+5) ) = child_v9712;
            };
SOURCE(3193, 31)
         {
            word node_v9464;
            node_v9464 = node_v6556;
SOURCE(3734, 15)
            (* (( (ptr) node_v9464)+2) ) = 0;
SOURCE(3751, 2761)
            {
               word var_c11176;
               var_c11176 = (* (( (ptr) impl_v6528)+3) );
               {
                  word idx22;
                  word limit23;
                  (* (( (ptr) node_v9464)+3) ) = (* ((( (ptr) var_c11176)+1)+(
                        idx22 = (* (( (ptr) node_v9464)+8) ),
                        limit23 = (*  (ptr) var_c11176 ),
                        BCK(idx22, limit23)
                        )) );
                  };
               };
SOURCE(3786, 43)
            if (((* (( (ptr) node_v9464)+3) ) != 0)) {
SOURCE(3808, 21)
               (* (( (ptr) (* (( (ptr) node_v9464)+3) ))+2) ) = node_v9464;
               };
SOURCE(3831, 2681)
            {
               word var_c11208;
               var_c11208 = (* (( (ptr) impl_v6528)+3) );
               {
                  word idx24;
                  word limit25;
                  (* ((( (ptr) var_c11208)+1)+(
                        idx24 = (* (( (ptr) node_v9464)+8) ),
                        limit25 = (*  (ptr) var_c11208 ),
                        BCK(idx24, limit25)
                        )) ) = node_v9464;
                  };
               };
            };
SOURCE(3226, 91)
         {
            word tc26;
            var_c11240 = ((*  (ptr) impl_v6528 ) + 1);
            (*  (ptr) impl_v6528 ) = var_c11240;
            if (( (int)var_c11240 >  (int)(* (( (ptr) impl_v6528)+1) ))) {
               tc26 =  (word) ( (int)(* (( (ptr) impl_v6528)+2) ) ==  (int)0);
               }
            else {
               tc26 =  (word) 0;
               };
            if (tc26) {
SOURCE(3305, 12)
               (void) ReHash_P1020(impl_v6528);
               };
            };
SOURCE(3319, 13)
         (void) (XR_MonitorExit(x_v4888));
         return(1);
         };
      }
   else {
SOURCE(3343, 58)
      if ((window_v4916 == 0)) {
SOURCE(3369, 32)
         var_c11272 = (word) (( (bPt) gf_c12136)+52);
         (void) (XR_MonitorExit(x_v4888));
         goto lab_L100016;
         };
SOURCE(3403, 48)
      if ((parent_v4944 == (*  (ptr) (* (( (ptr) node_v6556)+4) ) ))) {
SOURCE(3437, 14)
         (void) (XR_MonitorExit(x_v4888));
         return(0);
         };
SOURCE(3453, 111)
      {
         register word p_v6672;
         p_v6672 = parentNode_v6584;
         lab_L100020: ;
         if ((p_v6672 != (* (( (ptr) impl_v6528)+4) ))) {
            }
         else {
            goto lab_L100017;
            };
SOURCE(3516, 48)
         if ((p_v6672 == node_v6556)) {
SOURCE(3531, 33)
            var_c11304 = (word) (( (bPt) gf_c12136)+56);
            (void) (XR_MonitorExit(x_v4888));
            goto lab_L100021;
            };
         p_v6672 = (* (( (ptr) p_v6672)+4) );
         goto lab_L100020;
         lab_L100017: ;
         };
SOURCE(3575, 27)
      {
         word child_v9912;
         child_v9912 = node_v6556;
SOURCE(4477, 251)
         if (((* (( (ptr) (* (( (ptr) child_v9912)+4) ))+5) ) == child_v9912)) {
SOURCE(4518, 26)
            if (((* (( (ptr) child_v9912)+7) ) != 0)) {
SOURCE(4544, 5)
               (void) XR_RaiseUnnamedError();
               };
SOURCE(4567, 39)
            (* (( (ptr) (* (( (ptr) child_v9912)+4) ))+5) ) = (* (( (ptr) child_v9912)+6) );
            }
         else {
SOURCE(4658, 26)
            if (((* (( (ptr) child_v9912)+7) ) == 0)) {
SOURCE(4684, 5)
               (void) XR_RaiseUnnamedError();
               };
SOURCE(4691, 37)
            (* (( (ptr) (* (( (ptr) child_v9912)+7) ))+6) ) = (* (( (ptr) child_v9912)+6) );
            };
SOURCE(4781, 63)
         if (((* (( (ptr) child_v9912)+6) ) != 0)) {
SOURCE(4807, 37)
            (* (( (ptr) (* (( (ptr) child_v9912)+6) ))+7) ) = (* (( (ptr) child_v9912)+7) );
            };
         };
SOURCE(3604, 34)
      {
         word child_v9636;
         word parent_v9664;
         child_v9636 = node_v6556;
         parent_v9664 = parentNode_v6584;
SOURCE(4150, 21)
         (* (( (ptr) child_v9636)+4) ) = parent_v9664;
SOURCE(4173, 19)
         (* (( (ptr) child_v9636)+7) ) = 0;
SOURCE(4194, 33)
         (* (( (ptr) child_v9636)+6) ) = (* (( (ptr) parent_v9664)+5) );
SOURCE(4229, 126)
         if (((* (( (ptr) parent_v9664)+5) ) != 0)) {
SOURCE(4261, 38)
            if (((* (( (ptr) (* (( (ptr) parent_v9664)+5) ))+7) ) != 0)) {
SOURCE(4299, 5)
               (void) XR_RaiseUnnamedError();
               };
SOURCE(4322, 33)
            (* (( (ptr) (* (( (ptr) parent_v9664)+5) ))+7) ) = child_v9636;
            };
SOURCE(4360, 25)
         (* (( (ptr) parent_v9664)+5) ) = child_v9636;
         };
SOURCE(3640, 14)
      (void) (XR_MonitorExit(x_v4888));
      return(0);
      };
   /* c2c skipped dead code */ 
   lab_L100014: ;
SOURCE(2998, 31)
   (void) XR_RaiseError(var_c11080, 0);
   lab_L100016: ;
SOURCE(3369, 32)
   (void) XR_RaiseError(var_c11272, 0);
   lab_L100021: ;
SOURCE(3531, 33)
   (void) XR_RaiseError(var_c11304, 0);
   }

static void InternalRemoveNode_P720(impl_v5372, node_v5400)
   word impl_v5372;
   word node_v5400;
   {
   /* InternalRemoveNode: */ 
SOURCE(4850, 236)
SOURCE(4913, 70)
   lab_L100025: ;
   if (((* (( (ptr) node_v5400)+5) ) != 0)) {
      }
   else {
      goto lab_L100023;
      };
SOURCE(4942, 41)
   (void) InternalRemoveNode_P720(impl_v5372, (* (( (ptr) node_v5400)+5) ));
   goto lab_L100025;
   lab_L100023: ;
SOURCE(4994, 27)
   {
      word child_v9864;
      child_v9864 = node_v5400;
SOURCE(4477, 251)
      if (((* (( (ptr) (* (( (ptr) child_v9864)+4) ))+5) ) == child_v9864)) {
SOURCE(4518, 26)
         if (((* (( (ptr) child_v9864)+7) ) != 0)) {
SOURCE(4544, 5)
            (void) XR_RaiseUnnamedError();
            };
SOURCE(4567, 39)
         (* (( (ptr) (* (( (ptr) child_v9864)+4) ))+5) ) = (* (( (ptr) child_v9864)+6) );
         }
      else {
SOURCE(4658, 26)
         if (((* (( (ptr) child_v9864)+7) ) == 0)) {
SOURCE(4684, 5)
            (void) XR_RaiseUnnamedError();
            };
SOURCE(4691, 37)
         (* (( (ptr) (* (( (ptr) child_v9864)+7) ))+6) ) = (* (( (ptr) child_v9864)+6) );
         };
SOURCE(4781, 63)
      if (((* (( (ptr) child_v9864)+6) ) != 0)) {
SOURCE(4807, 37)
         (* (( (ptr) (* (( (ptr) child_v9864)+6) ))+7) ) = (* (( (ptr) child_v9864)+7) );
         };
      };
SOURCE(5023, 36)
   {
      word impl_v9560;
      word node_v9588;
      impl_v9560 = impl_v5372;
      node_v9588 = node_v5400;
SOURCE(3941, 48)
      if (((* (( (ptr) node_v9588)+3) ) != 0)) {
SOURCE(3963, 26)
         (* (( (ptr) (* (( (ptr) node_v9588)+3) ))+2) ) = (* (( (ptr) node_v9588)+2) );
         };
SOURCE(3991, 2521)
      if (((* (( (ptr) node_v9588)+2) ) != 0)) {
SOURCE(4014, 32)
         (* (( (ptr) (* (( (ptr) node_v9588)+2) ))+3) ) = (* (( (ptr) node_v9588)+3) );
         }
      else {
SOURCE(4046, 2466)
         {
            word var_c11336;
            var_c11336 = (* (( (ptr) impl_v9560)+3) );
            {
               word idx27;
               word limit28;
               (* ((( (ptr) var_c11336)+1)+(
                     idx27 = (* (( (ptr) node_v9588)+8) ),
                     limit28 = (*  (ptr) var_c11336 ),
                     BCK(idx27, limit28)
                     )) ) = (* (( (ptr) node_v9588)+3) );
               };
            };
         };
      };
SOURCE(5061, 25)
   (*  (ptr) impl_v5372 ) = ((*  (ptr) impl_v5372 ) - 1);
   }

static word RemoveWindow_P780(formal_c0241, formal_c0242)
   word formal_c0241;
   word formal_c0242;
   {
   W8 var_c12168;
   /* declaration of x_v5460 skipped */ 
   /* declaration of window_v5488 skipped */ 
   /* declaration of var_c11368 skipped */ 
   /* declaration of found_v5532 skipped */ 
   var_c12168.f4/* x_v5460 */  = formal_c0241;
   var_c12168.f5/* window_v5488 */  = formal_c0242;
   /* RemoveWindow: */ 
SOURCE(5092, 1420)
   (void) (XR_MonitorEntry(var_c12168.f4/* x_v5460 */ ));
SOURCE(5177, 1335)
   {
      word var_c02;
      {
         word var_c0220;
         var_c0220 = (word) &var_c12168;
         var_c02 = (word) XR_Enable(( ((word)  (fPt) NoName_Q2892) ), ( ((word)  (fPt) NoName_Q3312) ), var_c0220);
         };
      if ((var_c02 == 3)) {
         goto lab_L100028;
         };
      };
SOURCE(5092, 1420)
   (void) (XR_MonitorExit(var_c12168.f4/* x_v5460 */ ));
   return(var_c12168.f7/* found_v5532 */ );
   /* c2c skipped dead code */ 
   lab_L100028: ;
SOURCE(5283, 32)
   (void) XR_RaiseError(var_c12168.f6/* var_c11368 */ , 0);
   }

static word NoName_Q2892(formal_c0210)
   word formal_c0210;
   {
   register ptr gf_c0209 =  (ptr) &globalframe;
SOURCE(5200, 37)
   {
      word node_v6716;
SOURCE(5200, 37)
      node_v6716 = (word) FindNode_P180((* (( (ptr) (* (( (ptr) formal_c0210)+4) ))+4) ), (* (( (ptr) formal_c0210)+5) ));
SOURCE(5239, 16)
      (* (( (ptr) formal_c0210)+7) ) = (node_v6716 != 0);
SOURCE(5257, 58)
      if (((* (( (ptr) formal_c0210)+5) ) == 0)) {
SOURCE(5283, 32)
         (* (( (ptr) formal_c0210)+6) ) = (word) (( (bPt) gf_c0209)+52);
         (void) (XR_MonitorExit(* (( (ptr) formal_c0210)+4) ));
         return(3);
         };
SOURCE(5318, 46)
      if ((0 != (* (( (ptr) formal_c0210)+7) ))) {
SOURCE(5332, 32)
         (void) InternalRemoveNode_P720((* (( (ptr) (* (( (ptr) formal_c0210)+4) ))+4) ), node_v6716);
         };
      };
   return(0);
   }

static void EnumerateChildren_P840(formal_c0126, formal_c0243, window_v5620, formal_c0244, formal_c0245, formal_c0246)
   word formal_c0126;
   word formal_c0243;
   word window_v5620;
   word formal_c0244;
   word formal_c0245;
   word formal_c0246;
   {
   W16 var_c12200;
   /* declaration of x_v5592 skipped */ 
   /* declaration of action_v5648 skipped */ 
   /* declaration of recurse_v5676 skipped */ 
   /* declaration of data_v5704 skipped */ 
   word found_v5760;
   word quit_v5788;
   /* declaration of var_c11400 skipped */ 
   /* declaration of var_c11432 skipped */ 
   /* declaration of var_c11464 skipped */ 
   /* declaration of node_v6844 skipped */ 
   (* (( (ptr) &var_c12200)+4)/* x_v5592 */  ) = formal_c0243;
   (* (( (ptr) &var_c12200)+5)/* action_v5648 */  ) = formal_c0244;
   (* (( (ptr) &var_c12200)+6)/* recurse_v5676 */  ) = formal_c0245;
   (* (( (ptr) &var_c12200)+7)/* data_v5704 */  ) = formal_c0246;
   /* EnumerateChildren: */ 
SOURCE(5370, 1154)
   {
      word tmpAddr29;
      tmpAddr29 = (word) (( (ptr) &var_c12200)+8)/* var_c11400 */ ;
      (*  (ptr) tmpAddr29 ) = ( ((word)  (fPt) Enumerate_P1536) );
      (* (( (ptr) tmpAddr29) + 1) ) = 1;
      };
   {
      word tmpAddr30;
      tmpAddr30 = (word) (( (ptr) &var_c12200)+10)/* var_c11432 */ ;
      (*  (ptr) tmpAddr30 ) = ( ((word)  (fPt) Release_P1476) );
      (* (( (ptr) tmpAddr30) + 1) ) = 1;
      };
   {
      word tmpAddr31;
      tmpAddr31 = (word) (( (ptr) &var_c12200)+12)/* var_c11464 */ ;
      (*  (ptr) tmpAddr31 ) = ( ((word)  (fPt) Inhibit_P1416) );
      (* (( (ptr) tmpAddr31) + 1) ) = 1;
      };
SOURCE(6366, 31)
   (* (( (ptr) &var_c12200)+14)/* node_v6844 */  ) = (word) Inhibit_P1416((* (( (ptr) &var_c12200)+4)/* x_v5592 */  ), window_v5620, (word) (
         ( (bPt) &var_c12200)+48)/* var_c11464 */ );
SOURCE(6399, 113)
   found_v5760 = ((* (( (ptr) &var_c12200)+14)/* node_v6844 */  ) != 0);
   if ((0 != found_v5760)) {
SOURCE(6426, 18)
      quit_v5788 = 0;
      }
   else {
SOURCE(6444, 68)
      {
         /* declaration of var_c03 skipped */ 
         {
            word var_c0221;
            var_c0221 = (word) &var_c12200;
             (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q2952) ), ( ((word)  (fPt) NoName_Q3252) ), var_c0221);
            };
         quit_v5788 = (* (( (ptr) &var_c12200)+15)/* var_c03 */  );
         };
      };
SOURCE(6514, 10)
   (void) Release_P1476((* (( (ptr) &var_c12200)+4)/* x_v5592 */  ), (word) (( (bPt) &var_c12200)+40)/* var_c11432 */ );
   /* removed tail goto */ 
   (*  (ptr) formal_c0126 ) = found_v5760;
   (* (( (ptr) formal_c0126)+1) ) = quit_v5788;
   return;
   }

static word NoName_Q2952(formal_c0211)
   word formal_c0211;
   {
SOURCE(6444, 68)
   (* (( (ptr) formal_c0211)+15) ) = (word) Enumerate_P1536((* (( (ptr) formal_c0211)+14) ), (* (( (ptr) formal_c0211)+5) ), (* (
         ( (ptr) formal_c0211)+6) ), (* (( (ptr) formal_c0211)+7) ), (word) (( (bPt) formal_c0211)+32));
   return(0);
   }

static word Inhibit_P1416(x_v6920, window_v6948, formal_c12232)
   word x_v6920;
   word window_v6948;
   word formal_c12232;
   {
   word node_v6992;
   word impl_v7280;
   formal_c12232 = (formal_c12232 - 48);
   /* Inhibit: */ 
SOURCE(5541, 971)
   (void) (XR_MonitorEntry(x_v6920));
SOURCE(5541, 971)
   node_v6992 = 0;
SOURCE(5613, 19)
   impl_v7280 = (* (( (ptr) x_v6920)+4) );
SOURCE(5634, 41)
   (* (( (ptr) impl_v7280)+2) ) = ((* (( (ptr) impl_v7280)+2) ) + 1);
SOURCE(5677, 835)
   node_v6992 = (word) FindNode_P180(impl_v7280, window_v6948);
SOURCE(5541, 971)
   (void) (XR_MonitorExit(x_v6920));
   return(node_v6992);
   }

static void Release_P1476(x_v7052, formal_c12264)
   word x_v7052;
   word formal_c12264;
   {
   word impl_v7324;
   formal_c12264 = (formal_c12264 - 40);
   /* Release: */ 
SOURCE(5711, 191)
   (void) (XR_MonitorEntry(x_v7052));
SOURCE(5746, 19)
   impl_v7324 = (* (( (ptr) x_v7052)+4) );
SOURCE(5767, 41)
   (* (( (ptr) impl_v7324)+2) ) = ((* (( (ptr) impl_v7324)+2) ) - 1);
SOURCE(5810, 34)
   if (( (int)(* (( (ptr) impl_v7324)+2) ) !=  (int)0)) {
SOURCE(5838, 6)
      (void) (XR_MonitorExit(x_v7052));
      return;
      };
SOURCE(5846, 56)
   lab_L100035: ;
   if (( (int)(*  (ptr) impl_v7324 ) >  (int)(* (( (ptr) impl_v7324)+1) ))) {
      }
   else {
      goto lab_L100033;
      };
SOURCE(5882, 20)
   (void) ReHash_P1020(impl_v7324);
   goto lab_L100035;
   lab_L100033: ;
SOURCE(5711, 191)
   (void) (XR_MonitorExit(x_v7052));
   return;
   }

static word Enumerate_P1536(node_v7112, action_v7140, recurse_v7168, data_v7196, formal_c12296)
   word node_v7112;
   word action_v7140;
   word recurse_v7168;
   word data_v7196;
   word formal_c12296;
   {
   word quit_v7252;
   formal_c12296 = (formal_c12296 - 32);
   /* Enumerate: */ 
SOURCE(5907, 605)
SOURCE(5907, 605)
   quit_v7252 = 0;
SOURCE(6023, 489)
   {
      register word n_v7368;
      n_v7368 = (* (( (ptr) node_v7112)+5) );
      lab_L100039: ;
      if ((n_v7368 != 0)) {
         }
      else {
         goto lab_L100036;
         };
SOURCE(6080, 432)
      if ( ( ((* (( (ptr) n_v7368)+5) ) != 0) ? (recurse_v7168 == 2) : 0 ) ) {
SOURCE(6126, 386)
         if ((0 != (word) Enumerate_P1536(n_v7368, action_v7140, recurse_v7168, data_v7196, (word) (( (bPt) formal_c12296)+32)))) {
SOURCE(6170, 13)
            return(1);
            };
         };
SOURCE(6185, 327)
      if ((0 != (word) ( *( (fPt) ((*  (ptr) action_v7140 ))))((*  (ptr) n_v7368 ), (* (( (ptr) n_v7368)+1) ), (*  (ptr) node_v7112 ), data_v7196, action_v7140)
      )) {
SOURCE(6236, 13)
         return(1);
         };
SOURCE(6251, 261)
      if ( ( ((* (( (ptr) n_v7368)+5) ) != 0) ? (recurse_v7168 == 1) : 0 ) ) {
SOURCE(6296, 216)
         if ((0 != (word) Enumerate_P1536(n_v7368, action_v7140, recurse_v7168, data_v7196, (word) (( (bPt) formal_c12296)+32)))) {
SOURCE(6340, 13)
            return(1);
            };
         };
      n_v7368 = (* (( (ptr) n_v7368)+6) );
      goto lab_L100039;
      lab_L100036: ;
      };
SOURCE(5907, 605)
   return(quit_v7252);
   }

static word GetSize_P900(formal_c0247)
   word formal_c0247;
   {
   W6 var_c12328;
   /* declaration of x_v5848 skipped */ 
   /* declaration of var_c04 skipped */ 
   word var_c5892;
   var_c12328.f4/* x_v5848 */  = formal_c0247;
   /* GetSize: */ 
SOURCE(6530, 118)
   (void) (XR_MonitorEntry(var_c12328.f4/* x_v5848 */ ));
SOURCE(6586, 62)
   {
      word var_c05;
      {
         word var_c0222;
         var_c0222 = (word) &var_c12328;
         var_c05 = (word) XR_Enable(( ((word)  (fPt) NoName_Q3012) ), ( ((word)  (fPt) NoName_Q3192) ), var_c0222);
         };
      /* removed trivial cond node */ 
      };
   return(var_c12328.f5/* var_c04 */ );
   }

static word NoName_Q3012(formal_c0215)
   word formal_c0215;
   {
SOURCE(6609, 19)
   {
      word impl_v7412;
SOURCE(6609, 19)
      impl_v7412 = (* (( (ptr) (* (( (ptr) formal_c0215)+4) ))+4) );
SOURCE(6630, 18)
      {
         word var_c11496;
         var_c11496 = (*  (ptr) impl_v7412 );
         (void) (XR_MonitorExit(* (( (ptr) formal_c0215)+4) ));
         (* (( (ptr) formal_c0215)+5) ) = var_c11496;
         return(1);
         };
      };
   /* c2c skipped dead code */ 
   }

static void Erase_P960(formal_c0248)
   word formal_c0248;
   {
   W5 var_c12360;
   /* declaration of x_v5952 skipped */ 
   var_c12360.f4/* x_v5952 */  = formal_c0248;
   /* Erase: */ 
SOURCE(6654, 299)
   (void) (XR_MonitorEntry(var_c12360.f4/* x_v5952 */ ));
SOURCE(6694, 259)
   {
      word var_c0223;
      var_c0223 = (word) &var_c12360;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q3072) ), ( ((word)  (fPt) NoName_Q3132) ), var_c0223);
      };
SOURCE(6654, 299)
   (void) (XR_MonitorExit(var_c12360.f4/* x_v5952 */ ));
   return;
   }

static word NoName_Q3072(formal_c0216)
   word formal_c0216;
   {
SOURCE(6717, 19)
   {
      word impl_v7456;
SOURCE(6717, 19)
      impl_v7456 = (* (( (ptr) (* (( (ptr) formal_c0216)+4) ))+4) );
SOURCE(6738, 176)
      {
         register word i_v7500 = 0;
         register word noName_c11528;
         noName_c11528 = (*  (ptr) (* (( (ptr) impl_v7456)+3) ) );
         if ((i_v7500 >= noName_c11528)) {
            goto lab_L100044;
            };
         lab_L100047: ;
         {
            word next_v7544 = 0;
SOURCE(6798, 78)
            {
               register word cur_v7588;
               {
                  word var_c11560;
                  var_c11560 = (* (( (ptr) impl_v7456)+3) );
                  {
                     word limit32;
                     cur_v7588 = (* ((( (ptr) var_c11560)+1)+(
                           limit32 = (*  (ptr) var_c11560 ),
                           BCK(i_v7500, limit32)
                           )) );
                     };
                  };
               lab_L100051: ;
               if ((cur_v7588 != 0)) {
                  }
               else {
                  goto lab_L100048;
                  };
SOURCE(6850, 15)
               next_v7544 = (* (( (ptr) cur_v7588)+3) );
SOURCE(6867, 9)
               XR_FillWords(&(* (W9Pt) (cur_v7588)), 9, 0);
               cur_v7588 = next_v7544;
               goto lab_L100051;
               lab_L100048: ;
               };
SOURCE(6887, 27)
            {
               word var_c11592;
               var_c11592 = (* (( (ptr) impl_v7456)+3) );
               {
                  word limit33;
                  (* ((( (ptr) var_c11592)+1)+(
                        limit33 = (*  (ptr) var_c11592 ),
                        BCK(i_v7500, limit33)
                        )) ) = 0;
                  };
               };
            };
         i_v7500 = (i_v7500 + 1);
         if ((i_v7500 < noName_c11528)) {
            goto lab_L100047;
            };
         lab_L100044: ;
         };
SOURCE(6916, 13)
      (*  (ptr) impl_v7456 ) = 0;
SOURCE(6931, 22)
      {
         word var_c11624;
         var_c11624 = (* (( (ptr) impl_v7456)+4) );
         XR_FillWords(&(* (W9Pt) (var_c11624)), 9, 0);
         };
      };
   return(0);
   }

static void ReHash_P1020(impl_v6012)
   word impl_v6012;
   {
   register ptr gf_c12392 =  (ptr) &globalframe;
   word oldData_v7632;
   word newData_v7660 = 0;
   word seek_v7688;
   register word newPTI_v7716 = 0;
   word newMod_v7744 = 0;
   /* ReHash: */ 
SOURCE(6959, 677)
SOURCE(6998, 28)
   oldData_v7632 = (* (( (ptr) impl_v6012)+3) );
SOURCE(7046, 34)
   seek_v7688 = ((*  (ptr) (* (( (ptr) impl_v6012)+3) ) ) << 1);
SOURCE(7112, 54)
   if (((* (( (ptr) (* (( (ptr) gf_c12392)+4)/* primeTable_v3280 */  ))+13) ) > 2147483647)) {
SOURCE(7166, 5)
      (void) XR_RaiseUnnamedError();
      };
SOURCE(7173, 90)
   newPTI_v7716 = 0;
   lab_L100055: ;
   if ( ( ((newPTI_v7716 + 1) < 14) ? ((* (( (ptr) (* (( (ptr) gf_c12392)+4)/* primeTable_v3280 */  ))+BCK(newPTI_v7716, 14)
      ) ) < seek_v7688) : 0 ) ) {
      }
   else {
      goto lab_L100052;
      };
   newPTI_v7716 = (newPTI_v7716 + 1);
   goto lab_L100055;
   lab_L100052: ;
SOURCE(7277, 27)
   newMod_v7744 = (* (( (ptr) (* (( (ptr) gf_c12392)+4)/* primeTable_v3280 */  ))+BCK(newPTI_v7716, 14)) );
SOURCE(7306, 66)
   if ((newMod_v7744 == (*  (ptr) (* (( (ptr) impl_v6012)+3) ) ))) {
SOURCE(7338, 26)
      (* (( (ptr) impl_v6012)+1) ) = 2147483647;
SOURCE(7366, 6)
      return;
      };
SOURCE(7375, 23)
   (* (( (ptr) impl_v6012)+1) ) = SGNCK(newMod_v7744);
SOURCE(7400, 39)
   {
      word var_c11656;
      {
         word var_c11688;
         word var_c11720;
         word var_c11752;
         var_c11688 = BCK(newMod_v7744, 67108863);
         var_c11720 = (var_c11688 << 2);
         var_c11752 = XR_NewObject((4 + var_c11720), (* (( (ptr) gf_c12392)+9) ));
         (*  (ptr) var_c11752 ) = var_c11688;
         var_c11656 = var_c11752;
         };
      newData_v7660 = var_c11656;
      (* (( (ptr) impl_v6012)+3) ) = var_c11656;
      };
SOURCE(7441, 195)
   {
      register word i_v7812 = 0;
      register word noName_c11784;
      noName_c11784 = (*  (ptr) oldData_v7632 );
      if ((i_v7812 >= noName_c11784)) {
         goto lab_L100056;
         };
      lab_L100059: ;
      {
         word next_v7856 = 0;
SOURCE(7498, 138)
         {
            register word cur_v7900;
            {
               word limit34;
               cur_v7900 = (* ((( (ptr) oldData_v7632)+1)+(
                     limit34 = (*  (ptr) oldData_v7632 ),
                     BCK(i_v7812, limit34)
                     )) );
               };
            lab_L100063: ;
            if ((cur_v7900 != 0)) {
               }
            else {
               goto lab_L100060;
               };
SOURCE(7548, 39)
            {
               word var_c11816;
               word window_v9236;
               window_v9236 = (*  (ptr) cur_v7900 );
               {
                  word id_v9268;
                  id_v9268 = window_v9236;
SOURCE(926, 41)
                  {
                     word idx35;
                     var_c11816 = (
                        idx35 = (word) (( (((unsigned)id_v9268 << 17) >> 17) ) + (id_v9268 >> 15)),
                        BCK(idx35, 65536)
                        );
                     };
                  };
               (* (( (ptr) cur_v7900)+8) ) = (var_c11816 % newMod_v7744);
               };
SOURCE(7589, 15)
            next_v7856 = (* (( (ptr) cur_v7900)+3) );
SOURCE(7606, 30)
            {
               word impl_v9416;
               impl_v9416 = impl_v6012;
SOURCE(3734, 15)
               (* (( (ptr) cur_v7900)+2) ) = 0;
SOURCE(3751, 2761)
               {
                  word var_c11848;
                  var_c11848 = (* (( (ptr) impl_v9416)+3) );
                  {
                     word idx36;
                     word limit37;
                     (* (( (ptr) cur_v7900)+3) ) = (* ((( (ptr) var_c11848)+1)+(
                           idx36 = (* (( (ptr) cur_v7900)+8) ),
                           limit37 = (*  (ptr) var_c11848 ),
                           BCK(idx36, limit37)
                           )) );
                     };
                  };
SOURCE(3786, 43)
               if (((* (( (ptr) cur_v7900)+3) ) != 0)) {
SOURCE(3808, 21)
                  (* (( (ptr) (* (( (ptr) cur_v7900)+3) ))+2) ) = cur_v7900;
                  };
SOURCE(3831, 2681)
               {
                  word var_c11880;
                  var_c11880 = (* (( (ptr) impl_v9416)+3) );
                  {
                     word idx38;
                     word limit39;
                     (* ((( (ptr) var_c11880)+1)+(
                           idx38 = (* (( (ptr) cur_v7900)+8) ),
                           limit39 = (*  (ptr) var_c11880 ),
                           BCK(idx38, limit39)
                           )) ) = cur_v7900;
                     };
                  };
               };
            cur_v7900 = next_v7856;
            goto lab_L100063;
            lab_L100060: ;
            };
         };
      i_v7812 = (i_v7812 + 1);
      if ((i_v7812 < noName_c11784)) {
         goto lab_L100059;
         };
      lab_L100056: ;
      };
   }

static void NoName_Q3132(formal_c0176, formal_c200020, formal_c200021, formal_c200022, formal_c200023)
   word formal_c0176;
   word formal_c200020;
   word formal_c200021;
   word formal_c200022;
   word formal_c200023;
   {
   if ((formal_c200021 == XR_Unwind)) {
      (void) (XR_MonitorExit(* (( (ptr) formal_c200020)+4) ));
      };
   (*  (ptr) formal_c0176 ) = 0;
   (* (( (ptr) formal_c0176)+1) ) = 0;
   return;
   }

static void NoName_Q3192(formal_c0181, formal_c200016, formal_c200017, formal_c200018, formal_c200019)
   word formal_c0181;
   word formal_c200016;
   word formal_c200017;
   word formal_c200018;
   word formal_c200019;
   {
   if ((formal_c200017 == XR_Unwind)) {
      (void) (XR_MonitorExit(* (( (ptr) formal_c200016)+4) ));
      };
   (*  (ptr) formal_c0181 ) = 0;
   (* (( (ptr) formal_c0181)+1) ) = 0;
   return;
   }

static void NoName_Q3252(formal_c0186, formal_c200012, formal_c200013, formal_c200014, formal_c200015)
   word formal_c0186;
   word formal_c200012;
   word formal_c200013;
   word formal_c200014;
   word formal_c200015;
   {
   if ((formal_c200013 == XR_Unwind)) {
SOURCE(6501, 11)
      (void) Release_P1476((* (( (ptr) formal_c200012)+4) ), (word) (( (bPt) formal_c200012)+40));
      };
   (*  (ptr) formal_c0186 ) = 0;
   (* (( (ptr) formal_c0186)+1) ) = 0;
   return;
   }

static void NoName_Q3312(formal_c0191, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c0191;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   if ((formal_c200009 == XR_Unwind)) {
      (void) (XR_MonitorExit(* (( (ptr) formal_c200008)+4) ));
      };
   (*  (ptr) formal_c0191 ) = 0;
   (* (( (ptr) formal_c0191)+1) ) = 0;
   return;
   }

static void NoName_Q3372(formal_c0196, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0196;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   if ((formal_c200005 == XR_Unwind)) {
      (void) (XR_MonitorExit(* (( (ptr) formal_c200004)+4) ));
      };
   (*  (ptr) formal_c0196 ) = 0;
   (* (( (ptr) formal_c0196)+1) ) = 0;
   return;
   }

static void NoName_Q3432(formal_c0201, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0201;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   if ((formal_c200001 == XR_Unwind)) {
      (void) (XR_MonitorExit(* (( (ptr) formal_c200000)+4) ));
      };
   (*  (ptr) formal_c0201 ) = 0;
   (* (( (ptr) formal_c0201)+1) ) = 0;
   return;
   }

/* file: XlAssocImpl, module: XlAssocImpl, compiled at: April 21, 1992 1:09:54 pm PDT */ 
extern void XR_install_XlAssocImpl() {
   NoName_Q2712();
   }
extern void XR_run_XlAssocImpl() { XR_Start(&globalframe); }