/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: January 18, 1993 1:40:17 pm PST */ /* C2C version: October 7, 1992 (native) */ /* ref-counting: off */ /* file: InstallationScopesImpl, module: InstallationScopesImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [3625656967,2349445893] InstallationScopesImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1;} W2; typedef W2 *W2Pt; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {word f0, f1, f2, f3;} W4; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {word f0, f1, f2;} W3; typedef W3 *W3Pt; typedef W4 *W4Pt; typedef W6 *W6Pt; #define SOURCE(p, l) /* source p, l */ #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) static void NoName_Q7836(); static void InstallationScopesImpl_P0(); static void Insert_P60(); static word GlobalConfig_P120(); static word Parent_P180(); static void EnumerateChildren_P240(); static void EnumerateInterfaces_P300(); static void UnmonitoredEnumerateInterfaces_P360(); static void MaybeMonitorEnumerateInterfaces_P420(); static void EachInterface_P4944(); static void EnumerateExports_P480(); static word ObjectName_P540(); static word ProgramType_P600(); static word InterfaceName_P660(); static word InterfaceType_P720(); static void TakeInstallationLock_P780(); static word NoName_Q7896(); static void GiveInstallationLock_P840(); static void TakeInspectionLock_P900(); static word NoName_Q7956(); static void GiveInspectionLock_P960(); extern void XR_BeginInstallation(); static void CheckInstallation_P1080(); static void CheckDuplicate_P5148(); static void CheckInterface_P1140(); extern void XR_CommitInstallation(); static void MakeCommitted_P5640(); static void CommitInterface_P1260(); static void CommitItem_P1320(); extern void XR_AbortInstallation(); static void AbortInterface_P1440(); static void AbortItem_P1500(); static word NewEnvironRefTab_P1560(); static word InterfaceMatch_P1620(); static word InterfaceHash_P1680(); extern void XR_PushScope(); extern void XR_PopScope(); extern word XR_ImportInterface(); extern word XR_ExportInterface(); static word GetAnyInterface_P1980(); extern void XR_HideNames(); static word NewInterface_P2100(); static word NewAuxInterface_P2160(); extern void XR_ExportProc(); extern void XR_ImportProc(); extern void XR_ExportVar(); extern void XR_ExportType(); static word FindExporter_P2460(); static word ConcreteTypeFromAbstractType_P2520(); static void InterfaceNeedsWork_P2580(); static word GetStartTrap_P2640(); static word GetUnboundTrap_P2700(); static word AllocateTrapDescriptor_P2760(); static void Lookup_P2820(); static void EnumerateEnviron_P2880(); static void MaybeMonitorEnumerateEnviron_P2940(); static word EachPair_P6756(); static void EmptyInterfaces_P3000(); static word KeyMatch_P3060(); extern void XR_PushRename(); extern void XR_PopRename(); extern void XR_DeclareGlobalFrame(); static word ProgramFromFrame_P3300(); static void DoStartConfig_P3360(); static void DoStartProgram_P3420(); static word ListStartOrder_P3480(); static word FixStartTraps_P3540(); extern void XR_StartCedarModule(); extern void XR_Start(); extern void XR_StartModule(); static word ListStartTraps_P3780(); static void LogStartTrap_P3840(); extern void XR_StartProgram(); static void StartProgram_P3960(); extern word XR_FirstControl(); static void AddToCM_P4080(); extern void XR_AddControl(); extern void XR_RaiseUnbound(); extern word XR_IsBound(); extern void XR_Unload(); static void CedarCoreReport_P4380(); static word QualifiedName_P4440(); static word ProgramListFromName_P4500(); static void ConvertToRefTab_P4560(); static void PutCedarCoreProblems_P4620(); extern void XR_VerboseCommit(); static void RecordProblems_P7776(); static void EnableAborts_P4740(); static void NoName_Q8016(); static void NoName_Q8076(); static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\352\160\224\035\300\316\067\271\315\100\214\000\000"}; static struct {unsigned f; char r[4];} string2 = {131074, "\003\002\000"}; static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\352\160\224\035\300\316\067\271\315\101\224\000\000"}; static struct {unsigned f; char r[4];} string4 = {196611, "\004@]"}; static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\352\160\224\035\300\316\067\271\315\101\350\000\000"}; static struct {unsigned f; char r[4];} string6 = {131074, "\0040\000"}; static struct {unsigned f; char r[48];} string7 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\352\160\224\035\300\316\067\271\315\100\214\005\004\162\145\163\164\214\216\257\300\352\160\224\035\300\316\067\271\315\100\214\261\000\000\000"}; static struct {unsigned f; char r[4];} string8 = {131074, "\004\003\000"}; static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\352\160\224\035\300\316\067\271\315\101\240\000\000"}; static struct {unsigned f; char r[8];} string10 = {458759, "\007\000 \002\003\001\013"}; static struct {unsigned f; char r[44];} string11 = {2752556, "\260\006\005\146\151\162\163\164\257\300\371\361\330\220\300\372\202\000\101\100\370\005\004\162\145\163\164\214\257\300\371\361\330\220\300\372\202\000\101\100\370\261\000"}; static struct {unsigned f; char r[16];} string12 = {786444, "\006\002\000\007\000\040\002\003\001\014\010\001\000\000\000"}; static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\352\160\224\035\300\316\067\271\315\100\340\000\000"}; static struct {unsigned f; char r[20];} string14 = {1114129, "\011\000\014\100\100\040\000\014\007\040\040\004\000\003\002\014\014\000\000"}; static struct {unsigned f; char r[44];} string15 = {2752556, "\260\006\005\146\151\162\163\164\257\300\352\160\224\035\300\316\067\271\315\100\354\005\004\162\145\163\164\214\257\300\352\160\224\035\300\316\067\271\315\100\354\261\000"}; static struct {unsigned f; char r[44];} string16 = {2752556, "\260\006\005\146\151\162\163\164\257\300\352\160\224\035\300\316\067\271\315\102\014\005\004\162\145\163\164\214\257\300\352\160\224\035\300\316\067\271\315\102\014\261\000"}; static struct {unsigned f; char r[4];} string17 = {131074, "\004\005\000"}; static struct {unsigned f; char r[44];} string18 = {2752556, "\260\006\005\146\151\162\163\164\257\300\352\160\224\035\300\316\067\271\315\101\004\005\004\162\145\163\164\214\257\300\352\160\224\035\300\316\067\271\315\101\004\261\000"}; static struct {unsigned f; char r[4];} string19 = {131074, "\004\030\000"}; static struct {unsigned f; char r[44];} string20 = {2752556, "\260\006\005\146\151\162\163\164\257\300\352\160\224\035\300\316\067\271\315\100\370\005\004\162\145\163\164\214\257\300\352\160\224\035\300\316\067\271\315\100\370\261\000"}; static struct {unsigned f; char r[4];} string21 = {131074, "\004\006\000"}; static struct {unsigned f; char r[44];} string22 = {2752556, "\260\006\005\146\151\162\163\164\257\300\330\033\042\207\300\214\011\263\005\100\214\005\004\162\145\163\164\214\257\300\330\033\042\207\300\214\011\263\005\100\214\261\000"}; static struct {unsigned f; char r[4];} string23 = {131074, "\004\016\000"}; static struct {unsigned f; char r[44];} string24 = {2752556, "\260\006\005\146\151\162\163\164\257\300\330\033\042\207\300\214\011\263\005\100\200\005\004\162\145\163\164\214\257\300\330\033\042\207\300\214\011\263\005\100\200\261\000"}; static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\330\033\042\207\300\214\011\263\005\102\360\000\000"}; static struct {unsigned f; char r[60];} string26 = {3670076, "\260\006\005\146\151\162\163\164\216\205\210\242\000\101\120\257\300\352\160\224\035\300\316\067\271\315\102\060\005\004\162\145\163\164\214\216\205\210\242\000\101\120\257\300\352\160\224\035\300\316\067\271\315\102\060\261\000\000\000"}; static struct {unsigned f; char r[20];} string27 = {1245204, "\205\210\242\000\101\120\257\300\352\160\224\035\300\316\067\271\315\102\060"}; static struct {unsigned f; char r[48];} string28 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\352\160\224\035\300\316\067\271\315\101\350\005\004\162\145\163\164\214\216\257\300\352\160\224\035\300\316\067\271\315\101\350\261\000\000\000"}; static struct {unsigned f; char r[48];} string29 = {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[44];} string30 = {2752556, "\260\006\005\146\151\162\163\164\257\300\371\361\330\220\300\372\202\000\101\100\230\005\004\162\145\163\164\214\257\300\371\361\330\220\300\372\202\000\101\100\230\261\000"}; static struct {unsigned f; char r[20];} string31 = {1114129, "\006\002\000\007\100\100\040\005\004\011\014\014\001\004\071\030\001\000\000"}; static struct {unsigned f; char r[16];} string32 = {851984, "\257\300\330\033\042\207\300\214\011\263\005\100\164\000\000"}; static struct {unsigned f; char r[52];} string33 = {3211313, "\006\020\054\001\100\150\001\100\154\001\100\160\001\100\164\001\100\170\001\100\174\001\100\200\001\100\204\001\100\210\001\100\214\001\100\220\001\100\224\001\100\234\001\100\244\001\100\250\001\000\000"}; static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\242\221\264\046\300\105\142\142\023\100\150\000\000"}; static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\036\137\320\376\300\071\321\170\251\100\150\000\000"}; static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string37 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"}; static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\220\270\074\115\300\121\012\115\357\100\150\000\000"}; static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\371\361\330\220\300\372\202\000\101\100\150\000\000"}; static struct {unsigned f; char r[32];} string40 = {1835040, "\211\020\017\111\156\164\145\162\146\141\143\145\122\145\143\157\162\144\300\371\361\330\220\300\372\202\000\101\000\000\000"}; static struct {unsigned f; char r[24];} string41 = {1507352, "\211\013\012\120\162\157\147\162\141\155\122\145\160\300\371\361\330\220\300\372\202\000\101"}; static struct {unsigned f; char r[24];} string42 = {1441816, "\211\012\011\103\157\156\146\151\147\122\145\160\300\371\361\330\220\300\372\202\000\101\000"}; static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\200\367\017\371\300\261\172\333\044\100\150\000\000"}; static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\046\034\345\272\300\313\105\336\371\100\150\000\000"}; static W3 dummy54; static struct { word f0[85]; 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; word f104; word f105; word f106; word f107; word f108; word f109; word f110; word f111; word f112; word f113; word f114; word f115; word f116; word f117; word f118; word f119; word f120; word f121; word f122; word f123; word f124; word f125; word f126; word f127; word f128; word f129; word f130; word f131; word f132; word f133; word f134; word f135; word f136; word f137; word f138; word f139; word f140; word f141; word f142; word f143; word f144; word f145; word f146; word f147; word f148; word f149; word f150; word f151; word f152; word f153; word f154; word f155; word f156; word f157; word f158; word f159; word f160; word f161; word f162; word f163; word f164; word f165; word f166; word f167; word f168; word f169; word f170; word f171; word f172; word f173; word f174; word f175; word f176; word f177; word f178; word f179; word f180; word f181; word f182; word f183; word f184; word f185; word f186; word f187; word f188; word f189; word f190; word f191; word f192; word f193; word f194; word f195; word f196; word f197; word f198; word f199; word f200; word f201; word f202; word f203; word f204; word f205; word f206; word f207; word f208; word f209; word f210; word f211; word f212; word f213; word f214; word f215; word f216; word f217; word f218; word f219; word f220; word f221; word f222; word f223; word f224; word f225; word f226; word f227; word f228; word f229; word f230; word f231; word f232; word f233; word f234; word f235; word f236; word f237; word f238; word f239; word f240; word f241; word f242; word f243; word f244[7]; } globalframe = { {0}, (word) EnableAborts_P4740, 0, (word) XR_VerboseCommit, 0, (word) PutCedarCoreProblems_P4620, 0, (word) ConvertToRefTab_P4560, 0, (word) ProgramListFromName_P4500, 0, (word) QualifiedName_P4440, 0, (word) CedarCoreReport_P4380, 0, (word) XR_Unload, 0, (word) XR_IsBound, 0, (word) XR_RaiseUnbound, 0, (word) XR_AddControl, 0, (word) AddToCM_P4080, 0, (word) XR_FirstControl, 0, (word) StartProgram_P3960, 0, (word) XR_StartProgram, 0, (word) LogStartTrap_P3840, 0, (word) ListStartTraps_P3780, 0, (word) XR_StartModule, 0, (word) XR_Start, 0, (word) XR_StartCedarModule, 0, (word) FixStartTraps_P3540, 0, (word) ListStartOrder_P3480, 0, (word) DoStartProgram_P3420, 0, (word) DoStartConfig_P3360, 0, (word) ProgramFromFrame_P3300, 0, (word) XR_DeclareGlobalFrame, 0, (word) XR_PopRename, 0, (word) XR_PushRename, 0, (word) KeyMatch_P3060, 0, (word) EmptyInterfaces_P3000, 0, (word) MaybeMonitorEnumerateEnviron_P2940, 0, (word) EnumerateEnviron_P2880, 0, (word) Lookup_P2820, 0, (word) AllocateTrapDescriptor_P2760, 0, (word) GetUnboundTrap_P2700, 0, (word) GetStartTrap_P2640, 0, (word) InterfaceNeedsWork_P2580, 0, (word) ConcreteTypeFromAbstractType_P2520, 0, (word) FindExporter_P2460, 0, (word) XR_ExportType, 0, (word) XR_ExportVar, 0, (word) XR_ImportProc, 0, (word) XR_ExportProc, 0, (word) NewAuxInterface_P2160, 0, (word) NewInterface_P2100, 0, (word) XR_HideNames, 0, (word) GetAnyInterface_P1980, 0, (word) XR_ExportInterface, 0, (word) XR_ImportInterface, 0, (word) XR_PopScope, 0, (word) XR_PushScope, 0, (word) InterfaceHash_P1680, 0, (word) InterfaceMatch_P1620, 0, (word) NewEnvironRefTab_P1560, 0, (word) AbortItem_P1500, 0, (word) AbortInterface_P1440, 0, (word) XR_AbortInstallation, 0, (word) CommitItem_P1320, 0, (word) CommitInterface_P1260, 0, (word) XR_CommitInstallation, 0, (word) CheckInterface_P1140, 0, (word) CheckInstallation_P1080, 0, (word) XR_BeginInstallation, 0, (word) GiveInspectionLock_P960, 0, (word) TakeInspectionLock_P900, 0, (word) GiveInstallationLock_P840, 0, (word) TakeInstallationLock_P780, 0, (word) InterfaceType_P720, 0, (word) InterfaceName_P660, 0, (word) ProgramType_P600, 0, (word) ObjectName_P540, 0, (word) EnumerateExports_P480, 0, (word) MaybeMonitorEnumerateInterfaces_P420, 0, (word) UnmonitoredEnumerateInterfaces_P360, 0, (word) EnumerateInterfaces_P300, 0, (word) EnumerateChildren_P240, 0, (word) Parent_P180, 0, (word) GlobalConfig_P120, 0, (word) Insert_P60, 0, (word) InstallationScopesImpl_P0, {0} }; static void NoName_Q7836() { register ptr gf_c0538 = (ptr) &globalframe; word var_c40632; (* (( (ptr) gf_c0538)+43) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0538)+44) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf_c0538)+45) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6); (* (( (ptr) gf_c0538)+48) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8); (* (( (ptr) gf_c0538)+51) ) = (word) XR_GetTypeIndex((word) &string9, 0, (word) &string10); (* (( (ptr) gf_c0538)+53) ) = (word) XR_GetTypeIndex((word) &string11, 0, (word) &string12); (* (( (ptr) gf_c0538)+58) ) = (word) XR_GetTypeIndex((word) &string13, 0, (word) &string14); (* (( (ptr) gf_c0538)+60) ) = (word) XR_GetTypeIndex((word) &string15, 0, (word) &string6); (* (( (ptr) gf_c0538)+63) ) = (word) XR_GetTypeIndex((word) &string16, 0, (word) &string17); (* (( (ptr) gf_c0538)+65) ) = (word) XR_GetTypeIndex((word) &string18, 0, (word) &string19); (* (( (ptr) gf_c0538)+68) ) = (word) XR_GetTypeIndex((word) &string20, 0, (word) &string21); (* (( (ptr) gf_c0538)+71) ) = (word) XR_GetTypeIndex((word) &string22, 0, (word) &string23); (* (( (ptr) gf_c0538)+73) ) = (word) XR_GetTypeIndex((word) &string24, 0, (word) &string19); (* (( (ptr) gf_c0538)+75) ) = (word) XR_GetTypeIndex((word) &string25, 0, (word) &string2); (* (( (ptr) gf_c0538)+76) ) = (word) XR_GetTypeIndex((word) &string26, 0, (word) &string8); (* (( (ptr) gf_c0538)+77) ) = (word) XR_GetTypeIndexS((word) (&string27)); (* (( (ptr) gf_c0538)+79) ) = (word) XR_GetTypeIndex((word) &string28, 0, (word) &string8); (* (( (ptr) gf_c0538)+80) ) = (word) XR_GetTypeIndex((word) &string29, 0, (word) &string8); (* (( (ptr) gf_c0538)+82) ) = (word) XR_GetTypeIndex((word) &string30, 0, (word) &string31); (void) XR_DeclareGlobalFrame((word) "InstallationScopesImpl", &globalframe, (word) XR_GetTypeIndex((word) &string32, 0, (word) &string33) , (word) (( (bPt) gf_c0538)+972)/* var_c35032 */ ); var_c40632 = (word) XR_ImportInterface((word) "RefTab", (word) XR_GetTypeIndexS((word) (&string34)), 16); (* (( (ptr) gf_c0538)+246)/* var_c35192 */ ) = var_c40632; (void) XR_ImportProcS(var_c40632, 67896835); (void) XR_ImportProcS(var_c40632, 264193); (void) XR_ImportProcS(var_c40632, 67635458); (void) XR_ImportProcS(var_c40632, 134742786); (void) XR_ImportProcS(var_c40632, 67895555); (void) XR_ImportProcS(var_c40632, 67896579); var_c40632 = (word) XR_ImportInterface((word) "RefTabBackdoor", (word) XR_GetTypeIndexS((word) (&string35)), 2); (* (( (ptr) gf_c0538)+248)/* var_c39192 */ ) = var_c40632; (void) XR_ImportProcS(var_c40632, 67633410); var_c40632 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string36)), 43); (* (( (ptr) gf_c0538)+249)/* var_c40248 */ ) = var_c40632; (void) XR_ImportProcS(var_c40632, 67379457); (void) XR_ImportProcS(var_c40632, 68419845); (void) XR_ImportProcS(var_c40632, 67633666); var_c40632 = (word) XR_ImportInterface((word) "RuntimeError", (word) XR_GetTypeIndexS((word) (&string37)), 27); (* (( (ptr) gf_c0538)+245)/* var_c35096 */ ) = var_c40632; var_c40632 = (word) XR_ImportInterface((word) "UXStrings", (word) XR_GetTypeIndexS((word) (&string38)), 9); (* (( (ptr) gf_c0538)+247)/* var_c35416 */ ) = var_c40632; (void) XR_ImportProcS(var_c40632, 67371265); (void) XR_ImportProcS(var_c40632, 67633922); var_c40632 = (word) XR_ExportInterface((word) "MesaLoadState", (word) XR_GetTypeIndexS((word) (&string39)), 20); (* (( (ptr) gf_c0538)+250)/* var_c40664 */ ) = var_c40632; (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+836)/* var_c34488 */ , 0); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+812)/* var_c34392 */ , 256); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+788)/* var_c34296 */ , 512); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+828)/* var_c34456 */ , 262913); (void) XR_ExportType((word) "InterfaceRecord", (word) XR_GetTypeIndexS((word) (&string40)), (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2) ); (void) XR_ExportType((word) "ProgramRep", (word) XR_GetTypeIndexS((word) (&string41)), (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6) ); (void) XR_ExportType((word) "ConfigRep", (word) XR_GetTypeIndexS((word) (&string42)), (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4) ); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+956)/* var_c34968 */ , 67110656); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+948)/* var_c34936 */ , 67635201); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+940)/* var_c34904 */ , 526594); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+932)/* var_c34872 */ , 526850); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+908)/* var_c34776 */ , 527106); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+900)/* var_c34744 */ , 67636225); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+380)/* var_c32664 */ , 67636481); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+892)/* var_c34712 */ , 67374593); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+884)/* var_c34680 */ , 67374849); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+876)/* var_c34648 */ , 67375105); (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+636)/* var_c33688 */ , 67375873); var_c40632 = (word) XR_ExportInterface((word) "MesaLoadStateBackdoor", (word) XR_GetTypeIndexS((word) (&string43)), 3); (* (( (ptr) gf_c0538)+250)/* var_c40664 */ ) = var_c40632; (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+924)/* var_c34840 */ , 524290); var_c40632 = (word) XR_ExportInterface((word) "MesaLoadStateQuery", (word) XR_GetTypeIndexS((word) (&string44)), 1); (* (( (ptr) gf_c0538)+250)/* var_c40664 */ ) = var_c40632; (void) XR_ExportProcS(var_c40632, (word) (( (bPt) gf_c0538)+372)/* var_c32632 */ , 67633154); } static void InstallationScopesImpl_P0(formal_c0118, formal_c0116) word formal_c0118; word formal_c0116; { register ptr gf_c40696 = (ptr) &globalframe; /* InstallationScopesImpl: */ SOURCE(175, 28495) SOURCE(1807, 54) { word var_c35064; var_c35064 = XR_NewObject(16, (* (( (ptr) gf_c40696)+43) )); (* (( (ptr) var_c35064)+3) ) = 0; (* (( (ptr) gf_c40696)+32)/* keyInterfaceCache_v3560 */ ) = var_c35064; }; SOURCE(5164, 19) (* (( (ptr) gf_c40696)+38)/* StartFault_v4092 */ ) = (* (( (ptr) (* (( (ptr) gf_c40696)+245)/* var_c35096 */ ))+19) ); SOURCE(28440, 34) (void) CheckInstallation_P1080((word) ((( (bPt) gf_c40696)+388)/* var_c32696 */ )); SOURCE(28476, 20) (void) XR_CommitInstallation(); SOURCE(28498, 17) (void) ConvertToRefTab_P4560(); SOURCE(28525, 42) SOURCE(28527, 40) (void) EnableAborts_P4740((word) ((( (bPt) gf_c40696)+52)/* installationLockReleased_v3308 */ )); SOURCE(28578, 40) SOURCE(28580, 38) (void) EnableAborts_P4740((word) ((( (bPt) gf_c40696)+80)/* inspectionLockReleased_v3364 */ )); SOURCE(28638, 32) (* (( (ptr) gf_c40696)+9)/* installationScopesStarted_v3196 */ ) = 1; } static void Insert_P60(i_v6880, e_v6908) word i_v6880; word e_v6908; { register ptr gf_c40728 = (ptr) &globalframe; /* Insert: */ SOURCE(3080, 190) SOURCE(3131, 23) if ((e_v6908 == 0) || (i_v6880 == 0)) { SOURCE(3154, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(3161, 109) { word var_c35128; var_c35128 = (* (ptr) e_v6908 ); if ((var_c35128 == 0)) { SOURCE(3195, 30) { word var_c35160; var_c35160 = XR_NewObject(8, (* (( (ptr) gf_c40728)+48) )); (* (ptr) var_c35160 ) = i_v6880; (* (( (ptr) var_c35160)+1) ) = (* (( (ptr) e_v6908)+1) ); (* (( (ptr) e_v6908)+1) ) = var_c35160; }; } else { if ((var_c35128 == 1)) { SOURCE(3237, 33) { word var_c35224; word pd45; pd45 = (* (( (ptr) (* (( (ptr) gf_c40728)+246)/* var_c35192 */ ))+9) ); var_c35224 = (word) ( *( (fPt) ((* (ptr) pd45 ))))((* (( (ptr) e_v6908)+1) ), i_v6880, i_v6880, pd45); }; } else { }; }; }; } static word GlobalConfig_P120() { register ptr gf_c40760 = (ptr) &globalframe; word var_c6968; /* GlobalConfig: */ SOURCE(3293, 69) SOURCE(3342, 20) return((* (( (ptr) gf_c40760)+37)/* globalConfig_v3700 */ )); } static word Parent_P180(object_v7028) W2 object_v7028; { word var_c7072; /* Parent: */ SOURCE(3368, 198) SOURCE(3434, 132) { W2 var_c35256; var_c35256 = object_v7028; { word var_c35288; var_c35288 = var_c35256.f0; if ((var_c35288 == 1)) { { W2 c_v14316; c_v14316 = var_c35256; SOURCE(3487, 23) return((* (ptr) c_v14316.f1 )); }; } else { if ((var_c35288 == 0)) { { W2 p_v14360; p_v14360 = var_c35256; SOURCE(3542, 24) return((* (( (ptr) p_v14360.f1)+4) )); }; } else { SOURCE(3579, 5) (void) XR_RaiseUnnamedError(); }; }; }; }; } static void EnumerateChildren_P240(config_v7132, proc_v7160) word config_v7132; word proc_v7160; { /* EnumerateChildren: */ SOURCE(3590, 164) SOURCE(3672, 82) { register word l_v14404; l_v14404 = (* (( (ptr) config_v7132)+4) ); lab_L100003: ; if ((l_v14404 != 0)) { } else { goto lab_L100000; }; SOURCE(3741, 13) (void) ( *( (fPt) ((* (ptr) proc_v7160 ))))((* (W2Pt) (l_v14404) ), proc_v7160); l_v14404 = (* (( (ptr) l_v14404)+2) ); goto lab_L100003; lab_L100000: ; }; } static void EnumerateInterfaces_P300(config_v7220, proc_v7248) word config_v7220; word proc_v7248; { /* EnumerateInterfaces: */ SOURCE(3769, 139) SOURCE(3857, 51) (void) MaybeMonitorEnumerateInterfaces_P420(config_v7220, proc_v7248, 1); } static void UnmonitoredEnumerateInterfaces_P360(config_v7308, proc_v7336) word config_v7308; word proc_v7336; { /* UnmonitoredEnumerateInterfaces: */ SOURCE(3912, 151) SOURCE(4011, 52) (void) MaybeMonitorEnumerateInterfaces_P420(config_v7308, proc_v7336, 0); } static void MaybeMonitorEnumerateInterfaces_P420(config_v7396, formal_c0630, monitor_v7452) word config_v7396; word formal_c0630; word monitor_v7452; { W7 var_c40792; /* declaration of proc_v7424 skipped */ /* declaration of var_c35320 skipped */ var_c40792.f4/* proc_v7424 */ = formal_c0630; /* MaybeMonitorEnumerateInterfaces: */ SOURCE(4067, 287) { word tmpAddr46; tmpAddr46 = (word) (( (ptr) &var_c40792)+5)/* var_c35320 */ ; (* (ptr) tmpAddr46 ) = ( ((word) (fPt) EachInterface_P4944) ); (* (( (ptr) tmpAddr46) + 1) ) = 1; }; SOURCE(4283, 71) (void) MaybeMonitorEnumerateEnviron_P2940((* (( (ptr) config_v7396)+6) ), (word) (( (bPt) &var_c40792)+20)/* var_c35320 */ , monitor_v7452) ; } static void EachInterface_P4944(interface_v14524, formal_c40824) word interface_v14524; word formal_c40824; { formal_c40824 = (formal_c40824 - 20); /* EachInterface: */ SOURCE(4175, 103) SOURCE(4221, 57) { word pd47; pd47 = (* (( (ptr) formal_c40824)+4) ); (void) ( *( (fPt) ((* (ptr) pd47 ))))(interface_v14524, ((* (( (ptr) interface_v14524)+3) ) == 0), pd47); }; } static void EnumerateExports_P480(program_v7512, proc_v7540) word program_v7512; word proc_v7540; { /* EnumerateExports: */ SOURCE(4360, 194) SOURCE(4448, 106) { register word l_v14552; l_v14552 = (* (( (ptr) program_v7512)+5) ); lab_L100007: ; if ((l_v14552 != 0)) { } else { goto lab_L100004; }; SOURCE(4517, 37) (void) ( *( (fPt) ((* (ptr) proc_v7540 ))))((* (ptr) l_v14552 ), (* (( (ptr) l_v14552)+1) ), proc_v7540); l_v14552 = (* (( (ptr) l_v14552)+2) ); goto lab_L100007; lab_L100004: ; }; } static word ObjectName_P540(object_v7600) W2 object_v7600; { register ptr gf_c40856 = (ptr) &globalframe; word var_c7644; /* ObjectName: */ SOURCE(4569, 237) SOURCE(4642, 164) { W2 var_c35352; var_c35352 = object_v7600; { word var_c35480; var_c35480 = var_c35352.f0; if ((var_c35480 == 1)) { { W2 c_v14680; c_v14680 = var_c35352; SOURCE(4695, 39) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c40856)+247)/* var_c35416 */ ))+7) ); return((word) ( *( (fPt) ((* (ptr) pd48 ))))((* (( (ptr) c_v14680.f1)+1) ), 2147483647, pd48)); }; }; } else { if ((var_c35480 == 0)) { { W2 p_v14724; p_v14724 = var_c35352; SOURCE(4766, 40) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c40856)+247)/* var_c35416 */ ))+7) ); return((word) ( *( (fPt) ((* (ptr) pd49 ))))((* (ptr) p_v14724.f1 ), 2147483647, pd49)); }; }; } else { SOURCE(4819, 5) (void) XR_RaiseUnnamedError(); }; }; }; }; } static word ProgramType_P600(program_v7704) word program_v7704; { word var_c7748; /* ProgramType: */ SOURCE(4830, 93) SOURCE(4903, 20) return((* (( (ptr) program_v7704)+2) )); } static word InterfaceName_P660(interface_v7808) word interface_v7808; { register ptr gf_c40888 = (ptr) &globalframe; word var_c7852; /* InterfaceName: */ SOURCE(4929, 117) SOURCE(5002, 44) { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c40888)+247)/* var_c35416 */ ))+7) ); return((word) ( *( (fPt) ((* (ptr) pd50 ))))((* (ptr) interface_v7808 ), 2147483647, pd50)); }; } static word InterfaceType_P720(interface_v7912) word interface_v7912; { word var_c7956; /* InterfaceType: */ SOURCE(5052, 106) SOURCE(5132, 26) return((* (( (ptr) interface_v7912)+1) )); } static void TakeInstallationLock_P780() { W4 var_c40920; register ptr gf_c40952 = (ptr) &globalframe; /* TakeInstallationLock: */ SOURCE(5277, 150) (void) (XR_MonitorEntry((word) (( (bPt) gf_c40952)+16)/* LOCK_v2832 */ )); SOURCE(5316, 111) { word var_c0604; var_c0604 = (word) &var_c40920; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q7896) ), ( ((word) (fPt) NoName_Q8076) ), var_c0604); }; SOURCE(5277, 150) (void) (XR_MonitorExit((word) (( (bPt) gf_c40952)+16)/* LOCK_v2832 */ )); return; } static word NoName_Q7896(formal_c0547) word formal_c0547; { register ptr gf_c0546 = (ptr) &globalframe; SOURCE(5339, 63) lab_L100012: ; if ((* (( (ptr) gf_c0546)+12)/* installationLock_v3280 */ )) { } else { goto lab_L100010; }; SOURCE(5365, 37) (void) (XR_Wait((word) (( (bPt) gf_c0546)+16)/* LOCK_v2832 */ , (word) (( (bPt) gf_c0546)+52)/* installationLockReleased_v3308 */ ) ); goto lab_L100012; lab_L100010: ; SOURCE(5404, 23) (* (( (ptr) gf_c0546)+12)/* installationLock_v3280 */ ) = 1; return(0); } static void GiveInstallationLock_P840() { register ptr gf_c40984 = (ptr) &globalframe; /* GiveInstallationLock: */ SOURCE(5433, 99) (void) (XR_MonitorEntry((word) (( (bPt) gf_c40984)+16)/* LOCK_v2832 */ )); SOURCE(5472, 24) (* (( (ptr) gf_c40984)+12)/* installationLock_v3280 */ ) = 0; SOURCE(5498, 34) (void) (XR_Broadcast((word) (( (bPt) gf_c40984)+52)/* installationLockReleased_v3308 */ )); SOURCE(5433, 99) (void) (XR_MonitorExit((word) (( (bPt) gf_c40984)+16)/* LOCK_v2832 */ )); return; } static void TakeInspectionLock_P900() { W4 var_c41016; register ptr gf_c41048 = (ptr) &globalframe; /* TakeInspectionLock: */ SOURCE(5538, 142) (void) (XR_MonitorEntry((word) (( (bPt) gf_c41048)+16)/* LOCK_v2832 */ )); SOURCE(5575, 105) { word var_c0605; var_c0605 = (word) &var_c41016; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q7956) ), ( ((word) (fPt) NoName_Q8016) ), var_c0605); }; SOURCE(5538, 142) (void) (XR_MonitorExit((word) (( (bPt) gf_c41048)+16)/* LOCK_v2832 */ )); return; } static word NoName_Q7956(formal_c0551) word formal_c0551; { register ptr gf_c0550 = (ptr) &globalframe; SOURCE(5598, 59) lab_L100017: ; if ((* (( (ptr) gf_c0550)+19)/* inspectionLock_v3336 */ )) { } else { goto lab_L100015; }; SOURCE(5622, 35) (void) (XR_Wait((word) (( (bPt) gf_c0550)+16)/* LOCK_v2832 */ , (word) (( (bPt) gf_c0550)+80)/* inspectionLockReleased_v3364 */ ) ); goto lab_L100017; lab_L100015: ; SOURCE(5659, 21) (* (( (ptr) gf_c0550)+19)/* inspectionLock_v3336 */ ) = 1; return(0); } static void GiveInspectionLock_P960() { register ptr gf_c41080 = (ptr) &globalframe; /* GiveInspectionLock: */ SOURCE(5686, 93) (void) (XR_MonitorEntry((word) (( (bPt) gf_c41080)+16)/* LOCK_v2832 */ )); SOURCE(5723, 22) (* (( (ptr) gf_c41080)+19)/* inspectionLock_v3336 */ ) = 0; SOURCE(5747, 32) (void) (XR_Broadcast((word) (( (bPt) gf_c41080)+80)/* inspectionLockReleased_v3364 */ )); SOURCE(5686, 93) (void) (XR_MonitorExit((word) (( (bPt) gf_c41080)+16)/* LOCK_v2832 */ )); return; } extern void XR_BeginInstallation() { register ptr gf_c41112 = (ptr) &globalframe; word dummy_v14768 = 1; /* BeginInstallation: */ SOURCE(5785, 517) SOURCE(5887, 22) (void) TakeInstallationLock_P780(); SOURCE(5911, 391) if ((0 == (* (( (ptr) gf_c41112)+8)/* initialized_v3168 */ ))) { SOURCE(5938, 29) (* (( (ptr) gf_c41112)+37)/* globalConfig_v3700 */ ) = XR_NewObject(32, (* (( (ptr) gf_c41112)+44) )); SOURCE(5969, 26) (* (( (ptr) (* (( (ptr) gf_c41112)+37)/* globalConfig_v3700 */ ))+5) ) = 1; SOURCE(5997, 27) (* (( (ptr) (* (( (ptr) gf_c41112)+37)/* globalConfig_v3700 */ ))+7) ) = 1; SOURCE(6026, 46) (* (( (ptr) (* (( (ptr) gf_c41112)+37)/* globalConfig_v3700 */ ))+6) ) = XR_NewObject(8, (* (( (ptr) gf_c41112)+51) )); SOURCE(6074, 28) (* (( (ptr) gf_c41112)+28)/* currentConfig_v3448 */ ) = (* (( (ptr) gf_c41112)+37)/* globalConfig_v3700 */ ); SOURCE(6104, 40) (* (( (ptr) gf_c41112)+26)/* uncommittedGlobalConfig_v3392 */ ) = XR_NewObject(32, (* (( (ptr) gf_c41112)+44) )); SOURCE(6146, 37) (* (( (ptr) (* (( (ptr) gf_c41112)+26)/* uncommittedGlobalConfig_v3392 */ ))+5) ) = 1; SOURCE(6185, 38) (* (( (ptr) (* (( (ptr) gf_c41112)+26)/* uncommittedGlobalConfig_v3392 */ ))+7) ) = 1; SOURCE(6225, 57) (* (( (ptr) (* (( (ptr) gf_c41112)+26)/* uncommittedGlobalConfig_v3392 */ ))+6) ) = XR_NewObject(8, (* (( (ptr) gf_c41112)+51) )); SOURCE(6284, 18) (* (( (ptr) gf_c41112)+8)/* initialized_v3168 */ ) = 1; }; } static void CheckInstallation_P1080(formal_c0631) word formal_c0631; { W7 var_c41144; /* declaration of report_v8232 skipped */ register ptr gf_c41176 = (ptr) &globalframe; /* declaration of var_c35672 skipped */ word dummy_v14812 = 1; var_c41144.f4/* report_v8232 */ = formal_c0631; /* CheckInstallation: */ SOURCE(6311, 656) { word tmpAddr51; tmpAddr51 = (word) (( (ptr) &var_c41144)+5)/* var_c35672 */ ; (* (ptr) tmpAddr51 ) = ( ((word) (fPt) CheckDuplicate_P5148) ); (* (( (ptr) tmpAddr51) + 1) ) = 1; }; SOURCE(6625, 68) (void) EnumerateEnviron_P2880((* (( (ptr) (* (( (ptr) gf_c41176)+26)/* uncommittedGlobalConfig_v3392 */ ))+6) ), (word) ( ( (bPt) &var_c41144)+20)/* var_c35672 */ ); SOURCE(6695, 103) { register word l_v14944; l_v14944 = (* (( (ptr) gf_c41176)+31)/* interfacesNeedingWork_v3532 */ ); lab_L100021: ; if ((l_v14944 != 0)) { } else { goto lab_L100018; }; SOURCE(6767, 31) (void) CheckInterface_P1140((* (ptr) l_v14944 ), var_c41144.f4/* report_v8232 */ ); l_v14944 = (* (( (ptr) l_v14944)+1) ); goto lab_L100021; lab_L100018: ; }; SOURCE(6809, 158) { register word l_v15072; l_v15072 = (* (( (ptr) gf_c41176)+30)/* typeClashes_v3504 */ ); lab_L100025: ; if ((l_v15072 != 0)) { } else { goto lab_L100022; }; SOURCE(6871, 96) { word var_c35704; { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c41176)+247)/* var_c35416 */ ))+7) ); var_c35704 = (word) ( *( (fPt) ((* (ptr) pd52 ))))((* (ptr) l_v15072 ), 2147483647, pd52); }; { W6 var_c35736; var_c35736.f0 = 0; var_c35736.f1 = 0; var_c35736.f2 = 4; var_c35736.f3 = var_c35704; var_c35736.f4 = (* (( (ptr) l_v15072)+1) ); var_c35736.f5 = (* (( (ptr) l_v15072)+2) ); { word pd53; pd53 = (word) (var_c41144.f4/* report_v8232 */ ); (void) ( *( (fPt) ((* (ptr) pd53 ))))(var_c35736, pd53); }; }; }; l_v15072 = (* (( (ptr) l_v15072)+3) ); goto lab_L100025; lab_L100022: ; }; } static void CheckDuplicate_P5148(interface_v14916, formal_c41240) word interface_v14916; word formal_c41240; { register ptr gf_c41208 = (ptr) &globalframe; W2 var_c0168; word var_c0606; formal_c41240 = (formal_c41240 - 20); /* CheckDuplicate: */ SOURCE(6432, 188) SOURCE(6480, 140) { W2 var_c35768; var_c35768.f0 = (* (ptr) interface_v14916 ); var_c35768.f1 = 0; (void) Lookup_P2820((word) &var_c0168, var_c35768, (* (( (ptr) (* (( (ptr) gf_c41208)+37)/* globalConfig_v3700 */ ))+6) )) ; }; var_c0606 = var_c0168.f0; if ((0 != var_c0606)) { SOURCE(6570, 50) { W3 var_c35800; W6 var_c0607; var_c35800.f0 = interface_v14916; var_c35800.f1 = 0; var_c35800.f2 = 3; (* (W3Pt) (word) &var_c0607 ) = var_c35800; (* (W3Pt) (( (ptr) (word) &var_c0607) + 3) ) = (* (W3Pt) &dummy54 ); { word pd55; pd55 = (* (( (ptr) formal_c41240)+4) ); (void) ( *( (fPt) ((* (ptr) pd55 ))))(var_c0607, pd55); }; }; }; } static void CheckInterface_P1140(interface_v8292, report_v8320) word interface_v8292; word report_v8320; { word dummy_v15200 = 1; /* CheckInterface: */ SOURCE(6982, 999) SOURCE(7081, 900) { register word i_v15244 = 0; register word noName_c35832; { word idx56; noName_c35832 = ( idx56 = (* (( (ptr) interface_v8292)+3) ), SGNCK(idx56) ); }; if (( (int)i_v15244 >= (int)noName_c35832)) { goto lab_L100026; }; lab_L100029: ; SOURCE(7120, 861) { W3 var_c35896; { word var_c35864; var_c35864 = (* (( (ptr) interface_v8292)+2) ); { word limit57; var_c35896 = (* (( (W3Pt) (( (ptr) var_c35864)+3))+( limit57 = (* (( (ptr) var_c35864)+2) ), BCK(i_v15244, limit57) )) ); }; }; { word var_c36088; var_c36088 = var_c35896.f1; switch (var_c36088) { case 1: { W3 peItem_v15288; peItem_v15288 = var_c35896; SOURCE(7202, 283) if (((* (( (ptr) peItem_v15288.f2)+5) ) != 0) || ((peItem_v15288.f0 - 2) <= 1)) { SOURCE(7271, 214) { register word l_v15332; l_v15332 = peItem_v15288.f2; lab_L100033: ; if ((l_v15332 != 0)) { /*1*/ } else { /*1*/ goto lab_L100030; /*1*/ }; SOURCE(7343, 142) if ((peItem_v15288.f0 == 0)) { SOURCE(7372, 63) /*1*/ { /*1*/ W4 var_c35928; /*1*/ W6 var_c0608; /*1*/ var_c35928.f0 = interface_v8292; /*1*/ var_c35928.f1 = i_v15244; /*1*/ var_c35928.f2 = 1; /*1*/ var_c35928.f3 = (* (( (ptr) l_v15332)+4) ); /*1*/ (* (W4Pt) (word) &var_c0608 ) = (var_c35928 /*1*/ ); /*1*/ (* (W2Pt) (( (ptr) (word) &var_c0608) + 4) ) = (* (W2Pt) &dummy54 ); /*1*/ (void) ( *( (fPt) ((* (ptr) report_v8320 ))))(var_c0608, report_v8320); /*1*/ }; /*1*/ } else { SOURCE(7435, 50) /*1*/ { /*1*/ W4 var_c35960; /*1*/ W6 var_c0609; /*1*/ var_c35960.f0 = interface_v8292; /*1*/ var_c35960.f1 = i_v15244; /*1*/ var_c35960.f2 = 2; /*1*/ var_c35960.f3 = (* (( (ptr) l_v15332)+4) ); /*1*/ (* (W4Pt) (word) &var_c0609 ) = (var_c35960 /*1*/ ); /*1*/ (* (W2Pt) (( (ptr) (word) &var_c0609) + 4) ) = (* (W2Pt) &dummy54 ); /*1*/ (void) ( *( (fPt) ((* (ptr) report_v8320 ))))(var_c0609, report_v8320); /*1*/ }; /*1*/ }; l_v15332 = (* (( (ptr) l_v15332)+5) ); goto lab_L100033; lab_L100030: ; }; }; }; break; case 2: { W3 veItem_v15460; veItem_v15460 = var_c35896; SOURCE(7539, 266) if (((* (( (ptr) veItem_v15460.f2)+2) ) != 0) || (veItem_v15460.f0 != 0)) { SOURCE(7592, 213) { register word l_v15504; l_v15504 = veItem_v15460.f2; lab_L100037: ; if ((l_v15504 != 0)) { /*1*/ } else { /*1*/ goto lab_L100034; /*1*/ }; SOURCE(7663, 142) if ((veItem_v15460.f0 == 0)) { SOURCE(7692, 63) /*1*/ { /*1*/ W4 var_c35992; /*1*/ W6 var_c0610; /*1*/ var_c35992.f0 = interface_v8292; /*1*/ var_c35992.f1 = i_v15244; /*1*/ var_c35992.f2 = 1; /*1*/ var_c35992.f3 = (* (( (ptr) l_v15504)+1) ); /*1*/ (* (W4Pt) (word) &var_c0610 ) = (var_c35992 /*1*/ ); /*1*/ (* (W2Pt) (( (ptr) (word) &var_c0610) + 4) ) = (* (W2Pt) &dummy54 ); /*1*/ (void) ( *( (fPt) ((* (ptr) report_v8320 ))))(var_c0610, report_v8320); /*1*/ }; /*1*/ } else { SOURCE(7755, 50) /*1*/ { /*1*/ W4 var_c36024; /*1*/ W6 var_c0611; /*1*/ var_c36024.f0 = interface_v8292; /*1*/ var_c36024.f1 = i_v15244; /*1*/ var_c36024.f2 = 2; /*1*/ var_c36024.f3 = (* (( (ptr) l_v15504)+1) ); /*1*/ (* (W4Pt) (word) &var_c0611 ) = (var_c36024 /*1*/ ); /*1*/ (* (W2Pt) (( (ptr) (word) &var_c0611) + 4) ) = (* (W2Pt) &dummy54 ); /*1*/ (void) ( *( (fPt) ((* (ptr) report_v8320 ))))(var_c0611, report_v8320); /*1*/ }; /*1*/ }; l_v15504 = (* (( (ptr) l_v15504)+2) ); goto lab_L100037; lab_L100034: ; }; }; }; break; case 3: { W3 piItem_v15632; piItem_v15632 = var_c35896; SOURCE(7854, 127) { register word l_v15676; l_v15676 = piItem_v15632.f2; lab_L100041: ; if ((l_v15676 != 0)) { } else { goto lab_L100038; }; SOURCE(7918, 63) { W4 var_c36056; W6 var_c0612; var_c36056.f0 = interface_v8292; var_c36056.f1 = i_v15244; var_c36056.f2 = 0; var_c36056.f3 = (* (( (ptr) l_v15676)+3) ); (* (W4Pt) (word) &var_c0612 ) = (var_c36056 ); (* (W2Pt) (( (ptr) (word) &var_c0612) + 4) ) = (* (W2Pt) &dummy54 ); (void) ( *( (fPt) ((* (ptr) report_v8320 ))))(var_c0612, report_v8320); }; l_v15676 = (* (( (ptr) l_v15676)+4) ); goto lab_L100041; lab_L100038: ; }; }; break; default: break; }; }; }; i_v15244 = (i_v15244 + 1); if (( (int)i_v15244 < (int)noName_c35832)) { goto lab_L100029; }; lab_L100026: ; }; } extern void XR_CommitInstallation() { W6 var_c41272; register ptr gf_c41304 = (ptr) &globalframe; /* declaration of var_c36120 skipped */ word dummy_v15804 = 1; /* CommitInstallation: */ SOURCE(8017, 972) { word tmpAddr58; tmpAddr58 = (word) (( (ptr) &var_c41272)+4)/* var_c36120 */ ; (* (ptr) tmpAddr58 ) = ( ((word) (fPt) MakeCommitted_P5640) ); (* (( (ptr) tmpAddr58) + 1) ) = 1; }; SOURCE(8217, 20) (void) TakeInspectionLock_P900(); SOURCE(8239, 67) (void) EnumerateEnviron_P2880((* (( (ptr) (* (( (ptr) gf_c41304)+26)/* uncommittedGlobalConfig_v3392 */ ))+6) ), (word) ( ( (bPt) &var_c41272)+16)/* var_c36120 */ ); SOURCE(8308, 40) (void) EmptyInterfaces_P3000((* ((( (ptr) gf_c41304)+26)/* uncommittedGlobalConfig_v3392 */ ) )); SOURCE(8350, 146) { register word l_v15936; l_v15936 = (* (( (ptr) (* (( (ptr) gf_c41304)+26)/* uncommittedGlobalConfig_v3392 */ ))+4) ); lab_L100045: ; if ((l_v15936 != 0)) { } else { goto lab_L100042; }; SOURCE(8436, 60) { word var_c36152; var_c36152 = XR_NewObject(12, (* (( (ptr) gf_c41304)+53) )); (* (W2Pt) var_c36152 ) = (* (W2Pt) l_v15936 ); (* (( (ptr) var_c36152)+2) ) = (* (( (ptr) (* (( (ptr) gf_c41304)+37)/* globalConfig_v3700 */ ))+4) ); (* (( (ptr) (* (( (ptr) gf_c41304)+37)/* globalConfig_v3700 */ ))+4) ) = var_c36152; }; l_v15936 = (* (( (ptr) l_v15936)+2) ); goto lab_L100045; lab_L100042: ; }; SOURCE(8507, 38) (* (( (ptr) (* (( (ptr) gf_c41304)+26)/* uncommittedGlobalConfig_v3392 */ ))+4) ) = 0; SOURCE(8547, 128) { register word needsWork_v15980; needsWork_v15980 = (* (( (ptr) gf_c41304)+31)/* interfacesNeedingWork_v3532 */ ); lab_L100049: ; if ((needsWork_v15980 != 0)) { } else { goto lab_L100046; }; SOURCE(8643, 32) (void) CommitInterface_P1260((* (ptr) (needsWork_v15980) )); needsWork_v15980 = (* (( (ptr) needsWork_v15980)+1) ); goto lab_L100049; lab_L100046: ; }; SOURCE(8686, 199) if (((* (( (ptr) gf_c41304)+35)/* lastUncommittedTypeExport_v3644 */ ) != 0)) { SOURCE(8726, 44) (* (( (ptr) (* (( (ptr) gf_c41304)+35)/* lastUncommittedTypeExport_v3644 */ ))+4) ) = (* (( (ptr) gf_c41304)+33)/* typeExports_v3588 */ ); SOURCE(8772, 36) (* (( (ptr) gf_c41304)+33)/* typeExports_v3588 */ ) = (* (( (ptr) gf_c41304)+34)/* uncommittedTypeExports_v3616 */ ); SOURCE(8810, 56) (* (( (ptr) gf_c41304)+35)/* lastUncommittedTypeExport_v3644 */ ) = 0; (* (( (ptr) gf_c41304)+34)/* uncommittedTypeExports_v3616 */ ) = 0; SOURCE(8868, 17) (* (( (ptr) gf_c41304)+30)/* typeClashes_v3504 */ ) = 0; }; SOURCE(8890, 27) (* (( (ptr) gf_c41304)+31)/* interfacesNeedingWork_v3532 */ ) = 0; SOURCE(8919, 24) (* (( (ptr) gf_c41304)+27)/* newProgsAndConfigs_v3420 */ ) = 0; SOURCE(8945, 20) (void) GiveInspectionLock_P960(); SOURCE(8967, 22) (void) GiveInstallationLock_P840(); } static void MakeCommitted_P5640(interface_v15908, formal_c41368) word interface_v15908; word formal_c41368; { register ptr gf_c41336 = (ptr) &globalframe; formal_c41368 = (formal_c41368 - 16); /* MakeCommitted: */ SOURCE(8123, 89) SOURCE(8170, 42) (void) Insert_P60(interface_v15908, (* (( (ptr) (* (( (ptr) gf_c41336)+37)/* globalConfig_v3700 */ ))+6) )); } static void CommitInterface_P1260(interface_v8396) word interface_v8396; { word dummy_v16108 = 1; /* CommitInterface: */ SOURCE(8995, 141) SOURCE(9073, 63) { register word i_v16152 = 0; register word noName_c36184; { word idx59; noName_c36184 = ( idx59 = (* (( (ptr) interface_v8396)+3) ), SGNCK(idx59) ); }; if (( (int)i_v16152 >= (int)noName_c36184)) { goto lab_L100050; }; lab_L100053: ; SOURCE(9112, 24) (void) CommitItem_P1320(interface_v8396, i_v16152); i_v16152 = (i_v16152 + 1); if (( (int)i_v16152 < (int)noName_c36184)) { goto lab_L100053; }; lab_L100050: ; }; } static void CommitItem_P1320(interface_v8456, i_v8484) word interface_v8456; word i_v8484; { word dummy_v16196 = 1; /* CommitItem: */ SOURCE(9151, 1225) SOURCE(9232, 1075) { W3 var_c36248; { word var_c36216; var_c36216 = (* (( (ptr) interface_v8456)+2) ); { word limit60; var_c36248 = (* (( (W3Pt) (( (ptr) var_c36216)+3))+( limit60 = (* (( (ptr) var_c36216)+2) ), BCK(i_v8484, limit60) )) ); }; }; { word var_c36472; var_c36472 = var_c36248.f1; switch (var_c36472) { case 0: { W2 n_v16240; n_v16240 = (* (W2Pt) &var_c36248 ); SOURCE(9291, 6) return; }; case 1: { W3 up_v16284; up_v16284 = var_c36248; if ( ( (0 != (* (ptr) (* (( (ptr) interface_v8456)+2) ) )) ? ((up_v16284.f0 - 2) <= 1) : 0 ) ) { } else { SOURCE(9452, 366) SOURCE(9452, 366) { word prev_v16328; word var_c36280; word var_c0613; word var_c36344; SOURCE(9476, 125) { word limit62; { /*1*/ word limit61; /*1*/ var_c36280 = (* (( (ptr) interface_v8456)+2) ); /*1*/ var_c0613 = (* (( (W3Pt) (( (ptr) var_c36280)+3))+( /*1*/ limit61 = (* (( (ptr) var_c36280)+2) ), /*1*/ BCK(i_v8484, limit61) /*1*/ )) ).f0; /*1*/ }; if ((var_c0613 == 1)) { /*1*/ prev_v16328 = (* ((( (ptr) interface_v8456)+4)+( /*1*/ limit62 = (* (( (ptr) interface_v8456)+3) ), /*1*/ BCK(i_v8484, limit62) /*1*/ )) ); /*1*/ } else { /*1*/ prev_v16328 = 0; /*1*/ }; }; SOURCE(9603, 91) { word var_c36312; var_c36312 = (word) GetStartTrap_P2640((* (( (ptr) up_v16284.f2)+1) ), (* (( (ptr) up_v16284.f2)+2) ), (* (( (ptr) up_v16284.f2)+3) /*1*/ ), (* (( (ptr) up_v16284.f2)+4) ), (* (ptr) up_v16284.f2 )); { /*1*/ word limit63; /*1*/ (* ((( (ptr) interface_v8456)+4)+( /*1*/ limit63 = (* (( (ptr) interface_v8456)+3) ), /*1*/ BCK(i_v8484, limit63) /*1*/ )) ) = var_c36312; /*1*/ }; }; SOURCE(9696, 42) { word limit64; var_c36344 = (* (( (ptr) interface_v8456)+2) ); (* (( (W3Pt) (( (ptr) var_c36344)+3))+( /*1*/ limit64 = (* (( (ptr) var_c36344)+2) ), /*1*/ BCK(i_v8484, limit64) /*1*/ )) ).f0 = 2; }; SOURCE(9740, 75) if ((prev_v16328 != 0)) { SOURCE(9764, 51) SOURCE(9766, 49) { /*1*/ word limit65; /*1*/ (* (( (ptr) prev_v16328)+2) ) = (* ((( (ptr) interface_v8456)+4)+( /*1*/ limit65 = (* (( (ptr) interface_v8456)+3) ), /*1*/ BCK(i_v8484, limit65) /*1*/ )) ); /*1*/ }; }; }; }; }; break; case 2: { W3 uv_v16384; uv_v16384 = var_c36248; if ( ( (0 != (* (ptr) (* (( (ptr) interface_v8456)+2) ) )) ? (uv_v16384.f0 == 3) : 0 ) ) { } else { { word var_c36376; SOURCE(9961, 49) { word limit66; (* ((( (ptr) interface_v8456)+4)+( /*1*/ limit66 = (* (( (ptr) interface_v8456)+3) ), /*1*/ BCK(i_v8484, limit66) /*1*/ )) ) = (* (ptr) uv_v16384.f2 ); }; SOURCE(10012, 38) { word limit67; var_c36376 = (* (( (ptr) interface_v8456)+2) ); (* (( (W3Pt) (( (ptr) var_c36376)+3))+( /*1*/ limit67 = (* (( (ptr) var_c36376)+2) ), /*1*/ BCK(i_v8484, limit67) /*1*/ )) ).f0 = 3; }; }; }; }; break; case 3: { W3 id_v16428; id_v16428 = var_c36248; if (((id_v16428.f0 - 1) <= 2)) { } else { { word var_c36440; SOURCE(10163, 98) { word var_c36408; var_c36408 = (word) GetUnboundTrap_P2700((* (ptr) id_v16428.f2 ), (* (( (ptr) id_v16428.f2)+1) ), (* (( (ptr) id_v16428.f2)+2) /*1*/ )); { /*1*/ word limit68; /*1*/ (* ((( (ptr) interface_v8456)+4)+( /*1*/ limit68 = (* (( (ptr) interface_v8456)+3) ), /*1*/ BCK(i_v8484, limit68) /*1*/ )) ) = var_c36408; /*1*/ }; }; SOURCE(10263, 44) { word limit69; var_c36440 = (* (( (ptr) interface_v8456)+2) ); (* (( (W3Pt) (( (ptr) var_c36440)+3))+( /*1*/ limit69 = (* (( (ptr) var_c36440)+2) ), /*1*/ BCK(i_v8484, limit69) /*1*/ )) ).f0 = 1; }; }; }; }; break; default: break; }; }; }; SOURCE(10332, 44) SOURCE(10333, 43) { word var_c36536; word var_c36504; { word limit70; var_c36504 = (* (( (ptr) interface_v8456)+2) ); var_c36536 = (word) (( (W3Pt) (( (bPt) var_c36504)+12))+( limit70 = (* (( (ptr) var_c36504)+2) ), BCK(i_v8484, limit70) )); }; (* (( (ptr) var_c36536)+1) ) = 0; }; } extern void XR_AbortInstallation() { register ptr gf_c41400 = (ptr) &globalframe; word dummy_v16472 = 1; /* AbortInstallation: */ SOURCE(10383, 478) SOURCE(10487, 40) (void) EmptyInterfaces_P3000((* ((( (ptr) gf_c41400)+26)/* uncommittedGlobalConfig_v3392 */ ) )); SOURCE(10529, 127) { register word needsWork_v16516; needsWork_v16516 = (* (( (ptr) gf_c41400)+31)/* interfacesNeedingWork_v3532 */ ); lab_L100057: ; if ((needsWork_v16516 != 0)) { } else { goto lab_L100054; }; SOURCE(10625, 31) (void) AbortInterface_P1440((* (ptr) (needsWork_v16516) )); needsWork_v16516 = (* (( (ptr) needsWork_v16516)+1) ); goto lab_L100057; lab_L100054: ; }; SOURCE(10667, 27) (* (( (ptr) gf_c41400)+31)/* interfacesNeedingWork_v3532 */ ) = 0; SOURCE(10696, 38) (* (( (ptr) (* (( (ptr) gf_c41400)+26)/* uncommittedGlobalConfig_v3392 */ ))+4) ) = 0; SOURCE(10736, 24) (* (( (ptr) gf_c41400)+27)/* newProgsAndConfigs_v3420 */ ) = 0; SOURCE(10762, 56) (* (( (ptr) gf_c41400)+35)/* lastUncommittedTypeExport_v3644 */ ) = 0; (* (( (ptr) gf_c41400)+34)/* uncommittedTypeExports_v3616 */ ) = 0; SOURCE(10820, 17) (* (( (ptr) gf_c41400)+30)/* typeClashes_v3504 */ ) = 0; SOURCE(10839, 22) (void) GiveInstallationLock_P840(); } static void AbortInterface_P1440(interface_v8560) word interface_v8560; { word dummy_v16644 = 1; /* AbortInterface: */ SOURCE(10867, 139) SOURCE(10944, 62) { register word i_v16688 = 0; register word noName_c36568; { word idx71; noName_c36568 = ( idx71 = (* (( (ptr) interface_v8560)+3) ), SGNCK(idx71) ); }; if (( (int)i_v16688 >= (int)noName_c36568)) { goto lab_L100058; }; lab_L100061: ; SOURCE(10983, 23) (void) AbortItem_P1500(interface_v8560, i_v16688); i_v16688 = (i_v16688 + 1); if (( (int)i_v16688 < (int)noName_c36568)) { goto lab_L100061; }; lab_L100058: ; }; } static void AbortItem_P1500(interface_v8620, i_v8648) word interface_v8620; word i_v8648; { word dummy_v16732 = 1; /* AbortItem: */ SOURCE(11021, 201) SOURCE(11101, 121) { word var_c36632; word var_c36600; { word limit72; var_c36600 = (* (( (ptr) interface_v8620)+2) ); var_c36632 = (* (( (W3Pt) (( (ptr) var_c36600)+3))+( limit72 = (* (( (ptr) var_c36600)+2) ), BCK(i_v8648, limit72) )) ).f1; }; if ((var_c36632 == 0)) { SOURCE(11151, 6) return; } else { SOURCE(11178, 44) SOURCE(11179, 43) { word var_c36696; word var_c36664; { word limit73; var_c36664 = (* (( (ptr) interface_v8620)+2) ); var_c36696 = (word) (( (W3Pt) (( (bPt) var_c36664)+12))+( limit73 = (* (( (ptr) var_c36664)+2) ), BCK(i_v8648, limit73) )); }; (* (( (ptr) var_c36696)+1) ) = 0; }; }; }; } static word NewEnvironRefTab_P1560() { register ptr gf_c41432 = (ptr) &globalframe; word environ_v8708; /* NewEnvironRefTab: */ SOURCE(11229, 154) SOURCE(11229, 154) environ_v8708 = 0; SOURCE(11286, 97) { word var_c36760; word var_c36792; { word pd74; pd74 = (* (( (ptr) (* (( (ptr) gf_c41432)+246)/* var_c35192 */ ))+5) ); var_c36760 = (word) ( *( (fPt) ((* (ptr) pd74 ))))(17, (word) (( (bPt) gf_c41432)+756)/* var_c34168 */ , (word) (( (bPt) gf_c41432)+748) /* var_c34136 */ , pd74); }; var_c36792 = XR_NewObject(8, (* (( (ptr) gf_c41432)+51) )); (* (ptr) var_c36792 ) = 1; (* (( (ptr) var_c36792)+1) ) = var_c36760; return(var_c36792); }; } static word InterfaceMatch_P1620(key1_v25620, key2_v25648) word key1_v25620; word key2_v25648; { word var_c25692; word k1_v16776; word k2_v16804; /* InterfaceMatch: */ SOURCE(11389, 141) SOURCE(11434, 30) k1_v16776 = key1_v25620; SOURCE(11466, 30) k2_v16804 = key2_v25648; SOURCE(11498, 32) return((word) KeyMatch_P3060((* (W2Pt) k1_v16776 ), (* (W2Pt) k2_v16804 ))); } static word InterfaceHash_P1680(key_v25752) word key_v25752; { word var_c25796; word k_v16848; word name_v16876; word hash_v16904 = 0; word i_v16932 = 0; /* InterfaceHash: */ SOURCE(11536, 215) SOURCE(11579, 28) k_v16848 = key_v25752; SOURCE(11609, 26) name_v16876 = (* (ptr) k_v16848 ); SOURCE(11666, 60) lab_L100064: ; if (((word) (* (( (bPt) name_v16876)+i_v16932) ) != 0)) { } else { goto lab_L100062; }; SOURCE(11691, 26) hash_v16904 = (hash_v16904 + (word) (* (( (bPt) name_v16876)+i_v16932) )); SOURCE(11719, 7) i_v16932 = (i_v16932 + 1); goto lab_L100064; lab_L100062: ; SOURCE(11737, 14) return(hash_v16904); } extern void XR_PushScope(name_v8768) word name_v8768; { register ptr gf_c41464 = (ptr) &globalframe; word dummy_v16976 = 1; /* PushScope: */ SOURCE(11757, 766) SOURCE(11840, 43) if ((0 == (* (( (ptr) gf_c41464)+8)/* initialized_v3168 */ ))) { SOURCE(11864, 19) (void) XR_BeginInstallation(); }; SOURCE(11899, 188) if ( ( ((* (( (ptr) gf_c41464)+28)/* currentConfig_v3448 */ ) == (* (( (ptr) gf_c41464)+37)/* globalConfig_v3700 */ )) ? ((* ( ( (ptr) gf_c41464)+29)/* currentProgram_v3476 */ ) != 0) : 0 ) ) { SOURCE(11959, 20) (void) XR_CommitInstallation(); SOURCE(12067, 20) (* (( (ptr) gf_c41464)+29)/* currentProgram_v3476 */ ) = 0; }; SOURCE(12092, 433) { word newScope_v17020; SOURCE(12094, 168) { word var_c36856; word var_c36920; if ((0 != (* (( (ptr) gf_c41464)+9)/* installationScopesStarted_v3196 */ ))) { var_c36856 = (word) NewEnvironRefTab_P1560(); } else { var_c36856 = XR_NewObject(8, (* (( (ptr) gf_c41464)+51) )); }; var_c36920 = XR_NewObject(32, (* (( (ptr) gf_c41464)+44) )); (* (ptr) var_c36920 ) = (* (( (ptr) gf_c41464)+28)/* currentConfig_v3448 */ ); (* (( (ptr) var_c36920)+1) ) = name_v8768; (* (( (ptr) var_c36920)+6) ) = var_c36856; newScope_v17020 = var_c36920; }; SOURCE(12264, 211) if (((* (( (ptr) gf_c41464)+28)/* currentConfig_v3448 */ ) == (* (( (ptr) gf_c41464)+37)/* globalConfig_v3700 */ ))) { SOURCE(12301, 94) { word var_c36952; var_c36952 = XR_NewObject(12, (* (( (ptr) gf_c41464)+53) )); (* (ptr) var_c36952 ) = 1; (* (( (ptr) var_c36952)+1) ) = newScope_v17020; (* (( (ptr) var_c36952)+2) ) = (* (( (ptr) (* (( (ptr) gf_c41464)+26)/* uncommittedGlobalConfig_v3392 */ ))+4) ); (* (( (ptr) (* (( (ptr) gf_c41464)+26)/* uncommittedGlobalConfig_v3392 */ ))+4) ) = var_c36952; }; } else { SOURCE(12402, 73) { word var_c36984; var_c36984 = XR_NewObject(12, (* (( (ptr) gf_c41464)+53) )); (* (ptr) var_c36984 ) = 1; (* (( (ptr) var_c36984)+1) ) = newScope_v17020; (* (( (ptr) var_c36984)+2) ) = (* (( (ptr) (* (( (ptr) gf_c41464)+28)/* currentConfig_v3448 */ ))+4) ); (* (( (ptr) (* (( (ptr) gf_c41464)+28)/* currentConfig_v3448 */ ))+4) ) = var_c36984; }; }; SOURCE(12477, 24) (* (( (ptr) gf_c41464)+28)/* currentConfig_v3448 */ ) = newScope_v17020; SOURCE(12503, 20) (* (( (ptr) gf_c41464)+29)/* currentProgram_v3476 */ ) = 0; }; } extern void XR_PopScope() { register ptr gf_c41496 = (ptr) &globalframe; word dummy_v17064 = 1; /* PopScope: */ SOURCE(12532, 177) SOURCE(12609, 35) if (((* (ptr) (* (( (ptr) gf_c41496)+28)/* currentConfig_v3448 */ ) ) == 0)) { SOURCE(12644, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(12651, 36) (* (( (ptr) gf_c41496)+28)/* currentConfig_v3448 */ ) = (* (ptr) (* (( (ptr) gf_c41496)+28)/* currentConfig_v3448 */ ) ); SOURCE(12689, 20) (* (( (ptr) gf_c41496)+29)/* currentProgram_v3476 */ ) = 0; } extern word XR_ImportInterface(name_v8844, type_v8872, size_v8900) word name_v8844; word type_v8872; word size_v8900; { register ptr gf_c41528 = (ptr) &globalframe; word var_c8944; W2 key_v17108; /* ImportInterface: */ SOURCE(12716, 198) SOURCE(12823, 23) key_v17108.f0 = name_v8844; key_v17108.f1 = type_v8872; SOURCE(12848, 66) return((word) GetAnyInterface_P1980(key_v17108, size_v8900, (* (( (ptr) gf_c41528)+28)/* currentConfig_v3448 */ ))); } extern word XR_ExportInterface(name_v9004, type_v9032, size_v9060) word name_v9004; word type_v9032; word size_v9060; { register ptr gf_c41560 = (ptr) &globalframe; word var_c9104; W2 key_v17152; /* ExportInterface: */ SOURCE(12920, 199) SOURCE(13027, 23) key_v17152.f0 = name_v9004; key_v17152.f1 = type_v9032; SOURCE(13052, 67) return((word) GetAnyInterface_P1980(key_v17152, size_v9060, (* (( (ptr) gf_c41560)+28)/* currentConfig_v3448 */ ))); } static word GetAnyInterface_P1980(key_v9164, size_v9192, config_v9220) W2 key_v9164; word size_v9192; word config_v9220; { register ptr gf_c41592 = (ptr) &globalframe; word interface_v9264; word found_v17196 = 0; /* GetAnyInterface: */ SOURCE(13125, 895) SOURCE(13125, 895) interface_v9264 = 0; SOURCE(13241, 96) if ((config_v9220 == (* (( (ptr) gf_c41592)+37)/* globalConfig_v3700 */ ))) { SOURCE(13269, 68) { W2 var_c37144; (void) Lookup_P2820((word) &var_c37144, key_v9164, (* (( (ptr) (* (( (ptr) gf_c41592)+26)/* uncommittedGlobalConfig_v3392 */ ))+6) )); interface_v9264 = var_c37144.f1; found_v17196 = var_c37144.f0; }; }; SOURCE(13339, 69) if ((0 == found_v17196)) { SOURCE(13357, 51) { W2 var_c37176; (void) Lookup_P2820((word) &var_c37176, key_v9164, (* (( (ptr) config_v9220)+6) )); interface_v9264 = var_c37176.f1; found_v17196 = var_c37176.f0; }; }; if ( ( (0 != (* (( (ptr) config_v9220)+5) )) ? (0 == found_v17196) : 0 ) ) { SOURCE(13457, 206) if ((key_v9164.f1 != 0)) { SOURCE(13499, 35) interface_v9264 = (word) NewInterface_P2100(size_v9192, key_v9164); SOURCE(13536, 127) if ((config_v9220 == (* (( (ptr) gf_c41592)+37)/* globalConfig_v3700 */ ))) { SOURCE(13564, 61) (void) Insert_P60(interface_v9264, (* (( (ptr) (* (( (ptr) gf_c41592)+26)/* uncommittedGlobalConfig_v3392 */ ))+6) )); } else { SOURCE(13625, 38) (void) Insert_P60(interface_v9264, (* (( (ptr) config_v9220)+6) )); }; }; } else { if ( ( (0 != (* (( (ptr) config_v9220)+5) )) ? (0 != found_v17196) : 0 ) ) { SOURCE(13699, 104) if (((* (( (ptr) interface_v9264)+3) ) == 0)) { SOURCE(13726, 58) return((word) GetAnyInterface_P1980(key_v9164, size_v9192, (* (ptr) config_v9220 ))); } else { SOURCE(13784, 19) return(interface_v9264); }; } else { if ( ( (0 == (* (( (ptr) config_v9220)+5) )) ? (0 == found_v17196) : 0 ) ) { SOURCE(13836, 49) { word var_c37240; var_c37240 = (word) NewInterface_P2100(0, key_v9164); (void) Insert_P60(var_c37240, (* (( (ptr) config_v9220)+6) )); }; SOURCE(13887, 50) return((word) GetAnyInterface_P1980(key_v9164, size_v9192, (* (ptr) config_v9220 ))); } else { if ( ( (0 == (* (( (ptr) config_v9220)+5) )) ? (0 != found_v17196) : 0 ) ) { SOURCE(13970, 50) return((word) GetAnyInterface_P1980(key_v9164, size_v9192, (* (ptr) config_v9220 ))); }; }; }; }; SOURCE(13125, 895) return(interface_v9264); } extern void XR_HideNames() { register ptr gf_c41624 = (ptr) &globalframe; word dummy_v17240 = 1; /* HideNames: */ SOURCE(14121, 106) SOURCE(14200, 27) (* (( (ptr) (* (( (ptr) gf_c41624)+28)/* currentConfig_v3448 */ ))+5) ) = 1; } static word NewInterface_P2100(size_v9340, key_v9368) word size_v9340; W2 key_v9368; { register ptr gf_c41656 = (ptr) &globalframe; word interface_v9412; word dummy_v17284 = 1; /* NewInterface: */ SOURCE(14233, 302) SOURCE(14233, 302) interface_v9412 = 0; SOURCE(14338, 40) { word var_c37336; word var_c37368; word var_c37400; var_c37336 = SGNCK(size_v9340); var_c37368 = ((word) var_c37336 << 2); var_c37400 = XR_NewObject((16 + var_c37368), (* (( (ptr) gf_c41656)+43) )); (* (( (ptr) var_c37400)+3) ) = var_c37336; interface_v9412 = var_c37400; }; SOURCE(14380, 19) (* (W2Pt) interface_v9412 ) = key_v9368; SOURCE(14401, 134) if (( (int)size_v9340 > (int)0)) { SOURCE(14420, 37) (* (( (ptr) interface_v9412)+2) ) = (word) NewAuxInterface_P2160(size_v9340); SOURCE(14459, 46) (* (ptr) (* (( (ptr) interface_v9412)+2) ) ) = 0; SOURCE(14507, 28) (* (( (ptr) (* (( (ptr) interface_v9412)+2) ))+1) ) = 0; }; SOURCE(14233, 302) return(interface_v9412); } static word NewAuxInterface_P2160(size_v9472) word size_v9472; { register ptr gf_c41688 = (ptr) &globalframe; word aux_v9516; word dummy_v17328 = 1; /* NewAuxInterface: */ SOURCE(14544, 199) SOURCE(14544, 199) aux_v9516 = 0; SOURCE(14647, 37) { word var_c37432; word var_c37464; word var_c37496; var_c37432 = SGNCK(size_v9472); var_c37464 = ((word) var_c37432 * 12); var_c37496 = XR_NewObject((12 + var_c37464), (* (( (ptr) gf_c41688)+58) )); (* (( (ptr) var_c37496)+2) ) = var_c37432; aux_v9516 = var_c37496; }; SOURCE(14686, 57) { register word i_v17372 = 0; register word noName_c37528; noName_c37528 = size_v9472; if (( (int)i_v17372 >= (int)noName_c37528)) { goto lab_L100065; }; lab_L100068: ; SOURCE(14713, 30) { word var_c37560; { word limit75; var_c37560 = (word) (( (W3Pt) (( (bPt) aux_v9516)+12))+( limit75 = (* (( (ptr) aux_v9516)+2) ), BCK(i_v17372, limit75) )); }; (* (ptr) var_c37560 ) = 0; (* (( (ptr) var_c37560)+1) ) = 0; }; i_v17372 = (i_v17372 + 1); if (( (int)i_v17372 < (int)noName_c37528)) { goto lab_L100068; }; lab_L100065: ; }; SOURCE(14544, 199) return(aux_v9516); } extern void XR_ExportProc(interface_v9576, item_v9604, proc_v9632, unitsOut_v9660, unitsIn_v9688, argsIn_v9716) word interface_v9576; word item_v9604; word proc_v9632; word unitsOut_v9660; word unitsIn_v9688; word argsIn_v9716; { register ptr gf_c41720 = (ptr) &globalframe; word dummy_v17416 = 1; /* ExportProc: */ SOURCE(14758, 580) SOURCE(14925, 264) { word var_c37624; word var_c37592; word var_c37880; word var_c37816; word var_c37848; { word limit76; var_c37592 = (* (( (ptr) interface_v9576)+2) ); var_c37624 = (* (( (W3Pt) (( (ptr) var_c37592)+3))+( limit76 = (* (( (ptr) var_c37592)+2) ), BCK(item_v9604, limit76) )) ).f1; }; switch (var_c37624) { case 0: case 3: SOURCE(14995, 96) { word var_c37688; word var_c37656; word var_c37720; { word limit77; var_c37656 = (* (( (ptr) interface_v9576)+2) ); var_c37688 = (word) (( (W3Pt) (( (bPt) var_c37656)+12))+( limit77 = (* (( (ptr) var_c37656)+2) ), BCK(item_v9604, limit77) )); }; { word var_c37752; word var_c37784; var_c37752 = XR_NewObject(24, (* (( (ptr) gf_c41720)+60) )); var_c37784 = var_c37752; (* (ptr) var_c37784 ) = proc_v9632; (* (( (ptr) var_c37784)+1) ) = unitsOut_v9660; (* (( (ptr) var_c37784)+2) ) = unitsIn_v9688; (* (( (ptr) var_c37784)+3) ) = argsIn_v9716; (* (( (ptr) var_c37784)+4) ) = (* (( (ptr) gf_c41720)+29)/* currentProgram_v3476 */ ); var_c37720 = var_c37752; }; (* (( (ptr) var_c37688)+1) ) = 1; (* (( (ptr) var_c37688)+2) ) = var_c37720; }; break; case 1: SOURCE(15119, 70) { word limit78; var_c37880 = (* (( (ptr) interface_v9576)+2) ); var_c37816 = XR_NewObject(24, (* (( (ptr) gf_c41720)+60) )); (* (ptr) var_c37816 ) = proc_v9632; (* (( (ptr) var_c37816)+1) ) = unitsOut_v9660; (* (( (ptr) var_c37816)+2) ) = unitsIn_v9688; (* (( (ptr) var_c37816)+3) ) = argsIn_v9716; (* (( (ptr) var_c37816)+4) ) = (* (( (ptr) gf_c41720)+29)/* currentProgram_v3476 */ ); { word limit79; var_c37848 = (* (( (ptr) interface_v9576)+2) ); (* (( (ptr) var_c37816)+5) ) = (* (( (W3Pt) (( (ptr) var_c37848)+3))+( limit79 = (* (( (ptr) var_c37848)+2) ), BCK(item_v9604, limit79) )) ).f2; }; (* (( (W3Pt) (( (ptr) var_c37880)+3))+( limit78 = (* (( (ptr) var_c37880)+2) ), BCK(item_v9604, limit78) )) ).f2 = var_c37816; }; break; case 2: SOURCE(15215, 5) (void) XR_RaiseUnnamedError(); break; }; }; SOURCE(15231, 29) (void) InterfaceNeedsWork_P2580(interface_v9576); SOURCE(15262, 76) { word var_c37912; var_c37912 = XR_NewObject(12, (* (( (ptr) gf_c41720)+63) )); (* (ptr) var_c37912 ) = interface_v9576; (* (( (ptr) var_c37912)+1) ) = SGNCK(item_v9604); (* (( (ptr) var_c37912)+2) ) = (* (( (ptr) (* (( (ptr) gf_c41720)+29)/* currentProgram_v3476 */ ))+5) ); (* (( (ptr) (* (( (ptr) gf_c41720)+29)/* currentProgram_v3476 */ ))+5) ) = var_c37912; }; } extern void XR_ImportProc(interface_v9792, item_v9820, unitsOut_v9848, unitsIn_v9876, argsIn_v9904) word interface_v9792; word item_v9820; word unitsOut_v9848; word unitsIn_v9876; word argsIn_v9904; { register ptr gf_c41752 = (ptr) &globalframe; word dummy_v17460 = 1; word var_c37944; word var_c0614; /* ImportProc: */ SOURCE(15344, 574) SOURCE(15499, 70) { word limit80; var_c37944 = (* (( (ptr) interface_v9792)+2) ); var_c0614 = (* (( (W3Pt) (( (ptr) var_c37944)+3))+( limit80 = (* (( (ptr) var_c37944)+2) ), BCK(item_v9820, limit80) )) ).f0; }; if (((var_c0614 - 2) <= 1)) { SOURCE(15563, 6) return; }; SOURCE(15571, 243) { word var_c38008; word var_c37976; word var_c38264; word var_c38200; word var_c38232; { word limit81; var_c37976 = (* (( (ptr) interface_v9792)+2) ); var_c38008 = (* (( (W3Pt) (( (ptr) var_c37976)+3))+( limit81 = (* (( (ptr) var_c37976)+2) ), BCK(item_v9820, limit81) )) ).f1; }; switch (var_c38008) { case 0: SOURCE(15626, 104) { word var_c38072; word var_c38040; word var_c38104; { word limit82; var_c38040 = (* (( (ptr) interface_v9792)+2) ); var_c38072 = (word) (( (W3Pt) (( (bPt) var_c38040)+12))+( limit82 = (* (( (ptr) var_c38040)+2) ), BCK(item_v9820, limit82) )); }; { word var_c38136; word var_c38168; var_c38136 = XR_NewObject(20, (* (( (ptr) gf_c41752)+65) )); var_c38168 = var_c38136; (* (ptr) var_c38168 ) = unitsOut_v9848; (* (( (ptr) var_c38168)+1) ) = unitsIn_v9876; (* (( (ptr) var_c38168)+2) ) = argsIn_v9904; (* (( (ptr) var_c38168)+3) ) = (* (( (ptr) gf_c41752)+29)/* currentProgram_v3476 */ ); var_c38104 = var_c38136; }; (* (( (ptr) var_c38072)+1) ) = 3; (* (( (ptr) var_c38072)+2) ) = var_c38104; }; break; case 3: SOURCE(15750, 64) { word limit83; var_c38264 = (* (( (ptr) interface_v9792)+2) ); var_c38200 = XR_NewObject(20, (* (( (ptr) gf_c41752)+65) )); (* (ptr) var_c38200 ) = unitsOut_v9848; (* (( (ptr) var_c38200)+1) ) = unitsIn_v9876; (* (( (ptr) var_c38200)+2) ) = argsIn_v9904; (* (( (ptr) var_c38200)+3) ) = (* (( (ptr) gf_c41752)+29)/* currentProgram_v3476 */ ); { word limit84; var_c38232 = (* (( (ptr) interface_v9792)+2) ); (* (( (ptr) var_c38200)+4) ) = (* (( (W3Pt) (( (ptr) var_c38232)+3))+( limit84 = (* (( (ptr) var_c38232)+2) ), BCK(item_v9820, limit84) )) ).f2; }; (* (( (W3Pt) (( (ptr) var_c38264)+3))+( limit83 = (* (( (ptr) var_c38264)+2) ), BCK(item_v9820, limit83) )) ).f2 = var_c38200; }; break; case 1: break; case 2: SOURCE(15873, 5) (void) XR_RaiseUnnamedError(); break; }; }; SOURCE(15889, 29) (void) InterfaceNeedsWork_P2580(interface_v9792); } extern void XR_ExportVar(interface_v9964, item_v9992, addr_v10020) word interface_v9964; word item_v9992; word addr_v10020; { register ptr gf_c41784 = (ptr) &globalframe; word dummy_v17504 = 1; /* ExportVar: */ SOURCE(15924, 402) SOURCE(16047, 239) { word var_c38328; word var_c38296; word var_c38584; word var_c38520; word var_c38552; { word limit85; var_c38296 = (* (( (ptr) interface_v9964)+2) ); var_c38328 = (* (( (W3Pt) (( (ptr) var_c38296)+3))+( limit85 = (* (( (ptr) var_c38296)+2) ), BCK(item_v9992, limit85) )) ).f1; }; switch (var_c38328) { case 0: case 3: SOURCE(16117, 67) { word var_c38392; word var_c38360; word var_c38424; { word limit86; var_c38360 = (* (( (ptr) interface_v9964)+2) ); var_c38392 = (word) (( (W3Pt) (( (bPt) var_c38360)+12))+( limit86 = (* (( (ptr) var_c38360)+2) ), BCK(item_v9992, limit86) )); }; { word var_c38456; word var_c38488; var_c38456 = XR_NewObject(12, (* (( (ptr) gf_c41784)+68) )); var_c38488 = var_c38456; (* (ptr) var_c38488 ) = addr_v10020; (* (( (ptr) var_c38488)+1) ) = (* (( (ptr) gf_c41784)+29)/* currentProgram_v3476 */ ); var_c38424 = var_c38456; }; (* (( (ptr) var_c38392)+1) ) = 2; (* (( (ptr) var_c38392)+2) ) = var_c38424; }; break; case 1: SOURCE(16212, 5) (void) XR_RaiseUnnamedError(); break; case 2: SOURCE(16243, 43) { word limit87; var_c38584 = (* (( (ptr) interface_v9964)+2) ); var_c38520 = XR_NewObject(12, (* (( (ptr) gf_c41784)+68) )); (* (ptr) var_c38520 ) = addr_v10020; (* (( (ptr) var_c38520)+1) ) = (* (( (ptr) gf_c41784)+29)/* currentProgram_v3476 */ ); { word limit88; var_c38552 = (* (( (ptr) interface_v9964)+2) ); (* (( (ptr) var_c38520)+2) ) = (* (( (W3Pt) (( (ptr) var_c38552)+3))+( limit88 = (* (( (ptr) var_c38552)+2) ), BCK(item_v9992, limit88) )) ).f2; }; (* (( (W3Pt) (( (ptr) var_c38584)+3))+( limit87 = (* (( (ptr) var_c38584)+2) ), BCK(item_v9992, limit87) )) ).f2 = (var_c38520 ); }; break; }; }; SOURCE(16297, 29) (void) InterfaceNeedsWork_P2580(interface_v9964); } extern void XR_ExportType(typeName_v10092, abstract_v10120, concrete_v10148) word typeName_v10092; word abstract_v10120; word concrete_v10148; { register ptr gf_c41816 = (ptr) &globalframe; word export_v17548; word doExport_v17576 = 1; /* ExportType: */ SOURCE(16332, 755) SOURCE(16424, 68) export_v17548 = (word) FindExporter_P2460(abstract_v10120, (* (( (ptr) gf_c41816)+34)/* uncommittedTypeExports_v3616 */ )) ; SOURCE(16517, 63) if ((export_v17548 == 0)) { SOURCE(16536, 44) export_v17548 = (word) FindExporter_P2460(abstract_v10120, (* (( (ptr) gf_c41816)+33)/* typeExports_v3588 */ )); }; if ( ( (export_v17548 != 0) ? ((* (( (ptr) export_v17548)+2) ) != concrete_v10148) : 0 ) ) { SOURCE(16650, 82) { word var_c38616; var_c38616 = XR_NewObject(16, (* (( (ptr) gf_c41816)+71) )); (* (ptr) var_c38616 ) = typeName_v10092; (* (( (ptr) var_c38616)+1) ) = (* (( (ptr) gf_c41816)+29)/* currentProgram_v3476 */ ); (* (( (ptr) var_c38616)+2) ) = (* (( (ptr) export_v17548)+3) ); (* (( (ptr) var_c38616)+3) ) = (* (( (ptr) gf_c41816)+30)/* typeClashes_v3504 */ ); (* (( (ptr) gf_c41816)+30)/* typeClashes_v3504 */ ) = var_c38616; }; } else { if ( ( (export_v17548 != 0) ? ((* (( (ptr) export_v17548)+2) ) == concrete_v10148) : 0 ) ) { SOURCE(16786, 16) doExport_v17576 = 0; }; }; SOURCE(16821, 266) if ((0 != doExport_v17576)) { SOURCE(16840, 247) if (((* (( (ptr) gf_c41816)+34)/* uncommittedTypeExports_v3616 */ ) == 0)) { SOURCE(16875, 111) { word var_c38648; { word var_c38680; word var_c38712; var_c38680 = XR_NewObject(20, (* (( (ptr) gf_c41816)+73) )); var_c38712 = var_c38680; (* (ptr) var_c38712 ) = typeName_v10092; (* (( (ptr) var_c38712)+1) ) = abstract_v10120; (* (( (ptr) var_c38712)+2) ) = concrete_v10148; (* (( (ptr) var_c38712)+3) ) = (* (( (ptr) gf_c41816)+29)/* currentProgram_v3476 */ ); var_c38648 = var_c38680; }; (* (( (ptr) gf_c41816)+35)/* lastUncommittedTypeExport_v3644 */ ) = var_c38648; (* (( (ptr) gf_c41816)+34)/* uncommittedTypeExports_v3616 */ ) = var_c38648; }; } else { SOURCE(16986, 101) { word var_c38744; var_c38744 = XR_NewObject(20, (* (( (ptr) gf_c41816)+73) )); (* (ptr) var_c38744 ) = typeName_v10092; (* (( (ptr) var_c38744)+1) ) = abstract_v10120; (* (( (ptr) var_c38744)+2) ) = concrete_v10148; (* (( (ptr) var_c38744)+3) ) = (* (( (ptr) gf_c41816)+29)/* currentProgram_v3476 */ ); (* (( (ptr) var_c38744)+4) ) = (* (( (ptr) gf_c41816)+34)/* uncommittedTypeExports_v3616 */ ); (* (( (ptr) gf_c41816)+34)/* uncommittedTypeExports_v3616 */ ) = var_c38744; }; }; }; } static word FindExporter_P2460(abstract_v10208, list_v10236) word abstract_v10208; word list_v10236; { word var_c10280; /* FindExporter: */ SOURCE(17096, 197) SOURCE(17177, 94) { register word l_v17620; l_v17620 = list_v10236; lab_L100072: ; if ((l_v17620 != 0)) { } else { goto lab_L100069; }; SOURCE(17226, 45) if (((* (( (ptr) l_v17620)+1) ) == abstract_v10208)) { SOURCE(17262, 9) return(l_v17620); }; l_v17620 = (* (( (ptr) l_v17620)+4) ); goto lab_L100072; lab_L100069: ; }; SOURCE(17282, 11) return(0); } static word ConcreteTypeFromAbstractType_P2520(abstract_v10340) word abstract_v10340; { register ptr gf_c41848 = (ptr) &globalframe; word concrete_v10384; word export_v17664; /* ConcreteTypeFromAbstractType: */ SOURCE(17299, 252) SOURCE(17409, 57) export_v17664 = (word) FindExporter_P2460(abstract_v10340, (* (( (ptr) gf_c41848)+33)/* typeExports_v3588 */ )); SOURCE(17468, 83) if ((export_v17664 != 0)) { SOURCE(17487, 35) return((* (( (ptr) export_v17664)+2) )); } else { SOURCE(17522, 29) return(0); }; } static void InterfaceNeedsWork_P2580(interface_v10444) word interface_v10444; { register ptr gf_c41880 = (ptr) &globalframe; word dummy_v17708 = 1; /* InterfaceNeedsWork: */ SOURCE(17557, 274) SOURCE(17638, 120) { register word ints_v17752; ints_v17752 = (* (( (ptr) gf_c41880)+31)/* interfacesNeedingWork_v3532 */ ); lab_L100076: ; if ((ints_v17752 != 0)) { } else { goto lab_L100073; }; SOURCE(17721, 37) if (((* (ptr) ints_v17752 ) == interface_v10444)) { SOURCE(17752, 6) return; }; ints_v17752 = (* (( (ptr) ints_v17752)+1) ); goto lab_L100076; lab_L100073: ; }; SOURCE(17769, 62) { word var_c38776; var_c38776 = XR_NewObject(8, (* (( (ptr) gf_c41880)+48) )); (* (ptr) var_c38776 ) = interface_v10444; (* (( (ptr) var_c38776)+1) ) = (* (( (ptr) gf_c41880)+31)/* interfacesNeedingWork_v3532 */ ); (* (( (ptr) gf_c41880)+31)/* interfacesNeedingWork_v3532 */ ) = var_c38776; }; } static word GetStartTrap_P2640(unitsOut_v10576, unitsIn_v10604, argsIn_v10632, prog_v10660, proc_v10688) word unitsOut_v10576; word unitsIn_v10604; word argsIn_v10632; word prog_v10660; word proc_v10688; { register ptr gf_c41912 = (ptr) &globalframe; word var_c10748; word original_v17880; word trapInfo_v17936; /* GetStartTrap: */ SOURCE(17917, 498) SOURCE(18033, 31) original_v17880 = proc_v10688; SOURCE(18185, 64) trapInfo_v17936 = XR_NewObject(12, (* (( (ptr) gf_c41912)+75) )); SOURCE(18251, 29) (* (W2Pt) trapInfo_v17936 ) = (* (W2Pt) original_v17880 ); SOURCE(18282, 24) (* (( (ptr) trapInfo_v17936)+2) ) = prog_v10660; SOURCE(18308, 77) { word var_c38840; var_c38840 = (word) XR_GetStartTrap(unitsOut_v10576, unitsIn_v10604, argsIn_v10632); (* (ptr) original_v17880 ) = var_c38840; (* (( (ptr) original_v17880)+1) ) = trapInfo_v17936; }; SOURCE(18387, 28) return(original_v17880); } static word GetUnboundTrap_P2700(unitsOut_v10808, unitsIn_v10836, argsIn_v10864) word unitsOut_v10808; word unitsIn_v10836; word argsIn_v10864; { word var_c10908; word trapDesc_v18192; /* GetUnboundTrap: */ SOURCE(18422, 383) SOURCE(18636, 62) trapDesc_v18192 = (word) AllocateTrapDescriptor_P2760(); SOURCE(18700, 75) { word var_c38872; var_c38872 = (word) XR_GetUnboundTrap(unitsOut_v10808, unitsIn_v10836, argsIn_v10864); (* (ptr) trapDesc_v18192 ) = var_c38872; (* (( (ptr) trapDesc_v18192)+1) ) = 2; (* (( (ptr) trapDesc_v18192)+2) ) = 0; }; SOURCE(18777, 28) return(trapDesc_v18192); } static word AllocateTrapDescriptor_P2760() { register ptr gf_c41944 = (ptr) &globalframe; word d_v11100; /* AllocateTrapDescriptor: */ SOURCE(19043, 330) SOURCE(19118, 156) if (((* (( (ptr) gf_c41944)+39)/* trapDescriptors_v5100 */ ) == 0) || ((* (( (ptr) gf_c41944)+40)/* nextDescriptor_v5184 */ ) == 337)) { SOURCE(19191, 63) { word var_c38904; word var_c38968; var_c38904 = XR_NewObject(4044, (* (( (ptr) gf_c41944)+77) )); var_c38968 = XR_NewObject(8, (* (( (ptr) gf_c41944)+76) )); (* (ptr) var_c38968 ) = var_c38904; (* (( (ptr) var_c38968)+1) ) = (* (( (ptr) gf_c41944)+39)/* trapDescriptors_v5100 */ ); (* (( (ptr) gf_c41944)+39)/* trapDescriptors_v5100 */ ) = var_c38968; }; SOURCE(19256, 18) (* (( (ptr) gf_c41944)+40)/* nextDescriptor_v5184 */ ) = 0; }; SOURCE(19287, 47) SOURCE(19289, 45) { word idx89; d_v11100 = (word) (( (W3Pt) (* (ptr) (* (( (ptr) gf_c41944)+39)/* trapDescriptors_v5100 */ ) ))+( idx89 = (* (( (ptr) gf_c41944)+40)/* nextDescriptor_v5184 */ ), BCK(idx89, 337) )); }; SOURCE(19337, 36) (* (( (ptr) gf_c41944)+40)/* nextDescriptor_v5184 */ ) = ((* (( (ptr) gf_c41944)+40)/* nextDescriptor_v5184 */ ) + 1); SOURCE(19043, 330) return(d_v11100); } static void Lookup_P2820(formal_c0392, key_v11172, e_v11200) word formal_c0392; W2 key_v11172; word e_v11200; { register ptr gf_c41976 = (ptr) &globalframe; word found_v11244; word interface_v11272; /* Lookup: */ SOURCE(19379, 519) SOURCE(19379, 519) interface_v11272 = 0; SOURCE(19465, 401) { W2 var_c39000; var_c39000 = (* (W2Pt) e_v11200 ); { word var_c39096; var_c39096 = var_c39000.f0; if ((var_c39096 == 0)) { { W2 listrep_v18420; listrep_v18420 = var_c39000; SOURCE(19515, 119) { register word l_v18464; l_v18464 = listrep_v18420.f1; lab_L100081: ; if ((l_v18464 != 0)) { } else { goto lab_L100078; }; SOURCE(19578, 56) if ((0 != (word) KeyMatch_P3060((* (W2Pt) (* (ptr) l_v18464 ) ), key_v11172))) { SOURCE(19613, 21) interface_v11272 = (* (ptr) l_v18464 ); found_v11244 = 1; goto lab_L100077; }; l_v18464 = (* (( (ptr) l_v18464)+1) ); goto lab_L100081; lab_L100078: ; }; SOURCE(19646, 18) found_v11244 = 0; interface_v11272 = 0; goto lab_L100077; }; } else { if ((var_c39096 == 1)) { { W2 tabrep_v18592; tabrep_v18592 = var_c39000; SOURCE(19706, 162) { word found_v18636; word interface_v18664 = 0; SOURCE(19737, 27) (* (W2Pt) (* (( (ptr) gf_c41976)+32)/* keyInterfaceCache_v3560 */ ) ) = key_v11172; SOURCE(19766, 64) { W2 var_c39064; { word pd90; pd90 = (* (( (ptr) (* (( (ptr) gf_c41976)+246)/* var_c35192 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd90 ))))((word) &var_c39064, tabrep_v18592.f1, (* (( (ptr) gf_c41976)+32)/* keyInterfaceCache_v3560 */ ), pd90) ; }; interface_v18664 = var_c39064.f1; found_v18636 = var_c39064.f0; }; SOURCE(19832, 34) found_v11244 = found_v18636; interface_v11272 = interface_v18664; goto lab_L100077; }; }; } else { }; }; }; }; SOURCE(19880, 18) found_v11244 = 0; interface_v11272 = 0; /* removed tail goto */ lab_L100077: ; (* (ptr) formal_c0392 ) = found_v11244; (* (( (ptr) formal_c0392)+1) ) = interface_v11272; return; } static void EnumerateEnviron_P2880(e_v11332, p_v11360) word e_v11332; word p_v11360; { /* EnumerateEnviron: */ SOURCE(19904, 111) SOURCE(19975, 40) (void) MaybeMonitorEnumerateEnviron_P2940(e_v11332, p_v11360, 1); } static void MaybeMonitorEnumerateEnviron_P2940(e_v11480, formal_c0632, monitor_v11536) word e_v11480; word formal_c0632; word monitor_v11536; { W7 var_c42008; /* declaration of p_v11508 skipped */ register ptr gf_c42040 = (ptr) &globalframe; /* declaration of var_c39128 skipped */ var_c42008.f4/* p_v11508 */ = formal_c0632; /* MaybeMonitorEnumerateEnviron: */ SOURCE(20019, 426) { word tmpAddr91; tmpAddr91 = (word) (( (ptr) &var_c42008)+5)/* var_c39128 */ ; (* (ptr) tmpAddr91 ) = ( ((word) (fPt) EachPair_P6756) ); (* (( (ptr) tmpAddr91) + 1) ) = 1; }; SOURCE(20117, 328) { W2 var_c39160; var_c39160 = (* (W2Pt) e_v11480 ); { word var_c39256; var_c39256 = var_c39160.f0; if ((var_c39256 == 0)) { { W2 listrep_v18720; listrep_v18720 = var_c39160; SOURCE(20167, 73) { register word l_v18764; l_v18764 = listrep_v18720.f1; lab_L100085: ; if ((l_v18764 != 0)) { } else { goto lab_L100082; }; SOURCE(20230, 10) { word pd92; pd92 = (word) (var_c42008.f4/* p_v11508 */ ); (void) ( *( (fPt) ((* (ptr) pd92 ))))((* (ptr) (l_v18764) ), pd92); }; l_v18764 = (* (( (ptr) l_v18764)+1) ); goto lab_L100085; lab_L100082: ; }; }; } else { if ((var_c39256 == 1)) { { W2 tabrep_v18892; tabrep_v18892 = var_c39160; SOURCE(20284, 163) SOURCE(20351, 94) { word var_c39224; word pd93; pd93 = (word) ( (0 != monitor_v11536) ? (* (( (ptr) (* (( (ptr) gf_c42040)+246)/* var_c35192 */ ))+13) ) : (* (( (ptr) (* ( ( (ptr) gf_c42040)+248)/* var_c39192 */ ))+5) ) ) ; var_c39224 = (word) ( *( (fPt) ((* (ptr) pd93 ))))(tabrep_v18892.f1, (word) (( (bPt) &var_c42008)+20)/* var_c39128 */ , pd93) ; }; }; } else { }; }; }; }; } static word EachPair_P6756(key_v30604, val_v30632, formal_c42072) word key_v30604; word val_v30632; word formal_c42072; { word quit_v30676; formal_c42072 = (formal_c42072 - 20); /* EachPair: */ SOURCE(20286, 42) SOURCE(20286, 42) quit_v30676 = 0; SOURCE(20330, 16) { word pd94; pd94 = (* (( (ptr) formal_c42072)+4) ); (void) ( *( (fPt) ((* (ptr) pd94 ))))(val_v30632, pd94); }; SOURCE(20286, 42) return(quit_v30676); } static void EmptyInterfaces_P3000(config_v11656) word config_v11656; { register ptr gf_c42104 = (ptr) &globalframe; /* EmptyInterfaces: */ SOURCE(20470, 151) SOURCE(20522, 99) { word var_c39288; var_c39288 = (* (ptr) (* (( (ptr) config_v11656)+6) ) ); if ((var_c39288 == 0)) { SOURCE(20572, 15) (* (( (ptr) (* (( (ptr) config_v11656)+6) ))+1) ) = 0; } else { if ((var_c39288 == 1)) { SOURCE(20599, 22) { word pd95; pd95 = (* (( (ptr) (* (( (ptr) gf_c42104)+246)/* var_c35192 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd95 ))))((* ((( (ptr) (* (( (ptr) config_v11656)+6) ))+1)) ), pd95); }; } else { }; }; }; } static word KeyMatch_P3060(k1_v11716, k2_v11744) W2 k1_v11716; W2 k2_v11744; { word var_c11788; word dummy_v18980 = 1; /* KeyMatch: */ SOURCE(20644, 234) SOURCE(20722, 48) if (( (int)(word) strcmp(k1_v11716.f0, k2_v11744.f0) != (int)0)) { SOURCE(20757, 13) return(0); }; SOURCE(20772, 81) if ((k1_v11716.f1 == 0) || (k2_v11744.f1 == 0)) { SOURCE(20841, 12) return(1); }; SOURCE(20855, 23) return((k1_v11716.f1 == k2_v11744.f1)); } extern void XR_PushRename() { /* PushRename: */ } extern void XR_PopRename() { /* PopRename: */ } extern void XR_DeclareGlobalFrame(name_v12012, frame_v12040, type_v12068, main_v12096) word name_v12012; word frame_v12040; word type_v12068; word main_v12096; { register ptr gf_c42136 = (ptr) &globalframe; /* DeclareGlobalFrame: */ SOURCE(21090, 605) SOURCE(21206, 78) if ( ( ((* (( (ptr) gf_c42136)+28)/* currentConfig_v3448 */ ) == (* (( (ptr) gf_c42136)+37)/* globalConfig_v3700 */ )) ? ((* ( ( (ptr) gf_c42136)+29)/* currentProgram_v3476 */ ) != 0) : 0 ) ) { SOURCE(21264, 20) (void) XR_CommitInstallation(); }; SOURCE(21333, 364) { word program_v19024; SOURCE(21335, 89) program_v19024 = XR_NewObject(28, (* (( (ptr) gf_c42136)+45) )); (* (ptr) program_v19024 ) = name_v12012; (* (( (ptr) program_v19024)+1) ) = frame_v12040; (* (( (ptr) program_v19024)+2) ) = type_v12068; (* (( (ptr) program_v19024)+3) ) = XR_CheckProc(main_v12096); (* (( (ptr) program_v19024)+4) ) = (* (( (ptr) gf_c42136)+28)/* currentConfig_v3448 */ ); SOURCE(21426, 207) if (((* (( (ptr) gf_c42136)+28)/* currentConfig_v3448 */ ) == (* (( (ptr) gf_c42136)+37)/* globalConfig_v3700 */ ))) { SOURCE(21461, 99) { word var_c39352; var_c39352 = XR_NewObject(12, (* (( (ptr) gf_c42136)+53) )); (* (( (ptr) var_c39352)+1) ) = program_v19024; (* (( (ptr) var_c39352)+2) ) = (* (( (ptr) (* (( (ptr) gf_c42136)+26)/* uncommittedGlobalConfig_v3392 */ ))+4) ); (* (( (ptr) (* (( (ptr) gf_c42136)+26)/* uncommittedGlobalConfig_v3392 */ ))+4) ) = var_c39352; }; } else { SOURCE(21560, 73) { word var_c39384; var_c39384 = XR_NewObject(12, (* (( (ptr) gf_c42136)+53) )); (* (( (ptr) var_c39384)+1) ) = program_v19024; (* (( (ptr) var_c39384)+2) ) = (* (( (ptr) (* (( (ptr) gf_c42136)+28)/* currentConfig_v3448 */ ))+4) ); (* (( (ptr) (* (( (ptr) gf_c42136)+28)/* currentConfig_v3448 */ ))+4) ) = var_c39384; }; }; SOURCE(21635, 34) { word var_c39416; var_c39416 = XR_NewObject(8, (* (( (ptr) gf_c42136)+79) )); (* (ptr) var_c39416 ) = program_v19024; (* (( (ptr) var_c39416)+1) ) = (* (( (ptr) gf_c42136)+36)/* programs_v3672 */ ); (* (( (ptr) gf_c42136)+36)/* programs_v3672 */ ) = var_c39416; }; SOURCE(21671, 24) (* (( (ptr) gf_c42136)+29)/* currentProgram_v3476 */ ) = program_v19024; }; } static word ProgramFromFrame_P3300(frame_v12172) word frame_v12172; { register ptr gf_c42168 = (ptr) &globalframe; word var_c12216; word dummy_v19068 = 1; /* ProgramFromFrame: */ SOURCE(21704, 219) SOURCE(21799, 102) { register word l_v19112; l_v19112 = (* (( (ptr) gf_c42168)+36)/* programs_v3672 */ ); lab_L100089: ; if ((l_v19112 != 0)) { } else { goto lab_L100086; }; SOURCE(21856, 45) if (((* (( (ptr) (* (ptr) l_v19112 ))+1) ) == frame_v12172)) { SOURCE(21886, 15) return((* (ptr) l_v19112 )); }; l_v19112 = (* (( (ptr) l_v19112)+1) ); goto lab_L100089; lab_L100086: ; }; SOURCE(21912, 11) return(0); } static void DoStartConfig_P3360(config_v12276) word config_v12276; { word dummy_v19240 = 1; /* DoStartConfig: */ SOURCE(21929, 317) SOURCE(21987, 21) (* (( (ptr) config_v12276)+7) ) = 1; SOURCE(22010, 236) { register word l_v19284; l_v19284 = (* (( (ptr) config_v12276)+2) ); lab_L100093: ; if ((l_v19284 != 0)) { } else { goto lab_L100090; }; SOURCE(22090, 156) { W2 var_c39448; var_c39448 = (* (W2Pt) l_v19284 ); { word var_c39480; var_c39480 = var_c39448.f0; if ((var_c39480 == 1)) { { W2 config_v19328; config_v19328 = var_c39448; SOURCE(22149, 28) (void) DoStartConfig_P3360(config_v19328.f1); }; } else { if ((var_c39480 == 0)) { { W2 program_v19372; program_v19372 = var_c39448; SOURCE(22215, 31) (void) DoStartProgram_P3420(program_v19372.f1); }; } else { SOURCE(22259, 5) (void) XR_RaiseUnnamedError(); }; }; }; }; l_v19284 = (* (( (ptr) l_v19284)+2) ); goto lab_L100093; lab_L100090: ; }; } static void DoStartProgram_P3420(program_v12336) word program_v12336; { register ptr gf_c42200 = (ptr) &globalframe; word startedInstallationScopes_v19416; /* DoStartProgram: */ SOURCE(22279, 330) SOURCE(22323, 59) startedInstallationScopes_v19416 = (* (( (ptr) gf_c42200)+9)/* installationScopesStarted_v3196 */ ); SOURCE(22384, 30) if ((0 != (* (( (ptr) program_v12336)+6) ))) { SOURCE(22408, 6) return; }; SOURCE(22416, 193) if ((0 != (word) FixStartTraps_P3540(program_v12336))) { SOURCE(22449, 14) { word pd96; pd96 = (* (( (ptr) program_v12336)+3) ); (void) ( *( (fPt) ((* (ptr) pd96 ))))(pd96); }; SOURCE(22465, 81) startedInstallationScopes_v19416 = (startedInstallationScopes_v19416 != (* (( (ptr) gf_c42200)+9)/* installationScopesStarted_v3196 */ )); SOURCE(22548, 61) if ((0 != startedInstallationScopes_v19416)) { SOURCE(22582, 27) { word var_c39512; var_c39512 = (word) FixStartTraps_P3540(program_v12336); }; }; }; } static word ListStartOrder_P3480() { register ptr gf_c42232 = (ptr) &globalframe; word list_v12480; /* ListStartOrder: */ SOURCE(22653, 203) SOURCE(22653, 203) list_v12480 = 0; SOURCE(22731, 125) { register word tail_v19460; tail_v19460 = (* (( (ptr) gf_c42232)+41)/* startOrder_v5576 */ ); lab_L100097: ; if ((tail_v19460 != 0)) { } else { goto lab_L100094; }; SOURCE(22801, 55) { word var_c39544; word var_c39608; { W2 var_c39576; var_c39576.f0 = 0; var_c39576.f1 = (* (ptr) tail_v19460 ); var_c39544 = (word) QualifiedName_P4440(var_c39576); }; var_c39608 = XR_NewObject(8, (* (( (ptr) gf_c42232)+80) )); (* (ptr) var_c39608 ) = var_c39544; (* (( (ptr) var_c39608)+1) ) = list_v12480; list_v12480 = var_c39608; }; tail_v19460 = (* (( (ptr) tail_v19460)+1) ); goto lab_L100097; lab_L100094: ; }; SOURCE(22653, 203) return(list_v12480); } static word FixStartTraps_P3540(program_v12624) word program_v12624; { register ptr gf_c42264 = (ptr) &globalframe; word doStart_v12668; /* FixStartTraps: */ SOURCE(22871, 619) (void) (XR_MonitorEntry((word) (( (bPt) gf_c42264)+16)/* LOCK_v2832 */ )); SOURCE(22944, 29) doStart_v12668 = (0 == (* (( (ptr) program_v12624)+6) )); SOURCE(22975, 22) (* (( (ptr) program_v12624)+6) ) = 1; SOURCE(23000, 415) { register word l_v19588; l_v19588 = (* (( (ptr) program_v12624)+5) ); lab_L100101: ; if ((l_v19588 != 0)) { } else { goto lab_L100098; }; { word int_v19716; word item_v19744; word var_c39640; word var_c0615; SOURCE(23069, 34) int_v19716 = (* (ptr) l_v19588 ); SOURCE(23105, 25) item_v19744 = (* (( (ptr) l_v19588)+1) ); SOURCE(23134, 281) { word limit97; var_c39640 = (* (( (ptr) int_v19716)+2) ); var_c0615 = (* (( (W3Pt) (( (ptr) var_c39640)+3))+( limit97 = (* (( (ptr) var_c39640)+2) ), BCK(item_v19744, limit97) )) ).f0; }; if ((var_c0615 == 2)) { SOURCE(23190, 230) { word t_v19788; word trapInfo_v19816; SOURCE(23192, 56) { word limit98; t_v19788 = (* ((( (ptr) int_v19716)+4)+( limit98 = (* (( (ptr) int_v19716)+3) ), BCK(item_v19744, limit98) )) ); }; SOURCE(23250, 66) trapInfo_v19816 = XR_Narrow((* (( (ptr) t_v19788)+1) ), (* (( (ptr) gf_c42264)+75) )); SOURCE(23318, 97) if (((* (( (ptr) trapInfo_v19816)+2) ) == program_v12624)) { { word var_c39672; SOURCE(23356, 22) (* (W2Pt) t_v19788 ) = (* (W2Pt) trapInfo_v19816 ); SOURCE(23380, 35) { word limit99; var_c39672 = (* (( (ptr) int_v19716)+2) ); (* (( (W3Pt) (( (ptr) var_c39672)+3))+( /*1*/ limit99 = (* (( (ptr) var_c39672)+2) ), /*1*/ BCK(item_v19744, limit99) /*1*/ )) ).f0 = 3; }; }; }; }; }; }; l_v19588 = (* (( (ptr) l_v19588)+2) ); goto lab_L100101; lab_L100098: ; }; SOURCE(23436, 54) if ((0 != doStart_v12668)) { SOURCE(23452, 38) { word var_c39704; var_c39704 = XR_NewObject(8, (* (( (ptr) gf_c42264)+79) )); (* (ptr) var_c39704 ) = program_v12624; (* (( (ptr) var_c39704)+1) ) = (* (( (ptr) gf_c42264)+41)/* startOrder_v5576 */ ); (* (( (ptr) gf_c42264)+41)/* startOrder_v5576 */ ) = var_c39704; }; }; SOURCE(22871, 619) (void) (XR_MonitorExit((word) (( (bPt) gf_c42264)+16)/* LOCK_v2832 */ )); return(doStart_v12668); } extern void XR_StartCedarModule(config_v12728) word config_v12728; { register ptr gf_c42296 = (ptr) &globalframe; /* EnsureConfigStarted: */ SOURCE(23497, 275) SOURCE(23567, 25) if ((config_v12728 == 0)) { SOURCE(23586, 6) return; }; SOURCE(23594, 29) if ((0 != (* (( (ptr) config_v12728)+7) ))) { SOURCE(23617, 6) return; }; SOURCE(23625, 124) if ((0 != (* (( (ptr) gf_c42296)+10)/* cedarCoreStarted_v3224 */ ))) { SOURCE(23652, 34) (void) XR_StartCedarModule((* (ptr) (config_v12728) )); SOURCE(23688, 29) if ((0 != (* (( (ptr) config_v12728)+7) ))) { SOURCE(23711, 6) return; }; } else { SOURCE(23726, 23) (* (( (ptr) gf_c42296)+10)/* cedarCoreStarted_v3224 */ ) = 1; }; SOURCE(23751, 21) (void) DoStartConfig_P3360(config_v12728); } extern void XR_Start(frame_v12788) word frame_v12788; { register ptr gf_c42328 = (ptr) &globalframe; /* StartFrame: */ SOURCE(23778, 260) SOURCE(23834, 24) if ((frame_v12788 == 0)) { SOURCE(23852, 6) return; }; SOURCE(23860, 180) { word program_v19896; SOURCE(23862, 42) program_v19896 = (word) ProgramFromFrame_P3300(frame_v12788); SOURCE(23906, 48) if ((program_v19896 == 0)) { SOURCE(23926, 28) { word var_c0454; var_c0454 = frame_v12788; (void) XR_RaiseError((word) (( (bPt) gf_c42328)+336)/* var_c32472 */ , (word) &var_c0454); }; }; SOURCE(23956, 59) if ((0 != (* (( (ptr) program_v19896)+6) ))) { SOURCE(23980, 35) { word var_c0455; var_c0455 = program_v19896; (void) XR_RaiseError((* (( (ptr) gf_c42328)+38)/* StartFault_v4092 */ ), (word) &var_c0455); }; }; SOURCE(24017, 21) (void) StartProgram_P3960(program_v19896); }; } extern void XR_StartModule(args_v12848, frame_v12876, rets_v12904) word args_v12848; word frame_v12876; word rets_v12904; { /* StartModule: */ SOURCE(24047, 110) SOURCE(24140, 17) (void) XR_Start(frame_v12876); } static word ListStartTraps_P3780() { register ptr gf_c42360 = (ptr) &globalframe; word list_v13072; /* ListStartTraps: */ SOURCE(24200, 205) SOURCE(24200, 205) list_v13072 = 0; SOURCE(24278, 127) { register word tail_v19940; tail_v19940 = (* (( (ptr) gf_c42360)+42)/* startTrapped_v5744 */ ); lab_L100105: ; if ((tail_v19940 != 0)) { } else { goto lab_L100102; }; SOURCE(24350, 55) { word var_c39736; word var_c39800; { W2 var_c39768; var_c39768.f0 = 0; var_c39768.f1 = (* (ptr) tail_v19940 ); var_c39736 = (word) QualifiedName_P4440(var_c39768); }; var_c39800 = XR_NewObject(8, (* (( (ptr) gf_c42360)+80) )); (* (ptr) var_c39800 ) = var_c39736; (* (( (ptr) var_c39800)+1) ) = list_v13072; list_v13072 = var_c39800; }; tail_v19940 = (* (( (ptr) tail_v19940)+1) ); goto lab_L100105; lab_L100102: ; }; SOURCE(24200, 205) return(list_v13072); } static void LogStartTrap_P3840(program_v13216) word program_v13216; { register ptr gf_c42392 = (ptr) &globalframe; /* LogStartTrap: */ SOURCE(24420, 90) (void) (XR_MonitorEntry((word) (( (bPt) gf_c42392)+16)/* LOCK_v2832 */ )); SOURCE(24468, 42) { word var_c39832; var_c39832 = XR_NewObject(8, (* (( (ptr) gf_c42392)+79) )); (* (ptr) var_c39832 ) = program_v13216; (* (( (ptr) var_c39832)+1) ) = (* (( (ptr) gf_c42392)+42)/* startTrapped_v5744 */ ); (* (( (ptr) gf_c42392)+42)/* startTrapped_v5744 */ ) = var_c39832; }; SOURCE(24420, 90) (void) (XR_MonitorExit((word) (( (bPt) gf_c42392)+16)/* LOCK_v2832 */ )); return; } extern void XR_StartProgram(program_v13276) word program_v13276; { /* XRStartProgram: */ SOURCE(24516, 107) SOURCE(24579, 21) (void) LogStartTrap_P3840(program_v13276); SOURCE(24602, 21) (void) StartProgram_P3960(program_v13276); } static void StartProgram_P3960(program_v13336) word program_v13336; { register ptr gf_c42424 = (ptr) &globalframe; /* StartProgram: */ SOURCE(24629, 307) SOURCE(24690, 148) if ( ( ((* (( (ptr) gf_c42424)+28)/* currentConfig_v3448 */ ) == (* (( (ptr) gf_c42424)+37)/* globalConfig_v3700 */ )) ? ((* ( ( (ptr) gf_c42424)+29)/* currentProgram_v3476 */ ) != 0) : 0 ) ) { SOURCE(24796, 20) (void) XR_CommitInstallation(); SOURCE(24818, 20) (* (( (ptr) gf_c42424)+29)/* currentProgram_v3476 */ ) = 0; }; SOURCE(24844, 35) (void) XR_StartCedarModule((* ((( (ptr) program_v13336)+4)) )); SOURCE(24881, 30) if ((0 != (* (( (ptr) program_v13336)+6) ))) { SOURCE(24905, 6) return; }; SOURCE(24913, 23) (void) DoStartProgram_P3420(program_v13336); } extern word XR_FirstControl() { register ptr gf_c42456 = (ptr) &globalframe; word var_c13396; word dummy_v20068 = 1; /* FirstControl: */ SOURCE(24942, 112) SOURCE(25033, 21) return((* (( (ptr) gf_c42456)+28)/* currentConfig_v3448 */ )); } static void AddToCM_P4080(item_v13456) W2 item_v13456; { register ptr gf_c42488 = (ptr) &globalframe; word dummy_v20112 = 1; /* AddToCM: */ SOURCE(25060, 372) SOURCE(25132, 300) if (((* (( (ptr) (* (( (ptr) gf_c42488)+28)/* currentConfig_v3448 */ ))+2) ) == 0)) { SOURCE(25182, 46) { word var_c39864; word var_c39896; var_c39864 = XR_NewObject(12, (* (( (ptr) gf_c42488)+53) )); var_c39896 = var_c39864; (* (W2Pt) var_c39896 ) = item_v13456; (* (( (ptr) (* (( (ptr) gf_c42488)+28)/* currentConfig_v3448 */ ))+2) ) = var_c39864; }; SOURCE(25230, 69) (* (( (ptr) (* (( (ptr) gf_c42488)+28)/* currentConfig_v3448 */ ))+3) ) = (* (( (ptr) (* (( (ptr) gf_c42488)+28)/* currentConfig_v3448 */ ))+2) ); } else { SOURCE(25308, 50) { word var_c39928; word var_c39960; var_c39928 = XR_NewObject(12, (* (( (ptr) gf_c42488)+53) )); var_c39960 = var_c39928; (* (W2Pt) var_c39960 ) = item_v13456; (* (( (ptr) (* (( (ptr) (* (( (ptr) gf_c42488)+28)/* currentConfig_v3448 */ ))+3) ))+2) ) = var_c39928; }; SOURCE(25360, 72) (* (( (ptr) (* (( (ptr) gf_c42488)+28)/* currentConfig_v3448 */ ))+3) ) = (* (( (ptr) (* (( (ptr) (* (( (ptr) gf_c42488)+28) /* currentConfig_v3448 */ ))+3) ))+2) ); }; } extern void XR_AddControl(name_v13516) word name_v13516; { register ptr gf_c42520 = (ptr) &globalframe; word itemName_v20156 = 0; /* AddControl: */ SOURCE(25441, 369) SOURCE(25515, 295) { register word l_v20200; l_v20200 = (* (( (ptr) (* (( (ptr) gf_c42520)+28)/* currentConfig_v3448 */ ))+4) ); lab_L100109: ; if ((l_v20200 != 0)) { } else { goto lab_L100106; }; SOURCE(25591, 157) { W2 var_c39992; var_c39992 = (* (W2Pt) l_v20200 ); { word var_c40024; var_c40024 = var_c39992.f0; if ((var_c40024 == 0)) { { W2 program_v20244; program_v20244 = var_c39992; SOURCE(25652, 31) itemName_v20156 = (* (ptr) program_v20244.f1 ); }; } else { if ((var_c40024 == 1)) { { W2 config_v20288; config_v20288 = var_c39992; SOURCE(25719, 29) itemName_v20156 = (* (( (ptr) config_v20288.f1)+1) ); }; } else { }; }; }; }; SOURCE(25759, 51) if (( (int)(word) strcmp(itemName_v20156, name_v13516) == (int)0)) { SOURCE(25794, 16) (void) AddToCM_P4080((* (W2Pt) (l_v20200) )); SOURCE(25812, 5) goto lab_L100107; }; l_v20200 = (* (( (ptr) l_v20200)+2) ); goto lab_L100109; lab_L100106: ; lab_L100107: ; }; } extern void XR_RaiseUnbound(p_v13576) word p_v13576; { register ptr gf_c42552 = (ptr) &globalframe; word newProc_v20332; word r_v20360; /* RaiseUnbound: */ SOURCE(25833, 236) SOURCE(25909, 76) { word var_c0485; var_c0485 = p_v13576; { word var_c0486; (void) (XR_RaiseSignal((* (( (ptr) (* (( (ptr) gf_c42552)+245)/* var_c35096 */ ))+20) ), (word) &var_c0486, (word) &var_c0485) ); newProc_v20332 = var_c0486; }; }; SOURCE(25987, 43) r_v20360 = p_v13576; SOURCE(26032, 37) (* (W2Pt) r_v20360 ) = (* (W2Pt) newProc_v20332 ); } extern word XR_IsBound(p_v13656) word p_v13656; { word var_c13716; word t_v20432; /* IsBound: */ SOURCE(26075, 186) SOURCE(26155, 21) t_v20432 = p_v13656; SOURCE(26178, 27) if ((t_v20432 == 0)) { SOURCE(26192, 13) return(0); }; SOURCE(26207, 40) if (((* (( (ptr) t_v20432)+1) ) == 2)) { SOURCE(26234, 13) return(0); }; SOURCE(26249, 12) return(1); } extern void XR_Unload(config_v13776) word config_v13776; { /* Unload: */ SOURCE(26267, 14) SOURCE(26325, 5) (void) XR_RaiseUnnamedError(); } static void CedarCoreReport_P4380(problem_v25856) W6 problem_v25856; { register ptr gf_c42584 = (ptr) &globalframe; /* CedarCoreReport: */ SOURCE(26336, 80) SOURCE(26368, 48) { word var_c40056; var_c40056 = XR_NewObject(28, (* (( (ptr) gf_c42584)+82) )); (* (W6Pt) var_c40056 ) = problem_v25856; (* (( (ptr) var_c40056)+6) ) = (* (( (ptr) gf_c42584)+11)/* cedarCoreErrors_v3252 */ ); (* (( (ptr) gf_c42584)+11)/* cedarCoreErrors_v3252 */ ) = var_c40056; }; } static word QualifiedName_P4440(pc_v13836) W2 pc_v13836; { register ptr gf_c42616 = (ptr) &globalframe; word var_c13880; /* QualifiedName: */ SOURCE(26422, 485) SOURCE(26509, 398) { W2 var_c40088; var_c40088 = pc_v13836; { word var_c40440; var_c40440 = var_c40088.f0; if ((var_c40440 == 0)) { { W2 p_v20476; p_v20476 = var_c40088; SOURCE(26575, 96) { W2 var_c40184; word var_c40152; word var_c40216; var_c40184.f0 = 1; var_c40184.f1 = (* (( (ptr) p_v20476.f1)+4) ); var_c40152 = (word) QualifiedName_P4440(var_c40184); { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c42616)+247)/* var_c35416 */ ))+7) ); var_c40216 = (word) ( *( (fPt) ((* (ptr) pd100 ))))((* (ptr) p_v20476.f1 ), 2147483647, pd100); }; { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c42616)+249)/* var_c40248 */ ))+6) ); return((word) ( *( (fPt) ((* (ptr) pd101 ))))(var_c40152, var_c40216, pd101)); }; }; }; } else { if ((var_c40440 == 1)) { { W2 c_v20520; c_v20520 = var_c40088; SOURCE(26721, 159) if ((c_v20520.f1 == (* (( (ptr) gf_c42616)+37)/* globalConfig_v3700 */ ))) { SOURCE(26751, 18) return(0); } else { SOURCE(26769, 111) { W2 var_c40344; word var_c40312; word var_c40376; word var_c40408; var_c40344.f0 = 1; var_c40344.f1 = (* (ptr) c_v20520.f1 ); var_c40312 = (word) QualifiedName_P4440(var_c40344); { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf_c42616)+247)/* var_c35416 */ ))+7) ); var_c40376 = (word) ( *( (fPt) ((* (ptr) pd102 ))))((* (( (ptr) c_v20520.f1)+1) ), 2147483647, pd102); }; { word pd103; pd103 = (* (( (ptr) (* (( (ptr) gf_c42616)+249)/* var_c40248 */ ))+37) ); var_c40408 = (word) ( *( (fPt) ((* (ptr) pd103 ))))(46, pd103); }; { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c42616)+249)/* var_c40248 */ ))+5) ); return((word) ( *( (fPt) ((* (ptr) pd104 ))))(var_c40312, var_c40376, var_c40408, 0, 0, pd104)); }; }; }; }; } else { SOURCE(26896, 11) return(0); }; }; }; }; } static word ProgramListFromName_P4500(name_v13940, optionalList_v13968) word name_v13940; word optionalList_v13968; { register ptr gf_c42648 = (ptr) &globalframe; word var_c14096; word makeCopy_v20564; word copy_v20592 = 0; word copyTail_v20620 = 0; word cName_v20648; word start_v20676; /* ProgramListFromName: */ SOURCE(26913, 574) SOURCE(27029, 35) makeCopy_v20564 = (optionalList_v13968 == 0); SOURCE(27105, 39) { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c42648)+247)/* var_c35416 */ ))+5) ); cName_v20648 = (word) ( *( (fPt) ((* (ptr) pd105 ))))(name_v13940, pd105); }; SOURCE(27146, 7) start_v20676 = (* (( (ptr) gf_c42648)+36)/* programs_v3672 */ ); SOURCE(27181, 174) if ((optionalList_v13968 != 0)) { SOURCE(27210, 83) if (( (int)(word) strcmp(cName_v20648, (* (ptr) (* (ptr) optionalList_v13968 ) )) == (int)0)) { SOURCE(27261, 32) optionalList_v13968 = (* (( (ptr) optionalList_v13968)+1) ); }; SOURCE(27295, 38) if ((optionalList_v13968 == 0)) { SOURCE(27322, 11) return(0); }; SOURCE(27335, 20) start_v20676 = optionalList_v13968; }; SOURCE(27360, 105) { register word p_v20888; p_v20888 = start_v20676; lab_L100113: ; if ((p_v20888 != 0)) { } else { goto lab_L100110; }; SOURCE(27416, 49) if (( (int)(word) strcmp(cName_v20648, (* (ptr) (* (ptr) p_v20888 ) )) == (int)0)) { SOURCE(27456, 9) return(p_v20888); }; p_v20888 = (* (( (ptr) p_v20888)+1) ); goto lab_L100113; lab_L100110: ; }; SOURCE(27476, 11) return(0); } static void ConvertToRefTab_P4560() { register ptr gf_c42680 = (ptr) &globalframe; /* ConvertToRefTab: */ SOURCE(27493, 490) SOURCE(27522, 22) (void) TakeInstallationLock_P780(); SOURCE(27546, 20) (void) TakeInspectionLock_P900(); SOURCE(27568, 349) { W2 var_c40472; var_c40472 = (* (W2Pt) (* (( (ptr) (* (( (ptr) gf_c42680)+37)/* globalConfig_v3700 */ ))+6) ) ); if ((var_c40472.f0 == 0)) { { W2 elist_v21016; elist_v21016 = var_c40472; SOURCE(27636, 283) { word lsave_v21060; word tab_v21088; SOURCE(27638, 7) lsave_v21060 = elist_v21016.f1; SOURCE(27677, 73) { word pd106; pd106 = (* (( (ptr) (* (( (ptr) gf_c42680)+246)/* var_c35192 */ ))+5) ); tab_v21088 = (word) ( *( (fPt) ((* (ptr) pd106 ))))(17, (word) (( (bPt) gf_c42680)+756)/* var_c34168 */ , (word) (( (bPt) gf_c42680)+748) /* var_c34136 */ , pd106); }; SOURCE(27752, 97) { register word l_v21216; l_v21216 = lsave_v21060; lab_L100117: ; if ((l_v21216 != 0)) { } else { goto lab_L100114; }; SOURCE(27808, 41) { word var_c40504; word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c42680)+246)/* var_c35192 */ ))+10) ); var_c40504 = (word) ( *( (fPt) ((* (ptr) pd107 ))))(tab_v21088, (* (ptr) l_v21216 ), (* (ptr) l_v21216 ), pd107); }; l_v21216 = (* (( (ptr) l_v21216)+1) ); goto lab_L100117; lab_L100114: ; }; SOURCE(27860, 57) { word var_c40536; var_c40536 = XR_NewObject(8, (* (( (ptr) gf_c42680)+51) )); (* (ptr) var_c40536 ) = 1; (* (( (ptr) var_c40536)+1) ) = tab_v21088; (* (( (ptr) (* (( (ptr) gf_c42680)+37)/* globalConfig_v3700 */ ))+6) ) = var_c40536; }; }; }; } else { }; }; SOURCE(27939, 22) (void) GiveInstallationLock_P840(); SOURCE(27963, 20) (void) GiveInspectionLock_P960(); } static void PutCedarCoreProblems_P4620() { /* PutCedarCoreProblems: */ } extern void XR_VerboseCommit() { W7 var_c42712; /* declaration of var_c40568 skipped */ /* declaration of problems_v21344 skipped */ /* VerboseCommit: */ SOURCE(28038, 215) { word tmpAddr108; tmpAddr108 = (word) (( (ptr) &var_c42712)+4)/* var_c40568 */ ; (* (ptr) tmpAddr108 ) = ( ((word) (fPt) RecordProblems_P7776) ); (* (( (ptr) tmpAddr108) + 1) ) = 1; }; SOURCE(28096, 30) var_c42712.f6/* problems_v21344 */ = 0; SOURCE(28198, 33) (void) CheckInstallation_P1080((word) ((( (bPt) &var_c42712)+16)/* var_c40568 */ )); SOURCE(28233, 20) (void) XR_CommitInstallation(); } static void RecordProblems_P7776(problem_v32360, formal_c42776) W6 problem_v32360; word formal_c42776; { register ptr gf_c42744 = (ptr) &globalframe; formal_c42776 = (formal_c42776 - 16); /* RecordProblems: */ SOURCE(28128, 65) SOURCE(28159, 34) { word var_c40600; var_c40600 = XR_NewObject(28, (* (( (ptr) gf_c42744)+82) )); (* (W6Pt) var_c40600 ) = problem_v32360; (* (( (ptr) var_c40600)+6) ) = (* (( (ptr) formal_c42776)+6) ); (* (( (ptr) formal_c42776)+6) ) = var_c40600; }; } static void EnableAborts_P4740(pCondition_v14288) word pCondition_v14288; { /* EnableAborts: */ SOURCE(28259, 174) SOURCE(28417, 16) (void) XR_EnableAborts(pCondition_v14288); } static void NoName_Q8016(formal_c0532, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0532; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0602 = (ptr) &globalframe; if ((formal_c200005 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0602)+16)/* LOCK_v2832 */ )); }; (* (ptr) formal_c0532 ) = 0; (* (( (ptr) formal_c0532)+1) ) = 0; return; } static void NoName_Q8076(formal_c0537, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0537; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0603 = (ptr) &globalframe; if ((formal_c200001 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0603)+16)/* LOCK_v2832 */ )); }; (* (ptr) formal_c0537 ) = 0; (* (( (ptr) formal_c0537)+1) ) = 0; return; } /* file: InstallationScopesImpl, module: InstallationScopesImpl, compiled at: January 18, 1993 1:40:16 pm PST */ extern void XR_install_InstallationScopesImpl() { XR_FillWords(&dummy54, 3, 0); NoName_Q7836(); } extern void XR_run_InstallationScopesImpl() { XR_Start(&globalframe); }