/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: May 4, 1993 9:42:36 am PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: XlDebuggableErrors, module: XlDebuggableErrors */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [2477103132,2103493467] XlDebuggableErrors";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
static void NoName←Q120();
static void XlDebuggableErrors←P0();
static void RaiseErrorEvent←P60();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\223\245\230\034\300\175\140\303\133\100\164\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\212\247\207\172\300\123\222\237\073\100\150\000\000"};
static struct {
   word f0[4]; word f4; word f5; word f6; 
   word f7[3]; 
   } globalframe = {
   {0}, (word) RaiseErrorEvent←P60, 0, (word) XlDebuggableErrors←P0, 
   {0}
   };

static void NoName←Q120()
   {
   register ptr gf←c022 =  (ptr) &globalframe;
   word var←c4552;
   (void) XR←DeclareGlobalFrame((word) "XlDebuggableErrors", &globalframe, (word) XR←GetTypeIndexS((word) (&string1)), (word) (
         ( (bPt) gf←c022)+24)/* var←c4456 */ );
   var←c4552 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string2)), 218);
   (* (( (ptr) gf←c022)+9)/* var←c4520 */  ) = var←c4552;
   var←c4552 = (word) XR←ImportInterface((word) "XlPrivateErrorHandling", (word) XR←GetTypeIndexS((word) (&string3)), 10);
   (* (( (ptr) gf←c022)+8)/* var←c4488 */  ) = var←c4552;
   (void) XR←ImportProcS(var←c4552, 264449);
   }

static void XlDebuggableErrors←P0(formal←c07, formal←c06)
   word formal←c07;
   word formal←c06;
   {
   register ptr gf←c4584 =  (ptr) &globalframe;
   /* XlDebuggableErrors: */ 
SOURCE(47, 874)
SOURCE(858, 63)
   {
      word pd4;
      pd4 = (* (( (ptr) (* (( (ptr) gf←c4584)+8)/* var←c4488 */  ))+13) );
      (void) ( *( (fPt) ((*  (ptr) pd4 ))))((word) ((( (bPt) gf←c4584)+16)/* var←c4424 */ ), pd4);
      };
   }

static void RaiseErrorEvent←P60(errorEvent←v2604)
   word errorEvent←v2604;
   {
   register ptr gf←c4616 =  (ptr) &globalframe;
   word originalCodeByte←v2632;
   word dispatchDrawable←v2660;
   word connection←v2688;
   word explanation←v2716;
   word errorKind←v2744;
   word serverGenerated←v2772;
   word originalError←v2800;
   word majorOpCode←v2828;
   word minorOpCode←v2856;
   word badValue←v2884;
   word replyText←v2912;
   word internal←v2940;
   /* RaiseErrorEvent: */ 
SOURCE(126, 726)
SOURCE(186, 45)
   originalCodeByte←v2632 = (* (( (ptr) errorEvent←v2604)+4) );
SOURCE(233, 59)
   dispatchDrawable←v2660 = (* (( (ptr) errorEvent←v2604)+1) );
SOURCE(294, 49)
   connection←v2688 = (* (( (ptr) errorEvent←v2604)+2) );
SOURCE(422, 47)
   explanation←v2716 = (* (( (ptr) errorEvent←v2604)+5) );
SOURCE(471, 46)
   errorKind←v2744 = (* (( (ptr) errorEvent←v2604)+6) );
SOURCE(519, 50)
   serverGenerated←v2772 = (* (( (ptr) errorEvent←v2604)+7) );
SOURCE(571, 46)
   originalError←v2800 = (* (( (ptr) errorEvent←v2604)+9) );
SOURCE(619, 42)
   majorOpCode←v2828 = (* (( (ptr) errorEvent←v2604)+10) );
SOURCE(663, 44)
   minorOpCode←v2856 = (* (( (ptr) errorEvent←v2604)+11) );
SOURCE(709, 38)
   badValue←v2884 = (* (( (ptr) errorEvent←v2604)+12) );
SOURCE(749, 37)
   replyText←v2912 = (* (( (ptr) errorEvent←v2604)+13) );
SOURCE(788, 35)
   internal←v2940 = (* (( (ptr) errorEvent←v2604)+14) );
SOURCE(825, 27)
   {
      word var←c021;
      var←c021 = errorEvent←v2604;
      (void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c4616)+9)/* var←c4520 */  ))+4) ), (word) &var←c021);
      };
   }

/* file: XlDebuggableErrors, module: XlDebuggableErrors, compiled at: May 4, 1993 9:42:35 am PDT */ 
extern void XR←install←XlDebuggableErrors() {
   NoName←Q120();
   }
extern void XR←run←XlDebuggableErrors() { XR←Start(&globalframe); }