/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: September 14, 1993 4:26:43 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: XlImplUtilities, module: XlImplUtilities */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [866536271,360272135] XlImplUtilities"; 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;} W3; typedef struct {word f0, f1, f2, f3;} W4; typedef W4 *W4Pt; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {W8 f; word r;} W9; #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 IOP2(op, x, y) ( (word) ((x) op (y)) ) #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) #define NCK(p) ( (void) p) #define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) ) static void NoName_Q8340(); static void XlImplUtilities_P0(); static void ReplaceBuffer_P60(); static void RealAssertBuffer_P120(); static void RealFlushBuffer_P180(); static word NoName_Q8400(); static void RealFineAssertBuffer_P300(); static void BadImplError_P360(); static void BInit_P480(); static void BInitPartial_P540(); static word PaddingBytes_P600(); static void ReportError_P660(); static word BuildDeadConnectionError_P720(); static void BuildAndPutDeadConnectionError_P780(); static void DoWithLocks_P840(); static word NoName_Q8460(); static void ContinueDirectRequest_P900(); static void StartDirectRequest_P960(); static void XlDebugOnCommand_P1020(); static void XlDebugOffCommand_P1080(); static word BRequestWithBlock_P1200(); static word BContinueWithBlock_P1260(); static void BPutBool_P1320(); static void BPutINT16_P1380(); static void BPutINT32as16_P1500(); static void BPutPixmap_P1560(); static void BPutColorMap_P1620(); static void BPutTime_P1680(); static void BPutVisual_P1740(); static void BPutCursor_P1800(); static void BPut0s_P1860(); static void BPutRope_P1920(); static word action_P3816(); static void BPutPaddedRope_P1980(); static word action_P3924(); static void DPutCARD16_P2040(); static void DPutCARD32_P2100(); static void DPutWindow_P2160(); static void DPutPad_P2220(); static void DPutPaddedRope_P2280(); static word GetExtensionCard16_P2340(); static word GetExtensionCard32_P2400(); static word GetTextCARD16_P2460(); static word GetTextCARD32_P2520(); static word ERead8_P2580(); static word ERead16_P2640(); static word ERead32_P2700(); static word EReadRope_P2760(); static word RopeFromRaw_P2820(); static word EachChar_P4080(); static void InternalRoundTrip_P2880(); static word RopeToString16_P2940(); static word P_P4140(); static void Flush_P3000(); static void action_P4200(); static void RoundTrip_P3060(); static void action_P4260(); static word SetButtonGrabOwner_P3120(); static void ClearButtonGrabOwner_P3180(); static void NoName_Q8520(); static void NoName_Q8580(); static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"}; static struct {unsigned f; char r[12];} string3 = {720908, "\205\210\242\000\117\237\210\241\000\100\377"}; static struct {unsigned f; char r[16];} string4 = {983056, "\255\216\257\300\351\276\264\273\300\115\104\320\264\123\364"}; static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\106\104\000\000"}; static struct {unsigned f; char r[4];} string6 = {131076, "\216\251\000"}; static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\123\320\000\000"}; static struct {unsigned f; char r[60];} string8 = {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[4];} string9 = {196612, "bad"}; static struct {unsigned f; char r[12];} string10 = {655372, "whileFlush\000"}; static struct {unsigned f; char r[24];} string11 = {1376280, "readErrorFromProperty\000\000"}; static struct {unsigned f; char r[16];} string12 = {786448, "XlDebugX1Off\000\000\000"}; static struct {unsigned f; char r[8];} string13 = {458760, "XlDebug"}; static struct {unsigned f; char r[12];} string14 = {720908, "DebugStream"}; static struct {unsigned f; char r[20];} string15 = {1179668, "Internal debugging\000"}; static struct {unsigned f; char r[12];} string16 = {720908, "XlDebugX1On"}; static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\063\246\113\117\300\025\171\121\007\100\200\000\000"}; static struct {unsigned f; char r[16];} string18 = {851981, "\006\004\024\001\030\001\034\001\100\144\004\100\377\000\000"}; static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"}; static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"}; static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\277\374\326\303\300\302\136\022\175\100\150\000\000"}; static unsigned string24 = 1483472896; static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"}; static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\337\070\153\303\300\227\216\321\214\100\150\000\000"}; static struct {unsigned f; char r[8];} string27 = {1483493490, "ivate"}; static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\304\042\023\266\300\315\144\243\337\100\150\000\000"}; static struct {unsigned f; char r[32];} string29 = {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];} string30 = {851984, "\257\300\012\063\155\016\300\130\140\234\375\100\164\000\000"}; static struct {unsigned f; char r[40];} string31 = {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 { word f0[33]; 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; word f63; word f64; word f65; word f66; word f67; word f68; word f69; word f70; word f71; word f72; word f73; word f74; word f75; word f76; word f77; word f78; word f79; word f80; word f81; word f82; word f83; word f84; word f85; word f86; word f87; word f88; word f89; word f90; word f91; word f92; word f93; word f94; word f95; word f96; word f97; word f98; word f99; word f100; word f101; word f102; word f103; word f104; word f105; word f106; word f107; word f108; word f109; word f110; word f111; word f112; word f113; word f114; word f115; word f116; word f117; word f118; word f119; word f120; word f121; word f122; word f123; word f124; word f125; word f126; word f127; word f128; word f129; word f130; word f131; word f132[2]; word f134; word f135; word f136; word f137[9]; } globalframe = { {0}, (word) ClearButtonGrabOwner_P3180, 0, (word) SetButtonGrabOwner_P3120, 0, (word) RoundTrip_P3060, 0, (word) Flush_P3000, 0, (word) RopeToString16_P2940, 0, (word) InternalRoundTrip_P2880, 0, (word) RopeFromRaw_P2820, 0, (word) EReadRope_P2760, 0, (word) ERead32_P2700, 0, (word) ERead16_P2640, 0, (word) ERead8_P2580, 0, (word) GetTextCARD32_P2520, 0, (word) GetTextCARD16_P2460, 0, (word) GetExtensionCard32_P2400, 0, (word) GetExtensionCard16_P2340, 0, (word) DPutPaddedRope_P2280, 0, (word) DPutPad_P2220, 0, (word) DPutWindow_P2160, 0, (word) DPutCARD32_P2100, 0, (word) DPutCARD16_P2040, 0, (word) BPutPaddedRope_P1980, 0, (word) BPutRope_P1920, 0, (word) BPut0s_P1860, 0, (word) BPutCursor_P1800, 0, (word) BPutVisual_P1740, 0, (word) BPutTime_P1680, 0, (word) BPutColorMap_P1620, 0, (word) BPutPixmap_P1560, 0, (word) BPutINT32as16_P1500, 0, (word) BPutINT16_P1380, 0, (word) BPutBool_P1320, 0, (word) BContinueWithBlock_P1260, 0, (word) BRequestWithBlock_P1200, 0, (word) XlDebugOffCommand_P1080, 0, (word) XlDebugOnCommand_P1020, 0, (word) StartDirectRequest_P960, 0, (word) ContinueDirectRequest_P900, 0, (word) DoWithLocks_P840, 0, (word) BuildAndPutDeadConnectionError_P780, 0, (word) BuildDeadConnectionError_P720, 0, (word) ReportError_P660, 0, (word) PaddingBytes_P600, 0, (word) BInitPartial_P540, 0, (word) BInit_P480, 0, (word) BadImplError_P360, 0, (word) RealFineAssertBuffer_P300, 0, (word) RealFlushBuffer_P180, 0, (word) RealAssertBuffer_P120, 0, (word) ReplaceBuffer_P60, 0, (word) XlImplUtilities_P0, {0}, (word) 3, (word) 2, (word) 1, {0} }; static void NoName_Q8340() { register ptr gf_c0434 = (ptr) &globalframe; word var_c53008; (* (( (ptr) gf_c0434)+11) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0434)+12) ) = (word) XR_GetTypeIndexS((word) (&string3)); (* (( (ptr) gf_c0434)+14) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string2); (* (( (ptr) gf_c0434)+15) ) = (word) XR_GetTypeIndexS((word) (&string5)); (* (( (ptr) gf_c0434)+16) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string2); (* (( (ptr) gf_c0434)+20) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8); (* (ptr) (( (bPt) gf_c0434)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0434)+16) ), (word) &string9); (* (ptr) (( (bPt) gf_c0434)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0434)+16) ), (word) &string10); (* (ptr) (( (bPt) gf_c0434)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0434)+16) ), (word) &string11); (* (ptr) (( (bPt) gf_c0434)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0434)+11) ), (word) &string12); (* (ptr) (( (bPt) gf_c0434)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0434)+16) ), (word) &string13); (* (ptr) (( (bPt) gf_c0434)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0434)+16) ), (word) &string14); (* (ptr) (( (bPt) gf_c0434)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0434)+11) ), (word) &string15); (* (ptr) (( (bPt) gf_c0434)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0434)+11) ), (word) &string16); (void) XR_DeclareGlobalFrame((word) "XlImplUtilities", &globalframe, (word) XR_GetTypeIndex((word) &string17, 0, (word) &string18) , (word) (( (bPt) gf_c0434)+524)/* var_c50160 */ ); var_c53008 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string19)), 16); (* (( (ptr) gf_c0434)+142)/* var_c51184 */ ) = var_c53008; (void) XR_ImportProcS(var_c53008, 788739); var_c53008 = (word) XR_ImportInterface((word) "Commander", (word) XR_GetTypeIndexS((word) (&string20)), 3); (* (( (ptr) gf_c0434)+138)/* var_c50288 */ ) = var_c53008; (void) XR_ImportProcS(var_c53008, 1310725); var_c53008 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string21)), 103); (* (( (ptr) gf_c0434)+140)/* var_c50480 */ ) = var_c53008; (void) XR_ImportProcS(var_c53008, 1071364); (void) XR_ImportProcS(var_c53008, 267521); (void) XR_ImportProcS(var_c53008, 1053698); var_c53008 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string22)), 43); (* (( (ptr) gf_c0434)+143)/* var_c51376 */ ) = var_c53008; (void) XR_ImportProcS(var_c53008, 67634434); (void) XR_ImportProcS(var_c53008, 67902211); (void) XR_ImportProcS(var_c53008, 68163076); (void) XR_ImportProcS(var_c53008, 67373569); var_c53008 = (word) XR_ImportInterface((word) "SafeStorage", (word) XR_GetTypeIndexS((word) (&string23)), 27); (* (( (ptr) gf_c0434)+137)/* var_c50256 */ ) = var_c53008; (void) XR_ImportProcS(var_c53008, 67109376); var_c53008 = (word) XR_ImportInterface((word) &string24, (word) XR_GetTypeIndexS((word) (&string25)), 218); (* (( (ptr) gf_c0434)+141)/* var_c50800 */ ) = var_c53008; (void) XR_ImportProcS(var_c53008, 67639298); (void) XR_ImportProcS(var_c53008, 792323); (void) XR_ImportProcS(var_c53008, 1063940); (void) XR_ImportProcS(var_c53008, 67910403); var_c53008 = (word) XR_ImportInterface((word) "XlDetails", (word) XR_GetTypeIndexS((word) (&string26)), 4); (* (( (ptr) gf_c0434)+144)/* var_c52848 */ ) = var_c53008; var_c53008 = (word) XR_ImportInterface((word) &string27, (word) XR_GetTypeIndexS((word) (&string28)), 77); (* (( (ptr) gf_c0434)+139)/* var_c50416 */ ) = var_c53008; (void) XR_ImportProcS(var_c53008, 540418); (void) XR_ImportProcS(var_c53008, 67385857); (void) XR_ImportProcS(var_c53008, 525314); (void) XR_ImportProcS(var_c53008, 526594); var_c53008 = (word) XR_ExportInterface((word) &string24, (word) XR_GetTypeIndexS((word) (&string25)), 218); (* (( (ptr) gf_c0434)+145)/* var_c53040 */ ) = var_c53008; (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+156)/* var_c48688 */ , 534274, (word) "Flush"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+148)/* var_c48656 */ , 534530, (word) "RoundTrip"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+140)/* var_c48624 */ , 67924739, (word) "SetButtonGrabOwner") ; (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+132)/* var_c48592 */ , 553986, (word) "ClearButtonGrabOwner") ; (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+164)/* var_c48720 */ , 67414529, (word) "RopeToString16"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+244)/* var_c49040 */ , 67685890, (word) "GetExtensionCard16") ; (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+236)/* var_c49008 */ , 67686146, (word) "GetExtensionCard32") ; (void) XR_ExportType((word) "ConnectionPrivate", (word) XR_GetTypeIndexS((word) (&string29)), (word) XR_GetTypeIndex((word) &string30, 0, (word) &string31) ); var_c53008 = (word) XR_ExportInterface((word) &string27, (word) XR_GetTypeIndexS((word) (&string28)), 77); (* (( (ptr) gf_c0434)+145)/* var_c53040 */ ) = var_c53008; (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+484)/* var_c50000 */ , 262145, (word) "BadImplError"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+460)/* var_c49904 */ , 67371265, (word) "PaddingBytes"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+428)/* var_c49776 */ , 786947, (word) "DoWithLocks"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+508)/* var_c50096 */ , 525314, (word) "RealAssertBuffer"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+492)/* var_c50032 */ , 525826, (word) "RealFineAssertBuffer") ; (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+500)/* var_c50064 */ , 526594, (word) "RealFlushBuffer"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+476)/* var_c49968 */ , 1051908, (word) "BInit"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+468)/* var_c49936 */ , 1314309, (word) "BInitPartial"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+308)/* var_c49296 */ , 529154, (word) "BPut0s"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+372)/* var_c49552 */ , 529410, (word) "BPutBool"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+364)/* var_c49520 */ , 529666, (word) "BPutINT16"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+356)/* var_c49488 */ , 529922, (word) "BPutINT32as16"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+348)/* var_c49456 */ , 531202, (word) "BPutPixmap"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+340)/* var_c49424 */ , 531458, (word) "BPutColorMap"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+332)/* var_c49392 */ , 531714, (word) "BPutTime"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+324)/* var_c49360 */ , 531970, (word) "BPutVisual"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+316)/* var_c49328 */ , 532226, (word) "BPutCursor"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+292)/* var_c49232 */ , 1057028, (word) "BPutPaddedRope"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+300)/* var_c49264 */ , 1057284, (word) "BPutRope"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+380)/* var_c49584 */ , 67642114, (word) "BContinueWithBlock") ; (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+388)/* var_c49616 */ , 68166660, (word) "BRequestWithBlock"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+420)/* var_c49744 */ , 272129, (word) "ContinueDirectRequest") ; (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+412)/* var_c49712 */ , 1058820, (word) "StartDirectRequest"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+284)/* var_c49200 */ , 535042, (word) "DPutCARD16"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+276)/* var_c49168 */ , 535554, (word) "DPutCARD32"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+268)/* var_c49136 */ , 535810, (word) "DPutWindow"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+252)/* var_c49072 */ , 1060612, (word) "DPutPaddedRope"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+260)/* var_c49104 */ , 536578, (word) "DPutPad"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+228)/* var_c48976 */ , 67645698, (word) "GetTextCARD16"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+220)/* var_c48944 */ , 67645954, (word) "GetTextCARD32"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+172)/* var_c48752 */ , 276481, (word) "InternalRoundTrip"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+180)/* var_c48784 */ , 67909891, (word) "RopeFromRaw"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+212)/* var_c48912 */ , 67389697, (word) "ERead8"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+204)/* var_c48880 */ , 67389953, (word) "ERead16"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+196)/* var_c48848 */ , 67390209, (word) "ERead32"); (void) XR_ExportProcS(var_c53008, (word) (( (bPt) gf_c0434)+188)/* var_c48816 */ , 67390465, (word) "EReadRope"); } static void XlImplUtilities_P0(formal_c071, formal_c070) word formal_c071; word formal_c070; { register ptr gf_c53072 = (ptr) &globalframe; /* XlImplUtilities: */ SOURCE(120, 14002) /* moved to installation proc */ /* moved to installation proc */ /* moved to installation proc */ SOURCE(13924, 45) SOURCE(13925, 44) { word pd32; pd32 = (* (( (ptr) (* (( (ptr) gf_c53072)+137)/* var_c50256 */ ))+6) ); (* (( (ptr) gf_c53072)+5)/* untracedZone_v3084 */ ) = (word) ( *( (fPt) ((* (ptr) pd32 ))))(pd32); }; SOURCE(13972, 73) { word pd33; pd33 = (* (( (ptr) (* (( (ptr) gf_c53072)+138)/* var_c50288 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd33 ))))((* (( (ptr) gf_c53072)+32) ), (word) (( (bPt) gf_c53072)+404)/* var_c49680 */ , (* ( ( (ptr) gf_c53072)+31) ), 0, 1, pd33); }; SOURCE(14047, 75) { word pd34; pd34 = (* (( (ptr) (* (( (ptr) gf_c53072)+138)/* var_c50288 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd34 ))))((* (( (ptr) gf_c53072)+28) ), (word) (( (bPt) gf_c53072)+396)/* var_c49648 */ , (* ( ( (ptr) gf_c53072)+31) ), 0, 1, pd34); }; } static void ReplaceBuffer_P60(c_v4796, bytes_v4824) word c_v4796; word bytes_v4824; { register ptr gf_c53104 = (ptr) &globalframe; word text_v10480 = 0; word buf_v10508; /* ReplaceBuffer: */ SOURCE(587, 565) SOURCE(732, 36) { word x35; word x36; bytes_v4824 = (x35 = MAX( (unsigned) , bytes_v4824, 1000), x36 = (* (( (ptr) c_v4796)+6) ), MAX( (unsigned) , x35, x36)); }; SOURCE(770, 55) { word var_c50320; word var_c50352; word var_c50384; { word idx37; var_c50320 = ( idx37 = (word) ((word) (bytes_v4824 + 3) >> 2), BCK(idx37, 67108863) ); }; var_c50352 = ((word) var_c50320 << 2); { word pd38; pd38 = (* (ptr) (* (( (ptr) gf_c53104)+5)/* untracedZone_v3084 */ ) ); var_c50384 = (word) ( *( (fPt) ((* (ptr) pd38 ))))((* (( (ptr) gf_c53104)+5)/* untracedZone_v3084 */ ), (4 + var_c50352), (* ( ( (ptr) gf_c53104)+15) ), pd38); }; (* (ptr) var_c50384 ) = var_c50320; text_v10480 = var_c50384; }; SOURCE(835, 65) SOURCE(836, 64) buf_v10508 = (text_v10480 + 4); SOURCE(903, 191) if (((* (( (ptr) c_v4796)+4) ) != 0)) { SOURCE(925, 43) if ((((* (( (ptr) c_v4796)+4) ) & 3) != 0)) { SOURCE(953, 15) (void) BadImplError_P360(c_v4796); }; SOURCE(1001, 93) SOURCE(1003, 91) (void) Basics_MoveWords(buf_v10508, (* (( (ptr) c_v4796)+7) ), ((* (( (ptr) c_v4796)+4) ) >> 2)); }; SOURCE(1100, 11) (* (( (ptr) c_v4796)+7) ) = buf_v10508; SOURCE(1113, 18) (* (( (ptr) c_v4796)+6) ) = bytes_v4824; SOURCE(1133, 19) (* (( (ptr) c_v4796)+8) ) = text_v10480; } static void RealAssertBuffer_P120(c_v4884, bytes_v4912) word c_v4884; word bytes_v4912; { register ptr gf_c53136 = (ptr) &globalframe; /* RealAssertBuffer: */ SOURCE(1158, 280) SOURCE(1234, 34) { word pd39; if (((* (( (ptr) c_v4884)+5) ) != 0)) { pd39 = (* (( (ptr) (* (( (ptr) gf_c53136)+139)/* var_c50416 */ ))+13) ); (void) ( *( (fPt) ((* (ptr) pd39 ))))(c_v4884, 1, pd39); }; }; SOURCE(1270, 96) if (((* (( (ptr) c_v4884)+14) ) != 0)) { SOURCE(1297, 69) if ((((* (( (ptr) c_v4884)+6) ) - (* (( (ptr) c_v4884)+4) )) < bytes_v4912)) { SOURCE(1336, 14) (* (( (ptr) c_v4884)+5) ) = 0; SOURCE(1353, 13) (* (( (ptr) c_v4884)+4) ) = 0; }; }; SOURCE(1375, 63) if ((((* (( (ptr) c_v4884)+6) ) - (* (( (ptr) c_v4884)+4) )) < bytes_v4912)) { SOURCE(1414, 24) (void) ReplaceBuffer_P60(c_v4884, bytes_v4912); }; } static void RealFlushBuffer_P180(formal_c0490, formal_c0491) word formal_c0490; word formal_c0491; { W6 var_c53168; /* declaration of c_v4972 skipped */ /* declaration of delay_v5000 skipped */ var_c53168.f4/* c_v4972 */ = formal_c0490; var_c53168.f5/* delay_v5000 */ = formal_c0491; /* RealFlushBuffer: */ SOURCE(1445, 677) SOURCE(1526, 596) SOURCE(1528, 570) { word var_c01; { word var_c0472; var_c0472 = (word) &var_c53168; var_c01 = (word) XR_Enable(( ((word) (fPt) NoName_Q8400) ), ( ((word) (fPt) NoName_Q8580) ), var_c0472); }; if ((var_c01 == 2)) { goto lab_L100000; }; }; goto lab_L100003; lab_L100000: ; lab_L100003: ; } static word NoName_Q8400(formal_c0439) word formal_c0439; { register ptr gf_c0438 = (ptr) &globalframe; SOURCE(1616, 24) { word ready_v10612; SOURCE(1616, 24) ready_v10612 = (* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+5) ); SOURCE(1642, 65) if (((* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+4) ) != (* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+9) )) || ((* (( (ptr) (* ( ( (ptr) formal_c0439)+4) ))+10) ) != 0)) { SOURCE(1692, 15) (void) BadImplError_P360((* ((( (ptr) formal_c0439)+4)) )); }; SOURCE(1710, 39) if (((* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+4) ) != ready_v10612)) { SOURCE(1734, 15) (void) BadImplError_P360((* ((( (ptr) formal_c0439)+4)) )); }; SOURCE(1776, 39) if (((ready_v10612 & 3) != 0)) { SOURCE(1800, 15) (void) BadImplError_P360((* ((( (ptr) formal_c0439)+4)) )); }; SOURCE(1840, 89) { W3 var_c50448; var_c50448.f0 = (* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+7) ); var_c50448.f1 = 0; var_c50448.f2 = ready_v10612; { word pd40; pd40 = (* (( (ptr) (* (( (ptr) gf_c0438)+140)/* var_c50480 */ ))+24) ); (void) ( *( (fPt) ((* (ptr) pd40 ))))((* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+31) ), var_c50448, pd40); }; }; SOURCE(1931, 14) (* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+5) ) = 0; SOURCE(1948, 35) (* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+9) ) = ((* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+9) ) - ready_v10612); SOURCE(1985, 27) (* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+4) ) = ((* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+4) ) - ready_v10612); SOURCE(2014, 84) if ((0 != (* (( (ptr) formal_c0439)+5) ))) { SOURCE(2029, 27) (* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+35) ) = 1; } else { SOURCE(2058, 22) (* (( (ptr) (* (( (ptr) formal_c0439)+4) ))+35) ) = 0; SOURCE(2082, 16) { word pd41; pd41 = (* (( (ptr) (* (( (ptr) gf_c0438)+140)/* var_c50480 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd41 ))))((* ((( (ptr) (* (( (ptr) formal_c0439)+4) ))+31)) ), pd41); }; }; }; return(0); } static void RealFineAssertBuffer_P300(c_v5120, bytes_v5148) word c_v5120; word bytes_v5148; { register ptr gf_c53200 = (ptr) &globalframe; /* RealFineAssertBuffer: */ SOURCE(2456, 150) SOURCE(2523, 18) { word c_v45192; c_v45192 = c_v5120; { word cnt_v10656; cnt_v10656 = (* (( (ptr) c_v45192)+4) ); SOURCE(2211, 37) if (((cnt_v10656 & 3) != 0)) { SOURCE(2233, 15) (void) BadImplError_P360(c_v45192); }; SOURCE(2273, 87) { W3 var_c50512; var_c50512.f0 = (* (( (ptr) c_v45192)+7) ); var_c50512.f1 = 0; var_c50512.f2 = cnt_v10656; { word pd42; pd42 = (* (( (ptr) (* (( (ptr) gf_c53200)+140)/* var_c50480 */ ))+24) ); (void) ( *( (fPt) ((* (ptr) pd42 ))))((* (( (ptr) c_v45192)+31) ), var_c50512, pd42); }; }; SOURCE(2362, 21) (* (( (ptr) c_v45192)+35) ) = 1; SOURCE(2386, 14) (* (( (ptr) c_v45192)+5) ) = 0; SOURCE(2402, 13) (* (( (ptr) c_v45192)+4) ) = 0; SOURCE(2417, 33) (* (( (ptr) c_v45192)+9) ) = ((* (( (ptr) c_v45192)+9) ) - cnt_v10656); }; }; SOURCE(2543, 63) if ((((* (( (ptr) c_v5120)+6) ) - (* (( (ptr) c_v5120)+4) )) < bytes_v5148)) { SOURCE(2582, 24) (void) ReplaceBuffer_P60(c_v5120, bytes_v5148); }; } static void BadImplError_P360(c_v5208) word c_v5208; { register ptr gf_c53232 = (ptr) &globalframe; word lastOpCode_v10684; /* BadImplError: */ SOURCE(2613, 165) SOURCE(2659, 31) lastOpCode_v10684 = (* (( (ptr) c_v5208)+11) ); SOURCE(2692, 23) if ((0 == (* (( (ptr) c_v5208)+15) ))) { SOURCE(2709, 6) return; }; SOURCE(2717, 44) if (((* (( (ptr) c_v5208)+14) ) == 0)) { SOURCE(2742, 19) (* (( (ptr) c_v5208)+14) ) = (* (( (ptr) gf_c53232)+25) ); }; SOURCE(2763, 15) (* (( (ptr) c_v5208)+15) ) = 0; SOURCE(2805, 5) (void) XR_RaiseUnnamedError(); } static void BInit_P480(c_v5440, opCode_v5468, minor_v5496, length_v5524) word c_v5440; word opCode_v5468; word minor_v5496; word length_v5524; { register ptr gf_c53264 = (ptr) &globalframe; /* BInit: */ SOURCE(3216, 145) SOURCE(3299, 62) { word c_v45456; word opCode_v45484; word minor_v45512; word length_v45540; word assertBytes_v45568; c_v45456 = c_v5440; opCode_v45484 = opCode_v5468; minor_v45512 = minor_v5496; length_v45540 = ( (((unsigned)length_v5524 << 16) >> 16) ); { word idx43; assertBytes_v45568 = ( idx43 = (word) IOP2( * , (int)length_v5524, (int)4), SGNCK(idx43) ); }; { word start_v10728; word p_v10756; p_v10756 = (* (( (ptr) c_v45456)+7) ); SOURCE(2977, 45) SOURCE(6854, 50) if ((opCode_v45484 == 0)) { SOURCE(6889, 15) (void) BadImplError_P360(c_v45456); }; SOURCE(6906, 78) if ((((* (( (ptr) c_v45456)+4) ) + (* (( (ptr) c_v45456)+10) )) != (* (( (ptr) c_v45456)+9) ))) { SOURCE(6969, 15) (void) BadImplError_P360(c_v45456); }; SOURCE(6986, 38) { word pd44; if ((((* (( (ptr) c_v45456)+6) ) - (* (( (ptr) c_v45456)+4) )) < assertBytes_v45568)) { pd44 = (* (( (ptr) (* (( (ptr) gf_c53264)+139)/* var_c50416 */ ))+8) ); (void) ( *( (fPt) ((* (ptr) pd44 ))))(c_v45456, assertBytes_v45568, pd44); }; }; SOURCE(7026, 53) { word var_c50544; word n_v48544; n_v48544 = ((* (( (ptr) c_v45456)+13) ) + 1); var_c50544 = ( (((unsigned)n_v48544 << 16) >> 16) ); (* (( (ptr) c_v45456)+13) ) = var_c50544; }; SOURCE(7081, 360) if ((0 != (* (( (ptr) gf_c53264)+4)/* checkSpreitzer_v3028 */ ))) { { word cPriv_v45852; cPriv_v45852 = (* (( (ptr) c_v45456)+24) ); SOURCE(7168, 273) { word var_c50576; var_c50576 = (* (( (ptr) cPriv_v45852)+79) ); if ((var_c50576 == 0)) { goto lab_L100005; }; if (((* (( (ptr) gf_c53264)+12) ) == XR_GetReferentType(var_c50576))) { { word rd_v45896; rd_v45896 = var_c50576; SOURCE(7219, 47) (* (( (ptr) ( /*1*/ NCK((* (bPt) rd_v45896 )), /*1*/ rd_v45896 /*1*/ ))+((* (( (ptr) c_v45456)+13) ) % 4000)) ) = opCode_v45484; }; } else { lab_L100005: ; { word rd_v45940; rd_v45940 = XR_NewObject(16000, (* (( (ptr) gf_c53264)+12) )); SOURCE(7321, 16) (* (( (ptr) cPriv_v45852)+79) ) = rd_v45940; SOURCE(7339, 47) (* (( (ptr) ( /*1*/ NCK((* (bPt) rd_v45940 )), /*1*/ rd_v45940 /*1*/ ))+((* (( (ptr) c_v45456)+13) ) % 4000)) ) = opCode_v45484; SOURCE(7389, 31) (* (( (ptr) gf_c53264)+6)/* prevDebugArray_v3644 */ ) = (* (( (ptr) gf_c53264)+7)/* lastDebugArray_v3672 */ ); SOURCE(7422, 19) (* (( (ptr) gf_c53264)+7)/* lastDebugArray_v3672 */ ) = rd_v45940; }; }; }; }; }; SOURCE(3024, 17) start_v10728 = (* (( (ptr) c_v45456)+4) ); SOURCE(3051, 71) SOURCE(3053, 69) (* (( (ptr) p_v10756)+((word) start_v10728 >> 2)) ) = (((word) (((word) (unsigned) (opCode_v45484 & 0377) << 8) + (unsigned) (minor_v45512 & 0377)) << 16) + (unsigned) ( (((unsigned)length_v45540 << 16) >> 16) )); SOURCE(3125, 19) (* (( (ptr) c_v45456)+4) ) = (start_v10728 + 4); SOURCE(3146, 30) (* (( (ptr) c_v45456)+9) ) = (start_v10728 + ((word) length_v45540 << 2)); SOURCE(3194, 16) (* (( (ptr) c_v45456)+10) ) = 0; }; }; } static void BInitPartial_P540(c_v5584, opCode_v5612, minor_v5640, length_v5668, assertBytes_v5696) word c_v5584; word opCode_v5612; word minor_v5640; word length_v5668; word assertBytes_v5696; { register ptr gf_c53296 = (ptr) &globalframe; /* BInitPartial: */ SOURCE(3365, 174) SOURCE(3474, 65) { word c_v45240; word opCode_v45268; word minor_v45296; word length_v45324; word assertBytes_v45352; c_v45240 = c_v5584; opCode_v45268 = opCode_v5612; minor_v45296 = minor_v5640; length_v45324 = ( (((unsigned)length_v5668 << 16) >> 16) ); assertBytes_v45352 = assertBytes_v5696; { word start_v45384; word p_v45412; p_v45412 = (* (( (ptr) c_v45240)+7) ); SOURCE(2977, 45) SOURCE(6854, 50) if ((opCode_v45268 == 0)) { SOURCE(6889, 15) (void) BadImplError_P360(c_v45240); }; SOURCE(6906, 78) if ((((* (( (ptr) c_v45240)+4) ) + (* (( (ptr) c_v45240)+10) )) != (* (( (ptr) c_v45240)+9) ))) { SOURCE(6969, 15) (void) BadImplError_P360(c_v45240); }; SOURCE(6986, 38) { word pd45; if ((((* (( (ptr) c_v45240)+6) ) - (* (( (ptr) c_v45240)+4) )) < assertBytes_v45352)) { pd45 = (* (( (ptr) (* (( (ptr) gf_c53296)+139)/* var_c50416 */ ))+8) ); (void) ( *( (fPt) ((* (ptr) pd45 ))))(c_v45240, assertBytes_v45352, pd45); }; }; SOURCE(7026, 53) { word var_c50672; word n_v48448; n_v48448 = ((* (( (ptr) c_v45240)+13) ) + 1); var_c50672 = ( (((unsigned)n_v48448 << 16) >> 16) ); (* (( (ptr) c_v45240)+13) ) = var_c50672; }; SOURCE(7081, 360) if ((0 != (* (( (ptr) gf_c53296)+4)/* checkSpreitzer_v3028 */ ))) { { word cPriv_v11252; cPriv_v11252 = (* (( (ptr) c_v45240)+24) ); SOURCE(7168, 273) { word var_c50704; var_c50704 = (* (( (ptr) cPriv_v11252)+79) ); if ((var_c50704 == 0)) { goto lab_L100007; }; if (((* (( (ptr) gf_c53296)+12) ) == XR_GetReferentType(var_c50704))) { { word rd_v11292; rd_v11292 = var_c50704; SOURCE(7219, 47) (* (( (ptr) ( /*1*/ NCK((* (bPt) rd_v11292 )), /*1*/ rd_v11292 /*1*/ ))+((* (( (ptr) c_v45240)+13) ) % 4000)) ) = opCode_v45268; }; } else { lab_L100007: ; { word rd_v11332; rd_v11332 = XR_NewObject(16000, (* (( (ptr) gf_c53296)+12) )); SOURCE(7321, 16) (* (( (ptr) cPriv_v11252)+79) ) = rd_v11332; SOURCE(7339, 47) (* (( (ptr) ( /*1*/ NCK((* (bPt) rd_v11332 )), /*1*/ rd_v11332 /*1*/ ))+((* (( (ptr) c_v45240)+13) ) % 4000)) ) = opCode_v45268; SOURCE(7389, 31) (* (( (ptr) gf_c53296)+6)/* prevDebugArray_v3644 */ ) = (* (( (ptr) gf_c53296)+7)/* lastDebugArray_v3672 */ ); SOURCE(7422, 19) (* (( (ptr) gf_c53296)+7)/* lastDebugArray_v3672 */ ) = rd_v11332; }; }; }; }; }; SOURCE(3024, 17) start_v45384 = (* (( (ptr) c_v45240)+4) ); SOURCE(3051, 71) SOURCE(3053, 69) (* (( (ptr) p_v45412)+((word) start_v45384 >> 2)) ) = (((word) (((word) (unsigned) (opCode_v45268 & 0377) << 8) + (unsigned) (minor_v45296 & 0377)) << 16) + (unsigned) ( (((unsigned)length_v45324 << 16) >> 16) )); SOURCE(3125, 19) (* (( (ptr) c_v45240)+4) ) = (start_v45384 + 4); SOURCE(3146, 30) (* (( (ptr) c_v45240)+9) ) = (start_v45384 + ((word) length_v45324 << 2)); SOURCE(3194, 16) (* (( (ptr) c_v45240)+10) ) = 0; }; }; } static word PaddingBytes_P600(n_v5756) word n_v5756; { register ptr gf_c53328 = (ptr) &globalframe; word var_c5800; /* PaddingBytes: */ SOURCE(3561, 75) SOURCE(3614, 22) { word idx46; return((* ((( (ptr) gf_c53328)+133)/* var_c50224 */ +( idx46 = (word) IOP2( % , (int)n_v5756, (int)4), BCK(idx46, 4) )) )); }; } static void ReportError_P660(c_v5896, errorMatch_v5924, err_v5952) word c_v5896; word errorMatch_v5924; word err_v5952; { register ptr gf_c53360 = (ptr) &globalframe; /* ReportError: */ SOURCE(3681, 290) SOURCE(3764, 17) (* (( (ptr) c_v5896)+41) ) = err_v5952; SOURCE(3783, 188) if ((errorMatch_v5924 != 0)) { SOURCE(3806, 167) { W4 mr_v10784; SOURCE(3808, 29) mr_v10784 = (* (W4Pt) errorMatch_v5924 ); SOURCE(3839, 26) if ((mr_v10784.f0 == 0)) { SOURCE(3859, 6) return; }; SOURCE(3867, 39) if ((mr_v10784.f2 == 0)) { SOURCE(3885, 21) { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf_c53360)+141)/* var_c50800 */ ))+63) ); mr_v10784.f2 = (word) ( *( (fPt) ((* (ptr) pd47 ))))(0, 0, 0, pd47); }; }; SOURCE(3908, 63) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c53360)+141)/* var_c50800 */ ))+64) ); (void) ( *( (fPt) ((* (ptr) pd48 ))))(mr_v10784.f2, mr_v10784.f0, mr_v10784.f3, err_v5952, pd48); }; }; }; } static word BuildDeadConnectionError_P720(c_v6012) word c_v6012; { register ptr gf_c53392 = (ptr) &globalframe; word var_c6056; word err_v10828; /* BuildDeadConnectionError: */ SOURCE(3980, 256) SOURCE(4069, 57) err_v10828 = XR_NewObject(60, (* (( (ptr) gf_c53392)+20) )); (* (( (ptr) err_v10828)+4) ) = 1; SOURCE(4128, 18) (* (( (ptr) err_v10828)+2) ) = c_v6012; SOURCE(4148, 41) (* (( (ptr) err_v10828)+6) ) = 255; SOURCE(4191, 31) if ((c_v6012 != 0)) { SOURCE(4205, 17) (* (( (ptr) c_v6012)+41) ) = err_v10828; }; SOURCE(4224, 12) return(err_v10828); } static void BuildAndPutDeadConnectionError_P780(c_v6128) word c_v6128; { register ptr gf_c53424 = (ptr) &globalframe; word x_v10884; /* BuildAndPutDeadConnectionError: */ SOURCE(4242, 208) SOURCE(4301, 57) x_v10884 = (word) BuildDeadConnectionError_P720(c_v6128); SOURCE(4360, 90) if ((c_v6128 != 0)) { SOURCE(4376, 74) { word var_c50864; { word var_c50896; var_c50896 = XR_NewObject(4, (* (( (ptr) gf_c53424)+14) )); (* (ptr) var_c50896 ) = x_v10884; var_c50864 = var_c50896; }; { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c53424)+141)/* var_c50800 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd49 ))))(c_v6128, (* (( (ptr) gf_c53424)+27) ), var_c50864, pd49); }; }; }; } static void DoWithLocks_P840(formal_c0492, formal_c0493, details_v6244) word formal_c0492; word formal_c0493; word details_v6244; { W6 var_c53456; /* declaration of c_v6188 skipped */ /* declaration of action_v6216 skipped */ register ptr gf_c53488 = (ptr) &globalframe; word var_c50960; word var_c50992; word var_c51056; word var_c51088; var_c53456.f4/* c_v6188 */ = formal_c0492; var_c53456.f5/* action_v6216 */ = formal_c0493; /* DoWithLocks: */ SOURCE(4459, 1557) (void) (XR_MonitorEntry(var_c53456.f4/* c_v6188 */ )); SOURCE(4559, 1457) SOURCE(4561, 528) { word var_c02; { word var_c0473; var_c0473 = (word) &var_c53456; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q8460) ), ( ((word) (fPt) NoName_Q8520) ), var_c0473); }; if ((var_c02 == 4)) { goto lab_L100009; } else { if ((var_c02 == 3)) { goto lab_L100008; }; }; }; goto lab_L100012; lab_L100008: ; if ((details_v6244 == 0)) { SOURCE(5183, 6) (void) (XR_MonitorExit(var_c53456.f4/* c_v6188 */ )); return; } else { if (((* (( (ptr) details_v6244)+2) ) == 1) || (0 != (* (( (ptr) details_v6244)+1) ))) { SOURCE(5244, 101) { word error_v10996; SOURCE(5246, 61) error_v10996 = (word) BuildDeadConnectionError_P720(var_c53456.f4/* c_v6188 */ ); SOURCE(5309, 34) var_c50960 = (* (( (ptr) (* (( (ptr) gf_c53488)+141)/* var_c50800 */ ))+4) ); var_c50992 = (word) error_v10996; (void) (XR_MonitorExit(var_c53456.f4/* c_v6188 */ )); goto lab_L100013; }; } else { if (((* (( (ptr) details_v6244)+2) ) == 0)) { SOURCE(5378, 6) (void) (XR_MonitorExit(var_c53456.f4/* c_v6188 */ )); return; } else { if (((* (( (ptr) details_v6244)+2) ) == 2)) { SOURCE(5420, 108) { word error_v11052; SOURCE(5422, 61) error_v11052 = (word) BuildDeadConnectionError_P720(var_c53456.f4/* c_v6188 */ ); SOURCE(5485, 41) (void) ReportError_P660(var_c53456.f4/* c_v6188 */ , (* (( (ptr) details_v6244)+3) ), error_v11052); }; } else { SOURCE(5542, 5) (void) XR_RaiseUnnamedError(); }; }; }; }; goto lab_L100012; lab_L100009: ; SOURCE(5579, 390) { word var_c51024; { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c53488)+141)/* var_c50800 */ ))+28) ); var_c51024 = (word) ( *( (fPt) ((* (ptr) pd50 ))))(var_c53456.f4/* c_v6188 */ , (* (( (ptr) gf_c53488)+27) ), pd50); }; if ((var_c51024 == 0)) { goto lab_L100014; }; if (((* (( (ptr) gf_c53488)+14) ) == XR_GetReferentType(var_c51024))) { { word refError_v11108; refError_v11108 = var_c51024; SOURCE(5678, 314) { word error_v11164; SOURCE(5680, 38) error_v11164 = (* (ptr) refError_v11108 ); if ((details_v6244 == 0)) { SOURCE(5752, 6) (void) (XR_MonitorExit(var_c53456.f4/* c_v6188 */ )); return; } else { if (((* (( (ptr) details_v6244)+2) ) == 1) || (0 != (* (( (ptr) details_v6244)+1) ))) { SOURCE(5815, 34) var_c51056 = (* (( (ptr) (* (( (ptr) gf_c53488)+141)/* var_c50800 */ ))+4) ); var_c51088 = (word) error_v11164; (void) (XR_MonitorExit(var_c53456.f4/* c_v6188 */ )); goto lab_L100015; } else { if (((* (( (ptr) details_v6244)+2) ) == 0)) { SOURCE(5884, 6) (void) (XR_MonitorExit(var_c53456.f4/* c_v6188 */ )); return; } else { if (((* (( (ptr) details_v6244)+2) ) == 2)) { SOURCE(5928, 41) (void) ReportError_P660(var_c53456.f4/* c_v6188 */ , (* (( (ptr) details_v6244)+3) ), error_v11164); } else { SOURCE(5985, 5) (void) XR_RaiseUnnamedError(); }; }; }; }; }; }; } else { lab_L100014: ; SOURCE(6006, 5) (void) XR_RaiseUnnamedError(); }; }; lab_L100012: ; SOURCE(4459, 1557) (void) (XR_MonitorExit(var_c53456.f4/* c_v6188 */ )); return; /* c2c skipped dead code */ lab_L100013: ; SOURCE(5309, 34) { word var_c0152; var_c0152 = var_c50992; (void) XR_RaiseError(var_c50960, (word) &var_c0152); }; lab_L100015: ; SOURCE(5815, 34) { word var_c0153; var_c0153 = var_c51088; (void) XR_RaiseError(var_c51056, (word) &var_c0153); }; } static word NoName_Q8460(formal_c0449) word formal_c0449; { SOURCE(5007, 17) if ((0 == (* (( (ptr) (* (( (ptr) formal_c0449)+4) ))+15) ))) { SOURCE(5024, 26) return(3); }; SOURCE(5053, 9) { word pd51; pd51 = (* (( (ptr) formal_c0449)+5) ); (void) ( *( (fPt) ((* (ptr) pd51 ))))((* ((( (ptr) formal_c0449)+4)) ), pd51); }; SOURCE(5064, 25) if (((* (( (ptr) (* (( (ptr) formal_c0449)+4) ))+14) ) != 0)) { SOURCE(5089, 26) return(3); }; return(0); } static void ContinueDirectRequest_P900(c_v6364) word c_v6364; { register ptr gf_c53520 = (ptr) &globalframe; /* ContinueDirectRequest: */ SOURCE(6020, 82) SOURCE(6084, 18) { word c_v45116; c_v45116 = c_v6364; { word cnt_v45148; cnt_v45148 = (* (( (ptr) c_v45116)+4) ); SOURCE(2211, 37) if (((cnt_v45148 & 3) != 0)) { SOURCE(2233, 15) (void) BadImplError_P360(c_v45116); }; SOURCE(2273, 87) { W3 var_c51120; var_c51120.f0 = (* (( (ptr) c_v45116)+7) ); var_c51120.f1 = 0; var_c51120.f2 = cnt_v45148; { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c53520)+140)/* var_c50480 */ ))+24) ); (void) ( *( (fPt) ((* (ptr) pd52 ))))((* (( (ptr) c_v45116)+31) ), var_c51120, pd52); }; }; SOURCE(2362, 21) (* (( (ptr) c_v45116)+35) ) = 1; SOURCE(2386, 14) (* (( (ptr) c_v45116)+5) ) = 0; SOURCE(2402, 13) (* (( (ptr) c_v45116)+4) ) = 0; SOURCE(2417, 33) (* (( (ptr) c_v45116)+9) ) = ((* (( (ptr) c_v45116)+9) ) - cnt_v45148); }; }; } static void StartDirectRequest_P960(c_v6424, opCode_v6452, minor_v6480, length_v6508) word c_v6424; word opCode_v6452; word minor_v6480; word length_v6508; { register ptr gf_c53552 = (ptr) &globalframe; /* StartDirectRequest: */ SOURCE(6110, 169) SOURCE(6218, 41) (void) BInitPartial_P540(c_v6424, opCode_v6452, minor_v6480, length_v6508, 4); SOURCE(6261, 18) { word c_v45040; c_v45040 = c_v6424; { word cnt_v45072; cnt_v45072 = (* (( (ptr) c_v45040)+4) ); SOURCE(2211, 37) if (((cnt_v45072 & 3) != 0)) { SOURCE(2233, 15) (void) BadImplError_P360(c_v45040); }; SOURCE(2273, 87) { W3 var_c51152; var_c51152.f0 = (* (( (ptr) c_v45040)+7) ); var_c51152.f1 = 0; var_c51152.f2 = cnt_v45072; { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c53552)+140)/* var_c50480 */ ))+24) ); (void) ( *( (fPt) ((* (ptr) pd53 ))))((* (( (ptr) c_v45040)+31) ), var_c51152, pd53); }; }; SOURCE(2362, 21) (* (( (ptr) c_v45040)+35) ) = 1; SOURCE(2386, 14) (* (( (ptr) c_v45040)+5) ) = 0; SOURCE(2402, 13) (* (( (ptr) c_v45040)+4) ) = 0; SOURCE(2417, 33) (* (( (ptr) c_v45040)+9) ) = ((* (( (ptr) c_v45040)+9) ) - cnt_v45072); }; }; } static void XlDebugOnCommand_P1020(formal_c0169, cmd_v16252) word formal_c0169; word cmd_v16252; { register ptr gf_c53584 = (ptr) &globalframe; word result_v16296; word msg_v16324; word debugStream_v11208; /* XlDebugOnCommand: */ SOURCE(6452, 197) SOURCE(6452, 197) result_v16296 = 0; SOURCE(6452, 197) msg_v16324 = 0; SOURCE(6496, 32) debugStream_v11208 = (* (( (ptr) cmd_v16252)+2) ); SOURCE(6530, 21) (* (( (ptr) gf_c53584)+4)/* checkSpreitzer_v3028 */ ) = 1; SOURCE(6553, 45) if ((debugStream_v11208 == 0)) { SOURCE(6577, 21) debugStream_v11208 = (* (( (ptr) cmd_v16252)+1) ); }; SOURCE(6600, 49) { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c53584)+142)/* var_c51184 */ ))+13) ); (void) ( *( (fPt) ((* (ptr) pd54 ))))((* (( (ptr) gf_c53584)+29) ), (* (( (ptr) gf_c53584)+30) ), debugStream_v11208, pd54) ; }; /* removed tail goto */ (* (ptr) formal_c0169 ) = result_v16296; (* (( (ptr) formal_c0169)+1) ) = msg_v16324; return; } static void XlDebugOffCommand_P1080(formal_c0173, cmd_v16384) word formal_c0173; word cmd_v16384; { register ptr gf_c53616 = (ptr) &globalframe; word result_v16428; word msg_v16456; /* XlDebugOffCommand: */ SOURCE(6655, 110) SOURCE(6655, 110) result_v16428 = 0; SOURCE(6655, 110) msg_v16456 = 0; SOURCE(6700, 22) (* (( (ptr) gf_c53616)+4)/* checkSpreitzer_v3028 */ ) = 0; SOURCE(6724, 41) { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf_c53616)+142)/* var_c51184 */ ))+13) ); (void) ( *( (fPt) ((* (ptr) pd55 ))))((* (( (ptr) gf_c53616)+29) ), (* (( (ptr) gf_c53616)+30) ), 0, pd55); }; /* removed tail goto */ (* (ptr) formal_c0173 ) = result_v16428; (* (( (ptr) formal_c0173)+1) ) = msg_v16456; return; } static word BRequestWithBlock_P1200(c_v6744, opCode_v6772, blockBytes_v6800, additionalBytes_v6828) word c_v6744; word opCode_v6772; word blockBytes_v6800; word additionalBytes_v6828; { register ptr gf_c53648 = (ptr) &globalframe; word p_v6872; word start_v11372; /* BRequestWithBlock: */ SOURCE(7452, 366) SOURCE(7601, 44) { word c_v45616; word opcode_v45644; word assert_v45672; c_v45616 = c_v6744; opcode_v45644 = BCK(opCode_v6772, 256); assert_v45672 = blockBytes_v6800; SOURCE(6854, 50) if ((opcode_v45644 == 0)) { SOURCE(6889, 15) (void) BadImplError_P360(c_v45616); }; SOURCE(6906, 78) if ((((* (( (ptr) c_v45616)+4) ) + (* (( (ptr) c_v45616)+10) )) != (* (( (ptr) c_v45616)+9) ))) { SOURCE(6969, 15) (void) BadImplError_P360(c_v45616); }; SOURCE(6986, 38) { word pd56; if ((((* (( (ptr) c_v45616)+6) ) - (* (( (ptr) c_v45616)+4) )) < assert_v45672)) { pd56 = (* (( (ptr) (* (( (ptr) gf_c53648)+139)/* var_c50416 */ ))+8) ); (void) ( *( (fPt) ((* (ptr) pd56 ))))(c_v45616, assert_v45672, pd56); }; }; SOURCE(7026, 53) { word var_c51216; word n_v48496; n_v48496 = ((* (( (ptr) c_v45616)+13) ) + 1); var_c51216 = ( (((unsigned)n_v48496 << 16) >> 16) ); (* (( (ptr) c_v45616)+13) ) = var_c51216; }; SOURCE(7081, 360) if ((0 != (* (( (ptr) gf_c53648)+4)/* checkSpreitzer_v3028 */ ))) { { word cPriv_v45720; cPriv_v45720 = (* (( (ptr) c_v45616)+24) ); SOURCE(7168, 273) { word var_c51248; var_c51248 = (* (( (ptr) cPriv_v45720)+79) ); if ((var_c51248 == 0)) { goto lab_L100020; }; if (((* (( (ptr) gf_c53648)+12) ) == XR_GetReferentType(var_c51248))) { { word rd_v45764; rd_v45764 = var_c51248; SOURCE(7219, 47) (* (( (ptr) ( NCK((* (bPt) rd_v45764 )), rd_v45764 ))+((* (( (ptr) c_v45616)+13) ) % 4000)) ) = opcode_v45644; }; } else { lab_L100020: ; { word rd_v45808; rd_v45808 = XR_NewObject(16000, (* (( (ptr) gf_c53648)+12) )); SOURCE(7321, 16) (* (( (ptr) cPriv_v45720)+79) ) = rd_v45808; SOURCE(7339, 47) (* (( (ptr) ( NCK((* (bPt) rd_v45808 )), rd_v45808 ))+((* (( (ptr) c_v45616)+13) ) % 4000)) ) = opcode_v45644; SOURCE(7389, 31) (* (( (ptr) gf_c53648)+6)/* prevDebugArray_v3644 */ ) = (* (( (ptr) gf_c53648)+7)/* lastDebugArray_v3672 */ ); SOURCE(7422, 19) (* (( (ptr) gf_c53648)+7)/* lastDebugArray_v3672 */ ) = rd_v45808; }; }; }; }; }; }; SOURCE(7647, 17) start_v11372 = (* (( (ptr) c_v6744)+4) ); SOURCE(7666, 28) (* (( (ptr) c_v6744)+4) ) = (start_v11372 + blockBytes_v6800); SOURCE(7696, 48) (* (( (ptr) c_v6744)+9) ) = ((start_v11372 + blockBytes_v6800) + additionalBytes_v6828); SOURCE(7746, 16) (* (( (ptr) c_v6744)+10) ) = 0; SOURCE(7772, 46) SOURCE(7773, 45) p_v6872 = ((* (( (ptr) c_v6744)+7) ) + start_v11372); SOURCE(7452, 366) return(p_v6872); } static word BContinueWithBlock_P1260(c_v6944, blockBytes_v6972) word c_v6944; word blockBytes_v6972; { word p_v7016; word start_v11416; /* BContinueWithBlock: */ SOURCE(7825, 260) SOURCE(7921, 23) start_v11416 = (* (( (ptr) c_v6944)+4) ); SOURCE(7946, 53) if ((((* (( (ptr) c_v6944)+6) ) - start_v11416) < blockBytes_v6972)) { SOURCE(7984, 15) (void) BadImplError_P360(c_v6944); }; SOURCE(8001, 28) (* (( (ptr) c_v6944)+4) ) = (start_v11416 + blockBytes_v6972); SOURCE(8039, 46) SOURCE(8040, 45) p_v7016 = ((* (( (ptr) c_v6944)+7) ) + start_v11416); SOURCE(7825, 260) return(p_v7016); } static void BPutBool_P1320(c_v7088, b_v7116) word c_v7088; word b_v7116; { /* BPutBool: */ SOURCE(8092, 73) SOURCE(8143, 22) { word c_v48372; word b_v48400; c_v48372 = c_v7088; b_v48400 = b_v7116; { word n_v34404; n_v34404 = (* (( (ptr) c_v48372)+4) ); (* (( (bPt) (* (( (ptr) c_v48372)+7) ))+n_v34404) ) = b_v48400; (* (( (ptr) c_v48372)+4) ) = (n_v34404 + 1); }; }; } static void BPutINT16_P1380(c_v7176, i_v7204) word c_v7176; word i_v7204; { /* BPutINT16: */ SOURCE(8168, 77) SOURCE(8221, 24) { word c_v48068; word b_v48096; c_v48068 = c_v7176; b_v48096 = i_v7204; { word n_v34940; word p_v34972; n_v34940 = (* (( (ptr) c_v48068)+4) ); p_v34972 = (* (( (ptr) c_v48068)+7) ); (* (( (hPt) p_v34972)+((word) n_v34940 >> 1)) ) = b_v48096; (* (( (ptr) c_v48068)+4) ) = (n_v34940 + 2); }; }; } static void BPutINT32as16_P1500(c_v7368, i_v7396) word c_v7368; word i_v7396; { /* BPutINT32as16: */ SOURCE(8337, 77) SOURCE(8394, 20) { word c_v47936; word b_v47964; c_v47936 = c_v7368; b_v47964 = ( (((unsigned)i_v7396 << 16) >> 16) ); { word n_v47996; word p_v48024; n_v47996 = (* (( (ptr) c_v47936)+4) ); p_v48024 = (* (( (ptr) c_v47936)+7) ); (* (( (hPt) p_v48024)+((word) n_v47996 >> 1)) ) = b_v47964; (* (( (ptr) c_v47936)+4) ) = (n_v47996 + 2); }; }; } static void BPutPixmap_P1560(c_v7456, p_v7484) word c_v7456; word p_v7484; { /* BPutPixmap: */ SOURCE(8419, 71) SOURCE(8474, 16) { word c_v47860; word b_v47888; c_v47860 = c_v7456; b_v47888 = p_v7484; { word p_v35292; word n_v35324; p_v35292 = (* (( (ptr) c_v47860)+7) ); n_v35324 = (* (( (ptr) c_v47860)+4) ); (* (( (ptr) p_v35292)+((word) n_v35324 >> 2)) ) = b_v47888; (* (( (ptr) c_v47860)+4) ) = (n_v35324 + 4); }; }; } static void BPutColorMap_P1620(c_v7544, m_v7572) word c_v7544; word m_v7572; { /* BPutColorMap: */ SOURCE(8495, 83) SOURCE(8554, 24) { word c_v47728; word b_v47756; c_v47728 = c_v7544; b_v47756 = m_v7572; { word p_v47788; word n_v47816; p_v47788 = (* (( (ptr) c_v47728)+7) ); n_v47816 = (* (( (ptr) c_v47728)+4) ); (* (( (ptr) p_v47788)+((word) n_v47816 >> 2)) ) = b_v47756; (* (( (ptr) c_v47728)+4) ) = (n_v47816 + 4); }; }; } static void BPutTime_P1680(c_v7632, t_v7660) word c_v7632; word t_v7660; { /* BPutTime: */ SOURCE(8583, 71) SOURCE(8639, 15) { word c_v47596; word b_v47624; c_v47596 = c_v7632; b_v47624 = t_v7660; { word p_v47656; word n_v47684; p_v47656 = (* (( (ptr) c_v47596)+7) ); n_v47684 = (* (( (ptr) c_v47596)+4) ); (* (( (ptr) p_v47656)+((word) n_v47684 >> 2)) ) = b_v47624; (* (( (ptr) c_v47596)+4) ) = (n_v47684 + 4); }; }; } static void BPutVisual_P1740(c_v7720, v_v7748) word c_v7720; word v_v7748; { /* BPutVisual: */ SOURCE(8659, 77) SOURCE(8714, 22) { word c_v47464; word b_v47492; c_v47464 = c_v7720; b_v47492 = v_v7748; { word p_v47524; word n_v47552; p_v47524 = (* (( (ptr) c_v47464)+7) ); n_v47552 = (* (( (ptr) c_v47464)+4) ); (* (( (ptr) p_v47524)+((word) n_v47552 >> 2)) ) = b_v47492; (* (( (ptr) c_v47464)+4) ) = (n_v47552 + 4); }; }; } static void BPutCursor_P1800(c_v7808, cursor_v7836) word c_v7808; word cursor_v7836; { /* BPutCursor: */ SOURCE(8741, 81) SOURCE(8801, 21) { word c_v47332; word b_v47360; c_v47332 = c_v7808; b_v47360 = cursor_v7836; { word p_v47392; word n_v47420; p_v47392 = (* (( (ptr) c_v47332)+7) ); n_v47420 = (* (( (ptr) c_v47332)+4) ); (* (( (ptr) p_v47392)+((word) n_v47420 >> 2)) ) = b_v47360; (* (( (ptr) c_v47332)+4) ) = (n_v47420 + 4); }; }; } static void BPut0s_P1860(c_v7896, cnt_v7924) word c_v7896; word cnt_v7924; { /* BPut0s: */ SOURCE(8827, 96) SOURCE(8877, 46) { register word i_v11460 = 0; register word noName_c51312; noName_c51312 = cnt_v7924; if (( (int)i_v11460 >= (int)noName_c51312)) { goto lab_L100021; }; lab_L100024: ; SOURCE(8903, 20) { word c_v48296; c_v48296 = c_v7896; { word n_v48328; n_v48328 = (* (( (ptr) c_v48296)+4) ); (* (( (bPt) (* (( (ptr) c_v48296)+7) ))+n_v48328) ) = 0; (* (( (ptr) c_v48296)+4) ) = (n_v48328 + 1); }; }; i_v11460 = (i_v11460 + 1); if (( (int)i_v11460 < (int)noName_c51312)) { goto lab_L100024; }; lab_L100021: ; }; } static void BPutRope_P1920(c_v7984, rope_v8012, start_v8040, len_v8068) word c_v7984; word rope_v8012; word start_v8040; word len_v8068; { W7 var_c53680; register ptr gf_c53712 = (ptr) &globalframe; /* declaration of var_c51344 skipped */ /* declaration of connection_v11504 skipped */ word size_v11532; /* BPutRope: */ SOURCE(8929, 349) { word tmpAddr57; tmpAddr57 = (word) (( (ptr) &var_c53680)+4)/* var_c51344 */ ; (* (ptr) tmpAddr57 ) = ( ((word) (fPt) action_P3816) ); (* (( (ptr) tmpAddr57) + 1) ) = 1; }; SOURCE(9021, 26) var_c53680.f6/* connection_v11504 */ = c_v7984; SOURCE(9049, 29) { word pd58; pd58 = (* (( (ptr) (* (( (ptr) gf_c53712)+143)/* var_c51376 */ ))+14) ); size_v11532 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(rope_v8012, pd58); }; SOURCE(9080, 198) if ( ( ( (int)start_v8040 < (int)size_v11532) ? ( (int)len_v8068 > (int)0) : 0 ) ) { SOURCE(9109, 172) SOURCE(9197, 17) size_v11532 = (size_v11532 - start_v8040); SOURCE(9216, 20) len_v8068 = (MIN((int)(word), size_v11532, len_v8068)); SOURCE(9239, 39) { word var_c51408; word pd59; pd59 = (* (( (ptr) (* (( (ptr) gf_c53712)+143)/* var_c51376 */ ))+26) ); var_c51408 = (word) ( *( (fPt) ((* (ptr) pd59 ))))(rope_v8012, start_v8040, len_v8068, (word) (( (bPt) &var_c53680)+16)/* var_c51344 */ , pd59) ; }; }; } static word action_P3816(c_v11652, formal_c53744) word c_v11652; word formal_c53744; { word quit_v11696; formal_c53744 = (formal_c53744 - 16); /* action: */ SOURCE(9111, 14) SOURCE(9111, 14) quit_v11696 = 0; SOURCE(9167, 27) { word b_v48220; b_v48220 = c_v11652; { word n_v48252; n_v48252 = (* (( (ptr) (* (( (ptr) formal_c53744)+6) ))+4) ); (* (( (bPt) (* (( (ptr) (* (( (ptr) formal_c53744)+6) ))+7) ))+n_v48252) ) = b_v48220; (* (( (ptr) (* (( (ptr) formal_c53744)+6) ))+4) ) = (n_v48252 + 1); }; }; SOURCE(9111, 14) return(quit_v11696); } static void BPutPaddedRope_P1980(c_v8128, rope_v8156, start_v8184, len_v8212) word c_v8128; word rope_v8156; word start_v8184; word len_v8212; { W7 var_c53776; register ptr gf_c53808 = (ptr) &globalframe; /* declaration of var_c51440 skipped */ /* declaration of connection_v11724 skipped */ word size_v11752; /* BPutPaddedRope: */ SOURCE(9288, 379) { word tmpAddr60; tmpAddr60 = (word) (( (ptr) &var_c53776)+4)/* var_c51440 */ ; (* (ptr) tmpAddr60 ) = ( ((word) (fPt) action_P3924) ); (* (( (ptr) tmpAddr60) + 1) ) = 1; }; SOURCE(9370, 26) var_c53776.f6/* connection_v11724 */ = c_v8128; SOURCE(9398, 29) { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c53808)+143)/* var_c51376 */ ))+14) ); size_v11752 = (word) ( *( (fPt) ((* (ptr) pd61 ))))(rope_v8156, pd61); }; SOURCE(9429, 238) if ( ( ( (int)start_v8184 < (int)size_v11752) ? ( (int)len_v8212 > (int)0) : 0 ) ) { SOURCE(9458, 211) SOURCE(9546, 17) size_v11752 = (size_v11752 - start_v8184); SOURCE(9565, 20) len_v8212 = (MIN((int)(word), size_v11752, len_v8212)); SOURCE(9588, 39) { word var_c51472; word pd62; pd62 = (* (( (ptr) (* (( (ptr) gf_c53808)+143)/* var_c51376 */ ))+26) ); var_c51472 = (word) ( *( (fPt) ((* (ptr) pd62 ))))(rope_v8156, start_v8184, len_v8212, (word) (( (bPt) &var_c53776)+16)/* var_c51440 */ , pd62) ; }; SOURCE(9630, 37) { word var_c51504; var_c51504 = (word) PaddingBytes_P600(len_v8212); (void) BPut0s_P1860(var_c53776.f6/* connection_v11724 */ , var_c51504); }; }; } static word action_P3924(c_v11872, formal_c53840) word c_v11872; word formal_c53840; { word quit_v11916; formal_c53840 = (formal_c53840 - 16); /* action: */ SOURCE(9460, 14) SOURCE(9460, 14) quit_v11916 = 0; SOURCE(9516, 27) { word b_v48144; b_v48144 = c_v11872; { word n_v48176; n_v48176 = (* (( (ptr) (* (( (ptr) formal_c53840)+6) ))+4) ); (* (( (bPt) (* (( (ptr) (* (( (ptr) formal_c53840)+6) ))+7) ))+n_v48176) ) = b_v48144; (* (( (ptr) (* (( (ptr) formal_c53840)+6) ))+4) ) = (n_v48176 + 1); }; }; SOURCE(9460, 14) return(quit_v11916); } static void DPutCARD16_P2040(c_v8272, val_v8300) word c_v8272; word val_v8300; { /* DPutCARD16: */ SOURCE(9676, 101) SOURCE(9742, 35) { word c_v47224; word val_v47252; c_v47224 = c_v8272; val_v47252 = val_v8300; { word self_v36872; word char_v36904; self_v36872 = (* (( (ptr) c_v47224)+31) ); char_v36904 = (unsigned) (((unsigned)val_v47252 << 16) >> 24); { word i_v37272; i_v37272 = (* (( (ptr) self_v36872)+7) ); { word pd64; if ((i_v37272 < (* (( (ptr) self_v36872)+6) ))) { (* (( (ptr) self_v36872)+7) ) = (i_v37272 + 1); { word var_c51536; var_c51536 = (* (( (ptr) self_v36872)+4) ); { word limit63; (* ((( (bPt) var_c51536)+4)+( /*1*/ limit63 = (word) (unsigned) (* (( (hPt) var_c51536)+1) ), /*1*/ BCK(i_v37272, limit63) /*1*/ )) ) = char_v36904; }; }; } else { pd64 = (* (( (ptr) (* (ptr) self_v36872 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd64 ))))(self_v36872, char_v36904, pd64); }; }; }; }; { word self_v37304; word char_v37336; self_v37304 = (* (( (ptr) c_v47224)+31) ); char_v37336 = (unsigned) (val_v47252 & 0377); { word i_v37656; i_v37656 = (* (( (ptr) self_v37304)+7) ); { word pd66; if ((i_v37656 < (* (( (ptr) self_v37304)+6) ))) { (* (( (ptr) self_v37304)+7) ) = (i_v37656 + 1); { word var_c51568; var_c51568 = (* (( (ptr) self_v37304)+4) ); { word limit65; (* ((( (bPt) var_c51568)+4)+( /*1*/ limit65 = (word) (unsigned) (* (( (hPt) var_c51568)+1) ), /*1*/ BCK(i_v37656, limit65) /*1*/ )) ) = char_v37336; }; }; } else { pd66 = (* (( (ptr) (* (ptr) self_v37304 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd66 ))))(self_v37304, char_v37336, pd66); }; }; }; }; (* (( (ptr) c_v47224)+10) ) = ((* (( (ptr) c_v47224)+10) ) + 2); }; } static void DPutCARD32_P2100(c_v8360, val_v8388) word c_v8360; word val_v8388; { /* DPutCARD32: */ SOURCE(9783, 101) SOURCE(9849, 35) { word c_v47008; word val_v47036; c_v47008 = c_v8360; val_v47036 = val_v8388; { word l_v37904; l_v37904 = val_v47036; { word self_v38136; word char_v38168; self_v38136 = (* (( (ptr) c_v47008)+31) ); char_v38168 = (unsigned) ((unsigned)l_v37904 >> 24); { word i_v38248; i_v38248 = (* (( (ptr) self_v38136)+7) ); { word pd68; if ((i_v38248 < (* (( (ptr) self_v38136)+6) ))) { (* (( (ptr) self_v38136)+7) ) = (i_v38248 + 1); { word var_c51600; var_c51600 = (* (( (ptr) self_v38136)+4) ); { word limit67; (* ((( (bPt) var_c51600)+4)+( /*1*/ limit67 = (word) (unsigned) (* (( (hPt) var_c51600)+1) ), /*1*/ BCK(i_v38248, limit67) /*1*/ )) ) = char_v38168; }; }; } else { pd68 = (* (( (ptr) (* (ptr) self_v38136 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd68 ))))(self_v38136, char_v38168, pd68); }; }; }; }; { word self_v38280; word char_v38312; self_v38280 = (* (( (ptr) c_v47008)+31) ); char_v38312 = (unsigned) (((unsigned)l_v37904 << 8) >> 24); { word i_v38392; i_v38392 = (* (( (ptr) self_v38280)+7) ); { word pd70; if ((i_v38392 < (* (( (ptr) self_v38280)+6) ))) { (* (( (ptr) self_v38280)+7) ) = (i_v38392 + 1); { word var_c51632; var_c51632 = (* (( (ptr) self_v38280)+4) ); { word limit69; (* ((( (bPt) var_c51632)+4)+( /*1*/ limit69 = (word) (unsigned) (* (( (hPt) var_c51632)+1) ), /*1*/ BCK(i_v38392, limit69) /*1*/ )) ) = char_v38312; }; }; } else { pd70 = (* (( (ptr) (* (ptr) self_v38280 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd70 ))))(self_v38280, char_v38312, pd70); }; }; }; }; { word self_v38424; word char_v38456; self_v38424 = (* (( (ptr) c_v47008)+31) ); char_v38456 = (unsigned) (((unsigned)l_v37904 << 16) >> 24); { word i_v38536; i_v38536 = (* (( (ptr) self_v38424)+7) ); { word pd72; if ((i_v38536 < (* (( (ptr) self_v38424)+6) ))) { (* (( (ptr) self_v38424)+7) ) = (i_v38536 + 1); { word var_c51664; var_c51664 = (* (( (ptr) self_v38424)+4) ); { word limit71; (* ((( (bPt) var_c51664)+4)+( /*1*/ limit71 = (word) (unsigned) (* (( (hPt) var_c51664)+1) ), /*1*/ BCK(i_v38536, limit71) /*1*/ )) ) = char_v38456; }; }; } else { pd72 = (* (( (ptr) (* (ptr) self_v38424 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd72 ))))(self_v38424, char_v38456, pd72); }; }; }; }; { word self_v38568; word char_v38600; self_v38568 = (* (( (ptr) c_v47008)+31) ); char_v38600 = (unsigned) (l_v37904 & 0377); { word i_v38680; i_v38680 = (* (( (ptr) self_v38568)+7) ); { word pd74; if ((i_v38680 < (* (( (ptr) self_v38568)+6) ))) { (* (( (ptr) self_v38568)+7) ) = (i_v38680 + 1); { word var_c51696; var_c51696 = (* (( (ptr) self_v38568)+4) ); { word limit73; (* ((( (bPt) var_c51696)+4)+( /*1*/ limit73 = (word) (unsigned) (* (( (hPt) var_c51696)+1) ), /*1*/ BCK(i_v38680, limit73) /*1*/ )) ) = char_v38600; }; }; } else { pd74 = (* (( (ptr) (* (ptr) self_v38568 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd74 ))))(self_v38568, char_v38600, pd74); }; }; }; }; (* (( (ptr) c_v47008)+10) ) = ((* (( (ptr) c_v47008)+10) ) + 4); }; }; } static void DPutWindow_P2160(c_v8448, w_v8476) word c_v8448; word w_v8476; { /* DPutWindow: */ SOURCE(9890, 107) SOURCE(9954, 43) { word c_v46504; word val_v46532; c_v46504 = c_v8448; val_v46532 = w_v8476; { word l_v46564; l_v46564 = val_v46532; { word self_v46608; word char_v46636; self_v46608 = (* (( (ptr) c_v46504)+31) ); char_v46636 = (unsigned) ((unsigned)l_v46564 >> 24); { word i_v46664; i_v46664 = (* (( (ptr) self_v46608)+7) ); { word pd76; if ((i_v46664 < (* (( (ptr) self_v46608)+6) ))) { (* (( (ptr) self_v46608)+7) ) = (i_v46664 + 1); { word var_c51728; var_c51728 = (* (( (ptr) self_v46608)+4) ); { word limit75; (* ((( (bPt) var_c51728)+4)+( /*1*/ limit75 = (word) (unsigned) (* (( (hPt) var_c51728)+1) ), /*1*/ BCK(i_v46664, limit75) /*1*/ )) ) = char_v46636; }; }; } else { pd76 = (* (( (ptr) (* (ptr) self_v46608 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd76 ))))(self_v46608, char_v46636, pd76); }; }; }; }; { word self_v46708; word char_v46736; self_v46708 = (* (( (ptr) c_v46504)+31) ); char_v46736 = (unsigned) (((unsigned)l_v46564 << 8) >> 24); { word i_v46764; i_v46764 = (* (( (ptr) self_v46708)+7) ); { word pd78; if ((i_v46764 < (* (( (ptr) self_v46708)+6) ))) { (* (( (ptr) self_v46708)+7) ) = (i_v46764 + 1); { word var_c51760; var_c51760 = (* (( (ptr) self_v46708)+4) ); { word limit77; (* ((( (bPt) var_c51760)+4)+( /*1*/ limit77 = (word) (unsigned) (* (( (hPt) var_c51760)+1) ), /*1*/ BCK(i_v46764, limit77) /*1*/ )) ) = char_v46736; }; }; } else { pd78 = (* (( (ptr) (* (ptr) self_v46708 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd78 ))))(self_v46708, char_v46736, pd78); }; }; }; }; { word self_v46808; word char_v46836; self_v46808 = (* (( (ptr) c_v46504)+31) ); char_v46836 = (unsigned) (((unsigned)l_v46564 << 16) >> 24); { word i_v46864; i_v46864 = (* (( (ptr) self_v46808)+7) ); { word pd80; if ((i_v46864 < (* (( (ptr) self_v46808)+6) ))) { (* (( (ptr) self_v46808)+7) ) = (i_v46864 + 1); { word var_c51792; var_c51792 = (* (( (ptr) self_v46808)+4) ); { word limit79; (* ((( (bPt) var_c51792)+4)+( /*1*/ limit79 = (word) (unsigned) (* (( (hPt) var_c51792)+1) ), /*1*/ BCK(i_v46864, limit79) /*1*/ )) ) = char_v46836; }; }; } else { pd80 = (* (( (ptr) (* (ptr) self_v46808 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd80 ))))(self_v46808, char_v46836, pd80); }; }; }; }; { word self_v46908; word char_v46936; self_v46908 = (* (( (ptr) c_v46504)+31) ); char_v46936 = (unsigned) (l_v46564 & 0377); { word i_v46964; i_v46964 = (* (( (ptr) self_v46908)+7) ); { word pd82; if ((i_v46964 < (* (( (ptr) self_v46908)+6) ))) { (* (( (ptr) self_v46908)+7) ) = (i_v46964 + 1); { word var_c51824; var_c51824 = (* (( (ptr) self_v46908)+4) ); { word limit81; (* ((( (bPt) var_c51824)+4)+( /*1*/ limit81 = (word) (unsigned) (* (( (hPt) var_c51824)+1) ), /*1*/ BCK(i_v46964, limit81) /*1*/ )) ) = char_v46936; }; }; } else { pd82 = (* (( (ptr) (* (ptr) self_v46908 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd82 ))))(self_v46908, char_v46936, pd82); }; }; }; }; (* (( (ptr) c_v46504)+10) ) = ((* (( (ptr) c_v46504)+10) ) + 4); }; }; } static void DPutPad_P2220(c_v8536, len_v8564) word c_v8536; word len_v8564; { /* DPutPad: */ SOURCE(10003, 173) SOURCE(10063, 113) { register word i_v11944 = 0; register word noName_c51856; noName_c51856 = (word) PaddingBytes_P600(len_v8564); if (( (int)i_v11944 >= (int)noName_c51856)) { goto lab_L100025; }; lab_L100028: ; SOURCE(10103, 32) { word self_v47148; self_v47148 = (* (( (ptr) c_v8536)+31) ); { word i_v36428; i_v36428 = (* (( (ptr) self_v47148)+7) ); { word pd84; if ((i_v36428 < (* (( (ptr) self_v47148)+6) ))) { (* (( (ptr) self_v47148)+7) ) = (i_v36428 + 1); { word var_c51888; var_c51888 = (* (( (ptr) self_v47148)+4) ); { word limit83; (* ((( (bPt) var_c51888)+4)+( /*1*/ limit83 = (word) (unsigned) (* (( (hPt) var_c51888)+1) ), /*1*/ BCK(i_v36428, limit83) /*1*/ )) ) = 0; }; }; } else { pd84 = (* (( (ptr) (* (ptr) self_v47148 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd84 ))))(self_v47148, 0, pd84); }; }; }; }; SOURCE(10139, 37) (* (( (ptr) c_v8536)+10) ) = ((* (( (ptr) c_v8536)+10) ) + 1); i_v11944 = (i_v11944 + 1); if (( (int)i_v11944 < (int)noName_c51856)) { goto lab_L100028; }; lab_L100025: ; }; } static void DPutPaddedRope_P2280(c_v8624, rope_v8652, start_v8680, len_v8708) word c_v8624; word rope_v8652; word start_v8680; word len_v8708; { register ptr gf_c53872 = (ptr) &globalframe; word size_v11988; /* DPutPaddedRope: */ SOURCE(10182, 277) SOURCE(10268, 29) { word pd85; pd85 = (* (( (ptr) (* (( (ptr) gf_c53872)+143)/* var_c51376 */ ))+14) ); size_v11988 = (word) ( *( (fPt) ((* (ptr) pd85 ))))(rope_v8652, pd85); }; SOURCE(10299, 160) if ( ( ( (int)start_v8680 < (int)size_v11988) ? ( (int)len_v8708 > (int)0) : 0 ) ) { SOURCE(10330, 17) size_v11988 = (size_v11988 - start_v8680); SOURCE(10349, 20) len_v8708 = (MIN((int)(word), size_v11988, len_v8708)); SOURCE(10372, 36) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c53872)+140)/* var_c50480 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd86 ))))((* (( (ptr) c_v8624)+31) ), rope_v8652, start_v8680, len_v8708, pd86); }; SOURCE(10411, 31) (* (( (ptr) c_v8624)+10) ) = ((* (( (ptr) c_v8624)+10) ) + len_v8708); SOURCE(10444, 15) (void) DPutPad_P2220(c_v8624, len_v8708); }; } static word GetExtensionCard16_P2340(ev_v8768, index_v8796) word ev_v8768; word index_v8796; { word var_c8840; /* GetExtensionCard16: */ SOURCE(10468, 143) SOURCE(10554, 57) return((((word) (unsigned) (word) (* ((( (bPt) ev_v8768)+32)+BCK(index_v8796, 32)) ) << 8) + (unsigned) (word) (* ((( (bPt) ev_v8768)+32) +BCK((index_v8796 + 1), 32)) ))); } static word GetExtensionCard32_P2400(ev_v8900, index_v8928) word ev_v8900; word index_v8928; { word var_c8972; /* GetExtensionCard32: */ SOURCE(10615, 143) SOURCE(10701, 57) { word var_c51952; word ln_v39804; ln_v39804 = (((word) (((word) (((word) (unsigned) (word) (* ((( (bPt) ev_v8900)+32)+BCK(index_v8928, 32)) ) << 8) + (unsigned) (word) (* ( (( (bPt) ev_v8900)+32)+BCK((index_v8928 + 1), 32)) )) << 8) + (unsigned) (word) (* ((( (bPt) ev_v8900)+32)+BCK((index_v8928 + 2), 32)) )) << 8) + (unsigned) (word) (* ((( (bPt) ev_v8900)+32)+BCK((index_v8928 + 3), 32)) )); var_c51952 = ln_v39804; return(var_c51952); }; } static word GetTextCARD16_P2460(text_v9032, startPos_v9060) word text_v9032; word startPos_v9060; { word var_c9116; /* GetTextCARD16: */ SOURCE(10762, 136) SOURCE(10842, 56) { word var_c52048; word text_v46440; text_v46440 = text_v9032; { word byte0_v40144; word var_c52080; word byte1_v40228; { word limit87; byte0_v40144 = (unsigned) (word) (* ((( (bPt) text_v46440)+4)+( limit87 = (word) (unsigned) (* (( (hPt) text_v46440)+1) ), BCK(startPos_v9060, limit87) )) ); }; { word limit88; var_c52080 = (startPos_v9060 + 1); byte1_v40228 = (unsigned) (word) (* ((( (bPt) text_v46440)+4)+( limit88 = (word) (unsigned) (* (( (hPt) text_v46440)+1) ), BCK(var_c52080, limit88) )) ); }; var_c52048 = (((word) byte0_v40144 << 8) + byte1_v40228); }; return(var_c52048); }; } static word GetTextCARD32_P2520(text_v9176, startPos_v9204) word text_v9176; word startPos_v9204; { word var_c9260; /* GetTextCARD32: */ SOURCE(10904, 136) SOURCE(10984, 56) { word var_c52144; word text_v46392; text_v46392 = text_v9176; { word var_c52208; word var_c52240; word var_c52272; word ln_v40576; { word limit89; word limit90; word limit91; word limit92; var_c52208 = (startPos_v9204 + 1); var_c52240 = (startPos_v9204 + 2); var_c52272 = (startPos_v9204 + 3); ln_v40576 = (((word) (((word) (((word) (unsigned) (word) (* ((( (bPt) text_v46392)+4)+( limit89 = (word) (unsigned) (* (( (hPt) text_v46392)+1) ), BCK(startPos_v9204, limit89) )) ) << 8) + (unsigned) (word) (* ((( (bPt) text_v46392)+4)+( limit90 = (word) (unsigned) (* (( (hPt) text_v46392)+1) ), BCK(var_c52208, limit90) )) )) << 8) + (unsigned) (word) (* ((( (bPt) text_v46392)+4)+( limit91 = (word) (unsigned) (* (( (hPt) text_v46392)+1) ), BCK(var_c52240, limit91) )) )) << 8) + (unsigned) (word) (* ((( (bPt) text_v46392)+4)+( limit92 = (word) (unsigned) (* (( (hPt) text_v46392)+1) ), BCK(var_c52272, limit92) )) )); }; var_c52144 = ln_v40576; }; return(var_c52144); }; } static word ERead8_P2580(r_v9320) word r_v9320; { word var_c9364; /* ERead8: */ SOURCE(11046, 144) SOURCE(11104, 35) if (( (int)(* (( (ptr) r_v9320)+10) ) < (int)32)) { SOURCE(11122, 17) { word var_c52336; word b_v46344; b_v46344 = (unsigned) (word) (* (( (bPt) r_v9320)+(* (( (ptr) r_v9320)+10) )) ); (* (( (ptr) r_v9320)+10) ) = ((* (( (ptr) r_v9320)+10) ) + 1); var_c52336 = b_v46344; return(var_c52336); }; }; SOURCE(11141, 17) (* (( (ptr) r_v9320)+10) ) = ((* (( (ptr) r_v9320)+10) ) + 1); SOURCE(11160, 30) return( (unsigned) (word) (* (( (bPt) (* (( (ptr) r_v9320)+8) ))+((* (( (ptr) r_v9320)+10) ) - 33)) )); } static word ERead16_P2640(r_v9424) word r_v9424; { word var_c9468; /* ERead16: */ SOURCE(11194, 214) SOURCE(11255, 36) if (( (int)(* (( (ptr) r_v9424)+10) ) < (int)31)) { SOURCE(11273, 18) { word var_c52400; word c_v46296; c_v46296 = (((word) (unsigned) (word) (* (( (bPt) r_v9424)+(* (( (ptr) r_v9424)+10) )) ) << 8) + (unsigned) (word) (* ( ( (bPt) r_v9424)+((* (( (ptr) r_v9424)+10) ) + 1)) )); (* (( (ptr) r_v9424)+10) ) = ((* (( (ptr) r_v9424)+10) ) + 2); var_c52400 = c_v46296; return(var_c52400); }; }; SOURCE(11293, 18) if (( (int)(* (( (ptr) r_v9424)+10) ) < (int)32)) { SOURCE(11311, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(11318, 17) (* (( (ptr) r_v9424)+10) ) = ((* (( (ptr) r_v9424)+10) ) + 2); SOURCE(11337, 71) { word var_c52464; word b_v46220; word startPos_v46248; b_v46220 = (* (( (ptr) r_v9424)+8) ); startPos_v46248 = ((* (( (ptr) r_v9424)+10) ) - 34); { word byte0_v41876; word byte1_v41960; byte0_v41876 = (unsigned) (word) (* (( (bPt) b_v46220)+startPos_v46248) ); byte1_v41960 = (unsigned) (word) (* (( (bPt) b_v46220)+(startPos_v46248 + 1)) ); var_c52464 = (((word) byte0_v41876 << 8) + byte1_v41960); }; return(var_c52464); }; } static word ERead32_P2700(r_v9528) word r_v9528; { word var_c9572; /* ERead32: */ SOURCE(11414, 214) SOURCE(11475, 36) if (( (int)(* (( (ptr) r_v9528)+10) ) < (int)29)) { SOURCE(11493, 18) { word var_c52528; word four_v42232; four_v42232 = (((word) (((word) (((word) (unsigned) (word) (* (( (bPt) r_v9528)+(* (( (ptr) r_v9528)+10) )) ) << 8) + (unsigned) (word) (* ( ( (bPt) r_v9528)+((* (( (ptr) r_v9528)+10) ) + 1)) )) << 8) + (unsigned) (word) (* (( (bPt) r_v9528)+((* (( (ptr) r_v9528)+10) ) + 2)) )) << 8) + (unsigned) (word) (* (( (bPt) r_v9528)+((* (( (ptr) r_v9528)+10) ) + 3)) )); (* (( (ptr) r_v9528)+10) ) = ((* (( (ptr) r_v9528)+10) ) + 4); var_c52528 = four_v42232; return(var_c52528); }; }; SOURCE(11513, 18) if (( (int)(* (( (ptr) r_v9528)+10) ) < (int)32)) { SOURCE(11531, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(11538, 17) (* (( (ptr) r_v9528)+10) ) = ((* (( (ptr) r_v9528)+10) ) + 4); SOURCE(11557, 71) { word var_c52624; word b_v46128; word startPos_v46156; b_v46128 = (* (( (ptr) r_v9528)+8) ); startPos_v46156 = ((* (( (ptr) r_v9528)+10) ) - 36); { word ln_v42716; ln_v42716 = (((word) (((word) (((word) (unsigned) (word) (* (( (bPt) b_v46128)+startPos_v46156) ) << 8) + (unsigned) (word) (* ( ( (bPt) b_v46128)+(startPos_v46156 + 1)) )) << 8) + (unsigned) (word) (* (( (bPt) b_v46128)+(startPos_v46156 + 2)) )) << 8) + (unsigned) (word) (* (( (bPt) b_v46128)+(startPos_v46156 + 3)) )); var_c52624 = ln_v42716; }; return(var_c52624); }; } static word EReadRope_P2760(r_v9632) word r_v9632; { word rope_v9676; /* EReadRope: */ SOURCE(11634, 293) SOURCE(11634, 293) rope_v9676 = 0; SOURCE(11701, 226) if (( (int)(* (( (ptr) r_v9632)+10) ) < (int)32)) { SOURCE(11719, 11) (void) XR_RaiseUnnamedError(); } else { SOURCE(11730, 199) { word n_v12032; word m_v12060; SOURCE(11732, 29) n_v12032 = (unsigned) (word) (* (( (bPt) (* (( (ptr) r_v9632)+8) ))+((* (( (ptr) r_v9632)+10) ) - 32)) ); SOURCE(11763, 10) m_v12060 = SGNCK(n_v12032); SOURCE(11775, 57) lab_L100039: ; { word tc93; if ((m_v12060 > 0)) { tc93 = (word) ( (unsigned) (word) (* (( (bPt) (* (( (ptr) r_v9632)+8) ))+(((* (( (ptr) r_v9632)+10) ) + m_v12060) - 32)) ) == 0); } else { tc93 = (word) 0; }; if (tc93) { } else { goto lab_L100037; }; }; SOURCE(11817, 15) m_v12060 = SGNCK((m_v12060 - 1)); goto lab_L100039; lab_L100037: ; SOURCE(11834, 68) rope_v9676 = (word) RopeFromRaw_P2820((* (( (ptr) r_v9632)+8) ), ((* (( (ptr) r_v9632)+10) ) - 31), m_v12060); SOURCE(11904, 23) (* (( (ptr) r_v9632)+10) ) = (((* (( (ptr) r_v9632)+10) ) + n_v12032) + 1); }; }; SOURCE(11634, 293) return(rope_v9676); } static word RopeFromRaw_P2820(formal_c0494, formal_c0495, len_v9792) word formal_c0494; word formal_c0495; word len_v9792; { W8 var_c53904; /* declaration of p_v9736 skipped */ /* declaration of start_v9764 skipped */ register ptr gf_c53936 = (ptr) &globalframe; word r_v9848; /* declaration of var_c52688 skipped */ var_c53904.f4/* p_v9736 */ = formal_c0494; var_c53904.f5/* start_v9764 */ = formal_c0495; /* RopeFromRaw: */ SOURCE(11936, 238) { word tmpAddr94; tmpAddr94 = (word) (( (ptr) &var_c53904)+6)/* var_c52688 */ ; (* (ptr) tmpAddr94 ) = ( ((word) (fPt) EachChar_P4080) ); (* (( (ptr) tmpAddr94) + 1) ) = 1; }; SOURCE(11936, 238) r_v9848 = 0; SOURCE(12142, 32) { word pd95; pd95 = (* (( (ptr) (* (( (ptr) gf_c53936)+143)/* var_c51376 */ ))+31) ); r_v9848 = (word) ( *( (fPt) ((* (ptr) pd95 ))))(len_v9792, (word) (( (bPt) &var_c53904)+24)/* var_c52688 */ , 2147483647, pd95) ; }; SOURCE(11936, 238) return(r_v9848); } static word EachChar_P4080(formal_c53968) word formal_c53968; { word c_v12180; formal_c53968 = (formal_c53968 - 24); /* EachChar: */ SOURCE(12055, 82) SOURCE(12100, 18) c_v12180 = (unsigned) (word) (* (( (bPt) (* (( (ptr) formal_c53968)+4) ))+(* (( (ptr) formal_c53968)+5) )) ); SOURCE(12120, 17) (* (( (ptr) formal_c53968)+5) ) = ((* (( (ptr) formal_c53968)+5) ) + 1); SOURCE(12055, 82) return(c_v12180); } static void InternalRoundTrip_P2880(c_v9908) word c_v9908; { register ptr gf_c54000 = (ptr) &globalframe; word reply_v12208 = 0; /* InternalRoundTrip: */ SOURCE(12180, 174) SOURCE(12255, 31) (void) StartDirectRequest_P960(c_v9908, 43, 0, 1); SOURCE(12304, 26) { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf_c54000)+139)/* var_c50416 */ ))+62) ); reply_v12208 = (word) ( *( (fPt) ((* (ptr) pd96 ))))(c_v9908, pd96); }; SOURCE(12332, 22) { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c54000)+139)/* var_c50416 */ ))+67) ); (void) ( *( (fPt) ((* (ptr) pd97 ))))(c_v9908, reply_v12208, pd97); }; } static word RopeToString16_P2940(formal_c0496) word formal_c0496; { W9 var_c54032; /* declaration of r_v9968 skipped */ register ptr gf_c54064 = (ptr) &globalframe; word s_v10012; /* declaration of var_c52720 skipped */ /* declaration of pos_v12252 skipped */ /* declaration of firstByte_v12280 skipped */ (* (( (ptr) &var_c54032)+4)/* r_v9968 */ ) = formal_c0496; /* RopeToString16: */ SOURCE(12360, 292) { word tmpAddr98; tmpAddr98 = (word) (( (ptr) &var_c54032)+5)/* var_c52720 */ ; (* (ptr) tmpAddr98 ) = ( ((word) (fPt) P_P4140) ); (* (( (ptr) tmpAddr98) + 1) ) = 1; }; SOURCE(12360, 292) s_v10012 = 0; SOURCE(12424, 13) (* (( (ptr) &var_c54032)+7)/* pos_v12252 */ ) = (word) -1; SOURCE(12439, 22) (* (( (ptr) &var_c54032)+8)/* firstByte_v12280 */ ) = 1; SOURCE(12612, 40) { word var_c52752; { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c54064)+143)/* var_c51376 */ ))+14) ); var_c52752 = IOP2( * , (int)(word) ( *( (fPt) ((* (ptr) pd99 ))))((* ((( (ptr) &var_c54032)+4)/* r_v9968 */ ) ), pd99), (int)2) ; }; { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c54064)+143)/* var_c51376 */ ))+31) ); s_v10012 = (word) ( *( (fPt) ((* (ptr) pd100 ))))(var_c52752, (word) (( (bPt) &var_c54032)+20)/* var_c52720 */ , 2147483647, pd100) ; }; }; SOURCE(12360, 292) return(s_v10012); } static word P_P4140(formal_c54128) word formal_c54128; { register ptr gf_c54096 = (ptr) &globalframe; word var_c12384; formal_c54128 = (formal_c54128 - 20); /* P: */ SOURCE(12463, 143) SOURCE(12490, 116) if ((0 != (* (( (ptr) formal_c54128)+8) ))) { SOURCE(12510, 17) (* (( (ptr) formal_c54128)+8) ) = 0; SOURCE(12529, 11) return(0); } else { SOURCE(12548, 16) (* (( (ptr) formal_c54128)+8) ) = 1; SOURCE(12566, 11) (* (( (ptr) formal_c54128)+7) ) = ((* (( (ptr) formal_c54128)+7) ) + 1); SOURCE(12579, 27) { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c54096)+143)/* var_c51376 */ ))+9) ); return((word) ( *( (fPt) ((* (ptr) pd101 ))))((* (( (ptr) formal_c54128)+4) ), (* (( (ptr) formal_c54128)+7) ), pd101)); }; }; } static void Flush_P3000(c_v10072, delayed_v10100) word c_v10072; word delayed_v10100; { W6 var_c54160; register ptr gf_c54192 = (ptr) &globalframe; /* declaration of var_c52816 skipped */ /* Flush: */ SOURCE(12659, 347) { word tmpAddr102; tmpAddr102 = (word) (( (ptr) &var_c54160)+4)/* var_c52816 */ ; (* (ptr) tmpAddr102 ) = ( ((word) (fPt) action_P4200) ); (* (( (ptr) tmpAddr102) + 1) ) = 1; }; SOURCE(12894, 112) if ( ( (c_v10072 != 0) ? (0 != (* (( (ptr) c_v10072)+15) )) : 0 ) ) { SOURCE(12916, 90) if ((0 != delayed_v10100)) { SOURCE(12933, 27) (* (( (ptr) c_v10072)+35) ) = 1; } else { SOURCE(12960, 46) (void) DoWithLocks_P840(c_v10072, (word) (( (bPt) &var_c54160)+16)/* var_c52816 */ , (* (ptr) (* (( (ptr) (* (( (ptr) gf_c54192)+144) /* var_c52848 */ ))+5) ) )); }; }; } static void action_P4200(c_v12488, formal_c54256) word c_v12488; word formal_c54256; { register ptr gf_c54224 = (ptr) &globalframe; formal_c54256 = (formal_c54256 - 16); /* action: */ SOURCE(12721, 164) SOURCE(12763, 122) if (((* (( (ptr) c_v12488)+5) ) != 0)) { SOURCE(12787, 26) (void) RealFlushBuffer_P180(c_v12488, 0); } else { SOURCE(12820, 65) if ((0 != (* (( (ptr) c_v12488)+35) ))) { SOURCE(12845, 22) (* (( (ptr) c_v12488)+35) ) = 0; SOURCE(12869, 16) { word pd103; pd103 = (* (( (ptr) (* (( (ptr) gf_c54224)+140)/* var_c50480 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd103 ))))((* ((( (ptr) c_v12488)+31)) ), pd103); }; }; }; } static void RoundTrip_P3060(c_v10160, details_v10188) word c_v10160; word details_v10188; { W6 var_c54288; /* declaration of var_c52880 skipped */ /* RoundTrip: */ SOURCE(13015, 159) { word tmpAddr104; tmpAddr104 = (word) (( (ptr) &var_c54288)+4)/* var_c52880 */ ; (* (ptr) tmpAddr104 ) = ( ((word) (fPt) action_P4260) ); (* (( (ptr) tmpAddr104) + 1) ) = 1; }; SOURCE(13143, 31) (void) DoWithLocks_P840(c_v10160, (word) (( (bPt) &var_c54288)+16)/* var_c52880 */ , details_v10188); } static void action_P4260(c_v12592, formal_c54320) word c_v12592; word formal_c54320; { formal_c54320 = (formal_c54320 - 16); /* action: */ SOURCE(13077, 63) SOURCE(13119, 21) (void) InternalRoundTrip_P2880(c_v12592); } static word SetButtonGrabOwner_P3120(c_v10248, timeStamp_v10276, value_v10304) word c_v10248; word timeStamp_v10276; word value_v10304; { word var_c10364; word limit_v12620; word var_c52912; word from_v46080; /* SetButtonGrabOwner: */ SOURCE(13180, 557) (void) (XR_MonitorEntry(c_v10248)); SOURCE(13320, 38) if ((c_v10248 == 0)) { SOURCE(13334, 24) (void) (XR_MonitorExit(c_v10248)); return(1); }; SOURCE(13360, 22) limit_v12620 = (* (( (ptr) c_v10248)+21) ); SOURCE(13384, 89) if (( (int)(timeStamp_v10276 - limit_v12620) > (int)0)) { SOURCE(13421, 52) if ((limit_v12620 != 0)) { SOURCE(13447, 26) (void) (XR_MonitorExit(c_v10248)); return(0); }; }; SOURCE(13476, 171) from_v46080 = (* (( (ptr) c_v10248)+38) ); var_c52912 = (timeStamp_v10276 - from_v46080); if (( (int)var_c52912 > (int)0) || ((* (( (ptr) c_v10248)+38) ) == 0)) { SOURCE(13566, 33) (* (( (ptr) c_v10248)+38) ) = timeStamp_v10276; SOURCE(13601, 25) (* (( (ptr) c_v10248)+37) ) = value_v10304; SOURCE(13629, 18) (void) (XR_MonitorExit(c_v10248)); return(3); }; SOURCE(13652, 85) { word var_c52944; if ((timeStamp_v10276 == (* (( (ptr) c_v10248)+38) ))) { var_c52944 = 2; } else { var_c52944 = 1; }; (void) (XR_MonitorExit(c_v10248)); return(var_c52944); }; } static void ClearButtonGrabOwner_P3180(c_v10424, timeStamp_v10452) word c_v10424; word timeStamp_v10452; { word var_c52976; word to_v46032; /* ClearButtonGrabOwner: */ SOURCE(13743, 167) (void) (XR_MonitorEntry(c_v10424)); SOURCE(13825, 85) { word tc105; if ((c_v10424 != 0)) { to_v46032 = (* (( (ptr) c_v10424)+38) ); var_c52976 = (to_v46032 - timeStamp_v10452); tc105 = (word) ( (int)var_c52976 <= (int)0); } else { tc105 = (word) 0; }; if (tc105) { SOURCE(13887, 23) (* (( (ptr) c_v10424)+37) ) = 0; }; }; SOURCE(13743, 167) (void) (XR_MonitorExit(c_v10424)); return; } static void NoName_Q8520(formal_c0428, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0428; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0470 = (ptr) &globalframe; if ((formal_c200005 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200004)+4) )); goto endif0106; }; if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0470)+140)/* var_c50480 */ ))+5) )) || (formal_c200005 == (* (( (ptr) (* ( ( (ptr) gf_c0470)+140)/* var_c50480 */ ))+4) ))) { SOURCE(4616, 33) (void) BuildAndPutDeadConnectionError_P780((* ((( (ptr) formal_c200004)+4)) )); SOURCE(4651, 26) (* (ptr) formal_c0428 ) = 2; (* (( (ptr) formal_c0428)+1) ) = 4; return; }; if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0470)+141)/* var_c50800 */ ))+4) ))) { { word err_v32768; err_v32768 = (* (ptr) formal_c200007 ); SOURCE(4695, 173) { word refError_v10940; SOURCE(4697, 66) refError_v10940 = XR_NewObject(4, (* (( (ptr) gf_c0470)+14) )); (* (ptr) refError_v10940 ) = err_v32768; SOURCE(4765, 17) (* (( (ptr) (* (( (ptr) formal_c200004)+4) ))+41) ) = err_v32768; SOURCE(4784, 54) { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c0470)+141)/* var_c50800 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd107 ))))((* (( (ptr) formal_c200004)+4) ), (* (( (ptr) gf_c0470)+27) ), refError_v10940, pd107) ; }; SOURCE(4840, 26) (* (ptr) formal_c0428 ) = 2; (* (( (ptr) formal_c0428)+1) ) = 4; return; }; }; }; if ((formal_c200005 == XR_Uncaught)) { SOURCE(4938, 33) (void) BuildAndPutDeadConnectionError_P780((* ((( (ptr) formal_c200004)+4)) )); SOURCE(4973, 26) (* (ptr) formal_c0428 ) = 2; (* (( (ptr) formal_c0428)+1) ) = 4; return; }; endif0106: ; (* (ptr) formal_c0428 ) = 0; (* (( (ptr) formal_c0428)+1) ) = 0; return; } static void NoName_Q8580(formal_c0433, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0433; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0471 = (ptr) &globalframe; if ((formal_c200001 == XR_Uncaught)) { SOURCE(1549, 51) if (((* (( (ptr) (* (( (ptr) formal_c200000)+4) ))+14) ) == 0)) { SOURCE(1574, 26) (* (( (ptr) (* (( (ptr) formal_c200000)+4) ))+14) ) = (* (( (ptr) gf_c0471)+26) ); }; SOURCE(1602, 9) (* (ptr) formal_c0433 ) = 2; (* (( (ptr) formal_c0433)+1) ) = 2; return; }; (* (ptr) formal_c0433 ) = 0; (* (( (ptr) formal_c0433)+1) ) = 0; return; } /* file: XlImplUtilities, module: XlImplUtilities, compiled at: September 14, 1993 4:26:40 pm PDT */ extern void XR_install_XlImplUtilities() { NoName_Q8340(); } extern void XR_run_XlImplUtilities() { XR_Start(&globalframe); }