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