/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: February 22, 1992 10:55:49 am PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: ProfilesImpl, module: ProfilesImpl */ /* switches: bcfhklnouw */ #include <cedar/InstallationSupport.h> #include <cedar/CedarExtra.h> static char versionStamp[] = "@(#)mob←version [470635963,2543161798] ProfilesImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {word f0, f1;} W2; typedef word (*fPt)(); typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {W8 f; W2 r;} W10; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef W2 *W2Pt; typedef struct {W8 f; word r;} W9; typedef struct {word f0, f1, f2, f3;} W4; typedef W4 *W4Pt; typedef struct {word f0, f1, f2, f3, f4;} W5; typedef W5 *W5Pt; typedef struct {W8 f; W8 r;} W16; typedef struct {W16 f; W2 r;} W18; #define SOURCE(p, l) /* source p, l */ static void NoName←Q3288(); static void ProfilesImpl←P0(); static word Create←P60(); static word SlicesFromFileNames←P1680(); static word CreateFromRope←P120(); static word SlicesFromRopes←P1788(); static word CreateFromSlices←P180(); static void LetProfileGetStale←P240(); static word Boolean←P300(); static word Number←P360(); static word NoName←Q3348(); static word Token←P420(); static word ListOfTokens←P480(); static word Line←P540(); static void EnumerateKeys←P600(); static word Enum←P2040(); static word HasEntry←P660(); static word NoName←Q3408(); static word Lookup←P720(); static word NoName←Q3468(); static word LookupInternal←P780(); static void FetchInternal←P840(); static word GetProfileSlices←P960(); static word GetProfileNames←P1020(); static word NoVersion←P1080(); static void ParseProfile←P1140(); static word NoName←Q3528(); static void TryProfile←P2244(); static word NoName←Q3588(); static void ParseProfileInternal←P1200(); static word NoName←Q3648(); static word NoName←Q3708(); static word NoName←Q3768(); static word SkipWhite←P2544(); static word NoName←Q3828(); static void LocalToken←P2604(); static word tokenProc←P2664(); static word Cat←P2724(); static word LookupTokens←P2784(); static void Report←P1260(); static word NoName←Q3888(); static void ReportInternal←P1320(); static word NoName←Q3948(); static void AddToList←P1380(); static word CopyList←P1440(); static void CallWhenProfileChanges←P1500(); static void ProfileChanged←P1560(); static word NoName←Q4008(); static void DoIt←P1620(); static word NoName←Q4068(); static void NoName←Q4128(); static void NoName←Q4188(); static void NoName←Q4248(); static void NoName←Q4308(); static void NoName←Q4368(); static void NoName←Q4428(); static void NoName←Q4488(); static void NoName←Q4548(); static void NoName←Q4608(); static void NoName←Q4668(); static void NoName←Q4728(); static void NoName←Q4788(); static void NoName←Q4848(); static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\203\246\032\314\300\340\014\046\363\100\164\000\000"}; static struct {unsigned f; char r[4];} string2 = {131074, "\004\017\000"}; static struct {unsigned f; char r[48];} string3 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\203\246\032\314\300\340\014\046\363\100\164\005\004\162\145\163\164\214\216\257\300\203\246\032\314\300\340\014\046\363\100\164\261\000\000\000"}; static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"}; static struct {unsigned f; char r[44];} string5 = {2752556, "\260\006\005\146\151\162\163\164\257\300\000\150\114\241\300\252\115\265\110\100\274\005\004\162\145\163\164\214\257\300\000\150\114\241\300\252\115\265\110\100\274\261\000"}; static struct {unsigned f; char r[16];} string6 = {786444, "\006\002\000\007\000\040\002\003\001\014\010\001\000\000\000"}; static struct {unsigned f; char r[16];} string7 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string8 = {65537, "\001\000\000"}; static struct {unsigned f; char r[44];} string9 = {2752556, "\260\006\005\146\151\162\163\164\257\300\203\246\032\314\300\340\014\046\363\100\230\005\004\162\145\163\164\214\257\300\203\246\032\314\300\340\014\046\363\100\230\261\000"}; static struct {unsigned f; char r[4];} string10 = {131074, "\004\006\000"}; static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\004\026\213\044\300\141\063\212\310\100\200\000\000"}; static struct {unsigned f; char r[44];} string12 = {2752556, "\260\006\005\146\151\162\163\164\257\300\015\277\004\146\300\034\367\146\045\112\114\005\004\162\145\163\164\214\257\300\015\277\004\146\300\034\367\146\045\112\114\261\000"}; static struct {unsigned f; char r[28];} string13 = {1572888, "\006\002\000\007\000\040\016\000\003\001\000\000\000\000\014\014\000\014\014\014\014\000\010\001\000\000\000"}; static struct {unsigned f; char r[48];} string14 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"}; static struct {unsigned f; char r[4];} string15 = {131076, "\216\251\000"}; static struct {unsigned f; char r[8];} string16 = {393224, "Parent\000"}; static struct {unsigned f; char r[4];} string17 = {65540, "!\000\000"}; static struct {unsigned f; char r[20];} string18 = {1114132, "missing : at [%d]\000\000"}; static struct {unsigned f; char r[8];} string19 = {458760, "Include"}; static struct {unsigned f; char r[8];} string20 = {327688, "Child\000\000"}; static struct {unsigned f; char r[16];} string21 = {983056, "File not found."}; static struct {unsigned f; char r[24];} string22 = {1507352, "%g also appears at [%d]"}; static struct {unsigned f; char r[8];} string23 = {262152, "\012\012%g\000\000\000"}; static struct {unsigned f; char r[16];} string24 = {917520, "%g, at %g [%d]\000"}; static struct {unsigned f; char r[24];} string25 = {1441816, "extra material on line\000"}; static struct {unsigned f; char r[4];} string26 = {65540, " \000\000"}; static struct {unsigned f; char r[16];} string27 = {917520, " is not an INT\000"}; static struct {unsigned f; char r[20];} string28 = {1114132, " is not a Boolean\000\000"}; static struct {unsigned f; char r[8];} string29 = {327688, "FALSE\000\000"}; static struct {unsigned f; char r[8];} string30 = {262152, "TRUE\000\000\000"}; static struct {unsigned f; char r[44];} string31 = {2752556, "Problem while executing ProfileChangedProc\000"}; static struct {unsigned f; char r[16];} string32 = {851984, "\257\300\034\015\125\273\300\227\225\221\306\100\164\000\000"}; static struct {unsigned f; char r[16];} string33 = {786444, "\006\003\040\001\044\001\100\174\004\200\377\377\000\000\000"}; static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"}; static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\141\260\110\353\300\162\250\066\353\100\150\000\000"}; static struct {unsigned f; char r[16];} string37 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"}; static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\072\337\114\355\300\232\070\352\142\100\150\000\000"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\000\150\114\241\300\252\115\265\110\100\150\000\000"}; static struct {unsigned f; char r[24];} string41 = {1507352, "\211\013\012\120\162\157\146\151\154\145\122\145\160\300\000\150\114\241\300\252\115\265\110"}; static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\004\026\213\044\300\141\063\212\310\100\150\000\000"}; static struct { word f0[48]; word f48; word f49; word f50; word f51; word f52; word f53; word f54; word f55; word f56; word f57; word f58; word f59; word f60; word f61; word f62; word f63; word f64; word f65; word f66; word f67; word f68; word f69; word f70; word f71; word f72; word f73; word f74; word f75; word f76; word f77; word f78; word f79; word f80; word f81; word f82; word f83; word f84; word f85; word f86; word f87; word f88; word f89; word f90; word f91; word f92; word f93; word f94; word f95; word f96; word f97; word f98; word f99; word f100; word f101; word f102; word f103[16]; } globalframe = { {0}, (word) DoIt←P1620, 0, (word) ProfileChanged←P1560, 0, (word) CallWhenProfileChanges←P1500, 0, (word) CopyList←P1440, 0, (word) AddToList←P1380, 0, (word) ReportInternal←P1320, 0, (word) Report←P1260, 0, (word) ParseProfileInternal←P1200, 0, (word) ParseProfile←P1140, 0, (word) NoVersion←P1080, 0, (word) GetProfileNames←P1020, 0, (word) GetProfileSlices←P960, 0, (word) FetchInternal←P840, 0, (word) LookupInternal←P780, 0, (word) Lookup←P720, 0, (word) HasEntry←P660, 0, (word) EnumerateKeys←P600, 0, (word) Line←P540, 0, (word) ListOfTokens←P480, 0, (word) Token←P420, 0, (word) Number←P360, 0, (word) Boolean←P300, 0, (word) LetProfileGetStale←P240, 0, (word) CreateFromSlices←P180, 0, (word) CreateFromRope←P120, 0, (word) Create←P60, 0, (word) ProfilesImpl←P0, 0, 2147483647, {0} }; static void NoName←Q3288() { register ptr gf←c0376 = (ptr) &globalframe; word var←c32268; (* (( (ptr) gf←c0376)+11) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf←c0376)+14) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf←c0376)+15) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6); (* (( (ptr) gf←c0376)+20) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8); (* (( (ptr) gf←c0376)+22) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string10); (* (( (ptr) gf←c0376)+26) ) = (word) XR←GetTypeIndex((word) &string11, 0, (word) &string4); (* (( (ptr) gf←c0376)+27) ) = (word) XR←GetTypeIndex((word) &string12, 0, (word) &string13); (* (( (ptr) gf←c0376)+28) ) = (word) XR←GetTypeIndex((word) &string14, 0, (word) &string4); (* (( (ptr) gf←c0376)+30) ) = (word) XR←GetTypeIndex((word) &string15, 0, (word) &string8); (* (ptr) (( (bPt) gf←c0376)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+30) ), (word) &string16); (* (ptr) (( (bPt) gf←c0376)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string17); (* (ptr) (( (bPt) gf←c0376)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string18); (* (ptr) (( (bPt) gf←c0376)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string19); (* (ptr) (( (bPt) gf←c0376)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+30) ), (word) &string20); (* (ptr) (( (bPt) gf←c0376)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string21); (* (ptr) (( (bPt) gf←c0376)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string22); (* (ptr) (( (bPt) gf←c0376)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string23); (* (ptr) (( (bPt) gf←c0376)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string24); (* (ptr) (( (bPt) gf←c0376)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string25); (* (ptr) (( (bPt) gf←c0376)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string26); (* (ptr) (( (bPt) gf←c0376)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string27); (* (ptr) (( (bPt) gf←c0376)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string28); (* (ptr) (( (bPt) gf←c0376)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string29); (* (ptr) (( (bPt) gf←c0376)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string30); (* (ptr) (( (bPt) gf←c0376)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0376)+20) ), (word) &string31); (void) XR←DeclareGlobalFrame((word) "ProfilesImpl", &globalframe, (word) XR←GetTypeIndex((word) &string32, 0, (word) &string33) , (word) (( (bPt) gf←c0376)+400)/* var←c28716 */ ); var←c32268 = (word) XR←ImportInterface((word) "Convert", (word) XR←GetTypeIndexS((word) (&string34)), 73); (* (( (ptr) gf←c0376)+113)/* var←c29772 */ ) = var←c32268; (void) XR←ImportProcS(var←c32268, 67634690); var←c32268 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string35)), 103); (* (( (ptr) gf←c0376)+115)/* var←c30444 */ ) = var←c32268; (void) XR←ImportProcS(var←c32268, 67648770); (void) XR←ImportProcS(var←c32268, 67392257); (void) XR←ImportProcS(var←c32268, 134763778); (void) XR←ImportProcS(var←c32268, 67389953); (void) XR←ImportProcS(var←c32268, 67377409); (void) XR←ImportProcS(var←c32268, 527874); (void) XR←ImportProcS(var←c32268, 68958724); (void) XR←ImportProcS(var←c32268, 67910402); (void) XR←ImportProcS(var←c32268, 67374849); (void) XR←ImportProcS(var←c32268, 67372801); (void) XR←ImportProcS(var←c32268, 530434); (void) XR←ImportProcS(var←c32268, 67640578); var←c32268 = (word) XR←ImportInterface((word) "PFS", (word) XR←GetTypeIndexS((word) (&string36)), 40); (* (( (ptr) gf←c0376)+116)/* var←c30508 */ ) = var←c32268; (void) XR←ImportProcS(var←c32268, 67371265); (void) XR←ImportProcS(var←c32268, 71312136); var←c32268 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string37)), 43); (* (( (ptr) gf←c0376)+112)/* var←c29676 */ ) = var←c32268; (void) XR←ImportProcS(var←c32268, 68158980); (void) XR←ImportProcS(var←c32268, 67898627); (void) XR←ImportProcS(var←c32268, 67900163); (void) XR←ImportProcS(var←c32268, 68419845); (void) XR←ImportProcS(var←c32268, 67633666); (void) XR←ImportProcS(var←c32268, 67896323); var←c32268 = (word) XR←ImportInterface((word) "RuntimeError", (word) XR←GetTypeIndexS((word) (&string38)), 27); (* (( (ptr) gf←c0376)+114)/* var←c29804 */ ) = var←c32268; var←c32268 = (word) XR←ImportInterface((word) "SymTab", (word) XR←GetTypeIndexS((word) (&string39)), 13); (* (( (ptr) gf←c0376)+111)/* var←c28940 */ ) = var←c32268; (void) XR←ImportProcS(var←c32268, 67896835); (void) XR←ImportProcS(var←c32268, 134742786); (void) XR←ImportProcS(var←c32268, 67635714); (void) XR←ImportProcS(var←c32268, 67633410); var←c32268 = (word) XR←ExportInterface((word) "Profiles", (word) XR←GetTypeIndexS((word) (&string40)), 17); (* (( (ptr) gf←c0376)+117)/* var←c32300 */ ) = var←c32268; (void) XR←ExportType((word) "ProfileRep", (word) XR←GetTypeIndexS((word) (&string41)), (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2) ); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+392)/* var←c28684 */ , 67633410); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+384)/* var←c28652 */ , 67371521); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+376)/* var←c28620 */ , 67633922); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+368)/* var←c28588 */ , 263169); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+360)/* var←c28556 */ , 67896579); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+352)/* var←c28524 */ , 67896835); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+344)/* var←c28492 */ , 67897091); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+336)/* var←c28460 */ , 67897347); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+328)/* var←c28428 */ , 67897603); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+320)/* var←c28396 */ , 788995); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+312)/* var←c28364 */ , 67635970); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+272)/* var←c28204 */ , 67374081); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+280)/* var←c28236 */ , 67374337); (void) XR←ExportVar(var←c32268, 14, (word) (( (bPt) gf←c0376)+188)/* var←c27852 */ ); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+208)/* var←c27948 */ , 790275); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+200)/* var←c27916 */ , 790531); var←c32268 = (word) XR←ExportInterface((word) "ProfilesBackdoor", (word) XR←GetTypeIndexS((word) (&string42)), 2); (* (( (ptr) gf←c0376)+118)/* var←c32332 */ ) = var←c32268; (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+240)/* var←c28076 */ , 524290); (void) XR←ExportProcS(var←c32268, (word) (( (bPt) gf←c0376)+304)/* var←c28332 */ , 67633410); } static void ProfilesImpl←P0(formal←c070, formal←c069) word formal←c070; word formal←c069; { /* ProfilesImpl: */ /* moved to installation proc */ } static word Create←P60(files←v3932, keepFresh←v3960) word files←v3932; word keepFresh←v3960; { W6 var←c32364; register ptr gf←c32396 = (ptr) &globalframe; word profile←v4088; /* declaration of var←c28876 skipped */ /* Create: */ SOURCE(720, 653) { word tmpAddr43; tmpAddr43 = (word) (( (ptr) &var←c32364)+4)/* var←c28876 */ ; (* (ptr) tmpAddr43 ) = ( ((word) (fPt) SlicesFromFileNames←P1680) ); (* (( (ptr) tmpAddr43) + 1) ) = 1; }; SOURCE(720, 653) profile←v4088 = 0; SOURCE(1122, 164) { word var←c28908; word var←c28972; word var←c29004; { word pd44; pd44 = (* (( (ptr) (* (( (ptr) gf←c32396)+111)/* var←c28940 */ ))+5) ); var←c28908 = (word) ( *( (fPt) ((* (ptr) pd44 ))))(17, 0, pd44); }; var←c28972 = (word) SlicesFromFileNames←P1680(files←v3932, (word) (( (bPt) &var←c32364)+16)/* var←c28876 */ ); var←c29004 = XR←NewObject(20, (* (( (ptr) gf←c32396)+11) )); (* (( (ptr) var←c29004)+1) ) = var←c28908; (* (( (ptr) var←c29004)+2) ) = var←c28972; (* (( (ptr) var←c29004)+4) ) = keepFresh←v3960; profile←v4088 = var←c29004; }; SOURCE(1288, 21) (void) ParseProfile←P1140(profile←v4088); SOURCE(1311, 62) if ((0 != keepFresh←v3960)) { SOURCE(1329, 44) { word var←c29036; var←c29036 = XR←NewObject(8, (* (( (ptr) gf←c32396)+14) )); (* (ptr) var←c29036 ) = profile←v4088; (* (( (ptr) var←c29036)+1) ) = (* (( (ptr) gf←c32396)+9)/* freshProfiles←v2860 */ ); (* (( (ptr) gf←c32396)+9)/* freshProfiles←v2860 */ ) = var←c29036; }; }; SOURCE(720, 653) return(profile←v4088); } static word SlicesFromFileNames←P1680(files←v7968, formal←c32460) word files←v7968; word formal←c32460; { register ptr gf←c32428 = (ptr) &globalframe; word slices←v8096; word dummy←v8208; word tail←v8236; formal←c32460 = (formal←c32460 - 16); /* SlicesFromFileNames: */ SOURCE(817, 300) SOURCE(817, 300) slices←v8096 = 0; SOURCE(901, 7) { word var←c29100; dummy←v8208 = XR←NewObject(12, (* (( (ptr) gf←c32428)+15) )); var←c29100 = dummy←v8208; }; SOURCE(943, 6) tail←v8236 = dummy←v8208; SOURCE(972, 115) { register word each←v8448; each←v8448 = files←v7968; lab←L100003: ; if ((each←v8448 != 0)) { } else { goto lab←L100000; }; SOURCE(1032, 55) { word var←c29132; { word var←c29164; word var←c29196; var←c29164 = XR←NewObject(12, (* (( (ptr) gf←c32428)+15) )); var←c29196 = var←c29164; (* (ptr) var←c29196 ) = 1; (* (( (ptr) var←c29196)+1) ) = (* (ptr) each←v8448 ); var←c29132 = var←c29164; }; (* (( (ptr) tail←v8236)+2) ) = var←c29132; tail←v8236 = var←c29132; }; each←v8448 = (* (( (ptr) each←v8448)+1) ); goto lab←L100003; lab←L100000: ; }; SOURCE(1098, 19) return((* (( (ptr) dummy←v8208)+2) )); } static word CreateFromRope←P120(slices←v4148) word slices←v4148; { W6 var←c32492; register ptr gf←c32524 = (ptr) &globalframe; word profile←v4276; /* declaration of var←c29228 skipped */ /* CreateFromRope: */ SOURCE(1378, 547) { word tmpAddr45; tmpAddr45 = (word) (( (ptr) &var←c32492)+4)/* var←c29228 */ ; (* (ptr) tmpAddr45 ) = ( ((word) (fPt) SlicesFromRopes←P1788) ); (* (( (ptr) tmpAddr45) + 1) ) = 1; }; SOURCE(1378, 547) profile←v4276 = 0; SOURCE(1745, 157) { word var←c29260; word var←c29292; word var←c29324; { word pd46; pd46 = (* (( (ptr) (* (( (ptr) gf←c32524)+111)/* var←c28940 */ ))+5) ); var←c29260 = (word) ( *( (fPt) ((* (ptr) pd46 ))))(17, 0, pd46); }; var←c29292 = (word) SlicesFromRopes←P1788(slices←v4148, (word) (( (bPt) &var←c32492)+16)/* var←c29228 */ ); var←c29324 = XR←NewObject(20, (* (( (ptr) gf←c32524)+11) )); (* (( (ptr) var←c29324)+1) ) = var←c29260; (* (( (ptr) var←c29324)+2) ) = var←c29292; profile←v4276 = var←c29324; }; SOURCE(1904, 21) (void) ParseProfile←P1140(profile←v4276); SOURCE(1378, 547) return(profile←v4276); } static word SlicesFromRopes←P1788(slices←v8652, formal←c32588) word slices←v8652; word formal←c32588; { register ptr gf←c32556 = (ptr) &globalframe; word var←c8780; word dummy←v8892; word tail←v8920; formal←c32588 = (formal←c32588 - 16); /* SlicesFromRopes: */ SOURCE(1460, 280) SOURCE(1533, 7) { word var←c29388; dummy←v8892 = XR←NewObject(12, (* (( (ptr) gf←c32556)+15) )); var←c29388 = dummy←v8892; }; SOURCE(1575, 6) tail←v8920 = dummy←v8892; SOURCE(1604, 106) { register word each←v9132; each←v9132 = slices←v8652; lab←L100007: ; if ((each←v9132 != 0)) { } else { goto lab←L100004; }; SOURCE(1665, 45) { word var←c29420; { word var←c29452; word var←c29484; var←c29452 = XR←NewObject(12, (* (( (ptr) gf←c32556)+15) )); var←c29484 = var←c29452; (* (( (ptr) var←c29484)+1) ) = (* (ptr) each←v9132 ); var←c29420 = var←c29452; }; (* (( (ptr) tail←v8920)+2) ) = var←c29420; tail←v8920 = var←c29420; }; each←v9132 = (* (( (ptr) each←v9132)+1) ); goto lab←L100007; lab←L100004: ; }; SOURCE(1721, 19) return((* (( (ptr) dummy←v8892)+2) )); } static word CreateFromSlices←P180(slices←v4336, keepFresh←v4364) word slices←v4336; word keepFresh←v4364; { register ptr gf←c32620 = (ptr) &globalframe; word profile←v4492; /* CreateFromSlices: */ SOURCE(1930, 340) SOURCE(1930, 340) profile←v4492 = 0; SOURCE(2039, 144) { word var←c29516; word var←c29548; { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf←c32620)+111)/* var←c28940 */ ))+5) ); var←c29516 = (word) ( *( (fPt) ((* (ptr) pd47 ))))(17, 0, pd47); }; var←c29548 = XR←NewObject(20, (* (( (ptr) gf←c32620)+11) )); (* (( (ptr) var←c29548)+1) ) = var←c29516; (* (( (ptr) var←c29548)+2) ) = slices←v4336; (* (( (ptr) var←c29548)+4) ) = keepFresh←v4364; profile←v4492 = var←c29548; }; SOURCE(2185, 21) (void) ParseProfile←P1140(profile←v4492); SOURCE(2208, 62) if ((0 != keepFresh←v4364)) { SOURCE(2226, 44) { word var←c29580; var←c29580 = XR←NewObject(8, (* (( (ptr) gf←c32620)+14) )); (* (ptr) var←c29580 ) = profile←v4492; (* (( (ptr) var←c29580)+1) ) = (* (( (ptr) gf←c32620)+9)/* freshProfiles←v2860 */ ); (* (( (ptr) gf←c32620)+9)/* freshProfiles←v2860 */ ) = var←c29580; }; }; SOURCE(1930, 340) return(profile←v4492); } static void LetProfileGetStale←P240(profile←v4552) word profile←v4552; { register ptr gf←c32652 = (ptr) &globalframe; /* LetProfileGetStale: */ SOURCE(2275, 315) (void) (XR←MonitorEntry((word) (( (bPt) gf←c32652)+16)/* LOCK←v2804 */ )); SOURCE(2336, 254) if ((0 != (* (( (ptr) profile←v4552)+4) ))) { SOURCE(2362, 230) { word dummy←v9260; SOURCE(2364, 7) dummy←v9260 = XR←NewObject(8, (* (( (ptr) gf←c32652)+14) )); (* (( (ptr) dummy←v9260)+1) ) = (* (( (ptr) gf←c32652)+9)/* freshProfiles←v2860 */ ); SOURCE(2415, 130) { register word each←v9388; each←v9388 = dummy←v9260; lab←L100011: ; SOURCE(2485, 60) if (((* (ptr) (* (( (ptr) each←v9388)+1) ) ) == profile←v4552)) { SOURCE(2519, 26) (* (( (ptr) each←v9388)+1) ) = (* (( (ptr) (* (( (ptr) each←v9388)+1) ))+1) ); SOURCE(2547, 4) goto lab←L100009; }; each←v9388 = (* (( (ptr) each←v9388)+1) ); goto lab←L100011; lab←L100009: ; }; SOURCE(2565, 25) (* (( (ptr) profile←v4552)+4) ) = 0; }; }; SOURCE(2275, 315) (void) (XR←MonitorExit((word) (( (bPt) gf←c32652)+16)/* LOCK←v2804 */ )); return; } static word Boolean←P300(profile←v4612, key←v4640, default←v4668) word profile←v4612; word key←v4640; word default←v4668; { register ptr gf←c32684 = (ptr) &globalframe; word value←v4712; word entry←v9516 = 0; word val←v9544 = 0; /* Boolean: */ SOURCE(2599, 382) SOURCE(2731, 28) entry←v9516 = (word) Lookup←P720(profile←v4612, key←v4640); SOURCE(2761, 20) { word var←c29644; word value←v27804; SOURCE(4954, 224) value←v27804 = 0; SOURCE(5023, 54) if ((entry←v9516 == 0) || ((* (( (ptr) entry←v9516)+1) ) == 0)) { SOURCE(5065, 12) var←c29644 = 0; goto lab←L100012; }; SOURCE(5079, 26) value←v27804 = (* (ptr) (* (( (ptr) entry←v9516)+1) ) ); SOURCE(5107, 71) if (((* (( (ptr) (* (( (ptr) entry←v9516)+1) ))+1) ) != 0)) { SOURCE(5139, 39) (void) Report←P1260(entry←v9516, (* (( (ptr) gf←c32684)+40) )); }; SOURCE(4954, 224) var←c29644 = value←v27804; lab←L100012: ; val←v9544 = var←c29644; }; SOURCE(2783, 34) if ((val←v9544 == 0)) { SOURCE(2801, 16) return(default←v4668); }; SOURCE(2819, 46) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf←c32684)+112)/* var←c29676 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd48 ))))(val←v9544, (* (( (ptr) gf←c32684)+45) ), 0, pd48))) { SOURCE(2852, 13) return(1); }; }; SOURCE(2867, 48) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf←c32684)+112)/* var←c29676 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd49 ))))(val←v9544, (* (( (ptr) gf←c32684)+44) ), 0, pd49))) { SOURCE(2901, 14) return(0); }; }; SOURCE(2917, 46) { word var←c29708; { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf←c32684)+112)/* var←c29676 */ ))+6) ); var←c29708 = (word) ( *( (fPt) ((* (ptr) pd50 ))))(val←v9544, (* (( (ptr) gf←c32684)+43) ), pd50); }; (void) Report←P1260(entry←v9516, var←c29708); }; SOURCE(2965, 16) return(default←v4668); } static word Number←P360(profile←v4772, key←v4800, formal←c0492) word profile←v4772; word key←v4800; word formal←c0492; { W10 var←c32716; /* declaration of default←v4828 skipped */ register ptr gf←c32748 = (ptr) &globalframe; /* declaration of value←v4872 skipped */ /* declaration of entry←v9588 skipped */ /* declaration of val←v9616 skipped */ (* (( (ptr) &var←c32716)+4)/* default←v4828 */ ) = formal←c0492; /* Number: */ SOURCE(2987, 319) SOURCE(3076, 42) (* (( (ptr) &var←c32716)+6)/* entry←v9588 */ ) = (word) Lookup←P720(profile←v4772, key←v4800); SOURCE(3120, 26) { word value←v27756; SOURCE(4954, 224) value←v27756 = 0; SOURCE(5023, 54) if (((* (( (ptr) &var←c32716)+6)/* entry←v9588 */ ) == 0) || ((* (( (ptr) (* (( (ptr) &var←c32716)+6)/* entry←v9588 */ ))+1) ) == 0)) { SOURCE(5065, 12) (* (( (ptr) &var←c32716)+7)/* val←v9616 */ ) = 0; goto lab←L100013; }; SOURCE(5079, 26) value←v27756 = (* (ptr) (* (( (ptr) (* (( (ptr) &var←c32716)+6)/* entry←v9588 */ ))+1) ) ); SOURCE(5107, 71) if (((* (( (ptr) (* (( (ptr) (* (( (ptr) &var←c32716)+6)/* entry←v9588 */ ))+1) ))+1) ) != 0)) { SOURCE(5139, 39) (void) Report←P1260((* (( (ptr) &var←c32716)+6)/* entry←v9588 */ ), (* (( (ptr) gf←c32748)+40) )); }; SOURCE(4954, 224) (* (( (ptr) &var←c32716)+7)/* val←v9616 */ ) = value←v27756; lab←L100013: ; }; SOURCE(3148, 34) if (((* (( (ptr) &var←c32716)+7)/* val←v9616 */ ) == 0)) { SOURCE(3166, 16) return((* (( (ptr) &var←c32716)+4)/* default←v4828 */ )); }; SOURCE(3184, 122) SOURCE(3184, 122) { /* declaration of var←c01 skipped */ (* (( (ptr) &var←c32716)+8)/* var←c01 */ ) = (* (( (ptr) (* (( (ptr) gf←c32748)+113)/* var←c29772 */ ))+10) ); { /* declaration of var←c02 skipped */ { word var←c03; { word var←c0446; var←c0446 = (word) &var←c32716; var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q3348) ), ( ((word) (fPt) NoName←Q4848) ), var←c0446); }; if ((var←c03 == 2)) { goto lab←L100015; }; }; (* (( (ptr) &var←c32716)+5)/* value←v4872 */ ) = (* (( (ptr) &var←c32716)+9)/* var←c02 */ ); }; }; lab←L100015: ; SOURCE(2987, 319) return((* (( (ptr) &var←c32716)+5)/* value←v4872 */ )); } static word NoName←Q3348(formal←c0387) word formal←c0387; { SOURCE(3184, 122) { word pd51; pd51 = (* (( (ptr) formal←c0387)+8) ); (* (( (ptr) formal←c0387)+9) ) = (word) ( *( (fPt) ((* (ptr) pd51 ))))((* (( (ptr) formal←c0387)+7) ), 8, pd51); }; return(0); } static word Token←P420(profile←v4932, key←v4960, default←v4988) word profile←v4932; word key←v4960; word default←v4988; { register ptr gf←c32780 = (ptr) &globalframe; word value←v5032; word entry←v9660; word val←v9688; /* Token: */ SOURCE(3327, 210) SOURCE(3327, 210) value←v5032 = 0; SOURCE(3417, 42) entry←v9660 = (word) Lookup←P720(profile←v4932, key←v4960); SOURCE(3461, 26) { word value←v27708; SOURCE(4954, 224) value←v27708 = 0; SOURCE(5023, 54) if ((entry←v9660 == 0) || ((* (( (ptr) entry←v9660)+1) ) == 0)) { SOURCE(5065, 12) val←v9688 = 0; goto lab←L100018; }; SOURCE(5079, 26) value←v27708 = (* (ptr) (* (( (ptr) entry←v9660)+1) ) ); SOURCE(5107, 71) if (((* (( (ptr) (* (( (ptr) entry←v9660)+1) ))+1) ) != 0)) { SOURCE(5139, 39) (void) Report←P1260(entry←v9660, (* (( (ptr) gf←c32780)+40) )); }; SOURCE(4954, 224) val←v9688 = value←v27708; lab←L100018: ; }; SOURCE(3489, 34) if ((val←v9688 == 0)) { SOURCE(3507, 16) return(default←v4988); }; SOURCE(3525, 12) value←v5032 = val←v9688; SOURCE(3327, 210) return(value←v5032); } static word ListOfTokens←P480(profile←v5092, key←v5120, default←v5148) word profile←v5092; word key←v5120; word default←v5148; { word value←v5276; word entry←v9732; /* ListOfTokens: */ SOURCE(3543, 220) SOURCE(3543, 220) value←v5276 = 0; SOURCE(3656, 42) entry←v9732 = (word) Lookup←P720(profile←v5092, key←v5120); SOURCE(3700, 63) if ((entry←v9732 == 0)) { SOURCE(3720, 22) return(default←v5148); } else { SOURCE(3742, 21) return((* (( (ptr) entry←v9732)+1) )); }; } static word Line←P540(profile←v5420, key←v5448, default←v5476) word profile←v5420; word key←v5448; word default←v5476; { register ptr gf←c32812 = (ptr) &globalframe; word value←v5520; word entry←v9776; /* Line: */ SOURCE(3769, 303) SOURCE(3769, 303) value←v5520 = 0; SOURCE(3858, 42) entry←v9776 = (word) Lookup←P720(profile←v5420, key←v5448); SOURCE(3902, 36) if ((entry←v9776 == 0)) { SOURCE(3922, 16) return(default←v5476); }; SOURCE(3940, 132) { register word l←v9820; l←v9820 = (* (( (ptr) entry←v9776)+1) ); lab←L100022: ; if ((l←v9820 != 0)) { } else { goto lab←L100019; }; SOURCE(4000, 72) if ((value←v5520 == 0)) { SOURCE(4020, 21) value←v5520 = (* (ptr) l←v9820 ); } else { SOURCE(4041, 31) { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf←c32812)+112)/* var←c29676 */ ))+5) ); value←v5520 = (word) ( *( (fPt) ((* (ptr) pd52 ))))(value←v5520, (* (( (ptr) gf←c32812)+41) ), (* (ptr) l←v9820 ), 0, 0, pd52) ; }; }; l←v9820 = (* (( (ptr) l←v9820)+1) ); goto lab←L100022; lab←L100019: ; }; SOURCE(3769, 303) return(value←v5520); } static void EnumerateKeys←P600(profile←v5580, formal←c0493, formal←c0494) word profile←v5580; word formal←c0493; word formal←c0494; { W8 var←c32844; /* declaration of pattern←v5608 skipped */ /* declaration of proc←v5636 skipped */ register ptr gf←c32876 = (ptr) &globalframe; /* declaration of var←c29900 skipped */ var←c32844.f4/* pattern←v5608 */ = formal←c0493; var←c32844.f5/* proc←v5636 */ = formal←c0494; /* EnumerateKeys: */ SOURCE(4087, 250) { word tmpAddr53; tmpAddr53 = (word) (( (ptr) &var←c32844)+6)/* var←c29900 */ ; (* (ptr) tmpAddr53 ) = ( ((word) (fPt) Enum←P2040) ); (* (( (ptr) tmpAddr53) + 1) ) = 1; }; SOURCE(4286, 51) { word var←c29932; word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf←c32876)+111)/* var←c28940 */ ))+14) ); var←c29932 = (word) ( *( (fPt) ((* (ptr) pd54 ))))((* (ptr) profile←v5580 ), (word) (( (bPt) &var←c32844)+24)/* var←c29900 */ , pd54) ; }; } static word Enum←P2040(key←v22492, val←v22520, formal←c32940) word key←v22492; word val←v22520; word formal←c32940; { register ptr gf←c32908 = (ptr) &globalframe; word quit←v22564; formal←c32940 = (formal←c32940 - 24); /* Enum: */ SOURCE(4168, 113) SOURCE(4168, 113) quit←v22564 = 0; SOURCE(4200, 81) { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf←c32908)+112)/* var←c29676 */ ))+23) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd55 ))))((* (( (ptr) formal←c32940)+4) ), key←v22492, 0, pd55))) { SOURCE(4263, 18) { word pd56; pd56 = (* (( (ptr) formal←c32940)+5) ); return((word) ( *( (fPt) ((* (ptr) pd56 ))))(key←v22492, pd56)); }; }; }; SOURCE(4168, 113) return(quit←v22564); } static word HasEntry←P660(formal←c0495, formal←c0496) word formal←c0495; word formal←c0496; { W7 var←c32972; /* declaration of profile←v5696 skipped */ /* declaration of key←v5724 skipped */ register ptr gf←c33004 = (ptr) &globalframe; /* declaration of var←c04 skipped */ word var←c5768; var←c32972.f4/* profile←v5696 */ = formal←c0495; var←c32972.f5/* key←v5724 */ = formal←c0496; /* HasEntry: */ SOURCE(4343, 142) (void) (XR←MonitorEntry((word) (( (bPt) gf←c33004)+16)/* LOCK←v2804 */ )); SOURCE(4420, 65) { word var←c05; { word var←c0447; var←c0447 = (word) &var←c32972; var←c05 = (word) XR←Enable(( ((word) (fPt) NoName←Q3408) ), ( ((word) (fPt) NoName←Q4788) ), var←c0447); }; /* removed trivial cond node */ }; return(var←c32972.f6/* var←c04 */ ); } static word NoName←Q3408(formal←c0395) word formal←c0395; { register ptr gf←c0394 = (ptr) &globalframe; SOURCE(4443, 42) { word var←c29996; W2 var←c0158; (void) FetchInternal←P840((word) &var←c0158, (* (( (ptr) formal←c0395)+4) ), (* (( (ptr) formal←c0395)+5) )); var←c29996 = var←c0158.f0; (void) (XR←MonitorExit((word) (( (bPt) gf←c0394)+16)/* LOCK←v2804 */ )); (* (( (ptr) formal←c0395)+6) ) = var←c29996; return(1); }; /* c2c skipped dead code */ } static word Lookup←P720(formal←c0497, formal←c0498) word formal←c0497; word formal←c0498; { W7 var←c33036; /* declaration of profile←v5828 skipped */ /* declaration of key←v5856 skipped */ register ptr gf←c33068 = (ptr) &globalframe; /* declaration of var←c06 skipped */ word var←c5900; var←c33036.f4/* profile←v5828 */ = formal←c0497; var←c33036.f5/* key←v5856 */ = formal←c0498; /* Lookup: */ SOURCE(4491, 144) (void) (XR←MonitorEntry((word) (( (bPt) gf←c33068)+16)/* LOCK←v2804 */ )); SOURCE(4574, 61) { word var←c07; { word var←c0448; var←c0448 = (word) &var←c33036; var←c07 = (word) XR←Enable(( ((word) (fPt) NoName←Q3468) ), ( ((word) (fPt) NoName←Q4728) ), var←c0448); }; /* removed trivial cond node */ }; return(var←c33036.f6/* var←c06 */ ); } static word NoName←Q3468(formal←c0398) word formal←c0398; { register ptr gf←c0397 = (ptr) &globalframe; SOURCE(4597, 38) { word var←c30028; var←c30028 = (word) LookupInternal←P780((* (( (ptr) formal←c0398)+4) ), (* (( (ptr) formal←c0398)+5) )); (void) (XR←MonitorExit((word) (( (bPt) gf←c0397)+16)/* LOCK←v2804 */ )); (* (( (ptr) formal←c0398)+6) ) = var←c30028; return(1); }; /* c2c skipped dead code */ } static word LookupInternal←P780(profile←v5960, key←v5988) word profile←v5960; word key←v5988; { register ptr gf←c33100 = (ptr) &globalframe; word var←c6032; /* LookupInternal: */ SOURCE(4639, 135) SOURCE(4726, 48) { word var←c0450; { W2 var←c0166; word var←c0449; (void) FetchInternal←P840((word) &var←c0166, profile←v5960, key←v5988); var←c0449 = var←c0166.f1; var←c0450 = XR←Narrow(var←c0449, (* (( (ptr) gf←c33100)+26) )); }; return(var←c0450); }; } static void FetchInternal←P840(formal←c0173, profile←v6092, key←v6120) word formal←c0173; word profile←v6092; word key←v6120; { register ptr gf←c33132 = (ptr) &globalframe; word found←v6164; word val←v6192; /* FetchInternal: */ SOURCE(4780, 168) SOURCE(4780, 168) val←v6192 = 0; SOURCE(4879, 69) { W2 var←c30092; { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf←c33132)+111)/* var←c28940 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd57 ))))((word) &var←c30092, (* (ptr) profile←v6092 ), key←v6120, pd57); }; val←v6192 = var←c30092.f1; found←v6164 = var←c30092.f0; }; /* removed tail goto */ (* (ptr) formal←c0173 ) = found←v6164; (* (( (ptr) formal←c0173)+1) ) = val←v6192; return; } static word GetProfileSlices←P960(profile←v6372) word profile←v6372; { word var←c6416; /* GetProfileSlices: */ SOURCE(5184, 100) SOURCE(5261, 23) return((* (( (ptr) profile←v6372)+2) )); } static word GetProfileNames←P1020(profile←v6560) word profile←v6560; { register ptr gf←c33164 = (ptr) &globalframe; word var←c6604; word dummy←v9992; word tail←v10020; /* GetProfileNames: */ SOURCE(5290, 343) SOURCE(5365, 7) { word var←c30156; dummy←v9992 = XR←NewObject(8, (* (( (ptr) gf←c33164)+28) )); var←c30156 = dummy←v9992; }; SOURCE(5398, 6) tail←v10020 = dummy←v9992; SOURCE(5426, 168) { register word each←v10232; each←v10232 = (* (( (ptr) profile←v6560)+2) ); lab←L100031: ; if ((each←v10232 != 0)) { } else { goto lab←L100028; }; SOURCE(5496, 98) { W2 var←c30188; var←c30188 = (* (W2Pt) each←v10232 ); if ((var←c30188.f0 == 1)) { { W2 fileSlice←v10360; fileSlice←v10360 = var←c30188; SOURCE(5549, 45) { word var←c30220; { word var←c30252; word var←c30284; var←c30252 = XR←NewObject(8, (* (( (ptr) gf←c33164)+28) )); var←c30284 = var←c30252; (* (ptr) var←c30284 ) = fileSlice←v10360.f1; var←c30220 = var←c30252; }; (* (( (ptr) tail←v10020)+1) ) = var←c30220; tail←v10020 = var←c30220; }; }; } else { }; }; each←v10232 = (* (( (ptr) each←v10232)+2) ); goto lab←L100031; lab←L100028: ; }; SOURCE(5614, 19) return((* (( (ptr) dummy←v9992)+1) )); } static word NoVersion←P1080(file←v6748) word file←v6748; { register ptr gf←c33196 = (ptr) &globalframe; word var←c6792; /* NoVersion: */ SOURCE(5641, 116) SOURCE(5689, 68) { word var←c30348; { word pd58; pd58 = (* (( (ptr) (* (( (ptr) gf←c33196)+112)/* var←c29676 */ ))+10) ); var←c30348 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(file←v6748, 0, (* (( (ptr) gf←c33196)+32) ), 1, pd58); }; { word pd59; pd59 = (* (( (ptr) (* (( (ptr) gf←c33196)+112)/* var←c29676 */ ))+17) ); return((word) ( *( (fPt) ((* (ptr) pd59 ))))(file←v6748, 0, var←c30348, pd59)); }; }; } static void ParseProfile←P1140(formal←c0499) word formal←c0499; { W7 var←c33228; /* declaration of profile←v6852 skipped */ register ptr gf←c33260 = (ptr) &globalframe; /* declaration of var←c30380 skipped */ var←c33228.f4/* profile←v6852 */ = formal←c0499; /* ParseProfile: */ SOURCE(5763, 766) { word tmpAddr60; tmpAddr60 = (word) (( (ptr) &var←c33228)+5)/* var←c30380 */ ; (* (ptr) tmpAddr60 ) = ( ((word) (fPt) TryProfile←P2244) ); (* (( (ptr) tmpAddr60) + 1) ) = 1; }; (void) (XR←MonitorEntry((word) (( (bPt) gf←c33260)+16)/* LOCK←v2804 */ )); SOURCE(5811, 718) { word var←c0451; var←c0451 = (word) &var←c33228; (void) (word) XR←Enable(( ((word) (fPt) NoName←Q3528) ), ( ((word) (fPt) NoName←Q4668) ), var←c0451); }; SOURCE(5763, 766) (void) (XR←MonitorExit((word) (( (bPt) gf←c33260)+16)/* LOCK←v2804 */ )); return; } static word NoName←Q3528(formal←c0405) word formal←c0405; { register ptr gf←c0404 = (ptr) &globalframe; SOURCE(5834, 27) SOURCE(6343, 44) { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf←c0404)+111)/* var←c28940 */ ))+5) ); (* (ptr) (* (( (ptr) formal←c0405)+4) ) ) = (word) ( *( (fPt) ((* (ptr) pd61 ))))(17, 0, pd61); }; SOURCE(6389, 46) { word pd62; pd62 = (* (( (ptr) (* (( (ptr) gf←c0404)+111)/* var←c28940 */ ))+5) ); (* (( (ptr) (* (( (ptr) formal←c0405)+4) ))+1) ) = (word) ( *( (fPt) ((* (ptr) pd62 ))))(17, 0, pd62); }; SOURCE(6437, 92) { register word each←v10508; each←v10508 = (* (( (ptr) (* (( (ptr) formal←c0405)+4) ))+2) ); lab←L100037: ; if ((each←v10508 != 0)) { } else { goto lab←L100034; }; SOURCE(6507, 22) (void) TryProfile←P2244((* (W2Pt) each←v10508 ), (word) (( (bPt) formal←c0405)+20)); each←v10508 = (* (( (ptr) each←v10508)+2) ); goto lab←L100037; lab←L100034: ; }; return(0); } static void TryProfile←P2244(slice←v10480, formal←c33356) W2 slice←v10480; word formal←c33356; { W9 var←c33292; register ptr gf←c33324 = (ptr) &globalframe; word stream←v10636 = 0; formal←c33356 = (formal←c33356 - 20); (* (ptr) &var←c33292 ) = formal←c33356; /* TryProfile: */ SOURCE(5834, 27) SOURCE(5904, 374) { W2 var←c30412; var←c30412 = slice←v10480; { word var←c30604; var←c30604 = var←c30412.f0; if ((var←c30604 == 0)) { { W2 slice←v10680; slice←v10680 = var←c30412; SOURCE(5948, 33) { word pd63; pd63 = (* (( (ptr) (* (( (ptr) gf←c33324)+115)/* var←c30444 */ ))+33) ); stream←v10636 = (word) ( *( (fPt) ((* (ptr) pd63 ))))(slice←v10680.f1, 0, pd63); }; }; } else { if ((var←c30604 == 1)) { { W2 slice←v10724; slice←v10724 = var←c30412; SOURCE(6004, 276) { word profileName←v10768; SOURCE(6006, 59) { word pd64; pd64 = (* (( (ptr) (* (( (ptr) gf←c33324)+112)/* var←c29676 */ ))+6) ); profileName←v10768 = (word) ( *( (fPt) ((* (ptr) pd64 ))))((* (( (ptr) gf←c33324)+8)/* profileDir←v2832 */ ), slice←v10724.f1, pd64) ; }; SOURCE(6067, 100) SOURCE(6067, 100) { /* declaration of var←c30476 skipped */ { word pd65; pd65 = (* (( (ptr) (* (( (ptr) gf←c33324)+116)/* var←c30508 */ ))+5) ); (* (( (ptr) &var←c33292)+4)/* var←c30476 */ ) = (word) ( *( (fPt) ((* (ptr) pd65 ))))(profileName←v10768, pd65); }; { /* declaration of var←c08 skipped */ /* declaration of var←c09 skipped */ (* (( (ptr) &var←c33292)+5) ) = 4096; (* (( (ptr) &var←c33292)+6) ) = 2; (* (( (ptr) &var←c33292)+7)/* var←c09 */ ) = (* (( (ptr) (* (( (ptr) gf←c33324)+116)/* var←c30508 */ ))+39) ); { /*1*/ /* declaration of var←c010 skipped */ /*1*/ { /*1*/ word var←c011; /*1*/ { /*1*/ word var←c0452; /*1*/ var←c0452 = (word) &var←c33292; /*1*/ var←c011 = (word) XR←Enable(( ((word) (fPt) NoName←Q3588) ), ( ((word) (fPt) NoName←Q4608) ), var←c0452); /*1*/ }; /*1*/ if ((var←c011 == 3)) { /*1*/ goto lab←L100039; /*1*/ }; /*1*/ }; /*1*/ stream←v10636 = (* (( (ptr) &var←c33292)+8)/* var←c010 */ ); /*1*/ }; }; }; lab←L100039: ; SOURCE(6178, 27) if ((stream←v10636 == 0)) { SOURCE(6199, 6) return; }; SOURCE(6207, 71) { word var←c30572; word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf←c33324)+111)/* var←c28940 */ ))+10) ); var←c30572 = (word) ( *( (fPt) ((* (ptr) pd66 ))))((* (( (ptr) (* (( (ptr) formal←c33356)+4) ))+1) ), profileName←v10768, (* ( /*1*/ ( (ptr) gf←c33324)+31) ), pd66); }; }; }; } else { SOURCE(6294, 5) (void) XR←RaiseUnnamedError(); }; }; }; }; SOURCE(6301, 37) (void) ParseProfileInternal←P1200((* (( (ptr) formal←c33356)+4) ), stream←v10636); } static word NoName←Q3588(formal←c0409) word formal←c0409; { register ptr gf←c0408 = (ptr) &globalframe; SOURCE(6067, 100) { word pd67; pd67 = (* (( (ptr) formal←c0409)+7) ); (* (( (ptr) formal←c0409)+8) ) = (word) ( *( (fPt) ((* (ptr) pd67 ))))((* (( (ptr) formal←c0409)+4) ), 0, (* (W4Pt) (( (ptr) gf←c0408)+102) /* var←c28780 */ ), 0, 0, (* (W5Pt) (( (ptr) gf←c0408)+106)/* var←c28844 */ ) , 1, (* (W2Pt) (( (ptr) formal←c0409)+5) ), pd67); }; return(0); } static void ParseProfileInternal←P1200(formal←c0500, formal←c0501) word formal←c0500; word formal←c0501; { W18 var←c33388; /* declaration of profile←v6912 skipped */ /* declaration of stream←v6940 skipped */ register ptr gf←c33420 = (ptr) &globalframe; /* declaration of var←c30636 skipped */ /* declaration of var←c30668 skipped */ /* declaration of var←c30700 skipped */ /* declaration of var←c30732 skipped */ /* declaration of var←c30764 skipped */ (* (( (ptr) &var←c33388)+4)/* profile←v6912 */ ) = formal←c0500; (* (( (ptr) &var←c33388)+5)/* stream←v6940 */ ) = formal←c0501; /* ParseProfileInternal: */ SOURCE(6544, 3253) { word tmpAddr68; tmpAddr68 = (word) (( (ptr) &var←c33388)+6)/* var←c30636 */ ; (* (ptr) tmpAddr68 ) = ( ((word) (fPt) LookupTokens←P2784) ); (* (( (ptr) tmpAddr68) + 1) ) = 1; }; { word tmpAddr69; tmpAddr69 = (word) (( (ptr) &var←c33388)+8)/* var←c30668 */ ; (* (ptr) tmpAddr69 ) = ( ((word) (fPt) Cat←P2724) ); (* (( (ptr) tmpAddr69) + 1) ) = 1; }; { word tmpAddr70; tmpAddr70 = (word) (( (ptr) &var←c33388)+10)/* var←c30700 */ ; (* (ptr) tmpAddr70 ) = ( ((word) (fPt) tokenProc←P2664) ); (* (( (ptr) tmpAddr70) + 1) ) = 1; }; { word tmpAddr71; tmpAddr71 = (word) (( (ptr) &var←c33388)+12)/* var←c30732 */ ; (* (ptr) tmpAddr71 ) = ( ((word) (fPt) LocalToken←P2604) ); (* (( (ptr) tmpAddr71) + 1) ) = 1; }; { word tmpAddr72; tmpAddr72 = (word) (( (ptr) &var←c33388)+14)/* var←c30764 */ ; (* (ptr) tmpAddr72 ) = ( ((word) (fPt) SkipWhite←P2544) ); (* (( (ptr) tmpAddr72) + 1) ) = 1; }; SOURCE(6622, 3147) lab←L100044: ; SOURCE(6625, 3144) { /* declaration of token←v10952 skipped */ /* declaration of position←v11036 skipped */ word var←c019; { word var←c0453; var←c0453 = (word) &var←c33388; var←c019 = (word) XR←Enable(( ((word) (fPt) NoName←Q3648) ), ( ((word) (fPt) NoName←Q4428) ), var←c0453); }; if ((var←c019 == 6)) { goto lab←L100044; } else { if ((var←c019 == 4)) { goto lab←L100043; }; }; }; goto lab←L100044; lab←L100043: ; SOURCE(9781, 16) { word pd73; pd73 = (* (( (ptr) (* (( (ptr) gf←c33420)+115)/* var←c30444 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd73 ))))((* (( (ptr) &var←c33388)+5)/* stream←v6940 */ ), 0, pd73); }; } static word NoName←Q3648(formal←c0412) word formal←c0412; { W9 var←c0481; register ptr gf←c0411 = (ptr) &globalframe; (* (ptr) &var←c0481 ) = formal←c0412; SOURCE(6696, 17) { word tokens←v10980 = 0; word tail←v11008 = 0; word key←v11064 = 0; word additive←v11092; SOURCE(7990, 17) (* (( (ptr) formal←c0412)+16) ) = 0; SOURCE(8043, 17) (* (( (ptr) formal←c0412)+17) ) = 0; SOURCE(8113, 16) (void) LocalToken←P2604(1, (word) (( (bPt) formal←c0412)+48)); SOURCE(8131, 28) key←v11064 = (* (( (ptr) formal←c0412)+16) ); if (((* (( (ptr) formal←c0412)+16) ) == 0)) { SOURCE(8159, 4) return(4); }; SOURCE(8165, 406) { word var←c30796; var←c30796 = (word) SkipWhite←P2544(0, (word) (( (bPt) formal←c0412)+56)); if ((var←c30796 == 58)) { SOURCE(8197, 21) { word var←c30828; word pd74; pd74 = (* (( (ptr) (* (( (ptr) gf←c0411)+115)/* var←c30444 */ ))+11) ); var←c30828 = (word) ( *( (fPt) ((* (ptr) pd74 ))))((* ((( (ptr) formal←c0412)+5)) ), pd74); }; SOURCE(8237, 121) { word var←c30860; { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf←c0411)+115)/* var←c30444 */ ))+19) ); var←c30860 = (word) ( *( (fPt) ((* (ptr) pd75 ))))((* ((( (ptr) formal←c0412)+5)) ), pd75); }; if ((var←c30860 == 60)) { additive←v11092 = 1; } else { if ((var←c30860 == 62)) { additive←v11092 = 2; } else { additive←v11092 = 0; }; }; }; if ((additive←v11092 != 0)) { SOURCE(8337, 21) { word var←c30892; word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf←c0411)+115)/* var←c30444 */ ))+11) ); var←c30892 = (word) ( *( (fPt) ((* (ptr) pd76 ))))((* ((( (ptr) formal←c0412)+5)) ), pd76); }; }; } else { SOURCE(8404, 46) lab←L100049: ; SOURCE(8407, 43) { word var←c30924; { /* declaration of var←c012 skipped */ (* (( (ptr) &var←c0481)+4)/* var←c012 */ ) = (* (( (ptr) (* (( (ptr) gf←c0411)+115)/* var←c30444 */ ))+11) ); { /* declaration of var←c013 skipped */ { word var←c014; { word var←c0454; var←c0454 = (word) &var←c0481; var←c014 = (word) XR←Enable(( ((word) (fPt) NoName←Q3768) ), ( ((word) (fPt) NoName←Q4548) ), var←c0454); }; if ((var←c014 == 5)) { goto lab←L100048; } else { if ((var←c014 == 4)) { /*1*/ return(4); /*1*/ }; }; }; var←c30924 = (* (( (ptr) &var←c0481)+5)/* var←c013 */ ); }; }; if (((var←c30924 == 10) || (var←c30924 == 13)) || (var←c30924 == 10)) { SOURCE(8478, 4) goto lab←L100048; }; }; goto lab←L100049; lab←L100048: ; SOURCE(8502, 69) { word var←c30956; { W2 var←c30988; var←c30988.f0 = 5; var←c30988.f1 = (* (( (ptr) formal←c0412)+17) ); { word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf←c0411)+115)/* var←c30444 */ ))+63) ); var←c30956 = (word) ( *( (fPt) ((* (ptr) pd77 ))))((* (( (ptr) gf←c0411)+33) ), var←c30988, pd77); }; }; (void) ReportInternal←P1320(0, var←c30956); }; SOURCE(8573, 4) return(6); }; }; SOURCE(8582, 166) lab←L100054: ; SOURCE(8582, 166) { word list←v11972 = 0; SOURCE(8611, 12) (void) LocalToken←P2604(0, (word) (( (bPt) formal←c0412)+48)); SOURCE(8625, 20) if (((* (( (ptr) formal←c0412)+16) ) == 0)) { SOURCE(8645, 4) goto lab←L100053; }; SOURCE(8651, 18) { word var←c31020; word var←c31052; var←c31020 = XR←NewObject(8, (* (( (ptr) gf←c0411)+28) )); var←c31052 = var←c31020; (* (ptr) var←c31052 ) = (* (( (ptr) formal←c0412)+16) ); list←v11972 = var←c31020; }; SOURCE(8671, 77) if ((tail←v11008 == 0)) { SOURCE(8691, 20) tail←v11008 = list←v11972; tokens←v10980 = list←v11972; } else { SOURCE(8719, 16) (* (( (ptr) tail←v11008)+1) ) = list←v11972; SOURCE(8737, 11) tail←v11008 = list←v11972; }; }; goto lab←L100054; lab←L100053: ; SOURCE(8760, 1009) { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf←c0411)+112)/* var←c29676 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd78 ))))(key←v11064, (* (( (ptr) gf←c0411)+34) ), 0, pd78))) { SOURCE(8823, 494) { register word each←v12100; each←v12100 = tokens←v10980; lab←L100058: ; if ((each←v12100 != 0)) { } else { goto lab←L100055; }; { word profileSlice←v12228 = 0; word profileName←v12256; SOURCE(8915, 55) { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf←c0411)+112)/* var←c29676 */ ))+6) ); profileName←v12256 = (word) ( *( (fPt) ((* (ptr) pd79 ))))((* (( (ptr) gf←c0411)+8)/* profileDir←v2832 */ ), (* (ptr) each←v12100 ), pd79) ; }; SOURCE(8972, 81) SOURCE(8972, 81) { /* declaration of var←c31116 skipped */ { word pd80; pd80 = (* (( (ptr) (* (( (ptr) gf←c0411)+116)/* var←c30508 */ ))+5) ); (* (( (ptr) &var←c0481)+4)/* var←c31116 */ ) = (word) ( *( (fPt) ((* (ptr) pd80 ))))(profileName←v12256, pd80); }; { /* declaration of var←c015 skipped */ /* declaration of var←c016 skipped */ (* (( (ptr) &var←c0481)+5) ) = 4096; (* (( (ptr) &var←c0481)+6) ) = 2; (* (( (ptr) &var←c0481)+7)/* var←c016 */ ) = (* (( (ptr) (* (( (ptr) gf←c0411)+116)/* var←c30508 */ ))+39) ); { /* declaration of var←c017 skipped */ { /*1*/ word var←c018; /*1*/ { /*1*/ word var←c0455; /*1*/ var←c0455 = (word) &var←c0481; /*1*/ var←c018 = (word) XR←Enable(( ((word) (fPt) NoName←Q3708) ), ( ((word) (fPt) NoName←Q4488) ), var←c0455); /*1*/ }; /*1*/ switch (var←c018) { /*1*/ case 7: /*1*/ goto lab←L100060; /*1*/ case 6: /*1*/ return(6); /*1*/ case 5: /*1*/ goto lab←L100048; /*1*/ case 4: /*1*/ return(4); /*1*/ }; /*1*/ }; profileSlice←v12228 = (* (( (ptr) &var←c0481)+8)/* var←c017 */ ); }; }; }; lab←L100060: ; SOURCE(9064, 253) if ((profileSlice←v12228 != 0)) { SOURCE(9093, 70) { word var←c31180; word pd81; pd81 = (* (( (ptr) (* (( (ptr) gf←c0411)+111)/* var←c28940 */ ))+10) ); var←c31180 = (word) ( *( (fPt) ((* (ptr) pd81 ))))((* (( (ptr) (* (( (ptr) formal←c0412)+4) ))+1) ), profileName←v12256, (* ( /*1*/ ( (ptr) gf←c0411)+35) ), pd81); }; SOURCE(9165, 43) (void) ParseProfileInternal←P1200((* (( (ptr) formal←c0412)+4) ), profileSlice←v12228); } else { SOURCE(9217, 100) { word var←c31212; { word var←c31244; var←c31244 = XR←NewObject(12, (* (( (ptr) gf←c0411)+26) )); (* (ptr) var←c31244 ) = (* (ptr) each←v12100 ); (* (( (ptr) var←c31244)+1) ) = tokens←v10980; (* (( (ptr) var←c31244)+2) ) = (* (( (ptr) formal←c0412)+17) ); var←c31212 = var←c31244; }; (void) ReportInternal←P1320(var←c31212, (* (( (ptr) gf←c0411)+36) )); }; }; }; each←v12100 = (* (( (ptr) each←v12100)+1) ); goto lab←L100058; lab←L100055: ; }; } else { SOURCE(9362, 306) { word var←c31276; var←c31276 = additive←v11092; if ((var←c31276 == 1)) { SOURCE(9393, 39) { word var←c31308; var←c31308 = (word) LookupTokens←P2784(key←v11064, (word) (( (bPt) formal←c0412)+24)); tokens←v10980 = (word) Cat←P2724(tokens←v10980, var←c31308, (word) (( (bPt) formal←c0412)+32)); }; } else { if ((var←c31276 == 2)) { SOURCE(9444, 39) { word var←c31340; var←c31340 = (word) LookupTokens←P2784(key←v11064, (word) (( (bPt) formal←c0412)+24)); tokens←v10980 = (word) Cat←P2724(var←c31340, tokens←v10980, (word) (( (bPt) formal←c0412)+32)); }; } else { SOURCE(9496, 172) if (((word) LookupInternal←P780((* (( (ptr) formal←c0412)+4) ), key←v11064) != 0)) { SOURCE(9539, 129) { word var←c31372; word var←c31404; var←c31372 = (word) LookupInternal←P780((* (( (ptr) formal←c0412)+4) ), key←v11064); { /*1*/ W2 var←c31436; /*1*/ W2 var←c31468; /*1*/ W2 var←c0456; /*1*/ var←c31436.f0 = 11; /*1*/ var←c31436.f1 = key←v11064; /*1*/ var←c31468.f0 = 5; /*1*/ var←c31468.f1 = (* (( (ptr) formal←c0412)+17) ); /*1*/ (* (ptr) (word) &var←c0456 ) = 0; /*1*/ (* (( (ptr) (word) &var←c0456) + 1) ) = 0; /*1*/ { /*1*/ word pd82; /*1*/ pd82 = (* (( (ptr) (* (( (ptr) gf←c0411)+115)/* var←c30444 */ ))+62) ); /*1*/ var←c31404 = (word) ( *( (fPt) ((* (ptr) pd82 ))))((* (( (ptr) gf←c0411)+37) ), var←c31436, var←c31468, var←c0456, pd82) /*1*/ ; /*1*/ }; /*1*/ }; (void) ReportInternal←P1320(var←c31372, var←c31404); }; }; }; }; }; SOURCE(9670, 99) { word var←c31596; { word var←c31532; { word var←c31564; var←c31564 = XR←NewObject(12, (* (( (ptr) gf←c0411)+26) )); (* (ptr) var←c31564 ) = key←v11064; (* (( (ptr) var←c31564)+1) ) = tokens←v10980; (* (( (ptr) var←c31564)+2) ) = (* (( (ptr) formal←c0412)+17) ); var←c31532 = var←c31564; }; { word pd83; pd83 = (* (( (ptr) (* (( (ptr) gf←c0411)+111)/* var←c28940 */ ))+10) ); var←c31596 = (word) ( *( (fPt) ((* (ptr) pd83 ))))((* (ptr) (* (( (ptr) formal←c0412)+4) ) ), key←v11064, var←c31532, pd83) ; }; }; }; }; }; }; return(0); } static word NoName←Q3708(formal←c0414) word formal←c0414; { register ptr gf←c0413 = (ptr) &globalframe; SOURCE(8972, 81) { word pd84; pd84 = (* (( (ptr) formal←c0414)+7) ); (* (( (ptr) formal←c0414)+8) ) = (word) ( *( (fPt) ((* (ptr) pd84 ))))((* (( (ptr) formal←c0414)+4) ), 0, (* (W4Pt) (( (ptr) gf←c0413)+102) /* var←c28780 */ ), 0, 0, (* (W5Pt) (( (ptr) gf←c0413)+106)/* var←c28844 */ ) , 1, (* (W2Pt) (( (ptr) formal←c0414)+5) ), pd84); }; return(0); } static word NoName←Q3768(formal←c0415) word formal←c0415; { SOURCE(8407, 43) { word pd85; pd85 = (* (( (ptr) formal←c0415)+4) ); (* (( (ptr) formal←c0415)+5) ) = (word) ( *( (fPt) ((* (ptr) pd85 ))))((* ((( (ptr) (* (ptr) formal←c0415 ))+5)) ), pd85) ; }; return(0); } static word SkipWhite←P2544(formal←c0502, formal←c33484) word formal←c0502; word formal←c33484; { W7 var←c33452; /* declaration of flushLines←v11168 skipped */ /* declaration of var←c020 skipped */ /* declaration of c←v11212 skipped */ formal←c33484 = (formal←c33484 - 56); var←c33452.f4/* flushLines←v11168 */ = formal←c0502; var←c33452.f0 = formal←c33484; /* SkipWhite: */ SOURCE(6696, 17) SOURCE(6759, 520) SOURCE(6761, 483) lab←L100066: ; SOURCE(6764, 480) { word var←c021; { word var←c0457; var←c0457 = (word) &var←c33452; var←c021 = (word) XR←Enable(( ((word) (fPt) NoName←Q3828) ), ( ((word) (fPt) NoName←Q4368) ), var←c0457); }; if ((var←c021 == 8)) { goto lab←L100063; } else { if ((var←c021 == 1)) { goto lab←L012; }; }; }; goto lab←L100066; /* c2c skipped dead code */ lab←L100063: ; SOURCE(7270, 6) var←c33452.f6/* c←v11212 */ = 0; SOURCE(6696, 17) return(var←c33452.f6/* c←v11212 */ ); lab←L012: ; return(var←c33452.f5/* var←c020 */ ); } static word NoName←Q3828(formal←c0418) word formal←c0418; { register ptr gf←c0417 = (ptr) &globalframe; SOURCE(6811, 21) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf←c0417)+115)/* var←c30444 */ ))+19) ); (* (( (ptr) formal←c0418)+6) ) = (word) ( *( (fPt) ((* (ptr) pd86 ))))((* ((( (ptr) (* (ptr) formal←c0418 ))+5)) ), pd86) ; }; SOURCE(6834, 387) { word var←c31628; var←c31628 = (* (( (ptr) formal←c0418)+6) ); if (((var←c31628 == 10) || (var←c31628 == 13)) || (var←c31628 == 10)) { SOURCE(6865, 29) if ((0 == (* (( (ptr) formal←c0418)+4) ))) { SOURCE(6888, 6) (* (( (ptr) formal←c0418)+5) ) = (* (( (ptr) formal←c0418)+6) ); return(1); }; goto endif087; }; if ((var←c31628 <= 32)) { goto endif087; }; if ((var←c31628 == 45)) { SOURCE(6939, 21) { word var←c31660; word pd88; pd88 = (* (( (ptr) (* (( (ptr) gf←c0417)+115)/* var←c30444 */ ))+11) ); var←c31660 = (word) ( *( (fPt) ((* (ptr) pd88 ))))((* ((( (ptr) (* (ptr) formal←c0418 ))+5)) ), pd88); }; SOURCE(6962, 61) { word pd89; pd89 = (* (( (ptr) (* (( (ptr) gf←c0417)+115)/* var←c30444 */ ))+19) ); if (((word) ( *( (fPt) ((* (ptr) pd89 ))))((* ((( (ptr) (* (ptr) formal←c0418 ))+5)) ), pd89) != 45)) { SOURCE(6995, 16) { word pd90; pd90 = (* (( (ptr) (* (( (ptr) gf←c0417)+115)/* var←c30444 */ ))+18) ); (void) ( *( (fPt) ((* (ptr) pd90 ))))((* (( (ptr) (* (ptr) formal←c0418 ))+5) ), (* (( (ptr) formal←c0418)+6) ), pd90); }; SOURCE(7013, 10) (* (( (ptr) formal←c0418)+5) ) = (* (( (ptr) formal←c0418)+6) ); return(1); }; }; SOURCE(7028, 149) lab←L100071: ; SOURCE(7031, 20) { word pd91; pd91 = (* (( (ptr) (* (( (ptr) gf←c0417)+115)/* var←c30444 */ ))+11) ); (* (( (ptr) formal←c0418)+6) ) = (word) ( *( (fPt) ((* (ptr) pd91 ))))((* ((( (ptr) (* (ptr) formal←c0418 ))+5)) ), pd91) ; }; SOURCE(7053, 124) { word var←c31692; var←c31692 = (* (( (ptr) formal←c0418)+6) ); if (((var←c31692 == 10) || (var←c31692 == 13)) || (var←c31692 == 10)) { SOURCE(7086, 16) { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf←c0417)+115)/* var←c30444 */ ))+18) ); (void) ( *( (fPt) ((* (ptr) pd92 ))))((* (( (ptr) (* (ptr) formal←c0418 ))+5) ), (* (( (ptr) formal←c0418)+6) ), pd92); }; SOURCE(7104, 19) if ((0 != (* (( (ptr) formal←c0418)+4) ))) { SOURCE(7123, 4) goto lab←L100070; }; SOURCE(7129, 6) (* (( (ptr) formal←c0418)+5) ) = (* (( (ptr) formal←c0418)+6) ); return(1); } else { if ((var←c31692 == 45)) { SOURCE(7146, 31) { word pd93; pd93 = (* (( (ptr) (* (( (ptr) gf←c0417)+115)/* var←c30444 */ ))+19) ); if (((word) ( *( (fPt) ((* (ptr) pd93 ))))((* ((( (ptr) (* (ptr) formal←c0418 ))+5)) ), pd93) == 45)) { SOURCE(7177, 4) goto lab←L100070; }; }; }; }; }; goto lab←L100071; lab←L100070: ; goto endif087; }; SOURCE(7215, 6) (* (( (ptr) formal←c0418)+5) ) = (* (( (ptr) formal←c0418)+6) ); return(1); endif087: ; }; SOURCE(7223, 21) { word var←c31724; word pd94; pd94 = (* (( (ptr) (* (( (ptr) gf←c0417)+115)/* var←c30444 */ ))+11) ); var←c31724 = (word) ( *( (fPt) ((* (ptr) pd94 ))))((* ((( (ptr) (* (ptr) formal←c0418 ))+5)) ), pd94); }; return(0); } static void LocalToken←P2604(flushLines←v11272, formal←c33548) word flushLines←v11272; word formal←c33548; { register ptr gf←c33516 = (ptr) &globalframe; word stop←v12300; formal←c33548 = (formal←c33548 - 48); /* LocalToken: */ SOURCE(7282, 18) SOURCE(7330, 34) stop←v12300 = (word) SkipWhite←P2544(flushLines←v11272, (word) (( (bPt) formal←c33548)+56)); SOURCE(7366, 28) { word pd95; pd95 = (* (( (ptr) (* (( (ptr) gf←c33516)+115)/* var←c30444 */ ))+29) ); (* (( (ptr) formal←c33548)+17) ) = (word) ( *( (fPt) ((* (ptr) pd95 ))))((* ((( (ptr) formal←c33548)+5)) ), pd95); }; SOURCE(7396, 11) (* (( (ptr) formal←c33548)+16) ) = 0; SOURCE(7409, 140) { word var←c31756; W2 var←c0254; var←c31756 = stop←v12300; if ((((var←c31756 == 0) || (var←c31756 == 10)) || (var←c31756 == 13)) || (var←c31756 == 10)) { SOURCE(7447, 6) return; } else { if ((var←c31756 == 34)) { SOURCE(7461, 31) { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf←c33516)+115)/* var←c30444 */ ))+78) ); (* (( (ptr) formal←c33548)+16) ) = (word) ( *( (fPt) ((* (ptr) pd96 ))))((* ((( (ptr) formal←c33548)+5)) ), pd96); }; } else { SOURCE(7505, 44) { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf←c33516)+115)/* var←c30444 */ ))+89) ); (void) ( *( (fPt) ((* (ptr) pd97 ))))((word) &var←c0254, (* (( (ptr) formal←c33548)+5) ), (word) (( (bPt) formal←c33548)+40) , pd97); }; (* (( (ptr) formal←c33548)+16) ) = var←c0254.f0; }; }; }; } static word tokenProc←P2664(char←v23400, formal←c33580) word char←v23400; word formal←c33580; { word var←c23444; formal←c33580 = (formal←c33580 - 40); /* tokenProc: */ SOURCE(7554, 26) SOURCE(7582, 101) { word var←c31788; var←c31788 = char←v23400; switch (var←c31788) { case 32: case 9: return(1); case 10: case 13: case 58: return(0); default: return(2); }; }; } static word Cat←P2724(a←v11332, b←v11360, formal←c33644) word a←v11332; word b←v11360; word formal←c33644; { register ptr gf←c33612 = (ptr) &globalframe; word var←c11488; formal←c33644 = (formal←c33644 - 32); /* Cat: */ SOURCE(7688, 11) SOURCE(7746, 59) if ((a←v11332 == 0)) { return(b←v11360); } else { { word var←c31852; word var←c31884; var←c31852 = (word) Cat←P2724((* (( (ptr) a←v11332)+1) ), b←v11360, (word) (( (bPt) formal←c33644)+32)); var←c31884 = XR←NewObject(8, (* (( (ptr) gf←c33612)+28) )); (* (ptr) var←c31884 ) = (* (ptr) a←v11332 ); (* (( (ptr) var←c31884)+1) ) = var←c31852; return(var←c31884); }; }; } static word LookupTokens←P2784(key←v11632, formal←c33676) word key←v11632; word formal←c33676; { word tokens←v11676; word entry←v12344; formal←c33676 = (formal←c33676 - 24); /* LookupTokens: */ SOURCE(7810, 29) SOURCE(7810, 29) tokens←v11676 = 0; SOURCE(7885, 50) entry←v12344 = (word) LookupInternal←P780((* (( (ptr) formal←c33676)+4) ), key←v11632); SOURCE(7937, 48) if ((entry←v12344 == 0)) { return(0); } else { return((* (( (ptr) entry←v12344)+1) )); }; } static void Report←P1260(formal←c0503, formal←c0504) word formal←c0503; word formal←c0504; { W6 var←c33708; /* declaration of entry←v7060 skipped */ /* declaration of msg←v7088 skipped */ register ptr gf←c33740 = (ptr) &globalframe; var←c33708.f4/* entry←v7060 */ = formal←c0503; var←c33708.f5/* msg←v7088 */ = formal←c0504; /* Report: */ SOURCE(9846, 118) (void) (XR←MonitorEntry((word) (( (bPt) gf←c33740)+16)/* LOCK←v2804 */ )); SOURCE(9915, 49) { word var←c0458; var←c0458 = (word) &var←c33708; (void) (word) XR←Enable(( ((word) (fPt) NoName←Q3888) ), ( ((word) (fPt) NoName←Q4308) ), var←c0458); }; SOURCE(9846, 118) (void) (XR←MonitorExit((word) (( (bPt) gf←c33740)+16)/* LOCK←v2804 */ )); return; } static word NoName←Q3888(formal←c0426) word formal←c0426; { SOURCE(9938, 26) (void) ReportInternal←P1320((* (( (ptr) formal←c0426)+4) ), (* (( (ptr) formal←c0426)+5) )); return(0); } static void ReportInternal←P1320(formal←c0505, formal←c0506) word formal←c0505; word formal←c0506; { W6 var←c33772; /* declaration of entry←v7148 skipped */ /* declaration of msg←v7176 skipped */ var←c33772.f4/* entry←v7148 */ = formal←c0505; var←c33772.f5/* msg←v7176 */ = formal←c0506; /* ReportInternal: */ SOURCE(9970, 283) SOURCE(10043, 210) SOURCE(10043, 210) { word var←c022; { word var←c0459; var←c0459 = (word) &var←c33772; var←c022 = (word) XR←Enable(( ((word) (fPt) NoName←Q3948) ), ( ((word) (fPt) NoName←Q4248) ), var←c0459); }; /* removed trivial cond node */ }; } static word NoName←Q3948(formal←c0428) word formal←c0428; { register ptr gf←c0427 = (ptr) &globalframe; SOURCE(10085, 38) { W2 var←c31916; var←c31916.f0 = 11; var←c31916.f1 = (* (( (ptr) formal←c0428)+5) ); { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf←c0427)+115)/* var←c30444 */ ))+63) ); (* (( (ptr) formal←c0428)+5) ) = (word) ( *( (fPt) ((* (ptr) pd98 ))))((* (( (ptr) gf←c0427)+38) ), var←c31916, pd98); }; }; SOURCE(10125, 116) if (((* (( (ptr) formal←c0428)+4) ) != 0)) { SOURCE(10143, 98) { word var←c31948; { word var←c31980; word var←c32012; var←c31980 = XR←NewObject(12, (* (( (ptr) gf←c0427)+27) )); var←c32012 = var←c31980; (* (ptr) var←c32012 ) = 11; (* (( (ptr) var←c32012)+1) ) = (* (( (ptr) formal←c0428)+5) ); (* (( (ptr) var←c32012)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c0427)+27) )); var←c32012 = (* (( (ptr) var←c32012)+2) ); (* (ptr) var←c32012 ) = 11; (* (( (ptr) var←c32012)+1) ) = (* (ptr) (* (( (ptr) formal←c0428)+4) ) ); (* (( (ptr) var←c32012)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c0427)+27) )); var←c32012 = (* (( (ptr) var←c32012)+2) ); (* (ptr) var←c32012 ) = 5; (* (( (ptr) var←c32012)+1) ) = (* (( (ptr) (* (( (ptr) formal←c0428)+4) ))+2) ); var←c31948 = var←c31980; }; { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf←c0427)+115)/* var←c30444 */ ))+65) ); (* (( (ptr) formal←c0428)+5) ) = (word) ( *( (fPt) ((* (ptr) pd99 ))))((* (( (ptr) gf←c0427)+39) ), var←c31948, pd99); }; }; }; SOURCE(10243, 10) { word var←c0274; var←c0274 = (* (( (ptr) formal←c0428)+5) ); (void) XR←RaiseError((word) (( (bPt) gf←c0427)+188)/* var←c27852 */ , (word) &var←c0274); }; /* removed dead code */ } static void AddToList←P1380(profile←v7320, item←v7348) word profile←v7320; W2 item←v7348; { register ptr gf←c33804 = (ptr) &globalframe; word dummy←v12388; /* AddToList: */ SOURCE(10314, 302) (void) (XR←MonitorEntry((word) (( (bPt) gf←c33804)+16)/* LOCK←v2804 */ )); SOURCE(10385, 67) dummy←v12388 = XR←NewObject(12, (* (( (ptr) gf←c33804)+22) )); (* (( (ptr) dummy←v12388)+2) ) = (* (( (ptr) profile←v7320)+3) ); SOURCE(10454, 93) { register word each←v12432; each←v12432 = dummy←v12388; lab←L100082: ; SOURCE(10504, 43) if (((* (( (ptr) each←v12432)+2) ) == 0)) { SOURCE(10527, 20) { word var←c32076; word var←c32108; var←c32076 = XR←NewObject(12, (* (( (ptr) gf←c33804)+22) )); var←c32108 = var←c32076; (* (W2Pt) var←c32108 ) = item←v7348; (* (( (ptr) each←v12432)+2) ) = var←c32076; }; SOURCE(10549, 4) goto lab←L100080; }; each←v12432 = (* (( (ptr) each←v12432)+2) ); goto lab←L100082; lab←L100080: ; }; SOURCE(10581, 35) (* (( (ptr) profile←v7320)+3) ) = (* (( (ptr) dummy←v12388)+2) ); SOURCE(10314, 302) (void) (XR←MonitorExit((word) (( (bPt) gf←c33804)+16)/* LOCK←v2804 */ )); return; } static word CopyList←P1440(toCopy←v7408) word toCopy←v7408; { register ptr gf←c33836 = (ptr) &globalframe; word var←c7536; /* CopyList: */ SOURCE(10622, 177) (void) (XR←MonitorEntry((word) (( (bPt) gf←c33836)+16)/* LOCK←v2804 */ )); SOURCE(10721, 78) { word var←c32140; if ((toCopy←v7408 == 0)) { var←c32140 = 0; } else { { word var←c32172; word var←c32204; var←c32172 = (word) CopyList←P1440((* ((( (ptr) toCopy←v7408)+2)) )); var←c32204 = XR←NewObject(12, (* (( (ptr) gf←c33836)+22) )); (* (W2Pt) var←c32204 ) = (* (W2Pt) toCopy←v7408 ); (* (( (ptr) var←c32204)+2) ) = var←c32172; var←c32140 = var←c32204; }; }; (void) (XR←MonitorExit((word) (( (bPt) gf←c33836)+16)/* LOCK←v2804 */ )); return(var←c32140); }; } static void CallWhenProfileChanges←P1500(profile←v7680, proc←v7708, clientData←v7736) word profile←v7680; word proc←v7708; word clientData←v7736; { W2 item←v12476; /* CallWhenProfileChanges: */ SOURCE(10805, 240) SOURCE(10916, 45) item←v12476.f0 = XR←CheckProc(proc←v7708); item←v12476.f1 = clientData←v7736; SOURCE(10963, 50) if ((0 != (* (( (ptr) profile←v7680)+4) ))) { SOURCE(10989, 24) (void) AddToList←P1380(profile←v7680, item←v12476); }; SOURCE(11015, 30) (void) DoIt←P1620(profile←v7680, item←v12476, 0); } static void ProfileChanged←P1560(formal←c0507, reason←v19420, clientData←v19448) word formal←c0507; word reason←v19420; word clientData←v19448; { W5 var←c33868; /* declaration of profile←v19392 skipped */ var←c33868.f4/* profile←v19392 */ = formal←c0507; /* ProfileChanged: */ SOURCE(11051, 239) SOURCE(11097, 57) SOURCE(11097, 57) { word var←c023; { word var←c0460; var←c0460 = (word) &var←c33868; var←c023 = (word) XR←Enable(( ((word) (fPt) NoName←Q4008) ), ( ((word) (fPt) NoName←Q4188) ), var←c0460); }; /* removed trivial cond node */ }; SOURCE(11165, 125) { register word each←v12520; each←v12520 = (word) CopyList←P1440((* ((( (ptr) var←c33868.f4/* profile←v19392 */ )+3)) )); lab←L100090: ; if ((each←v12520 != 0)) { } else { goto lab←L100087; }; SOURCE(11257, 33) (void) DoIt←P1620(var←c33868.f4/* profile←v19392 */ , (* (W2Pt) each←v12520 ), reason←v19420); each←v12520 = (* (( (ptr) each←v12520)+2) ); goto lab←L100090; lab←L100087: ; }; } static word NoName←Q4008(formal←c0431) word formal←c0431; { SOURCE(11097, 57) (void) ParseProfile←P1140((* ((( (ptr) formal←c0431)+4)) )); return(0); } static void DoIt←P1620(formal←c0508, formal←c0509, formal←c0510) word formal←c0508; W2 formal←c0509; word formal←c0510; { W8 var←c33900; /* declaration of profile←v7808 skipped */ /* declaration of item←v7836 skipped */ /* declaration of reason←v7864 skipped */ var←c33900.f4/* profile←v7808 */ = formal←c0508; (* (W2Pt) (( (ptr) &var←c33900)+5)/* item←v7836 */ ) = formal←c0509; var←c33900.f7/* reason←v7864 */ = formal←c0510; /* DoIt: */ SOURCE(11305, 257) SOURCE(11403, 159) SOURCE(11403, 159) { word var←c024; { word var←c0461; var←c0461 = (word) &var←c33900; var←c024 = (word) XR←Enable(( ((word) (fPt) NoName←Q4068) ), ( ((word) (fPt) NoName←Q4128) ), var←c0461); }; /* removed trivial cond node */ }; } static word NoName←Q4068(formal←c0432) word formal←c0432; { SOURCE(11403, 159) { word pd100; pd100 = (* (( (ptr) formal←c0432)+5) ); (void) ( *( (fPt) ((* (ptr) pd100 ))))((* (( (ptr) formal←c0432)+4) ), (* (( (ptr) formal←c0432)+7) ), (* (( (ptr) formal←c0432)+6) ), pd100); }; return(0); } static void NoName←Q4128(formal←c0303, formal←c200048, formal←c200049, formal←c200050, formal←c200051) word formal←c0303; word formal←c200048; word formal←c200049; word formal←c200050; word formal←c200051; { register ptr gf←c0433 = (ptr) &globalframe; if ((formal←c200049 == (* (( (ptr) (* (( (ptr) gf←c0433)+114)/* var←c29804 */ ))+22) ))) { { word signal←v27500; word parameters←v27528; signal←v27500 = (* (ptr) formal←c200051 ); parameters←v27528 = (* (( (ptr) formal←c200051)+1) ); SOURCE(11505, 57) (void) Report←P1260(0, (* (( (ptr) gf←c0433)+46) )); SOURCE(11564, 9) (* (ptr) formal←c0303 ) = 2; (* (( (ptr) formal←c0303)+1) ) = 11; return; }; }; (* (ptr) formal←c0303 ) = 0; (* (( (ptr) formal←c0303)+1) ) = 0; return; } static void NoName←Q4188(formal←c0310, formal←c200044, formal←c200045, formal←c200046, formal←c200047) word formal←c0310; word formal←c200044; word formal←c200045; word formal←c200046; word formal←c200047; { register ptr gf←c0434 = (ptr) &globalframe; if ((formal←c200045 == (* (( (ptr) (* (( (ptr) gf←c0434)+114)/* var←c29804 */ ))+22) ))) { { word signal←v27412; word parameters←v27440; signal←v27412 = (* (ptr) formal←c200047 ); parameters←v27440 = (* (( (ptr) formal←c200047)+1) ); SOURCE(11154, 9) (* (ptr) formal←c0310 ) = 2; (* (( (ptr) formal←c0310)+1) ) = 10; return; }; }; (* (ptr) formal←c0310 ) = 0; (* (( (ptr) formal←c0310)+1) ) = 0; return; } static void NoName←Q4248(formal←c0317, formal←c200040, formal←c200041, formal←c200042, formal←c200043) word formal←c0317; word formal←c200040; word formal←c200041; word formal←c200042; word formal←c200043; { register ptr gf←c0435 = (ptr) &globalframe; if ((formal←c200041 == (* (( (ptr) (* (( (ptr) gf←c0435)+114)/* var←c29804 */ ))+22) ))) { { word signal←v26208; word parameters←v26236; signal←v26208 = (* (ptr) formal←c200043 ); parameters←v26236 = (* (( (ptr) formal←c200043)+1) ); SOURCE(10075, 8) (* (ptr) formal←c0317 ) = 2; (* (( (ptr) formal←c0317)+1) ) = 9; return; }; }; (* (ptr) formal←c0317 ) = 0; (* (( (ptr) formal←c0317)+1) ) = 0; return; } static void NoName←Q4308(formal←c0322, formal←c200036, formal←c200037, formal←c200038, formal←c200039) word formal←c0322; word formal←c200036; word formal←c200037; word formal←c200038; word formal←c200039; { register ptr gf←c0436 = (ptr) &globalframe; if ((formal←c200037 == XR←Unwind)) { (void) (XR←MonitorExit((word) (( (bPt) gf←c0436)+16)/* LOCK←v2804 */ )); }; (* (ptr) formal←c0322 ) = 0; (* (( (ptr) formal←c0322)+1) ) = 0; return; } static void NoName←Q4368(formal←c0327, formal←c200032, formal←c200033, formal←c200034, formal←c200035) word formal←c0327; word formal←c200032; word formal←c200033; word formal←c200034; word formal←c200035; { register ptr gf←c0437 = (ptr) &globalframe; if ((formal←c200033 == (* (( (ptr) (* (( (ptr) gf←c0437)+115)/* var←c30444 */ ))+5) )) || (formal←c200033 == (* (( (ptr) (* ( ( (ptr) gf←c0437)+115)/* var←c30444 */ ))+4) ))) { SOURCE(6799, 10) (* (ptr) formal←c0327 ) = 2; (* (( (ptr) formal←c0327)+1) ) = 8; return; }; (* (ptr) formal←c0327 ) = 0; (* (( (ptr) formal←c0327)+1) ) = 0; return; } static void NoName←Q4428(formal←c0334, formal←c200020, formal←c200021, formal←c200022, formal←c200023) word formal←c0334; word formal←c200020; word formal←c200021; word formal←c200022; word formal←c200023; { register ptr gf←c0438 = (ptr) &globalframe; if ((formal←c200021 == (* (( (ptr) (* (( (ptr) gf←c0438)+114)/* var←c29804 */ ))+22) ))) { { word signal←v22992; word parameters←v23020; signal←v22992 = (* (ptr) formal←c200023 ); parameters←v23020 = (* (( (ptr) formal←c200023)+1) ); SOURCE(6659, 4) (* (ptr) formal←c0334 ) = 2; (* (( (ptr) formal←c0334)+1) ) = 4; return; }; } else { if ((formal←c200021 == XR←Unwind)) { SOURCE(6675, 16) { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf←c0438)+115)/* var←c30444 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd101 ))))((* (( (ptr) formal←c200020)+5) ), 0, pd101); }; }; }; (* (ptr) formal←c0334 ) = 0; (* (( (ptr) formal←c0334)+1) ) = 0; return; } static void NoName←Q4488(formal←c0340, formal←c200028, formal←c200029, formal←c200030, formal←c200031) word formal←c0340; word formal←c200028; word formal←c200029; word formal←c200030; word formal←c200031; { register ptr gf←c0439 = (ptr) &globalframe; if ((formal←c200029 == (* (( (ptr) (* (( (ptr) gf←c0439)+116)/* var←c30508 */ ))+9) ))) { { W4 error←v24592; error←v24592 = (* (W4Pt) formal←c200031 ); SOURCE(9053, 9) (* (ptr) formal←c0340 ) = 2; (* (( (ptr) formal←c0340)+1) ) = 7; return; }; }; (* (ptr) formal←c0340 ) = 0; (* (( (ptr) formal←c0340)+1) ) = 0; return; } static void NoName←Q4548(formal←c0346, formal←c200024, formal←c200025, formal←c200026, formal←c200027) word formal←c0346; word formal←c200024; word formal←c200025; word formal←c200026; word formal←c200027; { register ptr gf←c0440 = (ptr) &globalframe; if ((formal←c200025 == (* (( (ptr) (* (( (ptr) gf←c0440)+115)/* var←c30444 */ ))+4) ))) { { word stream←v23868; stream←v23868 = (* (ptr) formal←c200027 ); SOURCE(8450, 28) (* (ptr) formal←c0346 ) = 2; (* (( (ptr) formal←c0346)+1) ) = 5; return; }; }; (* (ptr) formal←c0346 ) = 0; (* (( (ptr) formal←c0346)+1) ) = 0; return; } static void NoName←Q4608(formal←c0352, formal←c200016, formal←c200017, formal←c200018, formal←c200019) word formal←c0352; word formal←c200016; word formal←c200017; word formal←c200018; word formal←c200019; { register ptr gf←c0441 = (ptr) &globalframe; if ((formal←c200017 == (* (( (ptr) (* (( (ptr) gf←c0441)+116)/* var←c30508 */ ))+9) ))) { { W4 error←v22932; error←v22932 = (* (W4Pt) formal←c200019 ); SOURCE(6167, 9) (* (ptr) formal←c0352 ) = 2; (* (( (ptr) formal←c0352)+1) ) = 3; return; }; }; (* (ptr) formal←c0352 ) = 0; (* (( (ptr) formal←c0352)+1) ) = 0; return; } static void NoName←Q4668(formal←c0357, formal←c200012, formal←c200013, formal←c200014, formal←c200015) word formal←c0357; word formal←c200012; word formal←c200013; word formal←c200014; word formal←c200015; { register ptr gf←c0442 = (ptr) &globalframe; if ((formal←c200013 == XR←Unwind)) { (void) (XR←MonitorExit((word) (( (bPt) gf←c0442)+16)/* LOCK←v2804 */ )); }; (* (ptr) formal←c0357 ) = 0; (* (( (ptr) formal←c0357)+1) ) = 0; return; } static void NoName←Q4728(formal←c0362, formal←c200008, formal←c200009, formal←c200010, formal←c200011) word formal←c0362; word formal←c200008; word formal←c200009; word formal←c200010; word formal←c200011; { register ptr gf←c0443 = (ptr) &globalframe; if ((formal←c200009 == XR←Unwind)) { (void) (XR←MonitorExit((word) (( (bPt) gf←c0443)+16)/* LOCK←v2804 */ )); }; (* (ptr) formal←c0362 ) = 0; (* (( (ptr) formal←c0362)+1) ) = 0; return; } static void NoName←Q4788(formal←c0367, formal←c200004, formal←c200005, formal←c200006, formal←c200007) word formal←c0367; word formal←c200004; word formal←c200005; word formal←c200006; word formal←c200007; { register ptr gf←c0444 = (ptr) &globalframe; if ((formal←c200005 == XR←Unwind)) { (void) (XR←MonitorExit((word) (( (bPt) gf←c0444)+16)/* LOCK←v2804 */ )); }; (* (ptr) formal←c0367 ) = 0; (* (( (ptr) formal←c0367)+1) ) = 0; return; } static void NoName←Q4848(formal←c0375, formal←c200000, formal←c200001, formal←c200002, formal←c200003) word formal←c0375; word formal←c200000; word formal←c200001; word formal←c200002; word formal←c200003; { register ptr gf←c0445 = (ptr) &globalframe; if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0445)+114)/* var←c29804 */ ))+22) ))) { { word signal←v22280; word parameters←v22308; signal←v22280 = (* (ptr) formal←c200003 ); parameters←v22308 = (* (( (ptr) formal←c200003)+1) ); SOURCE(3245, 15) (* (( (ptr) formal←c200000)+5) ) = (* (( (ptr) formal←c200000)+4) ); SOURCE(3263, 43) { word var←c29836; { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf←c0445)+112)/* var←c29676 */ ))+6) ); var←c29836 = (word) ( *( (fPt) ((* (ptr) pd102 ))))((* (( (ptr) formal←c200000)+7) ), (* (( (ptr) gf←c0445)+42) ), pd102) ; }; (void) Report←P1260((* (( (ptr) formal←c200000)+6) ), var←c29836); }; SOURCE(3308, 8) (* (ptr) formal←c0375 ) = 2; (* (( (ptr) formal←c0375)+1) ) = 2; return; }; }; (* (ptr) formal←c0375 ) = 0; (* (( (ptr) formal←c0375)+1) ) = 0; return; } /* file: ProfilesImpl, module: ProfilesImpl, compiled at: February 22, 1992 10:55:48 am PST */ extern void XR←install←ProfilesImpl() { NoName←Q3288(); } extern void XR←run←ProfilesImpl() { XR←Start(&globalframe); }