/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: March 3, 1992 1:09:41 pm PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: AtomImpl, module: AtomImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [3077843471,1975398675] AtomImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {word f0, f1, f2;} W3; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; #define SOURCE(p, l) /* source p, l */ #define NCK(p) ( (void) p) #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) static void NoName_Q2736(); static void AtomImpl_P0(); static word NewAtom_P60(); static word GetPName_P120(); static void SetLink_P240(); static word GetPropList_P300(); static void SetPropList_P360(); static word EmptyAtom_P420(); static word MakeAtom_P480(); static word NoName_Q2796(); static word UnsafeMakeAtom_P540(); static word NoName_Q2856(); static word UnsafeMakeAtomFromString_P600(); static word MakeAtomFromChar_P660(); static word MakeAtomFromChars_P720(); static word MakeAtomFromRefText_P780(); static word GetPropertyList_P840(); static word NoName_Q2916(); static void PutProp_P900(); static word NoName_Q2976(); static word PutPropOnList_P960(); static word NoName_Q3036(); static word PutPropInternal_P1020(); static word GetProp_P1080(); static word NoName_Q3096(); static word GetPropFromList_P1140(); static word NoName_Q3156(); static void RemProp_P1200(); static word NoName_Q3216(); static word RemPropFromList_P1260(); static word NoName_Q3276(); static word RemPropInternal_P1320(); static void MapAtoms_P1380(); static word FindAtom_P1440(); static word Next_P1500(); static word NoName_Q3336(); static void LookUpAtom_P1560(); static void InsertAtom_P1620(); static void Crash_P1740(); static void NoName_Q3396(); static void NoName_Q3456(); static void NoName_Q3516(); static void NoName_Q3576(); static void NoName_Q3636(); static void NoName_Q3696(); static void NoName_Q3756(); static void NoName_Q3816(); static void NoName_Q3876(); static void NoName_Q3936(); static struct {unsigned f; char r[12];} string1 = {524300, "\205\210\242\000\117\374\216\251\000\000\000"}; static struct {unsigned f; char r[8];} string2 = {393222, "\010\000\004O\375\001\000"}; static struct {unsigned f; char r[4];} string3 = {65540, "\251\000\000"}; static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"}; static struct {unsigned f; char r[24];} string5 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"}; static struct {unsigned f; char r[48];} string6 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\055\153\222\376\300\327\164\352\142\100\200\005\004\162\145\163\164\214\216\257\300\055\153\222\376\300\327\164\352\142\100\200\261\000\000\000"}; static struct {unsigned f; char r[4];} string7 = {131074, "\004\003\000"}; static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\200\000\000"}; static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\267\164\052\017\300\165\276\061\023\100\164\000\000"}; static struct {unsigned f; char r[4];} string10 = {196611, "\004N\000"}; static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\070\313\200\317\300\150\067\321\062\100\150\000\000"}; static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"}; static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\374\377\221\350\300\202\044\047\115\100\150\000\000"}; static struct { word f0[26]; word f26; word f27; word f28; word f29; word f30; word f31; word f32; word f33; word f34; word f35; word f36; word f37; word f38; word f39; word f40; word f41; word f42; word f43; word f44; word f45; word f46; word f47; word f48; word f49; word f50; word f51; word f52; word f53; word f54; word f55; word f56; word f57; word f58; word f59; word f60; word f61; word f62; word f63; word f64; word f65; word f66; word f67; word f68; word f69; word f70; word f71; word f72; word f73; word f74; word f75; word f76; word f77; word f78; word f79; word f80; word f81[4]; } globalframe = { {0}, (word) Crash_P1740, 0, (word) InsertAtom_P1620, 0, (word) LookUpAtom_P1560, 0, (word) Next_P1500, 0, (word) FindAtom_P1440, 0, (word) MapAtoms_P1380, 0, (word) RemPropInternal_P1320, 0, (word) RemPropFromList_P1260, 0, (word) RemProp_P1200, 0, (word) GetPropFromList_P1140, 0, (word) GetProp_P1080, 0, (word) PutPropInternal_P1020, 0, (word) PutPropOnList_P960, 0, (word) PutProp_P900, 0, (word) GetPropertyList_P840, 0, (word) MakeAtomFromRefText_P780, 0, (word) MakeAtomFromChars_P720, 0, (word) MakeAtomFromChar_P660, 0, (word) UnsafeMakeAtomFromString_P600, 0, (word) UnsafeMakeAtom_P540, 0, (word) MakeAtom_P480, 0, (word) EmptyAtom_P420, 0, (word) SetPropList_P360, 0, (word) GetPropList_P300, 0, (word) SetLink_P240, 0, (word) GetPName_P120, 0, (word) NewAtom_P60, 0, (word) AtomImpl_P0, {0} }; static void NoName_Q2736() { register ptr gf_c0236 = (ptr) &globalframe; word var_c17408; (* (( (ptr) gf_c0236)+14) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0236)+17) ) = (word) XR_GetTypeIndexS((word) (&string3)); (* (( (ptr) gf_c0236)+18) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5); (* (( (ptr) gf_c0236)+23) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7); (* (( (ptr) gf_c0236)+24) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string7); (void) XR_DeclareGlobalFrame((word) "AtomImpl", &globalframe, (word) XR_GetTypeIndex((word) &string9, 0, (word) &string10) , (word) (( (bPt) gf_c0236)+320)/* var_c16192 */ ); var_c17408 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string11)), 43); (* (( (ptr) gf_c0236)+82)/* var_c16256 */ ) = var_c17408; (void) XR_ImportProcS(var_c17408, 67378177); (void) XR_ImportProcS(var_c17408, 67379457); (void) XR_ImportProcS(var_c17408, 67901955); (void) XR_ImportProcS(var_c17408, 67378689); var_c17408 = (word) XR_ImportInterface((word) "RopeHash", (word) XR_GetTypeIndexS((word) (&string12)), 2); (* (( (ptr) gf_c0236)+83)/* var_c17280 */ ) = var_c17408; (void) XR_ImportProcS(var_c17408, 67633154); var_c17408 = (word) XR_ExportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string13)), 16); (* (( (ptr) gf_c0236)+84)/* var_c17440 */ ) = var_c17408; (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+272)/* var_c16000 */ , 67108864); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+264)/* var_c15968 */ , 67895555); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+240)/* var_c15872 */ , 67371521); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+232)/* var_c15840 */ , 67371777); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+224)/* var_c15808 */ , 67372033); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+304)/* var_c16128 */ , 67372289); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+216)/* var_c15776 */ , 67372545); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+184)/* var_c15648 */ , 67634946); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+176)/* var_c15616 */ , 67635202); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+208)/* var_c15744 */ , 788739); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+200)/* var_c15712 */ , 67897859); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+168)/* var_c15584 */ , 527106); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+160)/* var_c15552 */ , 67636226); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+144)/* var_c15488 */ , 265473); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+136)/* var_c15456 */ , 67374593); (void) XR_ExportVar(var_c17408, 15, (word) (( (bPt) gf_c0236)+100)/* var_c15296 */ ); var_c17408 = (word) XR_ExportInterface((word) "AtomPrivate", (word) XR_GetTypeIndexS((word) (&string14)), 2); (* (( (ptr) gf_c0236)+84)/* var_c17440 */ ) = var_c17408; (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+256)/* var_c15936 */ , 67371009); (void) XR_ExportProcS(var_c17408, (word) (( (bPt) gf_c0236)+248)/* var_c15904 */ , 67371265); } static void AtomImpl_P0(formal_c060, formal_c059) word formal_c060; word formal_c059; { register ptr gf_c17472 = (ptr) &globalframe; /* AtomImpl: */ SOURCE(343, 7778) SOURCE(571, 81) (* (( (ptr) gf_c17472)+8)/* typeOfATOMReferent_v2832 */ ) = (word) XR_GetTypeIndex((word) &string3, 0, 0); SOURCE(975, 57) (* (( (ptr) gf_c17472)+9)/* atomDictionary_v3056 */ ) = XR_NewObject(16372, (* (( (ptr) gf_c17472)+14) )); SOURCE(1071, 38) { word pd15; pd15 = (* (( (ptr) (* (( (ptr) gf_c17472)+82)/* var_c16256 */ ))+34) ); (* (( (ptr) gf_c17472)+10)/* emptyRope_v3112 */ ) = (word) ( *( (fPt) ((* (ptr) pd15 ))))(0, pd15); }; SOURCE(8088, 33) (* (( (ptr) gf_c17472)+11)/* emptyAtom_v3140 */ ) = (word) MakeAtom_P480((* (( (ptr) gf_c17472)+10)/* emptyRope_v3112 */ ), 0, 2147483647) ; } static word NewAtom_P60(pName_v4488) word pName_v4488; { register ptr gf_c17504 = (ptr) &globalframe; word atom_v4548; /* NewAtom: */ SOURCE(1308, 215) SOURCE(1308, 215) atom_v4548 = 0; SOURCE(1360, 98) atom_v4548 = XR_Narrow((word) XR_NewObject(12, (* (( (ptr) gf_c17504)+8)/* typeOfATOMReferent_v2832 */ )), (* (( (ptr) gf_c17504)+17) )); SOURCE(1468, 55) SOURCE(1470, 53) { word var_c16288; { word var_c16320; var_c16320 = XR_Narrow(pName_v4488, (* (( (ptr) gf_c17504)+18) )); if ((var_c16320 == 0)) { goto lab_L100000; }; { word tc16; if (((*(int*)var_c16320<0) == 0)) { tc16 = (word) ((*(( short *)var_c16320 + 1)<0) == 0); } else { tc16 = (word) 0; }; if (tc16) { goto lab_L100000; }; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100000: ; var_c16288 = var_c16320; }; (* (ptr) atom_v4548 ) = var_c16288; (* (( (ptr) atom_v4548)+1) ) = 0; (* (( (ptr) atom_v4548)+2) ) = 0; }; SOURCE(1308, 215) return(atom_v4548); } static word GetPName_P120(atom_v4608) word atom_v4608; { register ptr gf_c17536 = (ptr) &globalframe; word var_c4652; /* GetPName: */ SOURCE(1530, 148) SOURCE(1597, 37) if ((atom_v4608 == 0)) { SOURCE(1616, 18) (void) XR_RaiseError((word) (( (bPt) gf_c17536)+100)/* var_c15296 */ , 0); }; SOURCE(1636, 42) return((* (ptr) atom_v4608 )); } static void SetLink_P240(atom_v4816, link_v4844) word atom_v4816; word link_v4844; { /* SetLink: */ SOURCE(1797, 98) SOURCE(1857, 38) (* (( (ptr) atom_v4816)+2) ) = link_v4844; } static word GetPropList_P300(atom_v4904) word atom_v4904; { word var_c4948; /* GetPropList: */ SOURCE(1901, 115) SOURCE(1971, 45) return((* (( (ptr) atom_v4904)+1) )); } static void SetPropList_P360(atom_v5020, propList_v5048) word atom_v5020; word propList_v5048; { /* SetPropList: */ SOURCE(2020, 119) SOURCE(2092, 47) (* (( (ptr) atom_v5020)+1) ) = propList_v5048; } static word EmptyAtom_P420() { register ptr gf_c17568 = (ptr) &globalframe; word var_c5108; /* EmptyAtom: */ SOURCE(2142, 60) SOURCE(2184, 18) return((* (( (ptr) gf_c17568)+11)/* emptyAtom_v3140 */ )); } static word MakeAtom_P480(formal_c0317, formal_c0318, formal_c0319) word formal_c0317; word formal_c0318; word formal_c0319; { W8 var_c17600; /* declaration of pName_v5168 skipped */ /* declaration of start_v5196 skipped */ /* declaration of len_v5224 skipped */ register ptr gf_c17632 = (ptr) &globalframe; /* declaration of var_c01 skipped */ word var_c5268; var_c17600.f4/* pName_v5168 */ = formal_c0317; var_c17600.f5/* start_v5196 */ = formal_c0318; var_c17600.f6/* len_v5224 */ = formal_c0319; /* MakeAtom: */ SOURCE(2208, 433) (void) (XR_MonitorEntry((word) (( (bPt) gf_c17632)+16)/* LOCK_v2776 */ )); SOURCE(2311, 330) { word var_c02; { word var_c0286; var_c0286 = (word) &var_c17600; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q2796) ), ( ((word) (fPt) NoName_Q3936) ), var_c0286); }; /* removed trivial cond node */ }; return(var_c17600.f7/* var_c01 */ ); } static word NoName_Q2796(formal_c0243) word formal_c0243; { register ptr gf_c0242 = (ptr) &globalframe; SOURCE(2337, 46) { word t_v8112; word this_v8140 = 0; word prev_v8168 = 0; word hash_v8196 = 0; SOURCE(2337, 46) { word pd17; pd17 = (* (( (ptr) (* (( (ptr) gf_c0242)+82)/* var_c16256 */ ))+30) ); t_v8112 = (word) ( *( (fPt) ((* (ptr) pd17 ))))((* (( (ptr) formal_c0243)+4) ), (* (( (ptr) formal_c0243)+5) ), (* (( (ptr) formal_c0243)+6) ), pd17); }; SOURCE(2462, 29) if ((t_v8112 == 0)) { SOURCE(2478, 13) t_v8112 = (* (( (ptr) gf_c0242)+10)/* emptyRope_v3112 */ ); }; SOURCE(2493, 34) { W3 var_c16352; (void) LookUpAtom_P1560((word) &var_c16352, t_v8112); hash_v8196 = var_c16352.f2; prev_v8168 = var_c16352.f1; this_v8140 = var_c16352.f0; }; SOURCE(2529, 93) if ((this_v8140 == 0)) { SOURCE(2550, 24) this_v8140 = (word) NewAtom_P60(t_v8112); SOURCE(2576, 46) (void) InsertAtom_P1620(this_v8140, prev_v8168, hash_v8196); }; SOURCE(2627, 14) (void) (XR_MonitorExit((word) (( (bPt) gf_c0242)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0243)+7) ) = this_v8140; return(1); }; /* c2c skipped dead code */ } static word UnsafeMakeAtom_P540(formal_c0320) word formal_c0320; { W6 var_c17664; /* declaration of pName_v5328 skipped */ register ptr gf_c17696 = (ptr) &globalframe; /* declaration of var_c03 skipped */ word var_c5372; var_c17664.f4/* pName_v5328 */ = formal_c0320; /* UnsafeMakeAtom: */ SOURCE(2645, 592) (void) (XR_MonitorEntry((word) (( (bPt) gf_c17696)+16)/* LOCK_v2776 */ )); SOURCE(2733, 504) { word var_c04; { word var_c0287; var_c0287 = (word) &var_c17664; var_c04 = (word) XR_Enable(( ((word) (fPt) NoName_Q2856) ), ( ((word) (fPt) NoName_Q3876) ), var_c0287); }; /* removed trivial cond node */ }; return(var_c17664.f5/* var_c03 */ ); } static word NoName_Q2856(formal_c0246) word formal_c0246; { register ptr gf_c0245 = (ptr) &globalframe; SOURCE(2759, 16) { word this_v8240 = 0; word prev_v8268 = 0; word hash_v8296; SOURCE(2805, 38) if (((* (( (ptr) formal_c0246)+4) ) == 0)) { SOURCE(2825, 18) { word var_c16384; var_c16384 = (* (( (ptr) gf_c0245)+11)/* emptyAtom_v3140 */ ); (void) (XR_MonitorExit((word) (( (bPt) gf_c0245)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0246)+5) ) = var_c16384; return(1); }; }; SOURCE(2845, 59) { W3 var_c16416; (void) LookUpAtom_P1560((word) &var_c16416, (* (( (ptr) formal_c0246)+4) )); hash_v8296 = var_c16416.f2; prev_v8268 = var_c16416.f1; this_v8240 = var_c16416.f0; }; SOURCE(2906, 312) if ((this_v8240 == 0)) { SOURCE(2925, 295) { word rt_v8340; SOURCE(2927, 42) { word pd18; pd18 = (* (( (ptr) (* (( (ptr) gf_c0245)+82)/* var_c16256 */ ))+34) ); rt_v8340 = (word) ( *( (fPt) ((* (ptr) pd18 ))))((* (hPt) (* (( (ptr) formal_c0246)+4) ) ), pd18); }; SOURCE(2971, 172) (void) Basics_CopyBytes((rt_v8340 + 4), 0, ((* (( (ptr) formal_c0246)+4) ) + 4), 0, (* (hPt) (* (( (ptr) formal_c0246)+4) ) )); SOURCE(3145, 25) this_v8240 = (word) NewAtom_P60(rt_v8340); SOURCE(3172, 46) (void) InsertAtom_P1620(this_v8240, prev_v8268, hash_v8296); }; }; SOURCE(3223, 14) (void) (XR_MonitorExit((word) (( (bPt) gf_c0245)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0246)+5) ) = this_v8240; return(1); }; /* c2c skipped dead code */ } static word UnsafeMakeAtomFromString_P600(pName_v5432) word pName_v5432; { word var_c5476; /* UnsafeMakeAtomFromString: */ SOURCE(3241, 129) SOURCE(3331, 39) return((word) UnsafeMakeAtom_P540(pName_v5432)); } static word MakeAtomFromChar_P660(char_v5536) word char_v5536; { register ptr gf_c17728 = (ptr) &globalframe; word var_c5580; /* MakeAtomFromChar: */ SOURCE(3376, 100) SOURCE(3438, 38) { word var_c16512; { word pd19; pd19 = (* (( (ptr) (* (( (ptr) gf_c17728)+82)/* var_c16256 */ ))+37) ); var_c16512 = (word) ( *( (fPt) ((* (ptr) pd19 ))))(char_v5536, pd19); }; return((word) MakeAtom_P480(var_c16512, 0, 2147483647)); }; } static word MakeAtomFromChars_P720(genChars_v5640) word genChars_v5640; { register ptr gf_c17760 = (ptr) &globalframe; word var_c5804; /* MakeAtomFromChars: */ SOURCE(3482, 124) SOURCE(3563, 43) { word var_c16576; { word pd20; pd20 = (* (( (ptr) (* (( (ptr) gf_c17760)+82)/* var_c16256 */ ))+32) ); var_c16576 = (word) ( *( (fPt) ((* (ptr) pd20 ))))(genChars_v5640, pd20); }; return((word) MakeAtom_P480(var_c16576, 0, 2147483647)); }; } static word MakeAtomFromRefText_P780(rt_v5864) word rt_v5864; { word var_c5920; /* MakeAtomFromRefText: */ SOURCE(3612, 122) SOURCE(3696, 38) return((word) UnsafeMakeAtom_P540(rt_v5864)); } static word GetPropertyList_P840(formal_c0321) word formal_c0321; { W6 var_c17792; /* declaration of atom_v5980 skipped */ register ptr gf_c17824 = (ptr) &globalframe; /* declaration of var_c05 skipped */ word var_c6024; var_c17792.f4/* atom_v5980 */ = formal_c0321; /* GetPropertyList: */ SOURCE(3738, 197) (void) (XR_MonitorEntry((word) (( (bPt) gf_c17824)+16)/* LOCK_v2776 */ )); SOURCE(3738, 197) var_c6024 = 0; SOURCE(3816, 119) { word var_c06; { word var_c0288; var_c0288 = (word) &var_c17792; var_c06 = (word) XR_Enable(( ((word) (fPt) NoName_Q2916) ), ( ((word) (fPt) NoName_Q3816) ), var_c0288); }; if ((var_c06 == 1)) { goto lab_L06; }; }; SOURCE(3738, 197) (void) (XR_MonitorExit((word) (( (bPt) gf_c17824)+16)/* LOCK_v2776 */ )); return(var_c6024); lab_L06: ; return(var_c17792.f5/* var_c05 */ ); } static word NoName_Q2916(formal_c0251) word formal_c0251; { register ptr gf_c0250 = (ptr) &globalframe; SOURCE(3842, 93) if (((* (( (ptr) formal_c0251)+4) ) != 0)) { SOURCE(3861, 74) { word var_c16640; var_c16640 = (word) GetPropList_P300((* ((( (ptr) formal_c0251)+4)) )); if ((var_c16640 == 0)) { goto lab_L100007; }; if (((* (( (ptr) gf_c0250)+23) ) == XR_GetReferentType(var_c16640))) { { word propList_v8384; propList_v8384 = var_c16640; SOURCE(3918, 17) (void) (XR_MonitorExit((word) (( (bPt) gf_c0250)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0251)+5) ) = propList_v8384; return(1); }; } else { lab_L100007: ; }; }; }; return(0); } static void PutProp_P900(formal_c0322, formal_c0323, formal_c0324) word formal_c0322; word formal_c0323; word formal_c0324; { W8 var_c17856; /* declaration of atom_v6084 skipped */ /* declaration of prop_v6112 skipped */ /* declaration of val_v6140 skipped */ register ptr gf_c17888 = (ptr) &globalframe; /* declaration of var_c16672 skipped */ var_c17856.f4/* atom_v6084 */ = formal_c0322; var_c17856.f5/* prop_v6112 */ = formal_c0323; var_c17856.f6/* val_v6140 */ = formal_c0324; /* PutProp: */ SOURCE(3950, 223) (void) (XR_MonitorEntry((word) (( (bPt) gf_c17888)+16)/* LOCK_v2776 */ )); SOURCE(4016, 157) { word var_c07; { word var_c0289; var_c0289 = (word) &var_c17856; var_c07 = (word) XR_Enable(( ((word) (fPt) NoName_Q2976) ), ( ((word) (fPt) NoName_Q3756) ), var_c0289); }; if ((var_c07 == 2)) { goto lab_L100010; }; }; SOURCE(3950, 223) (void) (XR_MonitorExit((word) (( (bPt) gf_c17888)+16)/* LOCK_v2776 */ )); return; /* c2c skipped dead code */ lab_L100010: ; SOURCE(4061, 30) (void) XR_RaiseError(var_c17856.f7/* var_c16672 */ , 0); } static word NoName_Q2976(formal_c0254) word formal_c0254; { register ptr gf_c0253 = (ptr) &globalframe; SOURCE(4042, 49) if (((* (( (ptr) formal_c0254)+4) ) == 0)) { SOURCE(4061, 30) (* (( (ptr) formal_c0254)+7) ) = (word) (( (bPt) gf_c0253)+100)/* var_c15296 */ ; (void) (XR_MonitorExit((word) (( (bPt) gf_c0253)+16)/* LOCK_v2776 */ )); return(2); }; SOURCE(4093, 80) { word var_c16704; { word var_c16736; var_c16736 = (word) GetPropList_P300((* ((( (ptr) formal_c0254)+4)) )); var_c16704 = (word) PutPropInternal_P1020(var_c16736, (* (( (ptr) formal_c0254)+5) ), (* (( (ptr) formal_c0254)+6) )); }; (void) SetPropList_P360((* (( (ptr) formal_c0254)+4) ), var_c16704); }; return(0); } static word PutPropOnList_P960(formal_c0325, formal_c0326, formal_c0327) word formal_c0325; word formal_c0326; word formal_c0327; { W8 var_c17920; /* declaration of propList_v6224 skipped */ /* declaration of prop_v6252 skipped */ /* declaration of val_v6280 skipped */ register ptr gf_c17952 = (ptr) &globalframe; /* declaration of var_c08 skipped */ word var_c6348; var_c17920.f4/* propList_v6224 */ = formal_c0325; var_c17920.f5/* prop_v6252 */ = formal_c0326; var_c17920.f6/* val_v6280 */ = formal_c0327; /* PutPropOnList: */ SOURCE(4179, 170) (void) (XR_MonitorEntry((word) (( (bPt) gf_c17952)+16)/* LOCK_v2776 */ )); SOURCE(4278, 71) { word var_c09; { word var_c0290; var_c0290 = (word) &var_c17920; var_c09 = (word) XR_Enable(( ((word) (fPt) NoName_Q3036) ), ( ((word) (fPt) NoName_Q3696) ), var_c0290); }; /* removed trivial cond node */ }; return(var_c17920.f7/* var_c08 */ ); } static word NoName_Q3036(formal_c0257) word formal_c0257; { register ptr gf_c0256 = (ptr) &globalframe; SOURCE(4304, 45) { word var_c16768; var_c16768 = (word) PutPropInternal_P1020((* (( (ptr) formal_c0257)+4) ), (* (( (ptr) formal_c0257)+5) ), (* (( (ptr) formal_c0257)+6) )); (void) (XR_MonitorExit((word) (( (bPt) gf_c0256)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0257)+7) ) = var_c16768; return(1); }; /* c2c skipped dead code */ } static word PutPropInternal_P1020(ref_v6408, prop_v6436, val_v6464) word ref_v6408; word prop_v6436; word val_v6464; { register ptr gf_c17984 = (ptr) &globalframe; word var_c6544; word propList_v8428 = 0; word lst_v8456 = 0; word lag_v8484 = 0; /* PutPropInternal: */ SOURCE(4355, 517) SOURCE(4510, 228) { word var_c16800; var_c16800 = ref_v6408; if ((var_c16800 == 0)) { goto lab_L100014; }; if (((* (( (ptr) gf_c17984)+23) ) == XR_GetReferentType(var_c16800))) { { word pl_v8528; pl_v8528 = var_c16800; SOURCE(4549, 19) lst_v8456 = pl_v8528; propList_v8428 = pl_v8528; SOURCE(4570, 118) lab_L100017: ; if ((lst_v8456 != 0)) { } else { goto lab_L100015; }; SOURCE(4589, 69) if (((* (ptr) (* (ptr) lst_v8456 ) ) == prop_v6436)) { SOURCE(4620, 19) (* (( (ptr) (* (ptr) lst_v8456 ))+1) ) = val_v6464; SOURCE(4641, 17) return(propList_v8428); }; SOURCE(4663, 9) lag_v8484 = lst_v8456; SOURCE(4674, 14) lst_v8456 = (* (( (ptr) lst_v8456)+1) ); goto lab_L100017; lab_L100015: ; }; } else { lab_L100014: ; SOURCE(4713, 25) if ((ref_v6408 != 0)) { SOURCE(4731, 7) (void) Crash_P1740(); }; }; }; SOURCE(4740, 65) { word var_c16864; word var_c16928; { word var_c16896; var_c16896 = XR_NewObject(8, (* (( (ptr) gf_c17984)+24) )); (* (ptr) var_c16896 ) = prop_v6436; (* (( (ptr) var_c16896)+1) ) = val_v6464; var_c16864 = var_c16896; }; var_c16928 = XR_NewObject(8, (* (( (ptr) gf_c17984)+23) )); (* (ptr) var_c16928 ) = var_c16864; lst_v8456 = var_c16928; }; SOURCE(4807, 30) if ((lag_v8484 == 0)) { SOURCE(4825, 12) return(lst_v8456); }; SOURCE(4839, 14) (* (( (ptr) lag_v8484)+1) ) = lst_v8456; SOURCE(4855, 17) return(propList_v8428); } static word GetProp_P1080(formal_c0328, formal_c0329) word formal_c0328; word formal_c0329; { W7 var_c18016; /* declaration of atom_v6604 skipped */ /* declaration of prop_v6632 skipped */ register ptr gf_c18048 = (ptr) &globalframe; /* declaration of var_c010 skipped */ word var_c6688; var_c18016.f4/* atom_v6604 */ = formal_c0328; var_c18016.f5/* prop_v6632 */ = formal_c0329; /* GetProp: */ SOURCE(4878, 259) (void) (XR_MonitorEntry((word) (( (bPt) gf_c18048)+16)/* LOCK_v2776 */ )); SOURCE(4878, 259) var_c6688 = 0; SOURCE(4953, 184) { word var_c011; { word var_c0291; var_c0291 = (word) &var_c18016; var_c011 = (word) XR_Enable(( ((word) (fPt) NoName_Q3096) ), ( ((word) (fPt) NoName_Q3636) ), var_c0291); }; if ((var_c011 == 1)) { goto lab_L011; }; }; SOURCE(4878, 259) (void) (XR_MonitorExit((word) (( (bPt) gf_c18048)+16)/* LOCK_v2776 */ )); return(var_c6688); lab_L011: ; return(var_c18016.f6/* var_c010 */ ); } static word NoName_Q3096(formal_c0261) word formal_c0261; { register ptr gf_c0260 = (ptr) &globalframe; SOURCE(4979, 158) if (((* (( (ptr) formal_c0261)+4) ) != 0)) { SOURCE(4999, 138) { word var_c16960; var_c16960 = (word) GetPropList_P300((* ((( (ptr) formal_c0261)+4)) )); if ((var_c16960 == 0)) { goto lab_L100020; }; if (((* (( (ptr) gf_c0260)+23) ) == XR_GetReferentType(var_c16960))) { { word lst_v8572; lst_v8572 = var_c16960; SOURCE(5051, 86) lab_L100023: ; if ((lst_v8572 != 0)) { } else { goto lab_L100021; }; SOURCE(5070, 51) if (((* (ptr) (* (ptr) lst_v8572 ) ) == (* (( (ptr) formal_c0261)+5) ))) { SOURCE(5099, 22) { word var_c16992; var_c16992 = (* (( (ptr) (* (ptr) lst_v8572 ))+1) ); (void) (XR_MonitorExit((word) (( (bPt) gf_c0260)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0261)+6) ) = var_c16992; return(1); }; }; SOURCE(5123, 14) lst_v8572 = (* (( (ptr) lst_v8572)+1) ); goto lab_L100023; lab_L100021: ; }; } else { lab_L100020: ; }; }; }; return(0); } static word GetPropFromList_P1140(formal_c0330, formal_c0331) word formal_c0330; word formal_c0331; { W7 var_c18080; /* declaration of propList_v6760 skipped */ /* declaration of prop_v6788 skipped */ register ptr gf_c18112 = (ptr) &globalframe; /* declaration of var_c012 skipped */ word var_c6844; var_c18080.f4/* propList_v6760 */ = formal_c0330; var_c18080.f5/* prop_v6788 */ = formal_c0331; /* GetPropFromList: */ SOURCE(5161, 226) (void) (XR_MonitorEntry((word) (( (bPt) gf_c18112)+16)/* LOCK_v2776 */ )); SOURCE(5161, 226) var_c6844 = 0; SOURCE(5252, 135) { word var_c013; { word var_c0292; var_c0292 = (word) &var_c18080; var_c013 = (word) XR_Enable(( ((word) (fPt) NoName_Q3156) ), ( ((word) (fPt) NoName_Q3576) ), var_c0292); }; if ((var_c013 == 1)) { goto lab_L013; }; }; SOURCE(5161, 226) (void) (XR_MonitorExit((word) (( (bPt) gf_c18112)+16)/* LOCK_v2776 */ )); return(var_c6844); lab_L013: ; return(var_c18080.f6/* var_c012 */ ); } static word NoName_Q3156(formal_c0264) word formal_c0264; { register ptr gf_c0263 = (ptr) &globalframe; SOURCE(5278, 109) { register word lst_v8616; lst_v8616 = (* (( (ptr) formal_c0264)+4) ); lab_L100029: ; if ((lst_v8616 != 0)) { } else { goto lab_L100026; }; SOURCE(5336, 51) if (((* (ptr) (* (ptr) lst_v8616 ) ) == (* (( (ptr) formal_c0264)+5) ))) { SOURCE(5365, 22) { word var_c17024; var_c17024 = (* (( (ptr) (* (ptr) lst_v8616 ))+1) ); (void) (XR_MonitorExit((word) (( (bPt) gf_c0263)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0264)+6) ) = var_c17024; return(1); }; }; lst_v8616 = (* (( (ptr) lst_v8616)+1) ); goto lab_L100029; lab_L100026: ; }; return(0); } static void RemProp_P1200(formal_c0332, formal_c0333) word formal_c0332; word formal_c0333; { W6 var_c18144; /* declaration of atom_v6916 skipped */ /* declaration of prop_v6944 skipped */ register ptr gf_c18176 = (ptr) &globalframe; var_c18144.f4/* atom_v6916 */ = formal_c0332; var_c18144.f5/* prop_v6944 */ = formal_c0333; /* RemProp: */ SOURCE(5402, 159) (void) (XR_MonitorEntry((word) (( (bPt) gf_c18176)+16)/* LOCK_v2776 */ )); SOURCE(5457, 104) { word var_c0293; var_c0293 = (word) &var_c18144; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q3216) ), ( ((word) (fPt) NoName_Q3516) ), var_c0293); }; SOURCE(5402, 159) (void) (XR_MonitorExit((word) (( (bPt) gf_c18176)+16)/* LOCK_v2776 */ )); return; } static word NoName_Q3216(formal_c0266) word formal_c0266; { SOURCE(5483, 78) if (((* (( (ptr) formal_c0266)+4) ) != 0)) { SOURCE(5502, 59) { word var_c17056; { word var_c17088; var_c17088 = (word) GetPropList_P300((* ((( (ptr) formal_c0266)+4)) )); var_c17056 = (word) RemPropInternal_P1320(var_c17088, (* (( (ptr) formal_c0266)+5) )); }; (void) SetPropList_P360((* (( (ptr) formal_c0266)+4) ), var_c17056); }; }; return(0); } static word RemPropFromList_P1260(formal_c0334, formal_c0335) word formal_c0334; word formal_c0335; { W7 var_c18208; /* declaration of propList_v7016 skipped */ /* declaration of prop_v7044 skipped */ register ptr gf_c18240 = (ptr) &globalframe; /* declaration of var_c014 skipped */ word var_c7100; var_c18208.f4/* propList_v7016 */ = formal_c0334; var_c18208.f5/* prop_v7044 */ = formal_c0335; /* RemPropFromList: */ SOURCE(5567, 156) (void) (XR_MonitorEntry((word) (( (bPt) gf_c18240)+16)/* LOCK_v2776 */ )); SOURCE(5657, 66) { word var_c015; { word var_c0294; var_c0294 = (word) &var_c18208; var_c015 = (word) XR_Enable(( ((word) (fPt) NoName_Q3276) ), ( ((word) (fPt) NoName_Q3456) ), var_c0294); }; /* removed trivial cond node */ }; return(var_c18208.f6/* var_c014 */ ); } static word NoName_Q3276(formal_c0269) word formal_c0269; { register ptr gf_c0268 = (ptr) &globalframe; SOURCE(5683, 40) { word var_c17120; var_c17120 = (word) RemPropInternal_P1320((* (( (ptr) formal_c0269)+4) ), (* (( (ptr) formal_c0269)+5) )); (void) (XR_MonitorExit((word) (( (bPt) gf_c0268)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0269)+6) ) = var_c17120; return(1); }; /* c2c skipped dead code */ } static word RemPropInternal_P1320(ref_v7160, prop_v7188) word ref_v7160; word prop_v7188; { register ptr gf_c18272 = (ptr) &globalframe; word var_c7256; /* RemPropInternal: */ SOURCE(5729, 372) SOURCE(5729, 372) var_c7256 = 0; SOURCE(5811, 290) { word var_c17152; var_c17152 = ref_v7160; if ((var_c17152 == 0)) { goto lab_L100034; }; if (((* (( (ptr) gf_c18272)+23) ) == XR_GetReferentType(var_c17152))) { { word propList_v8660; propList_v8660 = var_c17152; SOURCE(5854, 249) { word lst_v8704; word lag_v8732 = 0; SOURCE(5856, 24) lst_v8704 = propList_v8660; SOURCE(5903, 170) lab_L100037: ; if ((lst_v8704 != 0)) { } else { goto lab_L100035; }; { word rest_v8776; SOURCE(5922, 25) rest_v8776 = (* (( (ptr) lst_v8704)+1) ); SOURCE(5949, 98) if (((* (ptr) (* (ptr) lst_v8704 ) ) == prop_v7188)) { SOURCE(5980, 31) if ((lag_v8732 == 0)) { SOURCE(5998, 13) return(rest_v8776); }; SOURCE(6013, 15) (* (( (ptr) lag_v8732)+1) ) = rest_v8776; SOURCE(6030, 17) return(propList_v8660); }; SOURCE(6052, 9) lag_v8732 = lst_v8704; SOURCE(6063, 10) lst_v8704 = rest_v8776; }; goto lab_L100037; lab_L100035: ; SOURCE(6084, 17) return(propList_v8660); }; }; } else { lab_L100034: ; }; }; SOURCE(5729, 372) return(var_c7256); } static void MapAtoms_P1380(proc_v7316) word proc_v7316; { /* MapAtoms: */ SOURCE(6120, 121) SOURCE(6172, 69) { register word atom_v8820; atom_v8820 = (word) Next_P1500(0); lab_L100041: ; if ((atom_v8820 != 0)) { } else { goto lab_L100038; }; SOURCE(6231, 10) (void) ( *( (fPt) ((* (ptr) proc_v7316 ))))(atom_v8820, proc_v7316); atom_v8820 = (word) Next_P1500(atom_v8820); goto lab_L100041; lab_L100038: ; }; } static word FindAtom_P1440(proc_v7436) word proc_v7436; { word var_c7584; /* FindAtom: */ SOURCE(6256, 228) SOURCE(6370, 91) { register word atom_v8864; atom_v8864 = (word) Next_P1500(0); lab_L100045: ; if ((atom_v8864 != 0)) { } else { goto lab_L100042; }; SOURCE(6429, 32) if ((0 != (word) ( *( (fPt) ((* (ptr) proc_v7436 ))))(atom_v8864, proc_v7436))) { SOURCE(6448, 13) return(atom_v8864); }; atom_v8864 = (word) Next_P1500(atom_v8864); goto lab_L100045; lab_L100042: ; }; SOURCE(6472, 12) return(0); } static word Next_P1500(formal_c0336) word formal_c0336; { W7 var_c18304; /* declaration of atom_v7644 skipped */ register ptr gf_c18336 = (ptr) &globalframe; /* declaration of var_c016 skipped */ /* declaration of rtn_v7688 skipped */ var_c18304.f4/* atom_v7644 */ = formal_c0336; /* Next: */ SOURCE(6490, 340) (void) (XR_MonitorEntry((word) (( (bPt) gf_c18336)+16)/* LOCK_v2776 */ )); SOURCE(6490, 340) var_c18304.f6/* rtn_v7688 */ = 0; SOURCE(6564, 266) { word var_c017; { word var_c0295; var_c0295 = (word) &var_c18304; var_c017 = (word) XR_Enable(( ((word) (fPt) NoName_Q3336) ), ( ((word) (fPt) NoName_Q3396) ), var_c0295); }; if ((var_c017 == 1)) { goto lab_L018; }; }; SOURCE(6490, 340) (void) (XR_MonitorExit((word) (( (bPt) gf_c18336)+16)/* LOCK_v2776 */ )); return(var_c18304.f6/* rtn_v7688 */ ); lab_L018: ; return(var_c18304.f5/* var_c016 */ ); } static word NoName_Q3336(formal_c0273) word formal_c0273; { register ptr gf_c0272 = (ptr) &globalframe; SOURCE(6590, 18) { word hash_v8908 = 0; if (((* (( (ptr) formal_c0273)+4) ) == 0)) { } else { if (((* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+2) ) != 0)) { SOURCE(6668, 22) { word var_c17184; var_c17184 = (* (( (ptr) (* (( (ptr) formal_c0273)+4) ))+2) ); (void) (XR_MonitorExit((word) (( (bPt) gf_c0272)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0273)+5) ) = var_c17184; return(1); }; } else { SOURCE(6703, 31) { word var_c17216; word s_v15248; s_v15248 = (word) GetPName_P120((* ((( (ptr) formal_c0273)+4)) )); SOURCE(7941, 55) { word pd21; pd21 = (* (( (ptr) (* (( (ptr) gf_c0272)+83)/* var_c17280 */ ))+4) ); var_c17216 = ((word) ( *( (fPt) ((* (ptr) pd21 ))))(s_v15248, 31415, pd21) % 4093); }; hash_v8908 = (var_c17216 + 1); }; }; }; SOURCE(6736, 94) lab_L100051: ; if ((hash_v8908 < 4093)) { } else { goto lab_L100049; }; SOURCE(6761, 26) { word x22; (* (( (ptr) formal_c0273)+6) ) = (* (( (ptr) ( x22 = (* (( (ptr) gf_c0272)+9)/* atomDictionary_v3056 */ ), NCK((* (bPt) x22 )), x22 ))+BCK(hash_v8908, 4093)) ); }; SOURCE(6789, 24) if (((* (( (ptr) formal_c0273)+6) ) != 0)) { SOURCE(6807, 6) (void) (XR_MonitorExit((word) (( (bPt) gf_c0272)+16)/* LOCK_v2776 */ )); (* (( (ptr) formal_c0273)+5) ) = (* (( (ptr) formal_c0273)+6) ); return(1); }; SOURCE(6815, 15) hash_v8908 = (hash_v8908 + 1); goto lab_L100051; lab_L100049: ; }; return(0); } static void LookUpAtom_P1560(formal_c0182, s_v7748) word formal_c0182; word s_v7748; { register ptr gf_c18368 = (ptr) &globalframe; register word atom_v7792; word prev_v7820; word hash_v7848; word len_v8952; /* LookUpAtom: */ SOURCE(6845, 698) SOURCE(6845, 698) atom_v7792 = 0; SOURCE(6845, 698) prev_v7820 = 0; SOURCE(6970, 24) len_v8952 = ( (((unsigned)(* (hPt) s_v7748 ) << 17) >> 17) ); SOURCE(6996, 14) { word pd23; pd23 = (* (( (ptr) (* (( (ptr) gf_c18368)+83)/* var_c17280 */ ))+4) ); hash_v7848 = ((word) ( *( (fPt) ((* (ptr) pd23 ))))(s_v7748, 31415, pd23) % 4093); }; SOURCE(7012, 531) { word x24; atom_v7792 = (* (( (ptr) ( x24 = (* (( (ptr) gf_c18368)+9)/* atomDictionary_v3056 */ ), NCK((* (bPt) x24 )), x24 ))+hash_v7848) ); }; lab_L100056: ; if ((atom_v7792 != 0)) { } else { goto lab_L100053; }; { word r_v8996; SOURCE(7079, 29) r_v8996 = (word) GetPName_P120(atom_v7792); SOURCE(7110, 419) if ((len_v8952 == ( (((unsigned)(* (hPt) r_v8996 ) << 17) >> 17) ))) { SOURCE(7133, 396) SOURCE(7135, 16) { word excess_v9040; word lp_v9068; word rp_v9096; SOURCE(7153, 50) lp_v9068 = (s_v7748 + 4); SOURCE(7205, 50) rp_v9096 = (r_v8996 + 4); SOURCE(7257, 75) { register word i_v9140 = 0; register word noName_c17312; noName_c17312 = (len_v8952 >> 2); if ((i_v9140 >= noName_c17312)) { goto lab_L100058; }; lab_L100061: ; SOURCE(7310, 22) if (((* (( (ptr) lp_v9068)+i_v9140) ) != (* (( (ptr) rp_v9096)+i_v9140) ))) { SOURCE(7332, 14) goto lab_L100057; }; i_v9140 = (i_v9140 + 1); if ((i_v9140 < noName_c17312)) { goto lab_L100061; }; lab_L100058: ; }; SOURCE(7357, 36) excess_v9040 = (len_v8952 & 3); SOURCE(7395, 93) lab_L100064: ; if ((excess_v9040 != 0)) { } else { goto lab_L100062; }; { word var_c17344; word var_c0296; word var_c17376; SOURCE(7415, 38) { word limit26; var_c17344 = (len_v8952 - excess_v9040); { word limit25; var_c0296 = (word) (* ((( (bPt) s_v7748)+4)+( limit25 = (word) ( (((unsigned)(* (( (hPt) s_v7748)+1) ) << 17) >> 17) ), BCK(var_c17344, limit25) )) ); }; var_c17376 = (len_v8952 - excess_v9040); if ((var_c0296 != (word) (* ((( (bPt) r_v8996)+4)+( limit26 = (word) ( (((unsigned)(* (( (hPt) r_v8996)+1) ) << 17) >> 17) ), BCK(var_c17376, limit26) )) ))) { SOURCE(7453, 14) goto lab_L100057; }; }; SOURCE(7469, 19) excess_v9040 = (excess_v9040 - 1); }; goto lab_L100064; lab_L100062: ; SOURCE(7499, 6) goto lab_L100052; }; /* c2c skipped dead code */ lab_L100057: ; }; SOURCE(7532, 11) prev_v7820 = atom_v7792; }; atom_v7792 = (* (( (ptr) atom_v7792)+2) ); goto lab_L100056; lab_L100053: ; /* removed tail goto */ lab_L100052: ; (* (ptr) formal_c0182 ) = atom_v7792; (* (( (ptr) formal_c0182)+1) ) = prev_v7820; (* (( (ptr) formal_c0182)+2) ) = hash_v7848; return; } static void InsertAtom_P1620(this_v7908, prev_v7936, hash_v7964) word this_v7908; word prev_v7936; word hash_v7964; { register ptr gf_c18400 = (ptr) &globalframe; /* InsertAtom: */ SOURCE(7558, 293) SOURCE(7648, 173) if ((prev_v7936 == 0)) { SOURCE(7669, 35) { word x27; (void) SetLink_P240(this_v7908, (* (( (ptr) ( x27 = (* (( (ptr) gf_c18400)+9)/* atomDictionary_v3056 */ ), NCK((* (bPt) x27 )), x27 ))+hash_v7964) )); }; SOURCE(7706, 28) { word x28; (* (( (ptr) ( x28 = (* (( (ptr) gf_c18400)+9)/* atomDictionary_v3056 */ ), NCK((* (bPt) x28 )), x28 ))+hash_v7964) ) = this_v7908; }; } else { SOURCE(7743, 28) (void) SetLink_P240(this_v7908, (* (( (ptr) prev_v7936)+2) )); SOURCE(7773, 19) (void) SetLink_P240(prev_v7936, this_v7908); SOURCE(7794, 27) (* (( (ptr) gf_c18400)+13)/* collisions_v3196 */ ) = ((* (( (ptr) gf_c18400)+13)/* collisions_v3196 */ ) + 1); }; SOURCE(7826, 25) (* (( (ptr) gf_c18400)+12)/* atomCount_v3168 */ ) = ((* (( (ptr) gf_c18400)+12)/* atomCount_v3168 */ ) + 1); } static void Crash_P1740() { /* Crash: */ SOURCE(8002, 63) SOURCE(8018, 47) (void) XR_RaiseUnnamedError(); } static void NoName_Q3396(formal_c0190, formal_c200036, formal_c200037, formal_c200038, formal_c200039) word formal_c0190; word formal_c200036; word formal_c200037; word formal_c200038; word formal_c200039; { register ptr gf_c0276 = (ptr) &globalframe; if ((formal_c200037 == XR_Unwind)) { SOURCE(6581, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0276)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0190 ) = 0; (* (( (ptr) formal_c0190)+1) ) = 0; return; } static void NoName_Q3456(formal_c0195, formal_c200032, formal_c200033, formal_c200034, formal_c200035) word formal_c0195; word formal_c200032; word formal_c200033; word formal_c200034; word formal_c200035; { register ptr gf_c0277 = (ptr) &globalframe; if ((formal_c200033 == XR_Unwind)) { SOURCE(5674, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0277)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0195 ) = 0; (* (( (ptr) formal_c0195)+1) ) = 0; return; } static void NoName_Q3516(formal_c0200, formal_c200028, formal_c200029, formal_c200030, formal_c200031) word formal_c0200; word formal_c200028; word formal_c200029; word formal_c200030; word formal_c200031; { register ptr gf_c0278 = (ptr) &globalframe; if ((formal_c200029 == XR_Unwind)) { SOURCE(5474, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0278)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0200 ) = 0; (* (( (ptr) formal_c0200)+1) ) = 0; return; } static void NoName_Q3576(formal_c0205, formal_c200024, formal_c200025, formal_c200026, formal_c200027) word formal_c0205; word formal_c200024; word formal_c200025; word formal_c200026; word formal_c200027; { register ptr gf_c0279 = (ptr) &globalframe; if ((formal_c200025 == XR_Unwind)) { SOURCE(5269, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0279)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0205 ) = 0; (* (( (ptr) formal_c0205)+1) ) = 0; return; } static void NoName_Q3636(formal_c0210, formal_c200020, formal_c200021, formal_c200022, formal_c200023) word formal_c0210; word formal_c200020; word formal_c200021; word formal_c200022; word formal_c200023; { register ptr gf_c0280 = (ptr) &globalframe; if ((formal_c200021 == XR_Unwind)) { SOURCE(4970, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0280)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0210 ) = 0; (* (( (ptr) formal_c0210)+1) ) = 0; return; } static void NoName_Q3696(formal_c0215, formal_c200016, formal_c200017, formal_c200018, formal_c200019) word formal_c0215; word formal_c200016; word formal_c200017; word formal_c200018; word formal_c200019; { register ptr gf_c0281 = (ptr) &globalframe; if ((formal_c200017 == XR_Unwind)) { SOURCE(4295, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0281)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0215 ) = 0; (* (( (ptr) formal_c0215)+1) ) = 0; return; } static void NoName_Q3756(formal_c0220, formal_c200012, formal_c200013, formal_c200014, formal_c200015) word formal_c0220; word formal_c200012; word formal_c200013; word formal_c200014; word formal_c200015; { register ptr gf_c0282 = (ptr) &globalframe; if ((formal_c200013 == XR_Unwind)) { SOURCE(4033, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0282)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0220 ) = 0; (* (( (ptr) formal_c0220)+1) ) = 0; return; } static void NoName_Q3816(formal_c0225, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0225; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0283 = (ptr) &globalframe; if ((formal_c200009 == XR_Unwind)) { SOURCE(3833, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0283)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0225 ) = 0; (* (( (ptr) formal_c0225)+1) ) = 0; return; } static void NoName_Q3876(formal_c0230, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0230; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0284 = (ptr) &globalframe; if ((formal_c200005 == XR_Unwind)) { SOURCE(2750, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0284)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0230 ) = 0; (* (( (ptr) formal_c0230)+1) ) = 0; return; } static void NoName_Q3936(formal_c0235, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0235; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0285 = (ptr) &globalframe; if ((formal_c200001 == XR_Unwind)) { SOURCE(2328, 7) (void) Crash_P1740(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0285)+16)/* LOCK_v2776 */ )); }; (* (ptr) formal_c0235 ) = 0; (* (( (ptr) formal_c0235)+1) ) = 0; return; } /* file: AtomImpl, module: AtomImpl, compiled at: March 3, 1992 1:09:40 pm PST */ extern void XR_install_AtomImpl() { NoName_Q2736(); } extern void XR_run_AtomImpl() { XR_Start(&globalframe); }