/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: February 3, 1993 12:18:48 pm PST */
/* C2C version: January 29, 1993 (sun4) */
/* ref-counting: off */
/* file: XlExtensionsImpl, module: XlExtensionsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2823873050,605446245] XlExtensionsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W8 f; W7 r;} W15;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static void NoName_Q864();
static void XlExtensionsImpl_P0();
static word ProcessExtensionEvent_P60();
static void DefineExtensionClass_P120();
static word StartExtension_P180();
static word NoName_Q924();
static word Protected_P456();
static word NoName_Q984();
static void DefineExtensionTab_P516();
static void EnterExtensionLock_P240();
static void LeaveExtensionLock_P300();
static void NoName_Q1044();
static void NoName_Q1104();
static struct {unsigned f; char r[4];} string1 = {65540, "\242\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\305\130\130\253\300\227\246\357\266\100\274\000\000"};
static struct {unsigned f; char r[4];} string3 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\305\130\130\253\300\227\246\357\266\100\260\000\000"};
static struct {unsigned f; char r[4];} string5 = {131074, "\004\021\000"};
static struct {unsigned f; char r[4];} string6 = {65540, "\251\000\000"};
static struct {unsigned f; char r[4];} string7 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string8 = {131076, "no\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\250\120\342\032\300\044\026\140\145\100\200\000\000"};
static struct {unsigned f; char r[12];} string10 = {589833, "\006\003\020\001\024\001\100\120\001\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\242\221\264\046\300\105\142\142\023\100\150\000\000"};
static unsigned string13 = 1483472896;
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\122\362\040\033\300\221\350\241\274\100\150\000\000"};
static struct {unsigned f; char r[32];} string16 = {1966112, "\211\022\021\103\157\156\156\145\143\164\151\157\156\120\162\151\166\141\164\145\300\351\276\264\273\300\115\104\320\264\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\012\063\155\016\300\130\140\234\375\100\164\000\000"};
static struct {unsigned f; char r[40];} string18 = {2424869, "\006\016\000\001\004\001\010\001\014\001\020\001\024\001\030\001\034\001\040\001\044\001\060\001\070\010\000\004\100\100\001\101\070\001\101\074\001\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\305\130\130\253\300\227\246\357\266\100\150\000\000"};
static struct {
   word f0[21]; word f21; word f22; word f23; 
   word f24; word f25; word f26; word f27; 
   word f28; word f29; word f30; word f31; 
   word f32[7]; 
   } globalframe = {
   {0}, (word) LeaveExtensionLock_P300, 0, (word) EnterExtensionLock_P240, 
   0, (word) StartExtension_P180, 0, (word) DefineExtensionClass_P120, 
   0, (word) ProcessExtensionEvent_P60, 0, (word) XlExtensionsImpl_P0, 
   {0}
   };

static void NoName_Q864()
   {
   register ptr gf_c087 =  (ptr) &globalframe;
   word var_c10636;
   (* (( (ptr) gf_c087)+13) ) = (word) XR_GetTypeIndexS((word) (&string1));
   (* (( (ptr) gf_c087)+15) ) = (word) XR_GetTypeIndex((word) &string2, 0, (word) &string3);
   (* (( (ptr) gf_c087)+16) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5);
   (* (( (ptr) gf_c087)+17) ) = (word) XR_GetTypeIndexS((word) (&string6));
   (* (( (ptr) gf_c087)+18) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string3);
   (*  (ptr) (( (bPt) gf_c087)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+18) ), (word) &string8);
   (void) XR_DeclareGlobalFrame((word) "XlExtensionsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string9, 0, (word) &string10)
      , (word) (( (bPt) gf_c087)+124)/* var_c9996 */ );
   var_c10636 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string11)), 16);
   (* (( (ptr) gf_c087)+35)/* var_c10444 */  ) = var_c10636;
   (void) XR_ImportProcS(var_c10636, 67372289);
   var_c10636 = (word) XR_ImportInterface((word) "RefTab", (word) XR_GetTypeIndexS((word) (&string12)), 16);
   (* (( (ptr) gf_c087)+33)/* var_c10028 */  ) = var_c10636;
   (void) XR_ImportProcS(var_c10636, 134742786);
   (void) XR_ImportProcS(var_c10636, 67896579);
   (void) XR_ImportProcS(var_c10636, 67895555);
   var_c10636 = (word) XR_ImportInterface((word) &string13, (word) XR_GetTypeIndexS((word) (&string14)), 218);
   (* (( (ptr) gf_c087)+36)/* var_c10476 */  ) = var_c10636;
   (void) XR_ImportProcS(var_c10636, 268967938);
   var_c10636 = (word) XR_ImportInterface((word) "XlDispatch", (word) XR_GetTypeIndexS((word) (&string15)), 18);
   (* (( (ptr) gf_c087)+34)/* var_c10092 */  ) = var_c10636;
   (void) XR_ImportProcS(var_c10636, 262913);
   var_c10636 = (word) XR_ExportInterface((word) &string13, (word) XR_GetTypeIndexS((word) (&string14)), 218);
   (* (( (ptr) gf_c087)+37)/* var_c10668 */  ) = var_c10636;
   (void) XR_ExportType((word) "ConnectionPrivate", (word) XR_GetTypeIndexS((word) (&string16)), (word) XR_GetTypeIndex((word) &string17, 0, (word) &string18)
      );
   var_c10636 = (word) XR_ExportInterface((word) "XlExtensions", (word) XR_GetTypeIndexS((word) (&string19)), 3);
   (* (( (ptr) gf_c087)+38)/* var_c10700 */  ) = var_c10636;
   (void) XR_ExportProcS(var_c10636, (word) (( (bPt) gf_c087)+116)/* var_c9964 */ , 67371009);
   (void) XR_ExportProcS(var_c10636, (word) (( (bPt) gf_c087)+108)/* var_c9932 */ , 786691);
   (void) XR_ExportProcS(var_c10636, (word) (( (bPt) gf_c087)+100)/* var_c9900 */ , 67633666);
   }

static void XlExtensionsImpl_P0(formal_c025, formal_c024)
   word formal_c025;
   word formal_c024;
   {
   register ptr gf_c10732 =  (ptr) &globalframe;
   /* XlExtensionsImpl: */ 
SOURCE(86, 3118)
SOURCE(345, 49)
   {
      word pd20;
      pd20 = (* (( (ptr) (* (( (ptr) gf_c10732)+33)/* var_c10028 */  ))+5) );
      (* (( (ptr) gf_c10732)+4)/* extensionClassTable_v2748 */  ) = (word) ( *( (fPt) ((*  (ptr) pd20 ))))(17, 0, 0, pd20);
      };
SOURCE(2802, 29)
   (* (( (ptr) gf_c10732)+5)/* extensionLock_v2860 */  ) = XR_NewObject(4, (* (( (ptr) gf_c10732)+13) ));
   }

static word ProcessExtensionEvent_P60(xEvent_v3024)
   word xEvent_v3024;
   {
   register ptr gf_c10764 =  (ptr) &globalframe;
   word var_c3080;
   word dispatch_v3492;
   /* ProcessExtensionEvent: */ 
SOURCE(397, 599)
SOURCE(487, 48)
   dispatch_v3492 = ((*  (ptr) xEvent_v3024 ) & 0177);
SOURCE(537, 429)
   if ((dispatch_v3492 >= 64)) {
SOURCE(583, 397)
      {
         word cp_v3536;
         word ext_v3564;
SOURCE(585, 73)
         cp_v3536 = (* (( (ptr) (* (( (ptr) xEvent_v3024)+2) ))+24) );
SOURCE(660, 40)
         ext_v3564 = (* ((( (ptr) cp_v3536)+14)+BCK((dispatch_v3492 - 64), 64)) );
SOURCE(702, 264)
         if ((ext_v3564 != 0)) {
SOURCE(718, 259)
            {
               word cont_v3620;
SOURCE(758, 32)
               (* (( (ptr) xEvent_v3024)+5) ) = (*  (ptr) (* (( (ptr) ext_v3564)+4) ) );
SOURCE(792, 43)
               {
                  word pd21;
                  pd21 = (* (( (ptr) (* (( (ptr) ext_v3564)+4) ))+1) );
                  cont_v3620 = (word) ( *( (fPt) ((*  (ptr) pd21 ))))(ext_v3564, xEvent_v3024, pd21);
                  };
SOURCE(837, 129)
               {
                  word var_c10060;
                  var_c10060 = cont_v3620;
                  switch (var_c10060) {
                     case 1: 
SOURCE(867, 34)
                        {
                           word pd22;
                           pd22 = (* (( (ptr) (* (( (ptr) gf_c10764)+34)/* var_c10092 */  ))+7) );
                           (void) ( *( (fPt) ((*  (ptr) pd22 ))))(xEvent_v3024, pd22);
                           };
SOURCE(903, 14)
                        return(0);
                     case 0: 
SOURCE(928, 14)
                        return(0);
                     case 2: 
SOURCE(953, 13)
                        return(1);
                     };
                  };
               };
            };
         };
      };
SOURCE(983, 13)
   return(1);
   }

static void DefineExtensionClass_P120(key_v3140, processEvents_v3168, majorEventsCnt_v3196)
   word key_v3140;
   word processEvents_v3168;
   word majorEventsCnt_v3196;
   {
   register ptr gf_c10796 =  (ptr) &globalframe;
   word s_v3664;
   /* DefineExtensionClass: */ 
SOURCE(1002, 279)
SOURCE(1115, 118)
   s_v3664 = XR_NewObject(12, (* (( (ptr) gf_c10796)+15) ));
   (*  (ptr) s_v3664 ) = key_v3140;
   (* (( (ptr) s_v3664)+1) ) = XR_CheckProc(processEvents_v3168);
   (* (( (ptr) s_v3664)+2) ) = majorEventsCnt_v3196;
SOURCE(1235, 46)
   {
      word var_c10156;
      word pd23;
      pd23 = (* (( (ptr) (* (( (ptr) gf_c10796)+33)/* var_c10028 */  ))+9) );
      var_c10156 = (word) ( *( (fPt) ((*  (ptr) pd23 ))))((* (( (ptr) gf_c10796)+4)/* extensionClassTable_v2748 */  ), key_v3140, s_v3664, pd23)
      ;
      };
   }

static word StartExtension_P180(formal_c0107, formal_c0108)
   word formal_c0107;
   word formal_c0108;
   {
   W11 var_c10828;
   /* declaration of c_v3256 skipped */ 
   /* declaration of key_v3284 skipped */ 
   register ptr gf_c10860 =  (ptr) &globalframe;
   word e_v3328;
   /* declaration of var_c10188 skipped */ 
   /* declaration of var_c10220 skipped */ 
   word cp_v3776;
   (* (( (ptr) &var_c10828)+4)/* c_v3256 */  ) = formal_c0107;
   (* (( (ptr) &var_c10828)+5)/* key_v3284 */  ) = formal_c0108;
   /* StartExtension: */ 
SOURCE(1287, 1509)
   {
      word tmpAddr24;
      tmpAddr24 = (word) (( (ptr) &var_c10828)+6)/* var_c10188 */ ;
      (*  (ptr) tmpAddr24 ) = ( ((word)  (fPt) DefineExtensionTab_P516) );
      (* (( (ptr) tmpAddr24) + 1) ) = 1;
      };
   {
      word tmpAddr25;
      tmpAddr25 = (word) (( (ptr) &var_c10828)+8)/* var_c10220 */ ;
      (*  (ptr) tmpAddr25 ) = ( ((word)  (fPt) Protected_P456) );
      (* (( (ptr) tmpAddr25) + 1) ) = 1;
      };
SOURCE(1287, 1509)
   e_v3328 = 0;
SOURCE(2466, 57)
   cp_v3776 = (* (( (ptr) (* (( (ptr) &var_c10828)+4)/* c_v3256 */  ))+24) );
SOURCE(2525, 53)
   if (((* (( (ptr) cp_v3776)+12) ) == 0)) {
SOURCE(2553, 25)
      (void) DefineExtensionTab_P516((* (( (ptr) &var_c10828)+4)/* c_v3256 */  ), cp_v3776, (word) (( (bPt) &var_c10828)+24)/* var_c10188 */ )
      ;
      };
SOURCE(2580, 109)
   {
      word var_c10252;
      W2 var_c045;
      word var_c10284;
      {
         word pd26;
         pd26 = (* (( (ptr) (* (( (ptr) gf_c10860)+33)/* var_c10028 */  ))+7) );
         (void) ( *( (fPt) ((*  (ptr) pd26 ))))((word) &var_c045, (* (( (ptr) cp_v3776)+12) ), (* (( (ptr) &var_c10828)+5)/* key_v3284 */  ), pd26)
         ;
         };
      var_c10252 = var_c045.f1;
      if ((var_c10252 == 0)) {
         goto lab_L100000;
         };
      var_c10284 = XR_GetReferentType(var_c10252);
      if (((* (( (ptr) gf_c10860)+16) ) == var_c10284)) {
         {
            word ex_v4064;
            ex_v4064 = var_c10252;
SOURCE(2653, 11)
            return(ex_v4064);
            };
         }
      else {
         if (((* (( (ptr) gf_c10860)+17) ) == var_c10284)) {
            {
               word x_v4108;
               x_v4108 = var_c10252;
SOURCE(2677, 12)
               return(0);
               };
            }
         else {
            lab_L100000: ;
            };
         };
      };
SOURCE(2706, 21)
   (void) EnterExtensionLock_P240((* ((( (ptr) &var_c10828)+4)/* c_v3256 */ ) ));
SOURCE(2729, 35)
SOURCE(2729, 35)
   {
      /* declaration of var_c01 skipped */ 
      {
         word var_c02;
         {
            word var_c0101;
            var_c0101 = (word) &var_c10828;
            var_c02 = (word) XR_Enable(( ((word)  (fPt) NoName_Q924) ), ( ((word)  (fPt) NoName_Q1104) ), var_c0101);
            };
         if ((var_c02 == 2)) {
            goto lab_L100002;
            };
         };
      e_v3328 = (* (( (ptr) &var_c10828)+10)/* var_c01 */  );
      };
   lab_L100002: ;
SOURCE(2775, 21)
   (void) LeaveExtensionLock_P300((* ((( (ptr) &var_c10828)+4)/* c_v3256 */ ) ));
SOURCE(1287, 1509)
   return(e_v3328);
   }

static word NoName_Q924(formal_c092)
   word formal_c092;
   {
SOURCE(2729, 35)
   (* (( (ptr) formal_c092)+10) ) = (word) Protected_P456((* (( (ptr) formal_c092)+4) ), (* (( (ptr) formal_c092)+5) ), (word) (
         ( (bPt) formal_c092)+32));
   return(0);
   }

static word Protected_P456(formal_c0109, key_v3880, formal_c10956)
   word formal_c0109;
   word key_v3880;
   word formal_c10956;
   {
   W15 var_c10892;
   /* declaration of c_v3852 skipped */ 
   register ptr gf_c10924 =  (ptr) &globalframe;
   word var_c3924;
   word ex_v4152 = 0;
   word class_v4180 = 0;
   /* declaration of qer_v4208 skipped */ 
   word cp_v4236;
   formal_c10956 = (formal_c10956 - 32);
   (* (( (ptr) &var_c10892)+4)/* c_v3852 */  ) = formal_c0109;
   (*  (ptr) &var_c10892 ) = formal_c10956;
   /* Protected: */ 
SOURCE(1375, 920)
SOURCE(1508, 57)
   cp_v4236 = (* (( (ptr) (* (( (ptr) &var_c10892)+4)/* c_v3852 */  ))+24) );
SOURCE(1567, 109)
   {
      word var_c10316;
      W2 var_c057;
      word var_c10348;
      {
         word pd27;
         pd27 = (* (( (ptr) (* (( (ptr) gf_c10924)+33)/* var_c10028 */  ))+7) );
         (void) ( *( (fPt) ((*  (ptr) pd27 ))))((word) &var_c057, (* (( (ptr) cp_v4236)+12) ), key_v3880, pd27);
         };
      var_c10316 = var_c057.f1;
      if ((var_c10316 == 0)) {
         goto lab_L100005;
         };
      var_c10348 = XR_GetReferentType(var_c10316);
      if (((* (( (ptr) gf_c10924)+16) ) == var_c10348)) {
         {
            word ex_v4304;
            ex_v4304 = var_c10316;
SOURCE(1640, 11)
            return(ex_v4304);
            };
         }
      else {
         if (((* (( (ptr) gf_c10924)+17) ) == var_c10348)) {
            {
               word x_v4348;
               x_v4348 = var_c10316;
SOURCE(1664, 12)
               return(0);
               };
            }
         else {
            lab_L100005: ;
            };
         };
      };
SOURCE(1693, 119)
   {
      word var_c10380;
      W2 var_c062;
      {
         word pd28;
         pd28 = (* (( (ptr) (* (( (ptr) gf_c10924)+33)/* var_c10028 */  ))+7) );
         (void) ( *( (fPt) ((*  (ptr) pd28 ))))((word) &var_c062, (* (( (ptr) gf_c10924)+4)/* extensionClassTable_v2748 */  ), key_v3880, pd28)
         ;
         };
      var_c10380 = var_c062.f1;
      if ((var_c10380 == 0)) {
         goto lab_L100006;
         };
      if (((* (( (ptr) gf_c10924)+15) ) == XR_GetReferentType(var_c10380))) {
         {
            word x_v4392;
            x_v4392 = var_c10380;
SOURCE(1778, 9)
            class_v4180 = x_v4392;
            };
         }
      else {
         lab_L100006: ;
SOURCE(1800, 12)
         return(0);
         };
      };
SOURCE(1814, 100)
SOURCE(1814, 100)
   {
      /* declaration of var_c10412 skipped */ 
      {
         word pd29;
         pd29 = (* (( (ptr) (* (( (ptr) gf_c10924)+35)/* var_c10444 */  ))+9) );
         (* (( (ptr) &var_c10892)+9)/* var_c10412 */  ) = (word) ( *( (fPt) ((*  (ptr) pd29 ))))(key_v3880, pd29);
         };
      {
         /* declaration of var_c03 skipped */ 
         (* (( (ptr) &var_c10892)+10)/* var_c03 */  ) = (* (( (ptr) (* (( (ptr) gf_c10924)+36)/* var_c10476 */  ))+36) );
         {
            /* declaration of var_c04 skipped */ 
            {
               word var_c05;
               {
                  word var_c0102;
                  var_c0102 = (word) &var_c10892;
                  var_c05 = (word) XR_Enable(( ((word)  (fPt) NoName_Q984) ), ( ((word)  (fPt) NoName_Q1044) ), var_c0102);
                  };
               if ((var_c05 == 3)) {
                  goto lab_L100008;
                  };
               };
            (*  (W4Pt) (( (ptr) &var_c10892)+5)/* qer_v4208 */  ) = (*  (W4Pt) (( (ptr) &var_c10892)+11)/* var_c04 */  );
            };
         };
      };
   lab_L100008: ;
SOURCE(1929, 89)
   if ((0 == (* (( (ptr) &var_c10892)+5) ))) {
SOURCE(1960, 44)
      {
         word var_c10508;
         word pd30;
         pd30 = (* (( (ptr) (* (( (ptr) gf_c10924)+33)/* var_c10028 */  ))+9) );
         var_c10508 = (word) ( *( (fPt) ((*  (ptr) pd30 ))))((* (( (ptr) cp_v4236)+12) ), key_v3880, (* (( (ptr) gf_c10924)+20) ), pd30)
         ;
         };
SOURCE(2006, 12)
      return(0);
      };
SOURCE(2023, 125)
   {
      word var_c10540;
      var_c10540 = XR_NewObject(20, (* (( (ptr) gf_c10924)+16) ));
      (* (( (ptr) var_c10540)+1) ) = (* (( (ptr) &var_c10892)+6) );
      (* (( (ptr) var_c10540)+2) ) = (* (( (ptr) &var_c10892)+7) );
      (* (( (ptr) var_c10540)+3) ) = (* (( (ptr) &var_c10892)+8) );
      (* (( (ptr) var_c10540)+4) ) = class_v4180;
      ex_v4152 = var_c10540;
      };
SOURCE(2150, 78)
   {
      register word i_v4448 = 0;
      register word noName_c10572;
      noName_c10572 = (* (( (ptr) class_v4180)+2) );
      if ((i_v4448 >= noName_c10572)) {
         goto lab_L100011;
         };
      lab_L100014: ;
SOURCE(2193, 35)
      {
         word idx31;
         (* ((( (ptr) cp_v4236)+14)+(
               idx31 = (word) (((* (( (ptr) ex_v4152)+2) ) + i_v4448) - 64),
               BCK(idx31, 64)
               )) ) = ex_v4152;
         };
      i_v4448 = (i_v4448 + 1);
      if ((i_v4448 < noName_c10572)) {
         goto lab_L100014;
         };
      lab_L100011: ;
      };
SOURCE(2239, 43)
   {
      word var_c10604;
      word pd32;
      pd32 = (* (( (ptr) (* (( (ptr) gf_c10924)+33)/* var_c10028 */  ))+9) );
      var_c10604 = (word) ( *( (fPt) ((*  (ptr) pd32 ))))((* (( (ptr) cp_v4236)+12) ), key_v3880, ex_v4152, pd32);
      };
SOURCE(2284, 11)
   return(ex_v4152);
   }

static word NoName_Q984(formal_c095)
   word formal_c095;
   {
SOURCE(1814, 100)
   {
      word pd33;
      pd33 = (* (( (ptr) formal_c095)+10) );
      (void) ( *( (fPt) ((*  (ptr) pd33 ))))((word) (( (bPt) formal_c095)+44), (* (( (ptr) formal_c095)+4) ), (* (( (ptr) formal_c095)+9)
          ), pd33);
      };
   return(0);
   }

static void DefineExtensionTab_P516(c_v3984, cp_v4012, formal_c11020)
   word c_v3984;
   word cp_v4012;
   word formal_c11020;
   {
   register ptr gf_c10988 =  (ptr) &globalframe;
   formal_c11020 = (formal_c11020 - 24);
   /* DefineExtensionTab: */ 
SOURCE(2300, 161)
   (void) (XR_MonitorEntry(c_v3984));
SOURCE(2400, 61)
   if (((* (( (ptr) cp_v4012)+12) ) == 0)) {
SOURCE(2428, 33)
      {
         word pd34;
         pd34 = (* (( (ptr) (* (( (ptr) gf_c10988)+33)/* var_c10028 */  ))+5) );
         (* (( (ptr) cp_v4012)+12) ) = (word) ( *( (fPt) ((*  (ptr) pd34 ))))(17, 0, 0, pd34);
         };
      };
SOURCE(2300, 161)
   (void) (XR_MonitorExit(c_v3984));
   return;
   }

static void EnterExtensionLock_P240(c_v3404)
   word c_v3404;
   {
   register ptr gf_c11052 =  (ptr) &globalframe;
   word cp_v4492;
   /* EnterExtensionLock: */ 
SOURCE(2857, 184)
   (void) (XR_MonitorEntry(c_v3404));
SOURCE(2908, 57)
   cp_v4492 = (* (( (ptr) c_v3404)+24) );
SOURCE(2967, 49)
   lab_L100017: ;
   if ((* (( (ptr) cp_v4492)+13) )) {
      }
   else {
      goto lab_L100015;
      };
SOURCE(2993, 23)
   (void) (XR_Wait(c_v3404, (word) (( (bPt) gf_c11052)+24)/* checkAgain_v2888 */ ));
   goto lab_L100017;
   lab_L100015: ;
SOURCE(3018, 23)
   (* (( (ptr) cp_v4492)+13) ) = 1;
SOURCE(2857, 184)
   (void) (XR_MonitorExit(c_v3404));
   return;
   }

static void LeaveExtensionLock_P300(c_v3464)
   word c_v3464;
   {
   register ptr gf_c11084 =  (ptr) &globalframe;
   word cp_v4548;
   /* LeaveExtensionLock: */ 
SOURCE(3047, 157)
   (void) (XR_MonitorEntry(c_v3464));
SOURCE(3098, 57)
   cp_v4548 = (* (( (ptr) c_v3464)+24) );
SOURCE(3157, 24)
   (* (( (ptr) cp_v4548)+13) ) = 0;
SOURCE(3183, 21)
   (void) (XR_Broadcast((word) (( (bPt) gf_c11084)+24)/* checkAgain_v2888 */ ));
SOURCE(3047, 157)
   (void) (XR_MonitorExit(c_v3464));
   return;
   }

static void NoName_Q1044(formal_c081, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c081;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0100 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0100)+36)/* var_c10476 */  ))+4) )) || (formal_c200005 == XR_Uncaught)) {
SOURCE(1887, 27)
      (* (( (ptr) formal_c200004)+5) ) = 0;
SOURCE(1916, 8)
      (*  (ptr) formal_c081 ) = 2;
      (* (( (ptr) formal_c081)+1) ) = 3;
      return;
      };
   (*  (ptr) formal_c081 ) = 0;
   (* (( (ptr) formal_c081)+1) ) = 0;
   return;
   }

static void NoName_Q1104(formal_c086, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c086;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   if ((formal_c200001 == XR_Uncaught)) {
SOURCE(2764, 9)
      (*  (ptr) formal_c086 ) = 2;
      (* (( (ptr) formal_c086)+1) ) = 2;
      return;
      };
   (*  (ptr) formal_c086 ) = 0;
   (* (( (ptr) formal_c086)+1) ) = 0;
   return;
   }

/* file: XlExtensionsImpl, module: XlExtensionsImpl, compiled at: February 3, 1993 12:18:47 pm PST */ 
extern void XR_install_XlExtensionsImpl() {
   NoName_Q864();
   }
extern void XR_run_XlExtensionsImpl() { XR_Start(&globalframe); }