/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: September 14, 1993 4:27:16 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: XlPrivateErrorHandlingImpl, module: XlPrivateErrorHandlingImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1538536879,2080332028] XlPrivateErrorHandlingImpl";
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;} W6;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q1164();
static void XlPrivateErrorHandlingImpl_P0();
static void RegisterErrorReportProc_P60();
static void RegisterExplainer_P120();
static word ErrorReportProc_P180();
static void Explain_P240();
static void DefaultErrorEventProc_P300();
static word NoName_Q1224();
static void DefaultExplain_P360();
static word NewErrorEvent_P420();
static void RaiseErrorEvent_P480();
static void DefaultRaiseErrorEvent_P540();
static void RegisterRaiseErrorEvent_P600();
static void RegisterErrorMatch_P660();
static word ExplainXError_P720();
static word NoName_Q1284();
static word ExplainConnectionNotCreated_P780();
static word NoName_Q1344();
static void RaiseClientError_P840();
static void RaiseServerError_P900();
static void NoName_Q1404();
static void NoName_Q1464();
static void NoName_Q1524();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\304\042\023\266\300\315\144\243\337\103\260\000\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\003\010\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\123\320\000\000"};
static struct {unsigned f; char r[60];} string4 = {3801146, "\007\100\200\040\047\004\100\354\004\200\140\054\004\014\015\015\015\015\015\015\015\015\004\140\014\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\013\004\100\114\004\102\354\004\100\314\000"};
static struct {unsigned f; char r[16];} string5 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string6 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\107\320\000\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\004\016\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\126\364\000\000"};
static struct {unsigned f; char r[4];} string10 = {131074, "\003\002\000"};
static struct {unsigned f; char r[4];} string11 = {65540, " \000\000"};
static struct {unsigned f; char r[24];} string12 = {1507352, "Xl.connectionNotCreated"};
static struct {unsigned f; char r[12];} string13 = {589836, "Xl.XError\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\133\264\065\257\300\173\377\130\374\100\164\000\000"};
static struct {unsigned f; char r[8];} string15 = {393222, "\006\001@h\004\007\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\064\321\106\155\300\242\071\325\060\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static unsigned string18 = 1483472896;
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\276\357\323\042\300\311\135\170\244\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\212\247\207\172\300\123\222\237\073\100\150\000\000"};
static struct {
   word f0[31]; word f31; word f32; word f33; 
   word f34; word f35; word f36; word f37; 
   word f38; word f39; word f40; word f41; 
   word f42; word f43; word f44; word f45; 
   word f46; word f47; word f48; word f49; 
   word f50; word f51; word f52; word f53; 
   word f54; word f55; word f56; word f57; 
   word f58; word f59; word f60; word f61; 
   word f62[6]; 
   } globalframe = {
   {0}, (word) RaiseServerError_P900, 0, (word) RaiseClientError_P840, 
   0, (word) ExplainConnectionNotCreated_P780, 0, (word) ExplainXError_P720, 
   0, (word) RegisterErrorMatch_P660, 0, (word) RegisterRaiseErrorEvent_P600, 
   0, (word) DefaultRaiseErrorEvent_P540, 0, (word) RaiseErrorEvent_P480, 
   0, (word) NewErrorEvent_P420, 0, (word) DefaultExplain_P360, 
   0, (word) DefaultErrorEventProc_P300, 0, (word) Explain_P240, 
   0, (word) ErrorReportProc_P180, 0, (word) RegisterExplainer_P120, 
   0, (word) RegisterErrorReportProc_P60, 0, (word) XlPrivateErrorHandlingImpl_P0, 
   {0}
   };

static void NoName_Q1164()
   {
   register ptr gf_c095 =  (ptr) &globalframe;
   word var_c23184;
   (* (( (ptr) gf_c095)+11) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c095)+12) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c095)+17) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (* (( (ptr) gf_c095)+20) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8);
   (* (( (ptr) gf_c095)+22) ) = (word) XR_GetTypeIndex((word) &string9, 0, (word) &string10);
   (*  (ptr) (( (bPt) gf_c095)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c095)+17) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c095)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c095)+17) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c095)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c095)+17) ), (word) &string13);
   (void) XR_DeclareGlobalFrame((word) "XlPrivateErrorHandlingImpl", &globalframe, (word) XR_GetTypeIndex((word) &string14, 0, (word) &string15)
      , (word) (( (bPt) gf_c095)+244)/* var_c22832 */ );
   var_c23184 = (word) XR_ImportInterface((word) "PreDebug", (word) XR_GetTypeIndexS((word) (&string16)), 5);
   (* (( (ptr) gf_c095)+63)/* var_c22864 */  ) = var_c23184;
   (void) XR_ImportProcS(var_c23184, 524802);
   (void) XR_ImportProcS(var_c23184, 786435);
   var_c23184 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string17)), 43);
   (* (( (ptr) gf_c095)+66)/* var_c23152 */  ) = var_c23184;
   (void) XR_ImportProcS(var_c23184, 68419845);
   (void) XR_ImportProcS(var_c23184, 67373313);
   var_c23184 = (word) XR_ImportInterface((word) &string18, (word) XR_GetTypeIndexS((word) (&string19)), 218);
   (* (( (ptr) gf_c095)+65)/* var_c22960 */  ) = var_c23184;
   (void) XR_ImportProcS(var_c23184, 67910403);
   var_c23184 = (word) XR_ImportInterface((word) "XlTQPrivate", (word) XR_GetTypeIndexS((word) (&string20)), 4);
   (* (( (ptr) gf_c095)+64)/* var_c22928 */  ) = var_c23184;
   (void) XR_ImportProcS(var_c23184, 262913);
   var_c23184 = (word) XR_ExportInterface((word) &string18, (word) XR_GetTypeIndexS((word) (&string19)), 218);
   (* (( (ptr) gf_c095)+67)/* var_c23216 */  ) = var_c23184;
   (void) XR_ExportVar(var_c23184, 0, (word) (( (bPt) gf_c095)+116));
   (void) XR_ExportVar(var_c23184, 35, (word) (( (bPt) gf_c095)+120));
   var_c23184 = (word) XR_ExportInterface((word) "XlPrivateErrorHandling", (word) XR_GetTypeIndexS((word) (&string21)), 10);
   (* (( (ptr) gf_c095)+67)/* var_c23216 */  ) = var_c23184;
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+236)/* var_c22800 */ , 262145, (word) "RegisterErrorReportProc")
   ;
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+220)/* var_c22736 */ , 67109120, (word) "ErrorReportProc");
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+156)/* var_c22480 */ , 524802, (word) "RegisterErrorMatch");
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+228)/* var_c22768 */ , 262913, (word) "RegisterExplainer");
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+212)/* var_c22704 */ , 263169, (word) "Explain");
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+188)/* var_c22608 */ , 67896579, (word) "NewErrorEvent");
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+180)/* var_c22576 */ , 263681, (word) "RaiseErrorEvent");
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+132)/* var_c22384 */ , 526082, (word) "RaiseClientError");
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+124)/* var_c22352 */ , 788483, (word) "RaiseServerError");
   (void) XR_ExportProcS(var_c23184, (word) (( (bPt) gf_c095)+164)/* var_c22512 */ , 264449, (word) "RegisterRaiseErrorEvent")
   ;
   }

static void XlPrivateErrorHandlingImpl_P0(formal_c036, formal_c035)
   word formal_c036;
   word formal_c035;
   {
   register ptr gf_c23248 =  (ptr) &globalframe;
   /* XlPrivateErrorHandlingImpl: */ 
SOURCE(81, 4012)
SOURCE(372, 52)
   (* (( (ptr) gf_c23248)+8)/* reportProc_v2776 */  ) = (word) (( (bPt) gf_c23248)+204)/* var_c22672 */ ;
SOURCE(426, 68)
   (* (( (ptr) gf_c23248)+9)/* explainerProc_v2804 */  ) = (word) (( (bPt) gf_c23248)+196)/* var_c22640 */ ;
SOURCE(1847, 24)
   (* (( (ptr) gf_c23248)+10)/* errorEventRaiser_v3028 */  ) = (word) (( (bPt) gf_c23248)+172)/* var_c22544 */ ;
SOURCE(3953, 83)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf_c23248)+63)/* var_c22864 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd22 ))))((word) (( (bPt) gf_c23248)+120), (word) (( (bPt) gf_c23248)+140)/* var_c22416 */ , 0, pd22)
      ;
      };
SOURCE(4038, 55)
   {
      word pd23;
      pd23 = (* (( (ptr) (* (( (ptr) gf_c23248)+63)/* var_c22864 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd23 ))))((word) (( (bPt) gf_c23248)+116), (word) (( (bPt) gf_c23248)+148)/* var_c22448 */ , 0, pd23)
      ;
      };
   }

static void RegisterErrorReportProc_P60(proc_v3464)
   word proc_v3464;
   {
   register ptr gf_c23280 =  (ptr) &globalframe;
   /* RegisterErrorReportProc: */ 
SOURCE(497, 101)
SOURCE(563, 35)
   if ((proc_v3464 != 0)) {
SOURCE(580, 18)
      (* (( (ptr) gf_c23280)+8)/* reportProc_v2776 */  ) = XR_CheckProc(proc_v3464);
      };
   }

static void RegisterExplainer_P120(proc_v3524)
   word proc_v3524;
   {
   register ptr gf_c23312 =  (ptr) &globalframe;
   /* RegisterExplainer: */ 
SOURCE(602, 118)
SOURCE(682, 38)
   if ((proc_v3524 != 0)) {
SOURCE(699, 21)
      (* (( (ptr) gf_c23312)+9)/* explainerProc_v2804 */  ) = XR_CheckProc(proc_v3524);
      };
   }

static word ErrorReportProc_P180()
   {
   register ptr gf_c23344 =  (ptr) &globalframe;
   word var_c3584;
   /* ErrorReportProc: */ 
SOURCE(724, 82)
SOURCE(787, 19)
   return(XR_CheckProc(* (( (ptr) gf_c23344)+8)/* reportProc_v2776 */  ));
   }

static void Explain_P240(errorEvent_v3644)
   word errorEvent_v3644;
   {
   register ptr gf_c23376 =  (ptr) &globalframe;
   /* Explain: */ 
SOURCE(812, 119)
SOURCE(871, 60)
   if (((* (( (ptr) errorEvent_v3644)+5) ) == 0)) {
SOURCE(906, 25)
      {
         word pd24;
         pd24 = (* (( (ptr) gf_c23376)+9)/* explainerProc_v2804 */  );
         (void) ( *( (fPt) ((*  (ptr) pd24 ))))(errorEvent_v3644, pd24);
         };
      };
   }

static void DefaultErrorEventProc_P300(event_v6368, clientData_v6396, formal_c0124)
   word event_v6368;
   word clientData_v6396;
   word formal_c0124;
   {
   W6 var_c23408;
   /* declaration of tq_v6424 skipped */ 
   var_c23408.f4/* tq_v6424 */  = formal_c0124;
   /* DefaultErrorEventProc: */ 
SOURCE(937, 233)
SOURCE(981, 189)
   {
      word var_c22896;
      var_c22896 = event_v6368;
      if ((var_c22896 == 0)) {
         goto lab_L100000;
         };
      if (((* (( (ptr) var_c22896)+4) ) == 1)) {
         {
            /* declaration of error_v4548 skipped */ 
            var_c23408.f5/* error_v4548 */  = var_c22896;
SOURCE(1037, 14)
            (void) Explain_P240(var_c23408.f5/* error_v4548 */ );
SOURCE(1053, 117)
SOURCE(1059, 91)
            {
               word var_c01;
               {
                  word var_c0115;
                  var_c0115 = (word) &var_c23408;
                  var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1224) ), ( ((word)  (fPt) NoName_Q1524) ), var_c0115);
                  };
               if ((var_c01 == 2)) {
                  goto lab_L100001;
                  };
               };
            goto lab_L100004;
            lab_L100001: ;
            lab_L100004: ;
            };
         }
      else {
         lab_L100000: ;
SOURCE(1189, 5)
         (void) XR_RaiseUnnamedError();
         };
      };
   }

static word NoName_Q1224(formal_c0102)
   word formal_c0102;
   {
   register ptr gf_c0101 =  (ptr) &globalframe;
SOURCE(1127, 23)
   {
      word var_c046;
      var_c046 = (* (( (ptr) formal_c0102)+5) );
      (void) (XR_RaiseSignal((* (( (ptr) (* (( (ptr) gf_c0101)+65)/* var_c22960 */  ))+4) ), 0, (word) &var_c046));
      };
   return(0);
   }

static void DefaultExplain_P360(errorEvent_v3704)
   word errorEvent_v3704;
   {
   /* DefaultExplain: */ 
   }

static word NewErrorEvent_P420(reply_v3764, connection_v3792, sequenceNumber_v3820)
   word reply_v3764;
   word connection_v3792;
   word sequenceNumber_v3820;
   {
   register ptr gf_c23440 =  (ptr) &globalframe;
   word err_v3880;
   word rep_v4592;
   /* NewErrorEvent: */ 
SOURCE(1263, 575)
SOURCE(1263, 575)
   err_v3880 = 0;
SOURCE(1422, 36)
   rep_v4592 = XR_Narrow(reply_v3764, (* (( (ptr) gf_c23440)+11) ));
SOURCE(1460, 34)
   {
      word var_c22992;
      var_c22992 = XR_NewObject(60, (* (( (ptr) gf_c23440)+12) ));
      (* (( (ptr) var_c22992)+4) ) = 1;
      err_v3880 = var_c22992;
      };
SOURCE(1496, 19)
   (* (( (ptr) err_v3880)+13) ) = rep_v4592;
SOURCE(1517, 27)
   (* (( (ptr) err_v3880)+2) ) = connection_v3792;
SOURCE(1546, 24)
   (* (( (ptr) err_v3880)+8) ) = sequenceNumber_v3820;
SOURCE(1572, 266)
   if ((rep_v4592 == 0)) {
SOURCE(1589, 33)
      (* (( (ptr) err_v3880)+6) ) = 251;
      }
   else {
SOURCE(1624, 26)
      (* (( (ptr) err_v3880)+7) ) = 1;
SOURCE(1652, 45)
      (*  (ptr) err_v3880 ) =  (unsigned) (*  (bPt) rep_v4592 );
SOURCE(1699, 139)
      if (((*  (ptr) err_v3880 ) <= 17)) {
SOURCE(1764, 47)
         (* (( (ptr) err_v3880)+6) ) = (*  (ptr) err_v3880 );
         }
      else {
SOURCE(1811, 27)
         (* (( (ptr) err_v3880)+6) ) = 240;
         };
      };
SOURCE(1263, 575)
   return(err_v3880);
   }

static void RaiseErrorEvent_P480(errorEvent_v4012)
   word errorEvent_v4012;
   {
   register ptr gf_c23472 =  (ptr) &globalframe;
   /* RaiseErrorEvent: */ 
SOURCE(1931, 223)
SOURCE(1998, 156)
   if ((errorEvent_v4012 != 0)) {
SOURCE(2021, 135)
      {
         word c_v4636;
SOURCE(2023, 40)
         c_v4636 = (* (( (ptr) errorEvent_v4012)+2) );
SOURCE(2065, 19)
         (void) Explain_P240(errorEvent_v4012);
SOURCE(2086, 38)
         if ((c_v4636 != 0)) {
SOURCE(2100, 24)
            (* (( (ptr) c_v4636)+41) ) = errorEvent_v4012;
            };
SOURCE(2126, 28)
         {
            word pd25;
            pd25 = (* (( (ptr) gf_c23472)+10)/* errorEventRaiser_v3028 */  );
            (void) ( *( (fPt) ((*  (ptr) pd25 ))))(errorEvent_v4012, pd25);
            };
         };
      };
   }

static void DefaultRaiseErrorEvent_P540(errorEvent_v4072)
   word errorEvent_v4072;
   {
   register ptr gf_c23504 =  (ptr) &globalframe;
   /* DefaultRaiseErrorEvent: */ 
SOURCE(2162, 94)
SOURCE(2229, 27)
   {
      word var_c057;
      var_c057 = errorEvent_v4072;
      (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c23504)+65)/* var_c22960 */  ))+4) ), (word) &var_c057);
      };
   }

static void RegisterRaiseErrorEvent_P600(p_v4132)
   word p_v4132;
   {
   register ptr gf_c23536 =  (ptr) &globalframe;
   /* RegisterRaiseErrorEvent: */ 
SOURCE(2262, 149)
SOURCE(2347, 40)
   if ((p_v4132 == 0)) {
SOURCE(2361, 26)
      p_v4132 = (word) (( (bPt) gf_c23536)+172)/* var_c22544 */ ;
      };
SOURCE(2390, 21)
   (* (( (ptr) gf_c23536)+10)/* errorEventRaiser_v3028 */  ) = XR_CheckProc(p_v4132);
   }

static void RegisterErrorMatch_P660(c_v4252, errorMatch_v4280)
   word c_v4252;
   word errorMatch_v4280;
   {
   register ptr gf_c23568 =  (ptr) &globalframe;
   /* RegisterErrorMatch: */ 
SOURCE(2415, 424)
SOURCE(2492, 121)
   if ((errorMatch_v4280 == 0)) {
SOURCE(2516, 36)
      errorMatch_v4280 = XR_NewObject(16, (* (( (ptr) gf_c23568)+20) ));
      }
   else {
SOURCE(2552, 61)
      {
         word m_v4680;
SOURCE(2553, 44)
         m_v4680 = XR_NewObject(16, (* (( (ptr) gf_c23568)+20) ));
         (*  (W4Pt) m_v4680 ) = (*  (W4Pt) errorMatch_v4280 );
SOURCE(2599, 14)
         errorMatch_v4280 = m_v4680;
         };
      };
SOURCE(2616, 55)
   if (((* (( (ptr) errorMatch_v4280)+2) ) == 0)) {
SOURCE(2642, 29)
      {
         word pd26;
         pd26 = (* (( (ptr) (* (( (ptr) gf_c23568)+65)/* var_c22960 */  ))+63) );
         (* (( (ptr) errorMatch_v4280)+2) ) = (word) ( *( (fPt) ((*  (ptr) pd26 ))))(0, 0, 0, pd26);
         };
      };
SOURCE(2673, 63)
   if (((*  (ptr) errorMatch_v4280 ) == 0)) {
SOURCE(2701, 35)
      {
         word var_c23088;
         var_c23088 = XR_CheckProc((word) ErrorReportProc_P180());
         (*  (ptr) errorMatch_v4280 ) = var_c23088;
         };
      };
SOURCE(2738, 74)
   if (((* (( (ptr) errorMatch_v4280)+1) ) == 0)) {
SOURCE(2769, 43)
      (* (( (ptr) errorMatch_v4280)+1) ) = XR_NewObject(12, (* (( (ptr) gf_c23568)+22) ));
      };
SOURCE(2814, 25)
   (* (( (ptr) c_v4252)+39) ) = errorMatch_v4280;
   }

static word ExplainXError_P720(formal_c0125, formal_c0126, registerData_v6540)
   word formal_c0125;
   word formal_c0126;
   word registerData_v6540;
   {
   W8 var_c23600;
   /* declaration of signalOrError_v6484 skipped */ 
   /* declaration of args_v6512 skipped */ 
   register ptr gf_c23632 =  (ptr) &globalframe;
   /* declaration of msg_v6584 skipped */ 
   var_c23600.f4/* signalOrError_v6484 */  = formal_c0125;
   var_c23600.f5/* args_v6512 */  = formal_c0126;
   /* ExplainXError: */ 
SOURCE(2845, 253)
SOURCE(2845, 253)
   var_c23600.f6/* msg_v6584 */  = 0;
SOURCE(2883, 17)
   var_c23600.f6/* msg_v6584 */  = (* (( (ptr) gf_c23632)+28) );
SOURCE(2902, 23)
   if ((var_c23600.f5/* args_v6512 */  == 0)) {
SOURCE(2919, 6)
      return(var_c23600.f6/* msg_v6584 */ );
      };
SOURCE(2927, 171)
SOURCE(2927, 171)
   {
      /* declaration of var_c02 skipped */ 
      var_c23600.f7/* var_c02 */  = (* (( (ptr) (* (( (ptr) gf_c23632)+63)/* var_c22864 */  ))+6) );
      {
         word var_c03;
         {
            word var_c0116;
            var_c0116 = (word) &var_c23600;
            var_c03 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1284) ), ( ((word)  (fPt) NoName_Q1464) ), var_c0116);
            };
         /* removed trivial cond node */ 
         };
      };
SOURCE(2845, 253)
   return(var_c23600.f6/* msg_v6584 */ );
   }

static word NoName_Q1284(formal_c0109)
   word formal_c0109;
   {
SOURCE(2927, 171)
   {
      word pd27;
      pd27 = (* (( (ptr) formal_c0109)+7) );
      (void) ( *( (fPt) ((*  (ptr) pd27 ))))((* (( (ptr) formal_c0109)+4) ), (* (( (ptr) formal_c0109)+5) ), pd27);
      };
   return(0);
   }

static word ExplainConnectionNotCreated_P780(formal_c0127, formal_c0128, registerData_v6700)
   word formal_c0127;
   word formal_c0128;
   word registerData_v6700;
   {
   W8 var_c23664;
   /* declaration of signalOrError_v6644 skipped */ 
   /* declaration of args_v6672 skipped */ 
   register ptr gf_c23696 =  (ptr) &globalframe;
   /* declaration of msg_v6744 skipped */ 
   var_c23664.f4/* signalOrError_v6644 */  = formal_c0127;
   var_c23664.f5/* args_v6672 */  = formal_c0128;
   /* ExplainConnectionNotCreated: */ 
SOURCE(3117, 243)
SOURCE(3117, 243)
   var_c23664.f6/* msg_v6744 */  = 0;
SOURCE(3169, 31)
   var_c23664.f6/* msg_v6744 */  = (* (( (ptr) gf_c23696)+27) );
SOURCE(3202, 23)
   if ((var_c23664.f5/* args_v6672 */  == 0)) {
SOURCE(3219, 6)
      return(var_c23664.f6/* msg_v6744 */ );
      };
SOURCE(3227, 133)
SOURCE(3227, 133)
   {
      /* declaration of var_c04 skipped */ 
      var_c23664.f7/* var_c04 */  = (* (( (ptr) (* (( (ptr) gf_c23696)+63)/* var_c22864 */  ))+6) );
      {
         word var_c05;
         {
            word var_c0117;
            var_c0117 = (word) &var_c23664;
            var_c05 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1344) ), ( ((word)  (fPt) NoName_Q1404) ), var_c0117);
            };
         /* removed trivial cond node */ 
         };
      };
SOURCE(3117, 243)
   return(var_c23664.f6/* msg_v6744 */ );
   }

static word NoName_Q1344(formal_c0111)
   word formal_c0111;
   {
SOURCE(3227, 133)
   {
      word pd28;
      pd28 = (* (( (ptr) formal_c0111)+7) );
      (void) ( *( (fPt) ((*  (ptr) pd28 ))))((* (( (ptr) formal_c0111)+4) ), (* (( (ptr) formal_c0111)+5) ), pd28);
      };
   return(0);
   }

static void RaiseClientError_P840(c_v4340, what_v4368)
   word c_v4340;
   word what_v4368;
   {
   word err_v4724;
   /* RaiseClientError: */ 
SOURCE(3379, 246)
SOURCE(3449, 75)
   err_v4724 = (word) NewErrorEvent_P420(0, c_v4340, 0);
SOURCE(3526, 27)
   (* (( (ptr) err_v4724)+7) ) = 0;
SOURCE(3555, 19)
   (* (( (ptr) err_v4724)+14) ) = what_v4368;
SOURCE(3576, 27)
   (* (( (ptr) err_v4724)+6) ) = 251;
SOURCE(3605, 20)
   (void) RaiseErrorEvent_P480(err_v4724);
SOURCE(3627, 5)
   (void) XR_RaiseUnnamedError();
   }

static void RaiseServerError_P900(c_v4440, what_v4468, reply_v4496)
   word c_v4440;
   word what_v4468;
   word reply_v4496;
   {
   word err_v4780;
   /* RaiseServerError: */ 
SOURCE(3638, 302)
SOURCE(3730, 77)
   err_v4780 = (word) NewErrorEvent_P420(reply_v4496, c_v4440, 0);
SOURCE(3809, 27)
   (* (( (ptr) err_v4780)+7) ) = 0;
SOURCE(3838, 19)
   (* (( (ptr) err_v4780)+14) ) = what_v4468;
SOURCE(3859, 24)
   (* (( (ptr) err_v4780)+6) ) = 241;
SOURCE(3920, 20)
   (void) RaiseErrorEvent_P480(err_v4780);
SOURCE(3942, 5)
   (void) XR_RaiseUnnamedError();
   }

static void NoName_Q1404(formal_c083, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c083;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   register ptr gf_c0112 =  (ptr) &globalframe;
   if ((formal_c200009 == (word) (( (bPt) gf_c0112)+120))) {
      {
         word why_v22108;
         why_v22108 = (*  (ptr) formal_c200011 );
SOURCE(3290, 70)
         {
            word pd29;
            pd29 = (* (( (ptr) (* (( (ptr) gf_c0112)+66)/* var_c23152 */  ))+13) );
            if ((0 == (word) ( *( (fPt) ((*  (ptr) pd29 ))))((* ((( (ptr) why_v22108)+1)) ), pd29))) {
SOURCE(3324, 36)
               {
                  word pd30;
                  pd30 = (* (( (ptr) (* (( (ptr) gf_c0112)+66)/* var_c23152 */  ))+5) );
                  (* (( (ptr) formal_c200008)+6) ) = (word) ( *( (fPt) ((*  (ptr) pd30 ))))((* (( (ptr) formal_c200008)+6) ), (* (( (ptr) gf_c0112)+26)
                      ), (* (( (ptr) why_v22108)+1) ), 0, 0, pd30);
                  };
               };
            };
SOURCE(3362, 9)
         (*  (ptr) formal_c083 ) = 2;
         (* (( (ptr) formal_c083)+1) ) = 4;
         return;
         };
      };
   (*  (ptr) formal_c083 ) = 0;
   (* (( (ptr) formal_c083)+1) ) = 0;
   return;
   }

static void NoName_Q1464(formal_c089, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c089;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0113 =  (ptr) &globalframe;
   if ((formal_c200005 == (word) (( (bPt) gf_c0113)+116))) {
      {
         word err_v21620;
         err_v21620 = (*  (ptr) formal_c200007 );
SOURCE(2976, 40)
         if (((* (( (ptr) err_v21620)+5) ) == 0)) {
SOURCE(3004, 12)
            (void) Explain_P240(err_v21620);
            };
SOURCE(3018, 80)
         {
            word pd31;
            pd31 = (* (( (ptr) (* (( (ptr) gf_c0113)+66)/* var_c23152 */  ))+13) );
            if ((0 == (word) ( *( (fPt) ((*  (ptr) pd31 ))))((* ((( (ptr) err_v21620)+5)) ), pd31))) {
SOURCE(3057, 41)
               {
                  word pd32;
                  pd32 = (* (( (ptr) (* (( (ptr) gf_c0113)+66)/* var_c23152 */  ))+5) );
                  (* (( (ptr) formal_c200004)+6) ) = (word) ( *( (fPt) ((*  (ptr) pd32 ))))((* (( (ptr) formal_c200004)+6) ), (* (( (ptr) gf_c0113)+26)
                      ), (* (( (ptr) err_v21620)+5) ), 0, 0, pd32);
                  };
               };
            };
SOURCE(3100, 9)
         (*  (ptr) formal_c089 ) = 2;
         (* (( (ptr) formal_c089)+1) ) = 3;
         return;
         };
      };
   (*  (ptr) formal_c089 ) = 0;
   (* (( (ptr) formal_c089)+1) ) = 0;
   return;
   }

static void NoName_Q1524(formal_c094, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c094;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0114 =  (ptr) &globalframe;
   if ((formal_c200001 == XR_Aborted)) {
SOURCE(1079, 33)
      {
         word pd33;
         pd33 = (* (( (ptr) (* (( (ptr) gf_c0114)+64)/* var_c22928 */  ))+7) );
         (void) ( *( (fPt) ((*  (ptr) pd33 ))))((* ((( (ptr) formal_c200000)+4)) ), pd33);
         };
SOURCE(1114, 10)
      (*  (ptr) formal_c094 ) = 2;
      (* (( (ptr) formal_c094)+1) ) = 2;
      return;
      };
   (*  (ptr) formal_c094 ) = 0;
   (* (( (ptr) formal_c094)+1) ) = 0;
   return;
   }

/* file: XlPrivateErrorHandlingImpl, module: XlPrivateErrorHandlingImpl, compiled at: September 14, 1993 4:27:16 pm PDT */ 
extern void XR_install_XlPrivateErrorHandlingImpl() {
   NoName_Q1164();
   }
extern void XR_run_XlPrivateErrorHandlingImpl() { XR_Start(&globalframe); }