/* 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); }