/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: February 21, 1992 9:36:00 pm PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: IOPipeImpl, module: IOPipeImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [3196792903,2236936147] IOPipeImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {W8 f; W8 r;} W16; typedef struct {word f0, f1, f2;} W3; typedef struct {W16 f; W3 r;} W19; typedef word (*fPt)(); typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef W6 *W6Pt; typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3;} W4; typedef struct {W8 f; W4 r;} W12; typedef W4 *W4Pt; typedef struct {W8 f; W3 r;} W11; typedef struct {W8 f; W2 r;} W10; typedef struct {W8 f; word r;} W9; typedef struct {word f0, f1, f2, f3, f4;} W5; typedef W3 *W3Pt; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) #define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) ) #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) static void NoName_Q2700(); static void IOPipeImpl_P0(); static void CreatePipe_P60(); static word NoName_Q2760(); static word PullGetChar_P120(); static void innerGetChar_P888(); static word NoName_Q2820(); static word PullGetBlock_P240(); static void innerGetBlock_P996(); static word NoName_Q2880(); static word PullCharsAvail_P300(); static void innerCharsAvail_P1344(); static word NoName_Q2940(); static word PullEndOf_P360(); static void innerEndOf_P1452(); static word NoName_Q3000(); static void PullClose_P420(); static void innerClose_P1560(); static word NoName_Q3060(); static void PushPutChar_P480(); static void innerPutChar_P1668(); static word NoName_Q3120(); static void PushPutBlock_P540(); static void innerPutBlock_P1824(); static word NoName_Q3180(); static void PushUnsafePutBlock_P600(); static void innerPutBlock_P2076(); static word NoName_Q3240(); static void PushFlush_P660(); static void innerFlush_P2280(); static word NoName_Q3300(); static void PushReset_P720(); static void PushClose_P780(); static void innerClose_P2496(); static word NoName_Q3360(); static void NoName_Q3420(); static void NoName_Q3480(); static void NoName_Q3540(); static void NoName_Q3600(); static void NoName_Q3660(); static void NoName_Q3720(); static void NoName_Q3780(); static void NoName_Q3840(); static void NoName_Q3900(); static void NoName_Q3960(); static void NoName_Q4020(); static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"}; static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"}; static struct {unsigned f; char r[44];} string3 = {2752556, "\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261\000"}; static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\276\213\060\107\300\205\124\357\323\100\214\000\000"}; static struct {unsigned f; char r[4];} string5 = {131074, "\003\004\000"}; static struct {unsigned f; char r[8];} string6 = {262152, "Pipe\000\000\000"}; static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\276\213\060\107\300\205\124\357\323\100\200\000\000"}; static struct {unsigned f; char r[4];} string8 = {196611, "\004H0"}; static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"}; static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\132\114\005\127\300\365\255\242\322\100\150\000\000"}; static struct { word f0[12]; word f12; word f13; word f14; word f15; word f16; word f17; word f18; word f19; word f20; word f21; word f22; word f23; word f24; word f25; word f26; word f27; word f28; word f29; word f30; word f31; word f32; word f33; word f34; word f35; word f36; word f37[10]; } globalframe = { {0}, (word) PushClose_P780, 0, (word) PushReset_P720, 0, (word) PushFlush_P660, 0, (word) PushUnsafePutBlock_P600, 0, (word) PushPutBlock_P540, 0, (word) PushPutChar_P480, 0, (word) PullClose_P420, 0, (word) PullEndOf_P360, 0, (word) PullCharsAvail_P300, 0, (word) PullGetBlock_P240, 0, (word) PullGetChar_P120, 0, (word) CreatePipe_P60, 0, (word) IOPipeImpl_P0, {0} }; static void NoName_Q2700() { register ptr gf_c0243 = (ptr) &globalframe; word var_c15068; (* (( (ptr) gf_c0243)+6) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0243)+7) ) = (word) XR_GetTypeIndexS((word) (&string3)); (* (( (ptr) gf_c0243)+10) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5); (* (ptr) (( (bPt) gf_c0243)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0243)+6) ), (word) &string6); (void) XR_DeclareGlobalFrame((word) "IOPipeImpl", &globalframe, (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8) , (word) (( (bPt) gf_c0243)+144)/* var_c12988 */ ); var_c15068 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string9)), 103); (* (( (ptr) gf_c0243)+44)/* var_c13084 */ ) = var_c15068; (void) XR_ImportProcS(var_c15068, 67921155); (void) XR_ImportProcS(var_c15068, 72115219); var_c15068 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string10)), 22); (* (( (ptr) gf_c0243)+45)/* var_c13308 */ ) = var_c15068; (void) XR_ImportProcS(var_c15068, 266241); var_c15068 = (word) XR_ExportInterface((word) "IOClasses", (word) XR_GetTypeIndexS((word) (&string11)), 5); (* (( (ptr) gf_c0243)+46)/* var_c15100 */ ) = var_c15068; (void) XR_ExportProcS(var_c15068, (word) (( (bPt) gf_c0243)+136)/* var_c12956 */ , 134479873); } static void IOPipeImpl_P0(formal_c035, formal_c032) word formal_c035; word formal_c032; { register ptr gf_c15132 = (ptr) &globalframe; /* IOPipeImpl: */ SOURCE(177, 8110) SOURCE(8293, 222) { W19 var_c033; (* (ptr) (word) &var_c033 ) = 1; (* (( (ptr) (word) &var_c033) + 1) ) = (* (( (ptr) gf_c15132)+11) ); (* (( (ptr) (word) &var_c033) + 2) ) = 0; (* (( (ptr) (word) &var_c033) + 3) ) = 0; (* (( (ptr) (word) &var_c033) + 4) ) = 0; (* (( (ptr) (word) &var_c033) + 5) ) = 0; (* (( (ptr) (word) &var_c033) + 6) ) = 0; (* (( (ptr) (word) &var_c033) + 7) ) = 0; (* (( (ptr) (word) &var_c033) + 8) ) = (word) (( (bPt) gf_c15132)+88)/* var_c12764 */ ; (* (( (ptr) (word) &var_c033) + 9) ) = (word) (( (bPt) gf_c15132)+80)/* var_c12732 */ ; (* (( (ptr) (word) &var_c033) + 10) ) = (word) (( (bPt) gf_c15132)+72)/* var_c12700 */ ; (* (( (ptr) (word) &var_c033) + 11) ) = (word) (( (bPt) gf_c15132)+64)/* var_c12668 */ ; (* (( (ptr) (word) &var_c033) + 12) ) = (word) (( (bPt) gf_c15132)+56)/* var_c12636 */ ; (* (( (ptr) (word) &var_c033) + 13) ) = (word) (( (bPt) gf_c15132)+48)/* var_c12604 */ ; (* (( (ptr) (word) &var_c033) + 14) ) = 0; (* (( (ptr) (word) &var_c033) + 15) ) = 0; (* (( (ptr) (word) &var_c033) + 16) ) = 0; (* (( (ptr) (word) &var_c033) + 17) ) = 0; (* (( (ptr) (word) &var_c033) + 18) ) = 0; { word pd12; pd12 = (* (( (ptr) (* (( (ptr) gf_c15132)+44)/* var_c13084 */ ))+104) ); (* (( (ptr) gf_c15132)+4)/* pushProcs_v3056 */ ) = (word) ( *( (fPt) ((* (ptr) pd12 ))))((word) (&var_c033), pd12); }; }; SOURCE(8518, 195) { W19 var_c034; (* (ptr) (word) &var_c034 ) = 0; (* (( (ptr) (word) &var_c034) + 1) ) = (* (( (ptr) gf_c15132)+11) ); (* (( (ptr) (word) &var_c034) + 2) ) = (word) (( (bPt) gf_c15132)+128)/* var_c12924 */ ; (* (( (ptr) (word) &var_c034) + 3) ) = (word) (( (bPt) gf_c15132)+120)/* var_c12892 */ ; (* (( (ptr) (word) &var_c034) + 4) ) = 0; (* (( (ptr) (word) &var_c034) + 5) ) = (word) (( (bPt) gf_c15132)+104)/* var_c12828 */ ; (* (( (ptr) (word) &var_c034) + 6) ) = (word) (( (bPt) gf_c15132)+112)/* var_c12860 */ ; (* (( (ptr) (word) &var_c034) + 7) ) = 0; (* (( (ptr) (word) &var_c034) + 8) ) = 0; (* (( (ptr) (word) &var_c034) + 9) ) = 0; (* (( (ptr) (word) &var_c034) + 10) ) = 0; (* (( (ptr) (word) &var_c034) + 11) ) = 0; (* (( (ptr) (word) &var_c034) + 12) ) = 0; (* (( (ptr) (word) &var_c034) + 13) ) = (word) (( (bPt) gf_c15132)+96)/* var_c12796 */ ; (* (( (ptr) (word) &var_c034) + 14) ) = 0; (* (( (ptr) (word) &var_c034) + 15) ) = 0; (* (( (ptr) (word) &var_c034) + 16) ) = 0; (* (( (ptr) (word) &var_c034) + 17) ) = 0; (* (( (ptr) (word) &var_c034) + 18) ) = 0; { word pd13; pd13 = (* (( (ptr) (* (( (ptr) gf_c15132)+44)/* var_c13084 */ ))+104) ); (* (( (ptr) gf_c15132)+5)/* pullProcs_v3084 */ ) = (word) ( *( (fPt) ((* (ptr) pd13 ))))((word) (&var_c034), pd13); }; }; } static void CreatePipe_P60(formal_c039, formal_c0340) word formal_c039; word formal_c0340; { W7 var_c15164; /* declaration of bufferSize_v3400 skipped */ /* declaration of push_v3444 skipped */ /* declaration of pull_v3472 skipped */ var_c15164.f4/* bufferSize_v3400 */ = formal_c0340; /* CreatePipe: */ SOURCE(514, 426) SOURCE(514, 426) var_c15164.f5/* push_v3444 */ = 0; SOURCE(514, 426) var_c15164.f6/* pull_v3472 */ = 0; SOURCE(589, 351) { word var_c0287; var_c0287 = (word) &var_c15164; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q2760) ), ( ((word) (fPt) NoName_Q4020) ), var_c0287); }; /* removed tail goto */ (* (ptr) formal_c039 ) = var_c15164.f5/* push_v3444 */ ; (* (( (ptr) formal_c039)+1) ) = var_c15164.f6/* pull_v3472 */ ; return; } static word NoName_Q2760(formal_c0246) word formal_c0246; { register ptr gf_c0245 = (ptr) &globalframe; SOURCE(612, 98) { word nChars_v4824; word common_v4852; SOURCE(612, 98) { word var_c13116; var_c13116 = (* (( (ptr) formal_c0246)+4) ); if ((var_c13116 < 2)) { nChars_v4824 = 2; } else { if ((var_c13116 > 1073741823)) { nChars_v4824 = 1073741823; } else { nChars_v4824 = (* (( (ptr) formal_c0246)+4) ); }; }; }; SOURCE(712, 60) { word var_c13148; word var_c13276; { word var_c13180; word var_c13212; word var_c13244; var_c13180 = BCK(nChars_v4824, 32768); var_c13212 = (((var_c13180 + 3) >> 2) << 2); var_c13244 = XR_NewObject((4 + var_c13212), (* (( (ptr) gf_c0245)+7) )); (* (( (hPt) var_c13244)+1) ) = var_c13180; var_c13148 = var_c13244; }; var_c13276 = XR_NewObject(60, (* (( (ptr) gf_c0245)+10) )); (* (( (ptr) var_c13276)+4) ) = var_c13148; (* (W6Pt) (( (ptr) var_c13276)+9) ) = (* (W6Pt) (( (ptr) gf_c0245)+38)/* var_c13052 */ ); common_v4852 = var_c13276; }; SOURCE(774, 29) (* (hPt) (* (( (ptr) common_v4852)+4) ) ) = BCK(nChars_v4824, 32768); SOURCE(805, 41) { word pd14; pd14 = (* (( (ptr) (* (( (ptr) gf_c0245)+44)/* var_c13084 */ ))+105) ); (* (( (ptr) formal_c0246)+5) ) = (word) ( *( (fPt) ((* (ptr) pd14 ))))((* (( (ptr) gf_c0245)+4)/* pushProcs_v3056 */ ), common_v4852, 0, pd14) ; }; SOURCE(848, 41) { word pd15; pd15 = (* (( (ptr) (* (( (ptr) gf_c0245)+44)/* var_c13084 */ ))+105) ); (* (( (ptr) formal_c0246)+6) ) = (word) ( *( (fPt) ((* (ptr) pd15 ))))((* (( (ptr) gf_c0245)+5)/* pullProcs_v3084 */ ), common_v4852, 0, pd15) ; }; SOURCE(899, 41) SOURCE(900, 40) { word pd16; pd16 = (* (( (ptr) (* (( (ptr) gf_c0245)+45)/* var_c13308 */ ))+20) ); (void) ( *( (fPt) ((* (ptr) pd16 ))))((word) ((( (bPt) common_v4852)+36)), pd16); }; }; return(0); } static word PullGetChar_P120(formal_c0341) word formal_c0341; { W8 var_c15196; /* declaration of self_v3532 skipped */ register ptr gf_c15228 = (ptr) &globalframe; /* declaration of c_v3576 skipped */ /* declaration of var_c13340 skipped */ var_c15196.f4/* self_v3532 */ = formal_c0341; /* PullGetChar: */ SOURCE(947, 614) { word tmpAddr17; tmpAddr17 = (word) (( (ptr) &var_c15196)+6)/* var_c13340 */ ; (* (ptr) tmpAddr17 ) = ( ((word) (fPt) innerGetChar_P888) ); (* (( (ptr) tmpAddr17) + 1) ) = 1; }; SOURCE(947, 614) var_c15196.f5/* c_v3576 */ = 0; SOURCE(1448, 113) { word var_c13372; var_c13372 = (* (( (ptr) var_c15196.f4/* self_v3532 */ )+1) ); if ((var_c13372 == 0)) { goto lab_L100003; }; if (((* (( (ptr) gf_c15228)+10) ) == XR_GetReferentType(var_c13372))) { { word data_v5000; data_v5000 = var_c13372; SOURCE(1501, 18) (void) innerGetChar_P888(data_v5000, (word) (( (bPt) &var_c15196)+24)/* var_c13340 */ ); }; } else { lab_L100003: ; SOURCE(1532, 29) { W4 var_c053; (* (ptr) (word) &var_c053 ) = 3; (* (( (ptr) (word) &var_c053) + 1) ) = var_c15196.f4/* self_v3532 */ ; (* (( (ptr) (word) &var_c053) + 2) ) = 0; (* (( (ptr) (word) &var_c053) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15228)+44)/* var_c13084 */ ))+5) ), (word) &var_c053); }; }; }; SOURCE(947, 614) return(var_c15196.f5/* c_v3576 */ ); } static void innerGetChar_P888(formal_c0342, formal_c15292) word formal_c0342; word formal_c15292; { W12 var_c15260; /* declaration of data_v4972 skipped */ /* declaration of var_c13404 skipped */ /* declaration of var_c13436 skipped */ /* declaration of var_c13468 skipped */ /* declaration of var_c13500 skipped */ formal_c15292 = (formal_c15292 - 24); (* (( (ptr) &var_c15260)+4)/* data_v4972 */ ) = formal_c0342; (* (ptr) &var_c15260 ) = formal_c15292; /* innerGetChar: */ SOURCE(1007, 436) (void) (XR_MonitorEntry(* (( (ptr) &var_c15260)+4)/* data_v4972 */ )); SOURCE(1055, 388) { word var_c01; { word var_c0288; var_c0288 = (word) &var_c15260; var_c01 = (word) XR_Enable(( ((word) (fPt) NoName_Q2820) ), ( ((word) (fPt) NoName_Q3960) ), var_c0288); }; if ((var_c01 == 3)) { goto lab_L100010; } else { if ((var_c01 == 2)) { goto lab_L100009; }; }; }; SOURCE(1007, 436) (void) (XR_MonitorExit(* (( (ptr) &var_c15260)+4)/* data_v4972 */ )); return; /* c2c skipped dead code */ lab_L100009: ; SOURCE(1107, 46) { W4 var_c059; var_c059 = (* (W4Pt) (( (ptr) &var_c15260)+6)/* var_c13436 */ ); (void) XR_RaiseError((* (( (ptr) &var_c15260)+5)/* var_c13404 */ ), (word) &var_c059); }; lab_L100010: ; SOURCE(1223, 38) { word var_c060; var_c060 = (* (( (ptr) &var_c15260)+11)/* var_c13500 */ ); (void) XR_RaiseError((* (( (ptr) &var_c15260)+10)/* var_c13468 */ ), (word) &var_c060); }; } static word NoName_Q2820(formal_c0250) word formal_c0250; { register ptr gf_c0249 = (ptr) &globalframe; SOURCE(1078, 205) lab_L100008: ; SOURCE(1081, 72) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+7) ))) { SOURCE(1107, 46) (* (( (ptr) formal_c0250)+5) ) = (* (( (ptr) (* (( (ptr) gf_c0249)+44)/* var_c13084 */ ))+5) ); { word tmpAddr18; tmpAddr18 = (word) (( (ptr) formal_c0250)+6); (* (ptr) tmpAddr18 ) = 2; (* (( (ptr) tmpAddr18) + 1) ) = (* (( (ptr) (* (ptr) formal_c0250 ))+4) ); (* (( (ptr) tmpAddr18) + 2) ) = 0; (* (( (ptr) tmpAddr18) + 3) ) = 0; }; (void) (XR_MonitorExit(* (( (ptr) formal_c0250)+4) )); return(2); }; SOURCE(1155, 36) if (((* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+5) ) != (* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+6) ))) { SOURCE(1191, 4) goto lab_L100007; }; SOURCE(1197, 64) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+8) ))) { SOURCE(1223, 38) (* (( (ptr) formal_c0250)+10) ) = (* (( (ptr) (* (( (ptr) gf_c0249)+44)/* var_c13084 */ ))+4) ); (* (( (ptr) formal_c0250)+11) ) = (* (( (ptr) (* (ptr) formal_c0250 ))+4) ); (void) (XR_MonitorExit(* (( (ptr) formal_c0250)+4) )); return(3); }; SOURCE(1263, 20) (void) (XR_Wait((* (( (ptr) formal_c0250)+4) ), (word) (( (bPt) (* (( (ptr) formal_c0250)+4) ))+36))); goto lab_L100008; lab_L100007: ; SOURCE(1294, 31) (* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+5) ) = ((* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+5) ) + 1); SOURCE(1327, 58) if (((* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+5) ) == (* (hPt) (* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+4) ) ))) { SOURCE(1369, 16) (* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+5) ) = 0; }; SOURCE(1387, 29) { word var_c13532; var_c13532 = (* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+4) ); { word idx19; word limit20; (* (( (ptr) (* (ptr) formal_c0250 ))+5) ) = (word) (* ((( (bPt) var_c13532)+4)+( idx19 = (* (( (ptr) (* (( (ptr) formal_c0250)+4) ))+5) ), limit20 = (word) (* (( (hPt) var_c13532)+1) ), BCK(idx19, limit20) )) ); }; }; SOURCE(1418, 25) (void) (XR_Broadcast((word) (( (bPt) (* (( (ptr) formal_c0250)+4) ))+36))); return(0); } static word PullGetBlock_P240(formal_c0343, formal_c0344, formal_c0345, count_v3852) word formal_c0343; word formal_c0344; word formal_c0345; word count_v3852; { W11 var_c15324; /* declaration of self_v3768 skipped */ /* declaration of block_v3796 skipped */ /* declaration of startIndex_v3824 skipped */ register ptr gf_c15356 = (ptr) &globalframe; /* declaration of nBytesRead_v3908 skipped */ /* declaration of var_c13564 skipped */ word stopIndexPlusOne_v5072; /* declaration of delta_v5100 skipped */ (* (( (ptr) &var_c15324)+4)/* self_v3768 */ ) = formal_c0343; (* (( (ptr) &var_c15324)+5)/* block_v3796 */ ) = formal_c0344; (* (( (ptr) &var_c15324)+6)/* startIndex_v3824 */ ) = formal_c0345; /* PullGetBlock: */ SOURCE(1670, 1594) { word tmpAddr21; tmpAddr21 = (word) (( (ptr) &var_c15324)+8)/* var_c13564 */ ; (* (ptr) tmpAddr21 ) = ( ((word) (fPt) innerGetBlock_P996) ); (* (( (ptr) tmpAddr21) + 1) ) = 1; }; SOURCE(1670, 1594) (* (( (ptr) &var_c15324)+7)/* nBytesRead_v3908 */ ) = 0; SOURCE(2988, 71) { word x22; word x23; word x24; stopIndexPlusOne_v5072 = (x23 = (x22 = ((* (( (ptr) &var_c15324)+6)/* startIndex_v3824 */ ) + count_v3852), MIN( (unsigned) , x22, 2147483647)), x24 = (* (( (hPt) (* (( (ptr) &var_c15324)+5)/* block_v3796 */ ))+1) ), MIN( (unsigned) , x23, x24)); }; SOURCE(3061, 87) (* (( (ptr) &var_c15324)+10)/* delta_v5100 */ ) = ( (stopIndexPlusOne_v5072 > (* (( (ptr) &var_c15324)+6)/* startIndex_v3824 */ )) ? (stopIndexPlusOne_v5072 - (* ( ( (ptr) &var_c15324)+6)/* startIndex_v3824 */ )) : 0 ) ; SOURCE(3150, 114) { word var_c13596; var_c13596 = (* (( (ptr) (* (( (ptr) &var_c15324)+4)/* self_v3768 */ ))+1) ); if ((var_c13596 == 0)) { goto lab_L100012; }; if (((* (( (ptr) gf_c15356)+10) ) == XR_GetReferentType(var_c13596))) { { word data_v5204; data_v5204 = var_c13596; SOURCE(3203, 19) (void) innerGetBlock_P996(data_v5204, (word) (( (bPt) &var_c15324)+32)/* var_c13564 */ ); }; } else { lab_L100012: ; SOURCE(3235, 29) { W4 var_c072; (* (ptr) (word) &var_c072 ) = 3; (* (( (ptr) (word) &var_c072) + 1) ) = (* (( (ptr) &var_c15324)+4)/* self_v3768 */ ); (* (( (ptr) (word) &var_c072) + 2) ) = 0; (* (( (ptr) (word) &var_c072) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15356)+44)/* var_c13084 */ ))+5) ), (word) &var_c072); }; }; }; SOURCE(1670, 1594) return((* (( (ptr) &var_c15324)+7)/* nBytesRead_v3908 */ )); } static void innerGetBlock_P996(formal_c0346, formal_c15420) word formal_c0346; word formal_c15420; { W10 var_c15388; /* declaration of data_v5176 skipped */ /* declaration of var_c13628 skipped */ /* declaration of var_c13660 skipped */ formal_c15420 = (formal_c15420 - 32); (* (( (ptr) &var_c15388)+4)/* data_v5176 */ ) = formal_c0346; (* (ptr) &var_c15388 ) = formal_c15420; /* innerGetBlock: */ SOURCE(1784, 1190) (void) (XR_MonitorEntry(* (( (ptr) &var_c15388)+4)/* data_v5176 */ )); SOURCE(1833, 1141) { word var_c02; { word var_c0289; var_c0289 = (word) &var_c15388; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q2880) ), ( ((word) (fPt) NoName_Q3900) ), var_c0289); }; if ((var_c02 == 4)) { goto lab_L100021; } else { if ((var_c02 == 1)) { goto lab_L04; }; }; }; SOURCE(1784, 1190) (void) (XR_MonitorExit(* (( (ptr) &var_c15388)+4)/* data_v5176 */ )); return; /* c2c skipped dead code */ lab_L100021: ; SOURCE(1933, 46) { W4 var_c076; var_c076 = (* (W4Pt) (( (ptr) &var_c15388)+6)/* var_c13660 */ ); (void) XR_RaiseError((* (( (ptr) &var_c15388)+5)/* var_c13628 */ ), (word) &var_c076); }; lab_L04: ; return; } static word NoName_Q2880(formal_c0254) word formal_c0254; { register ptr gf_c0253 = (ptr) &globalframe; SOURCE(1856, 27) { word pullPos_v5248; SOURCE(1856, 27) pullPos_v5248 = (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+5) ); SOURCE(1885, 1089) lab_L100017: ; if (((* (( (ptr) (* (ptr) formal_c0254 ))+10) ) > 0)) { } else { goto lab_L100015; }; SOURCE(1904, 192) lab_L100020: ; SOURCE(1907, 72) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+7) ))) { SOURCE(1933, 46) (* (( (ptr) formal_c0254)+5) ) = (* (( (ptr) (* (( (ptr) gf_c0253)+44)/* var_c13084 */ ))+5) ); { word tmpAddr25; tmpAddr25 = (word) (( (ptr) formal_c0254)+6); (* (ptr) tmpAddr25 ) = 2; (* (( (ptr) tmpAddr25) + 1) ) = (* (( (ptr) (* (ptr) formal_c0254 ))+4) ); (* (( (ptr) tmpAddr25) + 2) ) = 0; (* (( (ptr) tmpAddr25) + 3) ) = 0; }; (void) (XR_MonitorExit(* (( (ptr) formal_c0254)+4) )); return(4); }; SOURCE(1981, 31) if ((pullPos_v5248 != (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+6) ))) { SOURCE(2012, 4) goto lab_L100019; }; SOURCE(2018, 32) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+8) ))) { SOURCE(2044, 6) (void) (XR_MonitorExit(* (( (ptr) formal_c0254)+4) )); return(1); }; SOURCE(2052, 20) (void) (XR_Wait((* (( (ptr) formal_c0254)+4) ), (word) (( (bPt) (* (( (ptr) formal_c0254)+4) ))+36))); SOURCE(2074, 22) pullPos_v5248 = (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+5) ); goto lab_L100020; lab_L100019: ; SOURCE(2107, 297) if ((pullPos_v5248 > (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+6) ))) { SOURCE(2138, 268) { word nBytes_v5292; SOURCE(2140, 61) { word x26; word x27; nBytes_v5292 = (x26 = (((* (( (hPt) (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+4) ))+1) ) - 1) - pullPos_v5248), x27 = (* (( (ptr) (* (ptr) formal_c0254 ))+10) ), MIN((int)(word), x26, x27)); }; SOURCE(2203, 106) { register word i_v5336; register word noName_c13692; i_v5336 = pullPos_v5248; noName_c13692 = (pullPos_v5248 + nBytes_v5292); if ((i_v5336 >= noName_c13692)) { goto lab_L100022; }; i_v5336 = (i_v5336 + 1); lab_L100025: ; SOURCE(2246, 34) { word var_c13724; var_c13724 = (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+4) ); { word idx28; word limit29; word limit30; (* ((( (bPt) (* (( (ptr) (* (ptr) formal_c0254 ))+5) ))+4)+( idx28 = (* (( (ptr) (* (ptr) formal_c0254 ))+6) ), limit29 = (word) (* (( (hPt) (* (( (ptr) (* (ptr) formal_c0254 ))+5) ))+1) ), BCK(idx28, limit29) )) ) = (word) (* ((( (bPt) var_c13724)+4)+( limit30 = (word) (* (( (hPt) var_c13724)+1) ), BCK(i_v5336, limit30) )) ); }; }; SOURCE(2282, 27) (* (( (ptr) (* (ptr) formal_c0254 ))+6) ) = ((* (( (ptr) (* (ptr) formal_c0254 ))+6) ) + 1); if ((i_v5336 >= noName_c13692)) { goto lab_L100022; }; i_v5336 = (i_v5336 + 1); goto lab_L100025; lab_L100022: ; }; SOURCE(2320, 26) pullPos_v5248 = SGNCK((pullPos_v5248 + nBytes_v5292)); SOURCE(2348, 32) { word idx31; (* (( (ptr) (* (ptr) formal_c0254 ))+7) ) = ( idx31 = (word) ((* (( (ptr) (* (ptr) formal_c0254 ))+7) ) + nBytes_v5292), SGNCK(idx31) ); }; SOURCE(2382, 22) (* (( (ptr) (* (ptr) formal_c0254 ))+10) ) = ((* (( (ptr) (* (ptr) formal_c0254 ))+10) ) - nBytes_v5292); }; }; SOURCE(2409, 181) { word tc32; if (( (int)pullPos_v5248 == (int)((* (( (hPt) (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+4) ))+1) ) - 1))) { tc32 = (word) ((* (( (ptr) (* (ptr) formal_c0254 ))+10) ) > 0); } else { tc32 = (word) 0; }; if (tc32) { SOURCE(2469, 44) { word var_c13756; word var_c13788; pullPos_v5248 = 0; var_c13756 = 0; var_c13788 = (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+4) ); { word idx33; word limit34; word limit35; (* ((( (bPt) (* (( (ptr) (* (ptr) formal_c0254 ))+5) ))+4)+( idx33 = (* (( (ptr) (* (ptr) formal_c0254 ))+6) ), limit34 = (word) (* (( (hPt) (* (( (ptr) (* (ptr) formal_c0254 ))+5) ))+1) ), BCK(idx33, limit34) )) ) = (word) (* ((( (bPt) var_c13788)+4)+( limit35 = (word) (* (( (hPt) var_c13788)+1) ), BCK(var_c13756, limit35) )) ); }; }; SOURCE(2515, 27) (* (( (ptr) (* (ptr) formal_c0254 ))+6) ) = ((* (( (ptr) (* (ptr) formal_c0254 ))+6) ) + 1); SOURCE(2544, 27) (* (( (ptr) (* (ptr) formal_c0254 ))+7) ) = ((* (( (ptr) (* (ptr) formal_c0254 ))+7) ) + 1); SOURCE(2573, 17) { word idx36; (* (( (ptr) (* (ptr) formal_c0254 ))+10) ) = ( idx36 = (word) ((* (( (ptr) (* (ptr) formal_c0254 ))+10) ) - 1), SGNCK(idx36) ); }; }; }; SOURCE(2595, 298) if ( ( (pullPos_v5248 < (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+6) )) ? ((* (( (ptr) (* (ptr) formal_c0254 ))+10) ) > 0) : 0 ) ) { SOURCE(2640, 255) { word nBytes_v5380; SOURCE(2642, 48) { word x37; word x38; nBytes_v5380 = (x37 = ((* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+6) ) - pullPos_v5248), x38 = (* (( (ptr) (* (ptr) formal_c0254 ))+10) ), MIN((int)(word), x37, x38)); }; SOURCE(2692, 106) { register word i_v5424; register word noName_c13820; i_v5424 = pullPos_v5248; noName_c13820 = (pullPos_v5248 + nBytes_v5380); if ((i_v5424 >= noName_c13820)) { goto lab_L100026; }; i_v5424 = (i_v5424 + 1); lab_L100029: ; SOURCE(2735, 34) { word var_c13852; var_c13852 = (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+4) ); { word idx39; word limit40; word limit41; (* ((( (bPt) (* (( (ptr) (* (ptr) formal_c0254 ))+5) ))+4)+( idx39 = (* (( (ptr) (* (ptr) formal_c0254 ))+6) ), limit40 = (word) (* (( (hPt) (* (( (ptr) (* (ptr) formal_c0254 ))+5) ))+1) ), BCK(idx39, limit40) )) ) = (word) (* ((( (bPt) var_c13852)+4)+( limit41 = (word) (* (( (hPt) var_c13852)+1) ), BCK(i_v5424, limit41) )) ); }; }; SOURCE(2771, 27) (* (( (ptr) (* (ptr) formal_c0254 ))+6) ) = ((* (( (ptr) (* (ptr) formal_c0254 ))+6) ) + 1); if ((i_v5424 >= noName_c13820)) { goto lab_L100026; }; i_v5424 = (i_v5424 + 1); goto lab_L100029; lab_L100026: ; }; SOURCE(2809, 26) pullPos_v5248 = SGNCK((pullPos_v5248 + nBytes_v5380)); SOURCE(2837, 32) { word idx42; (* (( (ptr) (* (ptr) formal_c0254 ))+7) ) = ( idx42 = (word) ((* (( (ptr) (* (ptr) formal_c0254 ))+7) ) + nBytes_v5380), SGNCK(idx42) ); }; SOURCE(2871, 22) (* (( (ptr) (* (ptr) formal_c0254 ))+10) ) = ((* (( (ptr) (* (ptr) formal_c0254 ))+10) ) - nBytes_v5380); }; }; SOURCE(2898, 22) (* (( (ptr) (* (( (ptr) formal_c0254)+4) ))+5) ) = pullPos_v5248; SOURCE(2922, 25) { word idx43; (* (hPt) (* (( (ptr) (* (ptr) formal_c0254 ))+5) ) ) = ( idx43 = (* (( (ptr) (* (ptr) formal_c0254 ))+6) ), BCK(idx43, 32768) ); }; SOURCE(2949, 25) (void) (XR_Broadcast((word) (( (bPt) (* (( (ptr) formal_c0254)+4) ))+36))); goto lab_L100017; lab_L100015: ; }; return(0); } static word PullCharsAvail_P300(formal_c0347, formal_c0348) word formal_c0347; word formal_c0348; { W9 var_c15452; /* declaration of self_v3968 skipped */ /* declaration of wait_v3996 skipped */ register ptr gf_c15484 = (ptr) &globalframe; /* declaration of diff_v4040 skipped */ /* declaration of var_c13884 skipped */ (* (( (ptr) &var_c15452)+4)/* self_v3968 */ ) = formal_c0347; (* (( (ptr) &var_c15452)+5)/* wait_v3996 */ ) = formal_c0348; /* PullCharsAvail: */ SOURCE(3270, 587) { word tmpAddr44; tmpAddr44 = (word) (( (ptr) &var_c15452)+7)/* var_c13884 */ ; (* (ptr) tmpAddr44 ) = ( ((word) (fPt) innerCharsAvail_P1344) ); (* (( (ptr) tmpAddr44) + 1) ) = 1; }; SOURCE(3270, 587) (* (( (ptr) &var_c15452)+6)/* diff_v4040 */ ) = 0; SOURCE(3741, 116) { word var_c13916; var_c13916 = (* (( (ptr) (* (( (ptr) &var_c15452)+4)/* self_v3968 */ ))+1) ); if ((var_c13916 == 0)) { goto lab_L100031; }; if (((* (( (ptr) gf_c15484)+10) ) == XR_GetReferentType(var_c13916))) { { word data_v5572; data_v5572 = var_c13916; SOURCE(3794, 21) (void) innerCharsAvail_P1344(data_v5572, (word) (( (bPt) &var_c15452)+28)/* var_c13884 */ ); }; } else { lab_L100031: ; SOURCE(3828, 29) { W4 var_c094; (* (ptr) (word) &var_c094 ) = 3; (* (( (ptr) (word) &var_c094) + 1) ) = (* (( (ptr) &var_c15452)+4)/* self_v3968 */ ); (* (( (ptr) (word) &var_c094) + 2) ) = 0; (* (( (ptr) (word) &var_c094) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15484)+44)/* var_c13084 */ ))+5) ), (word) &var_c094); }; }; }; SOURCE(3270, 587) return((* (( (ptr) &var_c15452)+6)/* diff_v4040 */ )); } static void innerCharsAvail_P1344(formal_c0349, formal_c15548) word formal_c0349; word formal_c15548; { W10 var_c15516; /* declaration of data_v5544 skipped */ /* declaration of var_c13948 skipped */ /* declaration of var_c13980 skipped */ formal_c15548 = (formal_c15548 - 28); (* (( (ptr) &var_c15516)+4)/* data_v5544 */ ) = formal_c0349; (* (ptr) &var_c15516 ) = formal_c15548; /* innerCharsAvail: */ SOURCE(3346, 381) (void) (XR_MonitorEntry(* (( (ptr) &var_c15516)+4)/* data_v5544 */ )); SOURCE(3397, 330) { word var_c03; { word var_c0290; var_c0290 = (word) &var_c15516; var_c03 = (word) XR_Enable(( ((word) (fPt) NoName_Q2940) ), ( ((word) (fPt) NoName_Q3840) ), var_c0290); }; if ((var_c03 == 5)) { goto lab_L100037; }; }; SOURCE(3346, 381) (void) (XR_MonitorExit(* (( (ptr) &var_c15516)+4)/* data_v5544 */ )); return; /* c2c skipped dead code */ lab_L100037: ; SOURCE(3449, 46) { W4 var_c098; var_c098 = (* (W4Pt) (( (ptr) &var_c15516)+6)/* var_c13980 */ ); (void) XR_RaiseError((* (( (ptr) &var_c15516)+5)/* var_c13948 */ ), (word) &var_c098); }; } static word NoName_Q2940(formal_c0258) word formal_c0258; { register ptr gf_c0257 = (ptr) &globalframe; SOURCE(3420, 307) lab_L100036: ; SOURCE(3423, 72) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0258)+4) ))+7) ))) { SOURCE(3449, 46) (* (( (ptr) formal_c0258)+5) ) = (* (( (ptr) (* (( (ptr) gf_c0257)+44)/* var_c13084 */ ))+5) ); { word tmpAddr45; tmpAddr45 = (word) (( (ptr) formal_c0258)+6); (* (ptr) tmpAddr45 ) = 2; (* (( (ptr) tmpAddr45) + 1) ) = (* (( (ptr) (* (ptr) formal_c0258 ))+4) ); (* (( (ptr) tmpAddr45) + 2) ) = 0; (* (( (ptr) tmpAddr45) + 3) ) = 0; }; (void) (XR_MonitorExit(* (( (ptr) formal_c0258)+4) )); return(5); }; SOURCE(3497, 44) (* (( (ptr) (* (ptr) formal_c0258 ))+6) ) = ((* (( (ptr) (* (( (ptr) formal_c0258)+4) ))+6) ) - (* (( (ptr) (* (( (ptr) formal_c0258)+4) ))+5) )); SOURCE(3543, 17) if (( (int)(* (( (ptr) (* (ptr) formal_c0258 ))+6) ) > (int)0)) { SOURCE(3560, 4) goto lab_L100035; }; SOURCE(3566, 53) if (( (int)(* (( (ptr) (* (ptr) formal_c0258 ))+6) ) < (int)0)) { SOURCE(3584, 35) (* (( (ptr) (* (ptr) formal_c0258 ))+6) ) = ((* (( (ptr) (* (ptr) formal_c0258 ))+6) ) + (* (( (hPt) (* (( (ptr) (* (( (ptr) formal_c0258)+4) ))+4) ))+1) )); SOURCE(3621, 4) goto lab_L100035; }; SOURCE(3628, 35) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0258)+4) ))+8) ))) { SOURCE(3655, 8) (* (( (ptr) (* (ptr) formal_c0258 ))+6) ) = 1; SOURCE(3665, 4) goto lab_L100035; }; SOURCE(3672, 26) if ((0 == (* (( (ptr) (* (ptr) formal_c0258 ))+5) ))) { SOURCE(3690, 8) (* (( (ptr) (* (ptr) formal_c0258 ))+6) ) = 0; SOURCE(3700, 4) goto lab_L100035; }; SOURCE(3707, 20) (void) (XR_Wait((* (( (ptr) formal_c0258)+4) ), (word) (( (bPt) (* (( (ptr) formal_c0258)+4) ))+36))); goto lab_L100036; lab_L100035: ; return(0); } static word PullEndOf_P360(self_v4100) word self_v4100; { W7 var_c15580; register ptr gf_c15612 = (ptr) &globalframe; /* declaration of eof_v4144 skipped */ /* declaration of var_c14012 skipped */ /* PullEndOf: */ SOURCE(3863, 303) { word tmpAddr46; tmpAddr46 = (word) (( (ptr) &var_c15580)+5)/* var_c14012 */ ; (* (ptr) tmpAddr46 ) = ( ((word) (fPt) innerEndOf_P1452) ); (* (( (ptr) tmpAddr46) + 1) ) = 1; }; SOURCE(3863, 303) var_c15580.f4/* eof_v4144 */ = 0; SOURCE(4055, 111) { word var_c14044; var_c14044 = (* (( (ptr) self_v4100)+1) ); if ((var_c14044 == 0)) { goto lab_L100039; }; if (((* (( (ptr) gf_c15612)+10) ) == XR_GetReferentType(var_c14044))) { { word data_v5720; data_v5720 = var_c14044; SOURCE(4108, 16) (void) innerEndOf_P1452(data_v5720, (word) (( (bPt) &var_c15580)+20)/* var_c14012 */ ); }; } else { lab_L100039: ; SOURCE(4137, 29) { W4 var_c0104; (* (ptr) (word) &var_c0104 ) = 3; (* (( (ptr) (word) &var_c0104) + 1) ) = self_v4100; (* (( (ptr) (word) &var_c0104) + 2) ) = 0; (* (( (ptr) (word) &var_c0104) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15612)+44)/* var_c13084 */ ))+5) ), (word) &var_c0104); }; }; }; SOURCE(3863, 303) return(var_c15580.f4/* eof_v4144 */ ); } static void innerEndOf_P1452(formal_c0350, formal_c15676) word formal_c0350; word formal_c15676; { W5 var_c15644; /* declaration of data_v5692 skipped */ formal_c15676 = (formal_c15676 - 20); var_c15644.f4/* data_v5692 */ = formal_c0350; var_c15644.f0 = formal_c15676; /* innerEndOf: */ SOURCE(3926, 124) (void) (XR_MonitorEntry(var_c15644.f4/* data_v5692 */ )); SOURCE(3972, 78) { word var_c0291; var_c0291 = (word) &var_c15644; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q3000) ), ( ((word) (fPt) NoName_Q3780) ), var_c0291); }; SOURCE(3926, 124) (void) (XR_MonitorExit(var_c15644.f4/* data_v5692 */ )); return; } static word NoName_Q3000(formal_c0261) word formal_c0261; { SOURCE(3995, 55) if (((* (( (ptr) (* (( (ptr) formal_c0261)+4) ))+6) ) == (* (( (ptr) (* (( (ptr) formal_c0261)+4) ))+5) ))) { (* (( (ptr) (* (ptr) formal_c0261 ))+4) ) = (0 != (* (( (ptr) (* (( (ptr) formal_c0261)+4) ))+8) )); } else { (* (( (ptr) (* (ptr) formal_c0261 ))+4) ) = 0; }; return(0); } static void PullClose_P420(formal_c0351, formal_c0352) word formal_c0351; word formal_c0352; { W8 var_c15708; /* declaration of self_v4204 skipped */ /* declaration of abort_v4232 skipped */ register ptr gf_c15740 = (ptr) &globalframe; /* declaration of var_c14076 skipped */ var_c15708.f4/* self_v4204 */ = formal_c0351; var_c15708.f5/* abort_v4232 */ = formal_c0352; /* PullClose: */ SOURCE(4172, 408) { word tmpAddr47; tmpAddr47 = (word) (( (ptr) &var_c15708)+6)/* var_c14076 */ ; (* (ptr) tmpAddr47 ) = ( ((word) (fPt) innerClose_P1560) ); (* (( (ptr) tmpAddr47) + 1) ) = 1; }; SOURCE(4469, 111) { word var_c14108; var_c14108 = (* (( (ptr) var_c15708.f4/* self_v4204 */ )+1) ); if ((var_c14108 == 0)) { goto lab_L100042; }; if (((* (( (ptr) gf_c15740)+10) ) == XR_GetReferentType(var_c14108))) { { word data_v5868; data_v5868 = var_c14108; SOURCE(4522, 16) (void) innerClose_P1560(data_v5868, (word) (( (bPt) &var_c15708)+24)/* var_c14076 */ ); }; } else { lab_L100042: ; SOURCE(4551, 29) { W4 var_c0111; (* (ptr) (word) &var_c0111 ) = 3; (* (( (ptr) (word) &var_c0111) + 1) ) = var_c15708.f4/* self_v4204 */ ; (* (( (ptr) (word) &var_c0111) + 2) ) = 0; (* (( (ptr) (word) &var_c0111) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15740)+44)/* var_c13084 */ ))+5) ), (word) &var_c0111); }; }; }; } static void innerClose_P1560(formal_c0353, formal_c15804) word formal_c0353; word formal_c15804; { W10 var_c15772; /* declaration of data_v5840 skipped */ /* declaration of var_c14140 skipped */ /* declaration of var_c14172 skipped */ formal_c15804 = (formal_c15804 - 24); (* (( (ptr) &var_c15772)+4)/* data_v5840 */ ) = formal_c0353; (* (ptr) &var_c15772 ) = formal_c15804; /* innerClose: */ SOURCE(4220, 244) (void) (XR_MonitorEntry(* (( (ptr) &var_c15772)+4)/* data_v5840 */ )); SOURCE(4266, 198) { word var_c04; { word var_c0292; var_c0292 = (word) &var_c15772; var_c04 = (word) XR_Enable(( ((word) (fPt) NoName_Q3060) ), ( ((word) (fPt) NoName_Q3720) ), var_c0292); }; if ((var_c04 == 6)) { goto lab_L100045; }; }; SOURCE(4220, 244) (void) (XR_MonitorExit(* (( (ptr) &var_c15772)+4)/* data_v5840 */ )); return; /* c2c skipped dead code */ lab_L100045: ; SOURCE(4362, 46) { W4 var_c0115; var_c0115 = (* (W4Pt) (( (ptr) &var_c15772)+6)/* var_c14172 */ ); (void) XR_RaiseError((* (( (ptr) &var_c15772)+5)/* var_c14140 */ ), (word) &var_c0115); }; } static word NoName_Q3060(formal_c0265) word formal_c0265; { register ptr gf_c0264 = (ptr) &globalframe; SOURCE(4289, 24) (* (( (ptr) (* (( (ptr) formal_c0265)+4) ))+7) ) = 1; SOURCE(4315, 93) if ( ( (0 == (* (( (ptr) (* (ptr) formal_c0265 ))+5) )) ? ((* (( (ptr) (* (( (ptr) formal_c0265)+4) ))+6) ) != (* (( (ptr) (* ( ( (ptr) formal_c0265)+4) ))+5) )) : 0 ) ) { SOURCE(4362, 46) (* (( (ptr) formal_c0265)+5) ) = (* (( (ptr) (* (( (ptr) gf_c0264)+44)/* var_c13084 */ ))+5) ); { word tmpAddr48; tmpAddr48 = (word) (( (ptr) formal_c0265)+6); (* (ptr) tmpAddr48 ) = 2; (* (( (ptr) tmpAddr48) + 1) ) = (* (( (ptr) (* (ptr) formal_c0265 ))+4) ); (* (( (ptr) tmpAddr48) + 2) ) = 0; (* (( (ptr) tmpAddr48) + 3) ) = 0; }; (void) (XR_MonitorExit(* (( (ptr) formal_c0265)+4) )); return(6); }; SOURCE(4410, 27) (* (( (ptr) (* (( (ptr) formal_c0265)+4) ))+5) ) = (* (( (ptr) (* (( (ptr) formal_c0265)+4) ))+6) ); SOURCE(4439, 25) (void) (XR_Broadcast((word) (( (bPt) (* (( (ptr) formal_c0265)+4) ))+36))); return(0); } static void PushPutChar_P480(formal_c0354, formal_c0355) word formal_c0354; word formal_c0355; { W8 var_c15836; /* declaration of self_v4292 skipped */ /* declaration of char_v4320 skipped */ register ptr gf_c15868 = (ptr) &globalframe; /* declaration of var_c14204 skipped */ var_c15836.f4/* self_v4292 */ = formal_c0354; var_c15836.f5/* char_v4320 */ = formal_c0355; /* PushPutChar: */ SOURCE(4586, 559) { word tmpAddr49; tmpAddr49 = (word) (( (ptr) &var_c15836)+6)/* var_c14204 */ ; (* (ptr) tmpAddr49 ) = ( ((word) (fPt) innerPutChar_P1668) ); (* (( (ptr) tmpAddr49) + 1) ) = 1; }; SOURCE(5032, 113) { word var_c14236; var_c14236 = (* (( (ptr) var_c15836.f4/* self_v4292 */ )+1) ); if ((var_c14236 == 0)) { goto lab_L100047; }; if (((* (( (ptr) gf_c15868)+10) ) == XR_GetReferentType(var_c14236))) { { word data_v6016; data_v6016 = var_c14236; SOURCE(5085, 18) (void) innerPutChar_P1668(data_v6016, (word) (( (bPt) &var_c15836)+24)/* var_c14204 */ ); }; } else { lab_L100047: ; SOURCE(5116, 29) { W4 var_c0121; (* (ptr) (word) &var_c0121 ) = 3; (* (( (ptr) (word) &var_c0121) + 1) ) = var_c15836.f4/* self_v4292 */ ; (* (( (ptr) (word) &var_c0121) + 2) ) = 0; (* (( (ptr) (word) &var_c0121) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15868)+44)/* var_c13084 */ ))+5) ), (word) &var_c0121); }; }; }; } static void innerPutChar_P1668(formal_c0356, formal_c15932) word formal_c0356; word formal_c15932; { W10 var_c15900; /* declaration of data_v5988 skipped */ /* declaration of var_c14268 skipped */ /* declaration of var_c14300 skipped */ formal_c15932 = (formal_c15932 - 24); (* (( (ptr) &var_c15900)+4)/* data_v5988 */ ) = formal_c0356; (* (ptr) &var_c15900 ) = formal_c15932; /* innerPutChar: */ SOURCE(4635, 383) (void) (XR_MonitorEntry(* (( (ptr) &var_c15900)+4)/* data_v5988 */ )); SOURCE(4683, 335) { word var_c05; { word var_c0293; var_c0293 = (word) &var_c15900; var_c05 = (word) XR_Enable(( ((word) (fPt) NoName_Q3120) ), ( ((word) (fPt) NoName_Q3660) ), var_c0293); }; if ((var_c05 == 7)) { goto lab_L100050; } else { if ((var_c05 == 1)) { goto lab_L09; }; }; }; goto lab_L100054; lab_L100050: ; SOURCE(4753, 46) { W4 var_c0125; var_c0125 = (* (W4Pt) (( (ptr) &var_c15900)+6)/* var_c14300 */ ); (void) XR_RaiseError((* (( (ptr) &var_c15900)+5)/* var_c14268 */ ), (word) &var_c0125); }; lab_L100054: ; lab_L09: ; return; } static word NoName_Q3120(formal_c0269) word formal_c0269; { register ptr gf_c0268 = (ptr) &globalframe; SOURCE(4706, 93) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0269)+4) ))+8) )) || (0 != (* (( (ptr) (* (( (ptr) formal_c0269)+4) ))+7) ))) { SOURCE(4753, 46) (* (( (ptr) formal_c0269)+5) ) = (* (( (ptr) (* (( (ptr) gf_c0268)+44)/* var_c13084 */ ))+5) ); { word tmpAddr50; tmpAddr50 = (word) (( (ptr) formal_c0269)+6); (* (ptr) tmpAddr50 ) = 2; (* (( (ptr) tmpAddr50) + 1) ) = (* (( (ptr) (* (ptr) formal_c0269 ))+4) ); (* (( (ptr) tmpAddr50) + 2) ) = 0; (* (( (ptr) tmpAddr50) + 3) ) = 0; }; (void) (XR_MonitorExit(* (( (ptr) formal_c0269)+4) )); return(7); }; SOURCE(4801, 217) lab_L100053: ; SOURCE(4801, 217) { word new_v6060; SOURCE(4804, 27) new_v6060 = ((* (( (ptr) (* (( (ptr) formal_c0269)+4) ))+6) ) + 1); SOURCE(4833, 40) if ((new_v6060 == (* (hPt) (* (( (ptr) (* (( (ptr) formal_c0269)+4) ))+4) ) ))) { SOURCE(4866, 7) new_v6060 = 0; }; SOURCE(4875, 118) if ((new_v6060 != (* (( (ptr) (* (( (ptr) formal_c0269)+4) ))+5) ))) { SOURCE(4904, 18) (* (( (ptr) (* (( (ptr) formal_c0269)+4) ))+6) ) = new_v6060; SOURCE(4924, 32) { word var_c14332; var_c14332 = (* (( (ptr) (* (( (ptr) formal_c0269)+4) ))+4) ); { word idx51; word limit52; (* ((( (bPt) var_c14332)+4)+( idx51 = (* (( (ptr) (* (( (ptr) formal_c0269)+4) ))+6) ), limit52 = (word) (* (( (hPt) var_c14332)+1) ), BCK(idx51, limit52) )) ) = (* (( (bPt) (* (ptr) formal_c0269 ))+23) ); }; }; SOURCE(4958, 25) (void) (XR_Broadcast((word) (( (bPt) (* (( (ptr) formal_c0269)+4) ))+36))); SOURCE(4987, 6) (void) (XR_MonitorExit(* (( (ptr) formal_c0269)+4) )); return(1); }; SOURCE(4998, 20) (void) (XR_Wait((* (( (ptr) formal_c0269)+4) ), (word) (( (bPt) (* (( (ptr) formal_c0269)+4) ))+36))); }; goto lab_L100053; /* c2c skipped dead code */ } static void PushPutBlock_P540(formal_c0357, formal_c0358, formal_c0359, count_v4464) word formal_c0357; word formal_c0358; word formal_c0359; word count_v4464; { W10 var_c15964; /* declaration of self_v4380 skipped */ /* declaration of block_v4408 skipped */ /* declaration of startIndex_v4436 skipped */ register ptr gf_c15996 = (ptr) &globalframe; /* declaration of var_c14364 skipped */ /* declaration of stopIndexPlusOne_v6132 skipped */ (* (( (ptr) &var_c15964)+4)/* self_v4380 */ ) = formal_c0357; (* (( (ptr) &var_c15964)+5)/* block_v4408 */ ) = formal_c0358; (* (( (ptr) &var_c15964)+6)/* startIndex_v4436 */ ) = formal_c0359; /* PushPutBlock: */ SOURCE(5151, 961) { word tmpAddr53; tmpAddr53 = (word) (( (ptr) &var_c15964)+7)/* var_c14364 */ ; (* (ptr) tmpAddr53 ) = ( ((word) (fPt) innerPutBlock_P1824) ); (* (( (ptr) tmpAddr53) + 1) ) = 1; }; SOURCE(5891, 49) { word x54; (* (( (ptr) &var_c15964)+9)/* stopIndexPlusOne_v6132 */ ) = (x54 = ((* (( (ptr) &var_c15964)+6)/* startIndex_v4436 */ ) + count_v4464), MIN( (unsigned) , x54, 2147483647)); }; SOURCE(5942, 54) { word x55; word x56; (* (( (ptr) &var_c15964)+9)/* stopIndexPlusOne_v6132 */ ) = (x55 = (* (( (ptr) &var_c15964)+9)/* stopIndexPlusOne_v6132 */ ), x56 = (* (hPt) (* (( (ptr) &var_c15964)+5)/* block_v4408 */ ) ), MIN( (unsigned) , x55, x56)); }; SOURCE(5998, 114) { word var_c14396; var_c14396 = (* (( (ptr) (* (( (ptr) &var_c15964)+4)/* self_v4380 */ ))+1) ); if ((var_c14396 == 0)) { goto lab_L100055; }; if (((* (( (ptr) gf_c15996)+10) ) == XR_GetReferentType(var_c14396))) { { word data_v6236; data_v6236 = var_c14396; SOURCE(6051, 19) (void) innerPutBlock_P1824(data_v6236, (word) (( (bPt) &var_c15964)+28)/* var_c14364 */ ); }; } else { lab_L100055: ; SOURCE(6083, 29) { W4 var_c0136; (* (ptr) (word) &var_c0136 ) = 3; (* (( (ptr) (word) &var_c0136) + 1) ) = (* (( (ptr) &var_c15964)+4)/* self_v4380 */ ); (* (( (ptr) (word) &var_c0136) + 2) ) = 0; (* (( (ptr) (word) &var_c0136) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15996)+44)/* var_c13084 */ ))+5) ), (word) &var_c0136); }; }; }; } static void innerPutBlock_P1824(formal_c0360, formal_c16060) word formal_c0360; word formal_c16060; { W10 var_c16028; /* declaration of data_v6208 skipped */ /* declaration of var_c14428 skipped */ /* declaration of var_c14460 skipped */ formal_c16060 = (formal_c16060 - 28); (* (( (ptr) &var_c16028)+4)/* data_v6208 */ ) = formal_c0360; (* (ptr) &var_c16028 ) = formal_c16060; /* innerPutBlock: */ SOURCE(5239, 638) (void) (XR_MonitorEntry(* (( (ptr) &var_c16028)+4)/* data_v6208 */ )); SOURCE(5288, 589) { word var_c06; { word var_c0294; var_c0294 = (word) &var_c16028; var_c06 = (word) XR_Enable(( ((word) (fPt) NoName_Q3180) ), ( ((word) (fPt) NoName_Q3600) ), var_c0294); }; if ((var_c06 == 8)) { goto lab_L100061; }; }; SOURCE(5239, 638) (void) (XR_MonitorExit(* (( (ptr) &var_c16028)+4)/* data_v6208 */ )); return; /* c2c skipped dead code */ lab_L100061: ; SOURCE(5445, 46) { W4 var_c0140; var_c0140 = (* (W4Pt) (( (ptr) &var_c16028)+6)/* var_c14460 */ ); (void) XR_RaiseError((* (( (ptr) &var_c16028)+5)/* var_c14428 */ ), (word) &var_c0140); }; } static word NoName_Q3180(formal_c0273) word formal_c0273; { register ptr gf_c0272 = (ptr) &globalframe; SOURCE(5311, 17) { word numChars_v6280; SOURCE(5330, 547) lab_L100060: ; if (((* (( (ptr) (* (ptr) formal_c0273 ))+6) ) < (* (( (ptr) (* (ptr) formal_c0273 ))+9) ))) { } else { goto lab_L100058; }; { word new_v6324; SOURCE(5369, 27) new_v6324 = ((* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+6) ) + 1); SOURCE(5398, 93) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+8) )) || (0 != (* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+7) ))) { SOURCE(5445, 46) (* (( (ptr) formal_c0273)+5) ) = (* (( (ptr) (* (( (ptr) gf_c0272)+44)/* var_c13084 */ ))+5) ); { word tmpAddr57; tmpAddr57 = (word) (( (ptr) formal_c0273)+6); (* (ptr) tmpAddr57 ) = 2; (* (( (ptr) tmpAddr57) + 1) ) = (* (( (ptr) (* (ptr) formal_c0273 ))+4) ); (* (( (ptr) tmpAddr57) + 2) ) = 0; (* (( (ptr) tmpAddr57) + 3) ) = 0; }; (void) (XR_MonitorExit(* (( (ptr) formal_c0273)+4) )); return(8); }; SOURCE(5493, 40) if ((new_v6324 == (* (hPt) (* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+4) ) ))) { SOURCE(5526, 7) new_v6324 = 0; }; SOURCE(5535, 48) if ((new_v6324 == (* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+5) ))) { SOURCE(5563, 20) (void) (XR_Wait((* (( (ptr) formal_c0273)+4) ), (word) (( (bPt) (* (( (ptr) formal_c0273)+4) ))+36))); SOURCE(5585, 4) goto lab_L100060; }; SOURCE(5592, 116) { word x58; word tc59; word idx60; word x61; if ((new_v6324 > (* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+5) ))) { tc59 = (word) ((* (hPt) (* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+4) ) ) - new_v6324); } else { tc59 = (word) ((* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+5) ) - new_v6324); }; numChars_v6280 = (x58 = ((* (( (ptr) (* (ptr) formal_c0273 ))+9) ) - (* (( (ptr) (* (ptr) formal_c0273 ))+6) )), x61 = ( idx60 = (word) tc59, SGNCK(idx60) ), MIN((int)(word), x58, x61)); }; SOURCE(5710, 100) { register word i_v6368; register word noName_c14492; i_v6368 = new_v6324; noName_c14492 = ((new_v6324 + numChars_v6280) - 1); if ((i_v6368 > noName_c14492)) { goto lab_L100062; }; lab_L100065: ; SOURCE(5749, 34) { word var_c14524; var_c14524 = (* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+4) ); { word limit62; word idx63; word limit64; (* ((( (bPt) var_c14524)+4)+( limit62 = (word) (* (( (hPt) var_c14524)+1) ), BCK(i_v6368, limit62) )) ) = (word) (* ((( (bPt) (* (( (ptr) (* (ptr) formal_c0273 ))+5) ))+4)+( idx63 = (* (( (ptr) (* (ptr) formal_c0273 ))+6) ), limit64 = (word) (* (( (hPt) (* (( (ptr) (* (ptr) formal_c0273 ))+5) ))+1) ), BCK(idx63, limit64) )) ); }; }; SOURCE(5785, 25) (* (( (ptr) (* (ptr) formal_c0273 ))+6) ) = ((* (( (ptr) (* (ptr) formal_c0273 ))+6) ) + 1); if ((i_v6368 >= noName_c14492)) { goto lab_L100062; }; i_v6368 = (i_v6368 + 1); goto lab_L100065; lab_L100062: ; }; SOURCE(5821, 29) { word idx65; (* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+6) ) = ( idx65 = (word) ((new_v6324 + numChars_v6280) - 1), SGNCK(idx65) ); }; SOURCE(5852, 25) (void) (XR_Broadcast((word) (( (bPt) (* (( (ptr) formal_c0273)+4) ))+36))); }; goto lab_L100060; lab_L100058: ; }; return(0); } static void PushUnsafePutBlock_P600(formal_c0361, formal_c0362) word formal_c0361; W3 formal_c0362; { W12 var_c16092; /* declaration of self_v4536 skipped */ /* declaration of block_v4564 skipped */ register ptr gf_c16124 = (ptr) &globalframe; /* declaration of var_c14556 skipped */ /* declaration of startIndex_v6412 skipped */ /* declaration of stopIndexPlusOne_v6468 skipped */ (* (( (ptr) &var_c16092)+4)/* self_v4536 */ ) = formal_c0361; (* (W3Pt) (( (ptr) &var_c16092)+5)/* block_v4564 */ ) = formal_c0362; /* PushUnsafePutBlock: */ SOURCE(6118, 986) { word tmpAddr66; tmpAddr66 = (word) (( (ptr) &var_c16092)+8)/* var_c14556 */ ; (* (ptr) tmpAddr66 ) = ( ((word) (fPt) innerPutBlock_P2076) ); (* (( (ptr) tmpAddr66) + 1) ) = 1; }; SOURCE(6185, 34) { word idx67; (* (( (ptr) &var_c16092)+10)/* startIndex_v6412 */ ) = ( idx67 = (* (( (ptr) &var_c16092)+6) ), SGNCK(idx67) ); }; SOURCE(6933, 55) { word b_v12508; { word idx68; b_v12508 = ( idx68 = (* (( (ptr) &var_c16092)+7) ), SGNCK(idx68) ); }; SOURCE(1617, 47) { word x69; (* (( (ptr) &var_c16092)+11)/* stopIndexPlusOne_v6468 */ ) = (x69 = ((* (( (ptr) &var_c16092)+10)/* startIndex_v6412 */ ) + b_v12508), MIN( (unsigned) , x69, 2147483647)); }; }; SOURCE(6990, 114) { word var_c14620; var_c14620 = (* (( (ptr) (* (( (ptr) &var_c16092)+4)/* self_v4536 */ ))+1) ); if ((var_c14620 == 0)) { goto lab_L100068; }; if (((* (( (ptr) gf_c16124)+10) ) == XR_GetReferentType(var_c14620))) { { word data_v6572; data_v6572 = var_c14620; SOURCE(7043, 19) (void) innerPutBlock_P2076(data_v6572, (word) (( (bPt) &var_c16092)+32)/* var_c14556 */ ); }; } else { lab_L100068: ; SOURCE(7075, 29) { W4 var_c0154; (* (ptr) (word) &var_c0154 ) = 3; (* (( (ptr) (word) &var_c0154) + 1) ) = (* (( (ptr) &var_c16092)+4)/* self_v4536 */ ); (* (( (ptr) (word) &var_c0154) + 2) ) = 0; (* (( (ptr) (word) &var_c0154) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c16124)+44)/* var_c13084 */ ))+5) ), (word) &var_c0154); }; }; }; } static void innerPutBlock_P2076(formal_c0363, formal_c16188) word formal_c0363; word formal_c16188; { W10 var_c16156; /* declaration of data_v6544 skipped */ /* declaration of var_c14652 skipped */ /* declaration of var_c14684 skipped */ formal_c16188 = (formal_c16188 - 32); (* (( (ptr) &var_c16156)+4)/* data_v6544 */ ) = formal_c0363; (* (ptr) &var_c16156 ) = formal_c16188; /* innerPutBlock: */ SOURCE(6221, 698) (void) (XR_MonitorEntry(* (( (ptr) &var_c16156)+4)/* data_v6544 */ )); SOURCE(6278, 641) { word var_c07; { word var_c0295; var_c0295 = (word) &var_c16156; var_c07 = (word) XR_Enable(( ((word) (fPt) NoName_Q3240) ), ( ((word) (fPt) NoName_Q3540) ), var_c0295); }; if ((var_c07 == 9)) { goto lab_L100074; }; }; SOURCE(6221, 698) (void) (XR_MonitorExit(* (( (ptr) &var_c16156)+4)/* data_v6544 */ )); return; /* c2c skipped dead code */ lab_L100074: ; SOURCE(6515, 46) { W4 var_c0158; var_c0158 = (* (W4Pt) (( (ptr) &var_c16156)+6)/* var_c14684 */ ); (void) XR_RaiseError((* (( (ptr) &var_c16156)+5)/* var_c14652 */ ), (word) &var_c0158); }; } static word NoName_Q3240(formal_c0277) word formal_c0277; { register ptr gf_c0276 = (ptr) &globalframe; SOURCE(6301, 17) { word numChars_v6616; word bufferBase_v6644; SOURCE(6320, 78) bufferBase_v6644 = ((* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+4) ) + 4); SOURCE(6400, 519) lab_L100073: ; if (((* (( (ptr) (* (ptr) formal_c0277 ))+10) ) < (* (( (ptr) (* (ptr) formal_c0277 ))+11) ))) { } else { goto lab_L100071; }; { word new_v6712; SOURCE(6439, 27) new_v6712 = ((* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+6) ) + 1); SOURCE(6468, 93) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+8) )) || (0 != (* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+7) ))) { SOURCE(6515, 46) (* (( (ptr) formal_c0277)+5) ) = (* (( (ptr) (* (( (ptr) gf_c0276)+44)/* var_c13084 */ ))+5) ); { word tmpAddr70; tmpAddr70 = (word) (( (ptr) formal_c0277)+6); (* (ptr) tmpAddr70 ) = 2; (* (( (ptr) tmpAddr70) + 1) ) = (* (( (ptr) (* (ptr) formal_c0277 ))+4) ); (* (( (ptr) tmpAddr70) + 2) ) = 0; (* (( (ptr) tmpAddr70) + 3) ) = 0; }; (void) (XR_MonitorExit(* (( (ptr) formal_c0277)+4) )); return(9); }; SOURCE(6563, 40) if ((new_v6712 == (* (hPt) (* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+4) ) ))) { SOURCE(6596, 7) new_v6712 = 0; }; SOURCE(6605, 48) if ((new_v6712 == (* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+5) ))) { SOURCE(6633, 20) (void) (XR_Wait((* (( (ptr) formal_c0277)+4) ), (word) (( (bPt) (* (( (ptr) formal_c0277)+4) ))+36))); SOURCE(6655, 4) goto lab_L100073; }; SOURCE(6662, 165) { W3 var_c14716; W3 var_c14748; var_c14716.f0 = bufferBase_v6644; var_c14716.f1 = new_v6712; if ((new_v6712 > (* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+5) ))) { var_c14716.f2 = (* (hPt) (* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+4) ) ); } else { var_c14716.f2 = (* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+5) ); }; var_c14748.f0 = (* (( (ptr) (* (ptr) formal_c0277 ))+5) ); var_c14748.f1 = (* (( (ptr) (* (ptr) formal_c0277 ))+10) ); var_c14748.f2 = (* (( (ptr) (* (ptr) formal_c0277 ))+11) ); { word idx71; numChars_v6616 = ( idx71 = (word) Basics_ByteBlt(var_c14716, var_c14748), SGNCK(idx71) ); }; }; SOURCE(6829, 29) { word idx72; (* (( (ptr) (* (( (ptr) formal_c0277)+4) ))+6) ) = ( idx72 = (word) ((new_v6712 + numChars_v6616) - 1), SGNCK(idx72) ); }; SOURCE(6860, 32) { word idx73; (* (( (ptr) (* (ptr) formal_c0277 ))+10) ) = ( idx73 = (word) ((* (( (ptr) (* (ptr) formal_c0277 ))+10) ) + numChars_v6616), SGNCK(idx73) ); }; SOURCE(6894, 25) (void) (XR_Broadcast((word) (( (bPt) (* (( (ptr) formal_c0277)+4) ))+36))); }; goto lab_L100073; lab_L100071: ; }; return(0); } static void PushFlush_P660(formal_c0364) word formal_c0364; { W7 var_c16220; /* declaration of self_v4624 skipped */ register ptr gf_c16252 = (ptr) &globalframe; /* declaration of var_c14780 skipped */ var_c16220.f4/* self_v4624 */ = formal_c0364; /* PushFlush: */ SOURCE(7111, 360) { word tmpAddr74; tmpAddr74 = (word) (( (ptr) &var_c16220)+5)/* var_c14780 */ ; (* (ptr) tmpAddr74 ) = ( ((word) (fPt) innerFlush_P2280) ); (* (( (ptr) tmpAddr74) + 1) ) = 1; }; SOURCE(7360, 111) { word var_c14812; var_c14812 = (* (( (ptr) var_c16220.f4/* self_v4624 */ )+1) ); if ((var_c14812 == 0)) { goto lab_L100076; }; if (((* (( (ptr) gf_c16252)+10) ) == XR_GetReferentType(var_c14812))) { { word data_v6860; data_v6860 = var_c14812; SOURCE(7413, 16) (void) innerFlush_P2280(data_v6860, (word) (( (bPt) &var_c16220)+20)/* var_c14780 */ ); }; } else { lab_L100076: ; SOURCE(7442, 29) { W4 var_c0168; (* (ptr) (word) &var_c0168 ) = 3; (* (( (ptr) (word) &var_c0168) + 1) ) = var_c16220.f4/* self_v4624 */ ; (* (( (ptr) (word) &var_c0168) + 2) ) = 0; (* (( (ptr) (word) &var_c0168) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c16252)+44)/* var_c13084 */ ))+5) ), (word) &var_c0168); }; }; }; } static void innerFlush_P2280(formal_c0365, formal_c16316) word formal_c0365; word formal_c16316; { W10 var_c16284; /* declaration of data_v6832 skipped */ /* declaration of var_c14844 skipped */ /* declaration of var_c14876 skipped */ formal_c16316 = (formal_c16316 - 20); (* (( (ptr) &var_c16284)+4)/* data_v6832 */ ) = formal_c0365; (* (ptr) &var_c16284 ) = formal_c16316; /* innerFlush: */ SOURCE(7146, 200) (void) (XR_MonitorEntry(* (( (ptr) &var_c16284)+4)/* data_v6832 */ )); SOURCE(7192, 154) { word var_c08; { word var_c0296; var_c0296 = (word) &var_c16284; var_c08 = (word) XR_Enable(( ((word) (fPt) NoName_Q3300) ), ( ((word) (fPt) NoName_Q3480) ), var_c0296); }; if ((var_c08 == 10)) { goto lab_L100082; }; }; SOURCE(7146, 200) (void) (XR_MonitorExit(* (( (ptr) &var_c16284)+4)/* data_v6832 */ )); return; /* c2c skipped dead code */ lab_L100082: ; SOURCE(7278, 46) { W4 var_c0172; var_c0172 = (* (W4Pt) (( (ptr) &var_c16284)+6)/* var_c14876 */ ); (void) XR_RaiseError((* (( (ptr) &var_c16284)+5)/* var_c14844 */ ), (word) &var_c0172); }; } static word NoName_Q3300(formal_c0281) word formal_c0281; { register ptr gf_c0280 = (ptr) &globalframe; SOURCE(7215, 131) lab_L100081: ; if (((* (( (ptr) (* (( (ptr) formal_c0281)+4) ))+6) ) != (* (( (ptr) (* (( (ptr) formal_c0281)+4) ))+5) ))) { } else { goto lab_L100079; }; SOURCE(7252, 72) if ((0 != (* (( (ptr) (* (( (ptr) formal_c0281)+4) ))+7) ))) { SOURCE(7278, 46) (* (( (ptr) formal_c0281)+5) ) = (* (( (ptr) (* (( (ptr) gf_c0280)+44)/* var_c13084 */ ))+5) ); { word tmpAddr75; tmpAddr75 = (word) (( (ptr) formal_c0281)+6); (* (ptr) tmpAddr75 ) = 2; (* (( (ptr) tmpAddr75) + 1) ) = (* (( (ptr) (* (ptr) formal_c0281 ))+4) ); (* (( (ptr) tmpAddr75) + 2) ) = 0; (* (( (ptr) tmpAddr75) + 3) ) = 0; }; (void) (XR_MonitorExit(* (( (ptr) formal_c0281)+4) )); return(10); }; SOURCE(7326, 20) (void) (XR_Wait((* (( (ptr) formal_c0281)+4) ), (word) (( (bPt) (* (( (ptr) formal_c0281)+4) ))+36))); goto lab_L100081; lab_L100079: ; return(0); } static void PushReset_P720(self_v4684) word self_v4684; { register ptr gf_c16348 = (ptr) &globalframe; /* PushReset: */ SOURCE(7477, 262) SOURCE(7628, 111) { word var_c14908; var_c14908 = (* (( (ptr) self_v4684)+1) ); if ((var_c14908 == 0)) { goto lab_L100084; }; if (((* (( (ptr) gf_c16348)+10) ) == XR_GetReferentType(var_c14908))) { { word data_v7008; data_v7008 = var_c14908; SOURCE(7681, 16) { word data_v12556; data_v12556 = data_v7008; SOURCE(7681, 16) (void) (XR_MonitorEntry(data_v12556)); SOURCE(7565, 31) (* (( (ptr) data_v12556)+5) ) = 0; (* (( (ptr) data_v12556)+6) ) = 0; SOURCE(7598, 25) (void) (XR_Broadcast((word) (( (bPt) data_v12556)+36))); (void) (XR_MonitorExit(data_v12556)); }; }; } else { lab_L100084: ; SOURCE(7710, 29) { W4 var_c0177; (* (ptr) (word) &var_c0177 ) = 3; (* (( (ptr) (word) &var_c0177) + 1) ) = self_v4684; (* (( (ptr) (word) &var_c0177) + 2) ) = 0; (* (( (ptr) (word) &var_c0177) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c16348)+44)/* var_c13084 */ ))+5) ), (word) &var_c0177); }; }; }; } static void PushClose_P780(formal_c0366, formal_c0367) word formal_c0366; word formal_c0367; { W8 var_c16380; /* declaration of self_v4744 skipped */ /* declaration of abort_v4772 skipped */ register ptr gf_c16412 = (ptr) &globalframe; /* declaration of var_c14940 skipped */ var_c16380.f4/* self_v4744 */ = formal_c0366; var_c16380.f5/* abort_v4772 */ = formal_c0367; /* PushClose: */ SOURCE(7745, 542) { word tmpAddr76; tmpAddr76 = (word) (( (ptr) &var_c16380)+6)/* var_c14940 */ ; (* (ptr) tmpAddr76 ) = ( ((word) (fPt) innerClose_P2496) ); (* (( (ptr) tmpAddr76) + 1) ) = 1; }; SOURCE(8176, 111) { word var_c14972; var_c14972 = (* (( (ptr) var_c16380.f4/* self_v4744 */ )+1) ); if ((var_c14972 == 0)) { goto lab_L100086; }; if (((* (( (ptr) gf_c16412)+10) ) == XR_GetReferentType(var_c14972))) { { word data_v7156; data_v7156 = var_c14972; SOURCE(8229, 16) (void) innerClose_P2496(data_v7156, (word) (( (bPt) &var_c16380)+24)/* var_c14940 */ ); }; } else { lab_L100086: ; SOURCE(8258, 29) { W4 var_c0183; (* (ptr) (word) &var_c0183 ) = 3; (* (( (ptr) (word) &var_c0183) + 1) ) = var_c16380.f4/* self_v4744 */ ; (* (( (ptr) (word) &var_c0183) + 2) ) = 0; (* (( (ptr) (word) &var_c0183) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c16412)+44)/* var_c13084 */ ))+5) ), (word) &var_c0183); }; }; }; } static void innerClose_P2496(formal_c0368, formal_c16476) word formal_c0368; word formal_c16476; { W10 var_c16444; /* declaration of data_v7128 skipped */ /* declaration of var_c15004 skipped */ /* declaration of var_c15036 skipped */ formal_c16476 = (formal_c16476 - 24); (* (( (ptr) &var_c16444)+4)/* data_v7128 */ ) = formal_c0368; (* (ptr) &var_c16444 ) = formal_c16476; /* innerClose: */ SOURCE(7801, 367) (void) (XR_MonitorEntry(* (( (ptr) &var_c16444)+4)/* data_v7128 */ )); SOURCE(7847, 321) { word var_c09; { word var_c0297; var_c0297 = (word) &var_c16444; var_c09 = (word) XR_Enable(( ((word) (fPt) NoName_Q3360) ), ( ((word) (fPt) NoName_Q3420) ), var_c0297); }; if ((var_c09 == 11)) { goto lab_L100092; }; }; SOURCE(7801, 367) (void) (XR_MonitorExit(* (( (ptr) &var_c16444)+4)/* data_v7128 */ )); return; /* c2c skipped dead code */ lab_L100092: ; SOURCE(8069, 46) { W4 var_c0187; var_c0187 = (* (W4Pt) (( (ptr) &var_c16444)+6)/* var_c15036 */ ); (void) XR_RaiseError((* (( (ptr) &var_c16444)+5)/* var_c15004 */ ), (word) &var_c0187); }; } static word NoName_Q3360(formal_c0286) word formal_c0286; { register ptr gf_c0285 = (ptr) &globalframe; SOURCE(7870, 298) if ((0 == (* (( (ptr) (* (( (ptr) formal_c0286)+4) ))+8) ))) { SOURCE(7902, 98) if ((0 == (* (( (ptr) (* (ptr) formal_c0286 ))+5) ))) { SOURCE(7917, 83) lab_L100091: ; if ( ( ((* (( (ptr) (* (( (ptr) formal_c0286)+4) ))+6) ) != (* (( (ptr) (* (( (ptr) formal_c0286)+4) ))+5) )) ? (0 == (* ( ( (ptr) (* (( (ptr) formal_c0286)+4) ))+7) )) : 0 ) ) { } else { goto lab_L100089; }; SOURCE(7980, 20) (void) (XR_Wait((* (( (ptr) formal_c0286)+4) ), (word) (( (bPt) (* (( (ptr) formal_c0286)+4) ))+36))); goto lab_L100091; lab_L100089: ; }; SOURCE(8011, 104) if ( ( (0 != (* (( (ptr) (* (( (ptr) formal_c0286)+4) ))+7) )) ? ((* (( (ptr) (* (( (ptr) formal_c0286)+4) ))+6) ) != (* ( ( (ptr) (* (( (ptr) formal_c0286)+4) ))+5) )) : 0 ) ) { SOURCE(8069, 46) (* (( (ptr) formal_c0286)+5) ) = (* (( (ptr) (* (( (ptr) gf_c0285)+44)/* var_c13084 */ ))+5) ); { word tmpAddr77; tmpAddr77 = (word) (( (ptr) formal_c0286)+6); (* (ptr) tmpAddr77 ) = 2; (* (( (ptr) tmpAddr77) + 1) ) = (* (( (ptr) (* (ptr) formal_c0286 ))+4) ); (* (( (ptr) tmpAddr77) + 2) ) = 0; (* (( (ptr) tmpAddr77) + 3) ) = 0; }; (void) (XR_MonitorExit(* (( (ptr) formal_c0286)+4) )); return(11); }; SOURCE(8117, 24) (* (( (ptr) (* (( (ptr) formal_c0286)+4) ))+8) ) = 1; SOURCE(8143, 25) (void) (XR_Broadcast((word) (( (bPt) (* (( (ptr) formal_c0286)+4) ))+36))); }; return(0); } static void NoName_Q3420(formal_c0192, formal_c200040, formal_c200041, formal_c200042, formal_c200043) word formal_c0192; word formal_c200040; word formal_c200041; word formal_c200042; word formal_c200043; { if ((formal_c200041 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200040)+4) )); }; (* (ptr) formal_c0192 ) = 0; (* (( (ptr) formal_c0192)+1) ) = 0; return; } static void NoName_Q3480(formal_c0197, formal_c200036, formal_c200037, formal_c200038, formal_c200039) word formal_c0197; word formal_c200036; word formal_c200037; word formal_c200038; word formal_c200039; { if ((formal_c200037 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200036)+4) )); }; (* (ptr) formal_c0197 ) = 0; (* (( (ptr) formal_c0197)+1) ) = 0; return; } static void NoName_Q3540(formal_c0202, formal_c200032, formal_c200033, formal_c200034, formal_c200035) word formal_c0202; word formal_c200032; word formal_c200033; word formal_c200034; word formal_c200035; { if ((formal_c200033 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200032)+4) )); }; (* (ptr) formal_c0202 ) = 0; (* (( (ptr) formal_c0202)+1) ) = 0; return; } static void NoName_Q3600(formal_c0207, formal_c200028, formal_c200029, formal_c200030, formal_c200031) word formal_c0207; word formal_c200028; word formal_c200029; word formal_c200030; word formal_c200031; { if ((formal_c200029 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200028)+4) )); }; (* (ptr) formal_c0207 ) = 0; (* (( (ptr) formal_c0207)+1) ) = 0; return; } static void NoName_Q3660(formal_c0212, formal_c200024, formal_c200025, formal_c200026, formal_c200027) word formal_c0212; word formal_c200024; word formal_c200025; word formal_c200026; word formal_c200027; { if ((formal_c200025 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200024)+4) )); }; (* (ptr) formal_c0212 ) = 0; (* (( (ptr) formal_c0212)+1) ) = 0; return; } static void NoName_Q3720(formal_c0217, formal_c200020, formal_c200021, formal_c200022, formal_c200023) word formal_c0217; word formal_c200020; word formal_c200021; word formal_c200022; word formal_c200023; { if ((formal_c200021 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200020)+4) )); }; (* (ptr) formal_c0217 ) = 0; (* (( (ptr) formal_c0217)+1) ) = 0; return; } static void NoName_Q3780(formal_c0222, formal_c200016, formal_c200017, formal_c200018, formal_c200019) word formal_c0222; word formal_c200016; word formal_c200017; word formal_c200018; word formal_c200019; { if ((formal_c200017 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200016)+4) )); }; (* (ptr) formal_c0222 ) = 0; (* (( (ptr) formal_c0222)+1) ) = 0; return; } static void NoName_Q3840(formal_c0227, formal_c200012, formal_c200013, formal_c200014, formal_c200015) word formal_c0227; word formal_c200012; word formal_c200013; word formal_c200014; word formal_c200015; { if ((formal_c200013 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200012)+4) )); }; (* (ptr) formal_c0227 ) = 0; (* (( (ptr) formal_c0227)+1) ) = 0; return; } static void NoName_Q3900(formal_c0232, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0232; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { if ((formal_c200009 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200008)+4) )); }; (* (ptr) formal_c0232 ) = 0; (* (( (ptr) formal_c0232)+1) ) = 0; return; } static void NoName_Q3960(formal_c0237, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0237; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { if ((formal_c200005 == XR_Unwind)) { (void) (XR_MonitorExit(* (( (ptr) formal_c200004)+4) )); }; (* (ptr) formal_c0237 ) = 0; (* (( (ptr) formal_c0237)+1) ) = 0; return; } static void NoName_Q4020(formal_c0242, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0242; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { if ((formal_c200001 == XR_Unwind)) { }; (* (ptr) formal_c0242 ) = 0; (* (( (ptr) formal_c0242)+1) ) = 0; return; } /* file: IOPipeImpl, module: IOPipeImpl, compiled at: February 21, 1992 9:35:59 pm PST */ extern void XR_install_IOPipeImpl() { NoName_Q2700(); } extern void XR_run_IOPipeImpl() { XR_Start(&globalframe); }