/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: March 20, 1992 2:15:13 pm PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: FanoutStreamImpl, module: FanoutStreamImpl */ /* switches: bcfhklnouw */ #include <cedar/InstallationSupport.h> #include <cedar/CedarExtra.h> static char versionStamp[] = "@(#)mob←version [1814087323,2970648990] FanoutStreamImpl"; 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 {W8 f; word r;} W9; typedef struct {W8 f; W3 r;} W11; typedef W3 *W3Pt; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; #define SOURCE(p, l) /* source p, l */ static void NoName←Q1692(); static void FanoutStreamImpl←P0(); static word Create←P60(); static void EntryAdd←P120(); static void EntryRemove←P180(); static void AddSlave←P240(); static void RemoveSlave←P300(); static void FanoutStreamPutChar←P360(); static void ProtectedFanoutStreamPutChar←P420(); static word NoName←Q1752(); static void FanoutStreamPutBlock←P480(); static void ProtectedFanoutStreamPutBlock←P540(); static word NoName←Q1812(); static void FanoutStreamUnsafePutBlock←P600(); static void ProtectedFanoutStreamUnsafePutBlock←P660(); static word NoName←Q1872(); static void FanoutStreamFlush←P720(); static void ProtectedFanoutStreamFlush←P780(); static word NoName←Q1932(); static void ProtectedFanoutStreamEraseChar←P840(); static word NoName←Q1992(); static void ProtectedFanoutStreamReset←P900(); static word NoName←Q2052(); static void ProtectedFanoutStreamClose←P960(); static word NoName←Q2112(); static void NoName←Q2172(); static void NoName←Q2232(); static void NoName←Q2292(); static void NoName←Q2352(); static void NoName←Q2412(); static void NoName←Q2472(); static void NoName←Q2532(); 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[48];} string3 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\015\277\004\146\300\034\367\146\045\112\064\005\004\162\145\163\164\214\216\257\300\015\277\004\146\300\034\367\146\045\112\064\261\000\000\000"}; static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"}; static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\154\040\306\233\300\261\020\201\236\100\200\000\000"}; static struct {unsigned f; char r[4];} string6 = {131074, "\003\002\000"}; static struct {unsigned f; char r[16];} string7 = {917520, "DribbleOutput2\000"}; static struct {unsigned f; char r[16];} string8 = {851984, "DribbleOutput\000\000"}; static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\154\040\306\233\300\261\020\201\236\100\164\000\000"}; static struct {unsigned f; char r[12];} string10 = {589833, "\006\003 \001$\001<\004\003\000\000"}; static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\165\000\243\166\300\177\026\106\323\100\150\000\000"}; static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\176\205\123\106\300\155\262\343\054\100\150\000\000"}; static struct { word f0[17]; 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; 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[4]; } globalframe = { {0}, (word) ProtectedFanoutStreamClose←P960, 0, (word) ProtectedFanoutStreamReset←P900, 0, (word) ProtectedFanoutStreamEraseChar←P840, 0, (word) ProtectedFanoutStreamFlush←P780, 0, (word) FanoutStreamFlush←P720, 0, (word) ProtectedFanoutStreamUnsafePutBlock←P660, 0, (word) FanoutStreamUnsafePutBlock←P600, 0, (word) ProtectedFanoutStreamPutBlock←P540, 0, (word) FanoutStreamPutBlock←P480, 0, (word) ProtectedFanoutStreamPutChar←P420, 0, (word) FanoutStreamPutChar←P360, 0, (word) RemoveSlave←P300, 0, (word) AddSlave←P240, 0, (word) EntryRemove←P180, 0, (word) EntryAdd←P120, 0, (word) Create←P60, 0, (word) FanoutStreamImpl←P0, {0} }; static void NoName←Q1692() { register ptr gf←c0178 = (ptr) &globalframe; word var←c14136; (* (( (ptr) gf←c0178)+10) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf←c0178)+11) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf←c0178)+13) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6); (* (ptr) (( (bPt) gf←c0178)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0178)+10) ), (word) &string7); (* (ptr) (( (bPt) gf←c0178)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0178)+10) ), (word) &string8); (void) XR←DeclareGlobalFrame((word) "FanoutStreamImpl", &globalframe, (word) XR←GetTypeIndex((word) &string9, 0, (word) &string10) , (word) (( (bPt) gf←c0178)+196)/* var←c13912 */ ); var←c14136 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string11)), 103); (* (( (ptr) gf←c0178)+51)/* var←c13944 */ ) = var←c14136; (void) XR←ImportProcS(var←c14136, 530434); (void) XR←ImportProcS(var←c14136, 268033); (void) XR←ImportProcS(var←c14136, 529922); (void) XR←ImportProcS(var←c14136, 267521); (void) XR←ImportProcS(var←c14136, 1053698); (void) XR←ImportProcS(var←c14136, 1053444); (void) XR←ImportProcS(var←c14136, 528642); (void) XR←ImportProcS(var←c14136, 67921155); (void) XR←ImportProcS(var←c14136, 72115219); var←c14136 = (word) XR←ImportInterface((word) "IOUtils", (word) XR←GetTypeIndexS((word) (&string12)), 27); (* (( (ptr) gf←c0178)+52)/* var←c14104 */ ) = var←c14136; var←c14136 = (word) XR←ExportInterface((word) "FanoutStream", (word) XR←GetTypeIndexS((word) (&string13)), 3); (* (( (ptr) gf←c0178)+53)/* var←c14168 */ ) = var←c14136; (void) XR←ExportProcS(var←c14136, (word) (( (bPt) gf←c0178)+188)/* var←c13880 */ , 67633154); (void) XR←ExportProcS(var←c14136, (word) (( (bPt) gf←c0178)+164)/* var←c13784 */ , 524546); (void) XR←ExportProcS(var←c14136, (word) (( (bPt) gf←c0178)+156)/* var←c13752 */ , 524802); } static void FanoutStreamImpl←P0(formal←c051, formal←c048) word formal←c051; word formal←c048; { register ptr gf←c14200 = (ptr) &globalframe; /* FanoutStreamImpl: */ SOURCE(222, 5345) SOURCE(540, 348) { W19 var←c049; (* (ptr) (word) &var←c049 ) = 1; (* (( (ptr) (word) &var←c049) + 1) ) = (* (( (ptr) gf←c14200)+16) ); (* (( (ptr) (word) &var←c049) + 2) ) = 0; (* (( (ptr) (word) &var←c049) + 3) ) = 0; (* (( (ptr) (word) &var←c049) + 4) ) = 0; (* (( (ptr) (word) &var←c049) + 5) ) = 0; (* (( (ptr) (word) &var←c049) + 6) ) = 0; (* (( (ptr) (word) &var←c049) + 7) ) = 0; (* (( (ptr) (word) &var←c049) + 8) ) = (word) (( (bPt) gf←c14200)+148)/* var←c13720 */ ; (* (( (ptr) (word) &var←c049) + 9) ) = (word) (( (bPt) gf←c14200)+132)/* var←c13656 */ ; (* (( (ptr) (word) &var←c049) + 10) ) = (word) (( (bPt) gf←c14200)+116)/* var←c13592 */ ; (* (( (ptr) (word) &var←c049) + 11) ) = (word) (( (bPt) gf←c14200)+100)/* var←c13528 */ ; (* (( (ptr) (word) &var←c049) + 12) ) = (word) (( (bPt) gf←c14200)+76)/* var←c13432 */ ; (* (( (ptr) (word) &var←c049) + 13) ) = (word) (( (bPt) gf←c14200)+68)/* var←c13400 */ ; (* (( (ptr) (word) &var←c049) + 14) ) = 0; (* (( (ptr) (word) &var←c049) + 15) ) = 0; (* (( (ptr) (word) &var←c049) + 16) ) = 0; (* (( (ptr) (word) &var←c049) + 17) ) = 0; (* (( (ptr) (word) &var←c049) + 18) ) = (word) (( (bPt) gf←c14200)+84)/* var←c13464 */ ; { word pd14; pd14 = (* (( (ptr) (* (( (ptr) gf←c14200)+51)/* var←c13944 */ ))+104) ); (* (( (ptr) gf←c14200)+8)/* fanoutStreamProcs←v2636 */ ) = (word) ( *( (fPt) ((* (ptr) pd14 ))))((word) (&var←c049), pd14) ; }; }; SOURCE(891, 394) { W19 var←c050; (* (ptr) (word) &var←c050 ) = 1; (* (( (ptr) (word) &var←c050) + 1) ) = (* (( (ptr) gf←c14200)+15) ); (* (( (ptr) (word) &var←c050) + 2) ) = 0; (* (( (ptr) (word) &var←c050) + 3) ) = 0; (* (( (ptr) (word) &var←c050) + 4) ) = 0; (* (( (ptr) (word) &var←c050) + 5) ) = 0; (* (( (ptr) (word) &var←c050) + 6) ) = 0; (* (( (ptr) (word) &var←c050) + 7) ) = 0; (* (( (ptr) (word) &var←c050) + 8) ) = (word) (( (bPt) gf←c14200)+140)/* var←c13688 */ ; (* (( (ptr) (word) &var←c050) + 9) ) = (word) (( (bPt) gf←c14200)+124)/* var←c13624 */ ; (* (( (ptr) (word) &var←c050) + 10) ) = (word) (( (bPt) gf←c14200)+108)/* var←c13560 */ ; (* (( (ptr) (word) &var←c050) + 11) ) = (word) (( (bPt) gf←c14200)+92)/* var←c13496 */ ; (* (( (ptr) (word) &var←c050) + 12) ) = (word) (( (bPt) gf←c14200)+76)/* var←c13432 */ ; (* (( (ptr) (word) &var←c050) + 13) ) = (word) (( (bPt) gf←c14200)+68)/* var←c13400 */ ; (* (( (ptr) (word) &var←c050) + 14) ) = 0; (* (( (ptr) (word) &var←c050) + 15) ) = 0; (* (( (ptr) (word) &var←c050) + 16) ) = 0; (* (( (ptr) (word) &var←c050) + 17) ) = 0; (* (( (ptr) (word) &var←c050) + 18) ) = (word) (( (bPt) gf←c14200)+84)/* var←c13464 */ ; { word pd15; pd15 = (* (( (ptr) (* (( (ptr) gf←c14200)+51)/* var←c13944 */ ))+104) ); (* (( (ptr) gf←c14200)+9)/* protectedFanoutStreamProcs←v2664 */ ) = (word) ( *( (fPt) ((* (ptr) pd15 ))))((word) (&var←c050), pd15) ; }; }; } static word Create←P60(reportErrors←v3412, forwardClose←v3440) word reportErrors←v3412; word forwardClose←v3440; { register ptr gf←c14232 = (ptr) &globalframe; word var←c3484; /* Create: */ SOURCE(1288, 304) SOURCE(1386, 206) { word var←c14040; word var←c14008; var←c14040 = XR←NewObject(12, (* (( (ptr) gf←c14232)+13) )); (* (ptr) var←c14040 ) = reportErrors←v3412; (* (( (ptr) var←c14040)+1) ) = forwardClose←v3440; var←c14008 = var←c14040; { word pd16; pd16 = (* (( (ptr) (* (( (ptr) gf←c14232)+51)/* var←c13944 */ ))+105) ); return((word) ( *( (fPt) ((* (ptr) pd16 ))))( ( (0 != reportErrors←v3412) ? (* (( (ptr) gf←c14232)+8)/* fanoutStreamProcs←v2636 */ ) : (* ( ( (ptr) gf←c14232)+9)/* protectedFanoutStreamProcs←v2664 */ ) ) , var←c14008, 0, pd16)); }; }; } static void EntryAdd←P120(data←v3544, slave←v3572) word data←v3544; word slave←v3572; { register ptr gf←c14264 = (ptr) &globalframe; /* EntryAdd: */ SOURCE(1598, 225) (void) (XR←MonitorEntry((word) (( (bPt) gf←c14264)+16)/* LOCK←v2524 */ )); SOURCE(1666, 157) if ((data←v3544 != 0)) { SOURCE(1685, 89) { register word l←v4884; l←v4884 = (* (( (ptr) data←v3544)+2) ); lab←L100003: ; if ((l←v4884 != 0)) { } else { goto lab←L100000; }; SOURCE(1744, 30) if (((* (ptr) l←v4884 ) == slave←v3572)) { SOURCE(1768, 6) (void) (XR←MonitorExit((word) (( (bPt) gf←c14264)+16)/* LOCK←v2524 */ )); return; }; l←v4884 = (* (( (ptr) l←v4884)+1) ); goto lab←L100003; lab←L100000: ; }; SOURCE(1785, 38) { word var←c14072; var←c14072 = XR←NewObject(8, (* (( (ptr) gf←c14264)+11) )); (* (ptr) var←c14072 ) = slave←v3572; (* (( (ptr) var←c14072)+1) ) = (* (( (ptr) data←v3544)+2) ); (* (( (ptr) data←v3544)+2) ) = var←c14072; }; }; SOURCE(1598, 225) (void) (XR←MonitorExit((word) (( (bPt) gf←c14264)+16)/* LOCK←v2524 */ )); return; } static void EntryRemove←P180(data←v3632, slave←v3660) word data←v3632; word slave←v3660; { register ptr gf←c14296 = (ptr) &globalframe; /* EntryRemove: */ SOURCE(1832, 341) (void) (XR←MonitorEntry((word) (( (bPt) gf←c14296)+16)/* LOCK←v2524 */ )); SOURCE(1903, 270) if ((data←v3632 != 0)) { SOURCE(1922, 91) lab←L100006: ; if ( ( ((* (( (ptr) data←v3632)+2) ) != 0) ? ((* (ptr) (* (( (ptr) data←v3632)+2) ) ) == slave←v3660) : 0 ) ) { } else { goto lab←L100004; }; SOURCE(1975, 38) (* (( (ptr) data←v3632)+2) ) = (* (( (ptr) (* (( (ptr) data←v3632)+2) ))+1) ); goto lab←L100006; lab←L100004: ; SOURCE(2015, 158) { word lag←v5012; SOURCE(2021, 5) lag←v5012 = (* (( (ptr) data←v3632)+2) ); SOURCE(2056, 117) lab←L100009: ; if ( ( (lag←v5012 != 0) ? ((* (( (ptr) lag←v5012)+1) ) != 0) : 0 ) ) { } else { goto lab←L100007; }; SOURCE(2090, 83) if (((* (ptr) (* (( (ptr) lag←v5012)+1) ) ) == slave←v3660)) { SOURCE(2119, 30) (* (( (ptr) lag←v5012)+1) ) = (* (( (ptr) (* (( (ptr) lag←v5012)+1) ))+1) ); } else { SOURCE(2149, 24) lag←v5012 = (* (( (ptr) lag←v5012)+1) ); }; goto lab←L100009; lab←L100007: ; }; }; SOURCE(1832, 341) (void) (XR←MonitorExit((word) (( (bPt) gf←c14296)+16)/* LOCK←v2524 */ )); return; } static void AddSlave←P240(master←v3720, slave←v3748) word master←v3720; word slave←v3748; { register ptr gf←c14328 = (ptr) &globalframe; word data←v5140; /* AddSlave: */ SOURCE(2184, 137) SOURCE(2248, 50) data←v5140 = XR←Narrow((* (( (ptr) master←v3720)+1) ), (* (( (ptr) gf←c14328)+13) )); SOURCE(2300, 21) (void) EntryAdd←P120(data←v5140, slave←v3748); } static void RemoveSlave←P300(master←v3808, slave←v3836) word master←v3808; word slave←v3836; { register ptr gf←c14360 = (ptr) &globalframe; /* RemoveSlave: */ SOURCE(2326, 178) SOURCE(2393, 111) if ( ( (master←v3808 != 0) ? (slave←v3836 != 0) : 0 ) ) { SOURCE(2426, 80) { word data←v5184; SOURCE(2428, 50) data←v5184 = XR←Narrow((* (( (ptr) master←v3808)+1) ), (* (( (ptr) gf←c14360)+13) )); SOURCE(2480, 24) (void) EntryRemove←P180(data←v5184, slave←v3836); }; }; } static void FanoutStreamPutChar←P360(self←v3896, char←v3924) word self←v3896; word char←v3924; { register ptr gf←c14392 = (ptr) &globalframe; word data←v5228; /* FanoutStreamPutChar: */ SOURCE(2513, 191) SOURCE(2570, 48) data←v5228 = XR←Narrow((* (( (ptr) self←v3896)+1) ), (* (( (ptr) gf←c14392)+13) )); SOURCE(2620, 84) { register word l←v5272; l←v5272 = (* (( (ptr) data←v5228)+2) ); lab←L100013: ; if ((l←v5272 != 0)) { } else { goto lab←L100010; }; SOURCE(2679, 25) { word pd17; pd17 = (* (( (ptr) (* (( (ptr) gf←c14392)+51)/* var←c13944 */ ))+21) ); (void) ( *( (fPt) ((* (ptr) pd17 ))))((* (ptr) l←v5272 ), char←v3924, pd17); }; l←v5272 = (* (( (ptr) l←v5272)+1) ); goto lab←L100013; lab←L100010: ; }; } static void ProtectedFanoutStreamPutChar←P420(self←v3984, formal←c0231) word self←v3984; word formal←c0231; { W9 var←c14424; /* declaration of char←v4012 skipped */ register ptr gf←c14456 = (ptr) &globalframe; /* declaration of data←v5400 skipped */ (* (( (ptr) &var←c14424)+4)/* char←v4012 */ ) = formal←c0231; /* ProtectedFanoutStreamPutChar: */ SOURCE(2718, 270) SOURCE(2784, 48) (* (( (ptr) &var←c14424)+5)/* data←v5400 */ ) = XR←Narrow((* (( (ptr) self←v3984)+1) ), (* (( (ptr) gf←c14456)+13) )); SOURCE(2834, 154) { /* declaration of l←v5444 skipped */ (* (( (ptr) &var←c14424)+6)/* l←v5444 */ ) = (* (( (ptr) (* (( (ptr) &var←c14424)+5)/* data←v5400 */ ))+2) ); lab←L100017: ; if (((* (( (ptr) &var←c14424)+6)/* l←v5444 */ ) != 0)) { } else { goto lab←L100014; }; SOURCE(2893, 95) SOURCE(2893, 95) { /* declaration of var←c01 skipped */ /* declaration of var←c02 skipped */ (* (( (ptr) &var←c14424)+7)/* var←c01 */ ) = (* (ptr) (* (( (ptr) &var←c14424)+6)/* l←v5444 */ ) ); (* (( (ptr) &var←c14424)+8)/* var←c02 */ ) = (* (( (ptr) (* (( (ptr) gf←c14456)+51)/* var←c13944 */ ))+21) ); { word var←c03; { word var←c0210; var←c0210 = (word) &var←c14424; var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q1752) ), ( ((word) (fPt) NoName←Q2532) ), var←c0210); }; /* removed trivial cond node */ }; }; (* (( (ptr) &var←c14424)+6)/* l←v5444 */ ) = (* (( (ptr) (* (( (ptr) &var←c14424)+6)/* l←v5444 */ ))+1) ); goto lab←L100017; lab←L100014: ; }; } static word NoName←Q1752(formal←c0187) word formal←c0187; { SOURCE(2893, 95) { word pd18; pd18 = (* (( (ptr) formal←c0187)+8) ); (void) ( *( (fPt) ((* (ptr) pd18 ))))((* (( (ptr) formal←c0187)+7) ), (* (( (ptr) formal←c0187)+4) ), pd18); }; return(0); } static void FanoutStreamPutBlock←P480(self←v4072, block←v4100, startIndex←v4128, count←v4156) word self←v4072; word block←v4100; word startIndex←v4128; word count←v4156; { register ptr gf←c14488 = (ptr) &globalframe; word data←v5572; /* FanoutStreamPutBlock: */ SOURCE(3015, 256) SOURCE(3116, 48) data←v5572 = XR←Narrow((* (( (ptr) self←v4072)+1) ), (* (( (ptr) gf←c14488)+13) )); SOURCE(3166, 105) { register word l←v5616; l←v5616 = (* (( (ptr) data←v5572)+2) ); lab←L100025: ; if ((l←v5616 != 0)) { } else { goto lab←L100022; }; SOURCE(3225, 46) { word pd19; pd19 = (* (( (ptr) (* (( (ptr) gf←c14488)+51)/* var←c13944 */ ))+23) ); (void) ( *( (fPt) ((* (ptr) pd19 ))))((* (ptr) l←v5616 ), block←v4100, startIndex←v4128, count←v4156, pd19); }; l←v5616 = (* (( (ptr) l←v5616)+1) ); goto lab←L100025; lab←L100022: ; }; } static void ProtectedFanoutStreamPutBlock←P540(self←v4228, formal←c0232, formal←c0233, formal←c0234) word self←v4228; word formal←c0232; word formal←c0233; word formal←c0234; { W11 var←c14520; /* declaration of block←v4256 skipped */ /* declaration of startIndex←v4284 skipped */ /* declaration of count←v4312 skipped */ register ptr gf←c14552 = (ptr) &globalframe; /* declaration of data←v5744 skipped */ (* (( (ptr) &var←c14520)+4)/* block←v4256 */ ) = formal←c0232; (* (( (ptr) &var←c14520)+5)/* startIndex←v4284 */ ) = formal←c0233; (* (( (ptr) &var←c14520)+6)/* count←v4312 */ ) = formal←c0234; /* ProtectedFanoutStreamPutBlock: */ SOURCE(3285, 333) SOURCE(3395, 48) (* (( (ptr) &var←c14520)+7)/* data←v5744 */ ) = XR←Narrow((* (( (ptr) self←v4228)+1) ), (* (( (ptr) gf←c14552)+13) )); SOURCE(3445, 173) { /* declaration of l←v5788 skipped */ (* (( (ptr) &var←c14520)+8)/* l←v5788 */ ) = (* (( (ptr) (* (( (ptr) &var←c14520)+7)/* data←v5744 */ ))+2) ); lab←L100029: ; if (((* (( (ptr) &var←c14520)+8)/* l←v5788 */ ) != 0)) { } else { goto lab←L100026; }; SOURCE(3504, 114) SOURCE(3504, 114) { /* declaration of var←c04 skipped */ /* declaration of var←c05 skipped */ (* (( (ptr) &var←c14520)+9)/* var←c04 */ ) = (* (ptr) (* (( (ptr) &var←c14520)+8)/* l←v5788 */ ) ); (* (( (ptr) &var←c14520)+10)/* var←c05 */ ) = (* (( (ptr) (* (( (ptr) gf←c14552)+51)/* var←c13944 */ ))+23) ); { word var←c06; { word var←c0211; var←c0211 = (word) &var←c14520; var←c06 = (word) XR←Enable(( ((word) (fPt) NoName←Q1812) ), ( ((word) (fPt) NoName←Q2472) ), var←c0211); }; /* removed trivial cond node */ }; }; (* (( (ptr) &var←c14520)+8)/* l←v5788 */ ) = (* (( (ptr) (* (( (ptr) &var←c14520)+8)/* l←v5788 */ ))+1) ); goto lab←L100029; lab←L100026: ; }; } static word NoName←Q1812(formal←c0190) word formal←c0190; { SOURCE(3504, 114) { word pd20; pd20 = (* (( (ptr) formal←c0190)+10) ); (void) ( *( (fPt) ((* (ptr) pd20 ))))((* (( (ptr) formal←c0190)+9) ), (* (( (ptr) formal←c0190)+4) ), (* (( (ptr) formal←c0190)+5) ), (* (( (ptr) formal←c0190)+6) ), pd20); }; return(0); } static void FanoutStreamUnsafePutBlock←P600(self←v4384, block←v4412) word self←v4384; W3 block←v4412; { register ptr gf←c14584 = (ptr) &globalframe; word data←v5916; /* FanoutStreamUnsafePutBlock: */ SOURCE(3645, 217) SOURCE(3720, 48) data←v5916 = XR←Narrow((* (( (ptr) self←v4384)+1) ), (* (( (ptr) gf←c14584)+13) )); SOURCE(3770, 92) { register word l←v5960; l←v5960 = (* (( (ptr) data←v5916)+2) ); lab←L100037: ; if ((l←v5960 != 0)) { } else { goto lab←L100034; }; SOURCE(3829, 33) { word pd21; pd21 = (* (( (ptr) (* (( (ptr) gf←c14584)+51)/* var←c13944 */ ))+24) ); (void) ( *( (fPt) ((* (ptr) pd21 ))))((* (ptr) l←v5960 ), block←v4412, pd21); }; l←v5960 = (* (( (ptr) l←v5960)+1) ); goto lab←L100037; lab←L100034: ; }; } static void ProtectedFanoutStreamUnsafePutBlock←P660(self←v4472, formal←c0235) word self←v4472; W3 formal←c0235; { W11 var←c14616; /* declaration of block←v4500 skipped */ register ptr gf←c14648 = (ptr) &globalframe; /* declaration of data←v6088 skipped */ (* (W3Pt) (( (ptr) &var←c14616)+4)/* block←v4500 */ ) = formal←c0235; /* ProtectedFanoutStreamUnsafePutBlock: */ SOURCE(3876, 294) SOURCE(3960, 48) (* (( (ptr) &var←c14616)+7)/* data←v6088 */ ) = XR←Narrow((* (( (ptr) self←v4472)+1) ), (* (( (ptr) gf←c14648)+13) )); SOURCE(4010, 160) { /* declaration of l←v6132 skipped */ (* (( (ptr) &var←c14616)+8)/* l←v6132 */ ) = (* (( (ptr) (* (( (ptr) &var←c14616)+7)/* data←v6088 */ ))+2) ); lab←L100041: ; if (((* (( (ptr) &var←c14616)+8)/* l←v6132 */ ) != 0)) { } else { goto lab←L100038; }; SOURCE(4069, 101) SOURCE(4069, 101) { /* declaration of var←c07 skipped */ /* declaration of var←c08 skipped */ (* (( (ptr) &var←c14616)+9)/* var←c07 */ ) = (* (ptr) (* (( (ptr) &var←c14616)+8)/* l←v6132 */ ) ); (* (( (ptr) &var←c14616)+10)/* var←c08 */ ) = (* (( (ptr) (* (( (ptr) gf←c14648)+51)/* var←c13944 */ ))+24) ); { word var←c09; { word var←c0212; var←c0212 = (word) &var←c14616; var←c09 = (word) XR←Enable(( ((word) (fPt) NoName←Q1872) ), ( ((word) (fPt) NoName←Q2412) ), var←c0212); }; /* removed trivial cond node */ }; }; (* (( (ptr) &var←c14616)+8)/* l←v6132 */ ) = (* (( (ptr) (* (( (ptr) &var←c14616)+8)/* l←v6132 */ ))+1) ); goto lab←L100041; lab←L100038: ; }; } static word NoName←Q1872(formal←c0193) word formal←c0193; { SOURCE(4069, 101) { word pd22; pd22 = (* (( (ptr) formal←c0193)+10) ); (void) ( *( (fPt) ((* (ptr) pd22 ))))((* (( (ptr) formal←c0193)+9) ), (* (W3Pt) (( (ptr) formal←c0193)+4) ), pd22); }; return(0); } static void FanoutStreamFlush←P720(self←v4560) word self←v4560; { register ptr gf←c14680 = (ptr) &globalframe; word data←v6260; /* FanoutStreamFlush: */ SOURCE(4197, 169) SOURCE(4240, 48) data←v6260 = XR←Narrow((* (( (ptr) self←v4560)+1) ), (* (( (ptr) gf←c14680)+13) )); SOURCE(4290, 76) { register word l←v6304; l←v6304 = (* (( (ptr) data←v6260)+2) ); lab←L100049: ; if ((l←v6304 != 0)) { } else { goto lab←L100046; }; SOURCE(4349, 17) { word pd23; pd23 = (* (( (ptr) (* (( (ptr) gf←c14680)+51)/* var←c13944 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd23 ))))((* (ptr) (l←v6304) ), pd23); }; l←v6304 = (* (( (ptr) l←v6304)+1) ); goto lab←L100049; lab←L100046: ; }; } static void ProtectedFanoutStreamFlush←P780(self←v4620) word self←v4620; { W8 var←c14712; register ptr gf←c14744 = (ptr) &globalframe; /* declaration of data←v6432 skipped */ /* ProtectedFanoutStreamFlush: */ SOURCE(4380, 246) SOURCE(4432, 48) var←c14712.f4/* data←v6432 */ = XR←Narrow((* (( (ptr) self←v4620)+1) ), (* (( (ptr) gf←c14744)+13) )); SOURCE(4482, 144) { /* declaration of l←v6476 skipped */ var←c14712.f5/* l←v6476 */ = (* (( (ptr) var←c14712.f4/* data←v6432 */ )+2) ); lab←L100053: ; if ((var←c14712.f5/* l←v6476 */ != 0)) { } else { goto lab←L100050; }; SOURCE(4541, 85) SOURCE(4541, 85) { /* declaration of var←c010 skipped */ /* declaration of var←c011 skipped */ var←c14712.f6/* var←c010 */ = (* (ptr) var←c14712.f5/* l←v6476 */ ); var←c14712.f7/* var←c011 */ = (* (( (ptr) (* (( (ptr) gf←c14744)+51)/* var←c13944 */ ))+25) ); { word var←c012; { word var←c0213; var←c0213 = (word) &var←c14712; var←c012 = (word) XR←Enable(( ((word) (fPt) NoName←Q1932) ), ( ((word) (fPt) NoName←Q2352) ), var←c0213); }; /* removed trivial cond node */ }; }; var←c14712.f5/* l←v6476 */ = (* (( (ptr) var←c14712.f5/* l←v6476 */ )+1) ); goto lab←L100053; lab←L100050: ; }; } static word NoName←Q1932(formal←c0196) word formal←c0196; { SOURCE(4541, 85) { word pd24; pd24 = (* (( (ptr) formal←c0196)+7) ); (void) ( *( (fPt) ((* (ptr) pd24 ))))((* ((( (ptr) formal←c0196)+6)) ), pd24); }; return(0); } static void ProtectedFanoutStreamEraseChar←P840(self←v4680, formal←c0236) word self←v4680; word formal←c0236; { W9 var←c14776; /* declaration of char←v4708 skipped */ register ptr gf←c14808 = (ptr) &globalframe; /* declaration of data←v6604 skipped */ (* (( (ptr) &var←c14776)+4)/* char←v4708 */ ) = formal←c0236; /* ProtectedFanoutStreamEraseChar: */ SOURCE(4653, 272) SOURCE(4721, 48) (* (( (ptr) &var←c14776)+5)/* data←v6604 */ ) = XR←Narrow((* (( (ptr) self←v4680)+1) ), (* (( (ptr) gf←c14808)+13) )); SOURCE(4771, 154) { /* declaration of l←v6648 skipped */ (* (( (ptr) &var←c14776)+6)/* l←v6648 */ ) = (* (( (ptr) (* (( (ptr) &var←c14776)+5)/* data←v6604 */ ))+2) ); lab←L100061: ; if (((* (( (ptr) &var←c14776)+6)/* l←v6648 */ ) != 0)) { } else { goto lab←L100058; }; SOURCE(4830, 95) SOURCE(4830, 95) { /* declaration of var←c013 skipped */ /* declaration of var←c014 skipped */ (* (( (ptr) &var←c14776)+7)/* var←c013 */ ) = (* (ptr) (* (( (ptr) &var←c14776)+6)/* l←v6648 */ ) ); (* (( (ptr) &var←c14776)+8)/* var←c014 */ ) = (* (( (ptr) (* (( (ptr) gf←c14808)+51)/* var←c13944 */ ))+26) ); { word var←c015; { word var←c0214; var←c0214 = (word) &var←c14776; var←c015 = (word) XR←Enable(( ((word) (fPt) NoName←Q1992) ), ( ((word) (fPt) NoName←Q2292) ), var←c0214); }; /* removed trivial cond node */ }; }; (* (( (ptr) &var←c14776)+6)/* l←v6648 */ ) = (* (( (ptr) (* (( (ptr) &var←c14776)+6)/* l←v6648 */ ))+1) ); goto lab←L100061; lab←L100058: ; }; } static word NoName←Q1992(formal←c0198) word formal←c0198; { SOURCE(4830, 95) { word pd25; pd25 = (* (( (ptr) formal←c0198)+8) ); (void) ( *( (fPt) ((* (ptr) pd25 ))))((* (( (ptr) formal←c0198)+7) ), (* (( (ptr) formal←c0198)+4) ), pd25); }; return(0); } static void ProtectedFanoutStreamReset←P900(self←v4768) word self←v4768; { W8 var←c14840; register ptr gf←c14872 = (ptr) &globalframe; /* declaration of data←v6776 skipped */ /* ProtectedFanoutStreamReset: */ SOURCE(4952, 246) SOURCE(5004, 48) var←c14840.f4/* data←v6776 */ = XR←Narrow((* (( (ptr) self←v4768)+1) ), (* (( (ptr) gf←c14872)+13) )); SOURCE(5054, 144) { /* declaration of l←v6820 skipped */ var←c14840.f5/* l←v6820 */ = (* (( (ptr) var←c14840.f4/* data←v6776 */ )+2) ); lab←L100069: ; if ((var←c14840.f5/* l←v6820 */ != 0)) { } else { goto lab←L100066; }; SOURCE(5113, 85) SOURCE(5113, 85) { /* declaration of var←c016 skipped */ /* declaration of var←c017 skipped */ var←c14840.f6/* var←c016 */ = (* (ptr) var←c14840.f5/* l←v6820 */ ); var←c14840.f7/* var←c017 */ = (* (( (ptr) (* (( (ptr) gf←c14872)+51)/* var←c13944 */ ))+27) ); { word var←c018; { word var←c0215; var←c0215 = (word) &var←c14840; var←c018 = (word) XR←Enable(( ((word) (fPt) NoName←Q2052) ), ( ((word) (fPt) NoName←Q2232) ), var←c0215); }; /* removed trivial cond node */ }; }; var←c14840.f5/* l←v6820 */ = (* (( (ptr) var←c14840.f5/* l←v6820 */ )+1) ); goto lab←L100069; lab←L100066: ; }; } static word NoName←Q2052(formal←c0200) word formal←c0200; { SOURCE(5113, 85) { word pd26; pd26 = (* (( (ptr) formal←c0200)+7) ); (void) ( *( (fPt) ((* (ptr) pd26 ))))((* ((( (ptr) formal←c0200)+6)) ), pd26); }; return(0); } static void ProtectedFanoutStreamClose←P960(self←v4828, abort←v4856) word self←v4828; word abort←v4856; { W7 var←c14904; register ptr gf←c14936 = (ptr) &globalframe; /* declaration of data←v6948 skipped */ /* ProtectedFanoutStreamClose: */ SOURCE(5225, 342) SOURCE(5290, 48) var←c14904.f4/* data←v6948 */ = XR←Narrow((* (( (ptr) self←v4828)+1) ), (* (( (ptr) gf←c14936)+13) )); SOURCE(5340, 143) if ((0 != (* (( (ptr) var←c14904.f4/* data←v6948 */ )+1) ))) { SOURCE(5366, 117) { register word l←v6992; l←v6992 = (* (( (ptr) var←c14904.f4/* data←v6948 */ )+2) ); lab←L100077: ; if ((l←v6992 != 0)) { } else { goto lab←L100074; }; SOURCE(5425, 58) SOURCE(5425, 58) { /* declaration of var←c019 skipped */ /* declaration of var←c020 skipped */ var←c14904.f5/* var←c019 */ = (* (ptr) l←v6992 ); var←c14904.f6/* var←c020 */ = (* (( (ptr) (* (( (ptr) gf←c14936)+51)/* var←c13944 */ ))+28) ); { word var←c021; { word var←c0216; var←c0216 = (word) &var←c14904; var←c021 = (word) XR←Enable(( ((word) (fPt) NoName←Q2112) ), ( ((word) (fPt) NoName←Q2172) ), var←c0216); }; /* removed trivial cond node */ }; }; l←v6992 = (* (( (ptr) l←v6992)+1) ); goto lab←L100077; lab←L100074: ; }; }; SOURCE(5504, 17) (* (( (ptr) var←c14904.f4/* data←v6948 */ )+2) ) = 0; SOURCE(5523, 44) (* (ptr) self←v4828 ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c14936)+52)/* var←c14104 */ ))+15) ) ); } static word NoName←Q2112(formal←c0202) word formal←c0202; { SOURCE(5425, 58) { word pd27; pd27 = (* (( (ptr) formal←c0202)+6) ); (void) ( *( (fPt) ((* (ptr) pd27 ))))((* (( (ptr) formal←c0202)+5) ), 0, pd27); }; return(0); } static void NoName←Q2172(formal←c0123, formal←c200024, formal←c200025, formal←c200026, formal←c200027) word formal←c0123; word formal←c200024; word formal←c200025; word formal←c200026; word formal←c200027; { register ptr gf←c0203 = (ptr) &globalframe; if ((formal←c200025 == (* (( (ptr) (* (( (ptr) gf←c0203)+51)/* var←c13944 */ ))+5) ))) { { word ec←v13092; word stream←v13120; word details←v13148; word msg←v13176; ec←v13092 = (* (ptr) formal←c200027 ); stream←v13120 = (* (( (ptr) formal←c200027)+1) ); details←v13148 = (* (( (ptr) formal←c200027)+2) ); msg←v13176 = (* (( (ptr) formal←c200027)+3) ); SOURCE(5456, 27) if ((0 == (* (ptr) (* (( (ptr) formal←c200024)+4) ) ))) { SOURCE(5483, 10) (* (ptr) formal←c0123 ) = 2; (* (( (ptr) formal←c0123)+1) ) = 8; return; }; }; }; (* (ptr) formal←c0123 ) = 0; (* (( (ptr) formal←c0123)+1) ) = 0; return; } static void NoName←Q2232(formal←c0132, formal←c200020, formal←c200021, formal←c200022, formal←c200023) word formal←c0132; word formal←c200020; word formal←c200021; word formal←c200022; word formal←c200023; { register ptr gf←c0204 = (ptr) &globalframe; if ((formal←c200021 == (* (( (ptr) (* (( (ptr) gf←c0204)+51)/* var←c13944 */ ))+5) ))) { { word ec←v12948; word stream←v12976; word details←v13004; word msg←v13032; ec←v12948 = (* (ptr) formal←c200023 ); stream←v12976 = (* (( (ptr) formal←c200023)+1) ); details←v13004 = (* (( (ptr) formal←c200023)+2) ); msg←v13032 = (* (( (ptr) formal←c200023)+3) ); SOURCE(5144, 54) if ((0 == (* (ptr) (* (( (ptr) formal←c200020)+4) ) ))) { SOURCE(5172, 26) (void) EntryRemove←P180((* (( (ptr) formal←c200020)+4) ), (* (ptr) (* (( (ptr) formal←c200020)+5) ) )); SOURCE(5200, 8) (* (ptr) formal←c0132 ) = 2; (* (( (ptr) formal←c0132)+1) ) = 7; return; }; }; }; (* (ptr) formal←c0132 ) = 0; (* (( (ptr) formal←c0132)+1) ) = 0; return; } static void NoName←Q2292(formal←c0141, formal←c200016, formal←c200017, formal←c200018, formal←c200019) word formal←c0141; word formal←c200016; word formal←c200017; word formal←c200018; word formal←c200019; { register ptr gf←c0205 = (ptr) &globalframe; if ((formal←c200017 == (* (( (ptr) (* (( (ptr) gf←c0205)+51)/* var←c13944 */ ))+5) ))) { { word ec←v12804; word stream←v12832; word details←v12860; word msg←v12888; ec←v12804 = (* (ptr) formal←c200019 ); stream←v12832 = (* (( (ptr) formal←c200019)+1) ); details←v12860 = (* (( (ptr) formal←c200019)+2) ); msg←v12888 = (* (( (ptr) formal←c200019)+3) ); SOURCE(4871, 54) if ((0 == (* (ptr) (* (( (ptr) formal←c200016)+5) ) ))) { SOURCE(4899, 26) (void) EntryRemove←P180((* (( (ptr) formal←c200016)+5) ), (* (ptr) (* (( (ptr) formal←c200016)+6) ) )); SOURCE(4927, 8) (* (ptr) formal←c0141 ) = 2; (* (( (ptr) formal←c0141)+1) ) = 6; return; }; }; }; (* (ptr) formal←c0141 ) = 0; (* (( (ptr) formal←c0141)+1) ) = 0; return; } static void NoName←Q2352(formal←c0150, formal←c200012, formal←c200013, formal←c200014, formal←c200015) word formal←c0150; word formal←c200012; word formal←c200013; word formal←c200014; word formal←c200015; { register ptr gf←c0206 = (ptr) &globalframe; if ((formal←c200013 == (* (( (ptr) (* (( (ptr) gf←c0206)+51)/* var←c13944 */ ))+5) ))) { { word ec←v12660; word stream←v12688; word details←v12716; word msg←v12744; ec←v12660 = (* (ptr) formal←c200015 ); stream←v12688 = (* (( (ptr) formal←c200015)+1) ); details←v12716 = (* (( (ptr) formal←c200015)+2) ); msg←v12744 = (* (( (ptr) formal←c200015)+3) ); SOURCE(4572, 54) if ((0 == (* (ptr) (* (( (ptr) formal←c200012)+4) ) ))) { SOURCE(4600, 26) (void) EntryRemove←P180((* (( (ptr) formal←c200012)+4) ), (* (ptr) (* (( (ptr) formal←c200012)+5) ) )); SOURCE(4628, 8) (* (ptr) formal←c0150 ) = 2; (* (( (ptr) formal←c0150)+1) ) = 5; return; }; }; }; (* (ptr) formal←c0150 ) = 0; (* (( (ptr) formal←c0150)+1) ) = 0; return; } static void NoName←Q2412(formal←c0159, formal←c200008, formal←c200009, formal←c200010, formal←c200011) word formal←c0159; word formal←c200008; word formal←c200009; word formal←c200010; word formal←c200011; { register ptr gf←c0207 = (ptr) &globalframe; if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c0207)+51)/* var←c13944 */ ))+5) ))) { { word ec←v12516; word stream←v12544; word details←v12572; word msg←v12600; ec←v12516 = (* (ptr) formal←c200011 ); stream←v12544 = (* (( (ptr) formal←c200011)+1) ); details←v12572 = (* (( (ptr) formal←c200011)+2) ); msg←v12600 = (* (( (ptr) formal←c200011)+3) ); SOURCE(4116, 54) if ((0 == (* (ptr) (* (( (ptr) formal←c200008)+7) ) ))) { SOURCE(4144, 26) (void) EntryRemove←P180((* (( (ptr) formal←c200008)+7) ), (* (ptr) (* (( (ptr) formal←c200008)+8) ) )); SOURCE(4172, 8) (* (ptr) formal←c0159 ) = 2; (* (( (ptr) formal←c0159)+1) ) = 4; return; }; }; }; (* (ptr) formal←c0159 ) = 0; (* (( (ptr) formal←c0159)+1) ) = 0; return; } static void NoName←Q2472(formal←c0168, formal←c200004, formal←c200005, formal←c200006, formal←c200007) word formal←c0168; word formal←c200004; word formal←c200005; word formal←c200006; word formal←c200007; { register ptr gf←c0208 = (ptr) &globalframe; if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c0208)+51)/* var←c13944 */ ))+5) ))) { { word ec←v12372; word stream←v12400; word details←v12428; word msg←v12456; ec←v12372 = (* (ptr) formal←c200007 ); stream←v12400 = (* (( (ptr) formal←c200007)+1) ); details←v12428 = (* (( (ptr) formal←c200007)+2) ); msg←v12456 = (* (( (ptr) formal←c200007)+3) ); SOURCE(3564, 54) if ((0 == (* (ptr) (* (( (ptr) formal←c200004)+7) ) ))) { SOURCE(3592, 26) (void) EntryRemove←P180((* (( (ptr) formal←c200004)+7) ), (* (ptr) (* (( (ptr) formal←c200004)+8) ) )); SOURCE(3620, 8) (* (ptr) formal←c0168 ) = 2; (* (( (ptr) formal←c0168)+1) ) = 3; return; }; }; }; (* (ptr) formal←c0168 ) = 0; (* (( (ptr) formal←c0168)+1) ) = 0; return; } static void NoName←Q2532(formal←c0177, formal←c200000, formal←c200001, formal←c200002, formal←c200003) word formal←c0177; word formal←c200000; word formal←c200001; word formal←c200002; word formal←c200003; { register ptr gf←c0209 = (ptr) &globalframe; if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0209)+51)/* var←c13944 */ ))+5) ))) { { word ec←v12228; word stream←v12256; word details←v12284; word msg←v12312; ec←v12228 = (* (ptr) formal←c200003 ); stream←v12256 = (* (( (ptr) formal←c200003)+1) ); details←v12284 = (* (( (ptr) formal←c200003)+2) ); msg←v12312 = (* (( (ptr) formal←c200003)+3) ); SOURCE(2934, 54) if ((0 == (* (ptr) (* (( (ptr) formal←c200000)+5) ) ))) { SOURCE(2962, 26) (void) EntryRemove←P180((* (( (ptr) formal←c200000)+5) ), (* (ptr) (* (( (ptr) formal←c200000)+6) ) )); SOURCE(2990, 8) (* (ptr) formal←c0177 ) = 2; (* (( (ptr) formal←c0177)+1) ) = 2; return; }; }; }; (* (ptr) formal←c0177 ) = 0; (* (( (ptr) formal←c0177)+1) ) = 0; return; } /* file: FanoutStreamImpl, module: FanoutStreamImpl, compiled at: March 20, 1992 2:15:12 pm PST */ extern void XR←install←FanoutStreamImpl() { NoName←Q1692(); } extern void XR←run←FanoutStreamImpl() { XR←Start(&globalframe); }