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