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