/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: October 19, 1993 1:03:15 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: TJaMStackImpl, module: TJaMStackImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [453214179,2830877265] TJaMStackImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1, f2;} W3; typedef W3 *W3Pt; typedef struct {word f0, f1;} W2; typedef W2 *W2Pt; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) static void NoName_Q4116(); static void TJaMStackImpl_P0(); static word NewStack_P60(); static void Push_P120(); static void PushNum_P180(); static void PushInt_P240(); static void PushBool_P300(); static void PushReal_P360(); static void PushAtom_P420(); static void PushRope_P480(); static void PushStream_P540(); static void PushCmd_P600(); static void PushArray_P660(); static void PushDict_P720(); static void PushMark_P780(); static word Pop_P840(); static void Remove_P900(); static void PopNum_P960(); static word PopInt_P1020(); static word PopBool_P1080(); static word PopReal_P1140(); static word PopAtom_P1200(); static word PopRope_P1260(); static word PopStream_P1320(); static word PopCmd_P1380(); static word PopArray_P1440(); static word PopDict_P1500(); static word PopMark_P1560(); static void Copy_P1620(); static void Dup_P1680(); static void Roll_P1740(); static void Reverse_P3720(); static void Exch_P1800(); static word Top_P1860(); static word TopType_P1920(); static word StackIsEmpty_P1980(); static word CountStack_P2040(); static word Index_P2100(); static word CountToMark_P2160(); static void ClearToMark_P2220(); static void ClearStack_P2280(); static void ApplyPop_P2340(); static void ApplyCopy_P2400(); static void ApplyDup_P2460(); static void ApplyRoll_P2520(); static void ApplyExch_P2580(); static void ApplyCount_P2640(); static void ApplyClearStack_P2700(); static void ApplyIndex_P2760(); static void ApplyMark_P2820(); static void ApplyCountToMark_P2880(); static void ApplyClearToMark_P2940(); static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\101\034\000\000"}; static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"}; static struct {unsigned f; char r[24];} string3 = {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[16];} string4 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string5 = {65537, "\001\000\000"}; static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\354\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\243\004\305\073\300\011\303\367\103\101\004\000\000"}; static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\340\000\000"}; static struct {unsigned f; char r[4];} string10 = {131074, "\004\006\000"}; static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\112\064\000\000"}; static struct {unsigned f; char r[4];} string12 = {131074, "\004\037\000"}; static struct {unsigned f; char r[4];} string13 = {65540, "\251\000\000"}; static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\230\000\000"}; static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\367\310\321\062\300\174\163\370\126\100\214\000\000"}; static struct {unsigned f; char r[12];} string16 = {589833, "\011\000\014\100\100\040\000\014\001\000\000"}; static struct {unsigned f; char r[12];} string17 = {589836, ".clrtomrk\000\000"}; static struct {unsigned f; char r[8];} string18 = {327688, ".mark\000\000"}; static struct {unsigned f; char r[8];} string19 = {393224, ".index\000"}; static struct {unsigned f; char r[12];} string20 = {589836, ".cnttomrk\000\000"}; static struct {unsigned f; char r[8];} string21 = {458760, ".cntstk"}; static struct {unsigned f; char r[8];} string22 = {327688, ".roll\000\000"}; static struct {unsigned f; char r[8];} string23 = {327688, ".copy\000\000"}; static struct {unsigned f; char r[8];} string24 = {458760, ".clrstk"}; static struct {unsigned f; char r[8];} string25 = {262152, ".dup\000\000\000"}; static struct {unsigned f; char r[8];} string26 = {327688, ".exch\000\000"}; static struct {unsigned f; char r[8];} string27 = {262152, ".pop\000\000\000"}; static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\033\003\177\343\300\250\273\302\121\100\164\000\000"}; static struct {unsigned f; char r[12];} string29 = {720907, "\006\003\020\001\024\001\100\114\004\107\377"}; static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[4];} string31 = {1414160717, "\000"}; static struct {unsigned f; char r[16];} string32 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"}; static struct {unsigned f; char r[28];} string33 = {1638428, "\211\015\014\106\162\141\155\145\111\155\160\154\122\145\160\300\243\004\305\073\300\011\303\367\103\000\000"}; static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\367\310\321\062\300\174\163\370\126\100\164\000\000"}; static struct {unsigned f; char r[4];} string35 = {131074, "\004\017\000"}; static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\367\310\321\062\300\174\163\370\126\100\150\000\000"}; static struct { word f0[30]; 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; word f82; word f83; word f84; word f85; word f86; word f87; word f88; word f89; word f90; word f91; word f92; word f93; word f94; word f95; word f96; word f97; word f98; word f99; word f100; word f101; word f102; word f103; 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[5]; } globalframe = { {0}, (word) ApplyClearToMark_P2940, 0, (word) ApplyCountToMark_P2880, 0, (word) ApplyMark_P2820, 0, (word) ApplyIndex_P2760, 0, (word) ApplyClearStack_P2700, 0, (word) ApplyCount_P2640, 0, (word) ApplyExch_P2580, 0, (word) ApplyRoll_P2520, 0, (word) ApplyDup_P2460, 0, (word) ApplyCopy_P2400, 0, (word) ApplyPop_P2340, 0, (word) ClearStack_P2280, 0, (word) ClearToMark_P2220, 0, (word) CountToMark_P2160, 0, (word) Index_P2100, 0, (word) CountStack_P2040, 0, (word) StackIsEmpty_P1980, 0, (word) TopType_P1920, 0, (word) Top_P1860, 0, (word) Exch_P1800, 0, (word) Roll_P1740, 0, (word) Dup_P1680, 0, (word) Copy_P1620, 0, (word) PopMark_P1560, 0, (word) PopDict_P1500, 0, (word) PopArray_P1440, 0, (word) PopCmd_P1380, 0, (word) PopStream_P1320, 0, (word) PopRope_P1260, 0, (word) PopAtom_P1200, 0, (word) PopReal_P1140, 0, (word) PopBool_P1080, 0, (word) PopInt_P1020, 0, (word) PopNum_P960, 0, (word) Remove_P900, 0, (word) Pop_P840, 0, (word) PushMark_P780, 0, (word) PushDict_P720, 0, (word) PushArray_P660, 0, (word) PushCmd_P600, 0, (word) PushStream_P540, 0, (word) PushRope_P480, 0, (word) PushAtom_P420, 0, (word) PushReal_P360, 0, (word) PushBool_P300, 0, (word) PushInt_P240, 0, (word) PushNum_P180, 0, (word) Push_P120, 0, (word) NewStack_P60, 0, (word) TJaMStackImpl_P0, {0} }; static void NoName_Q4116() { register ptr gf_c0278 = (ptr) &globalframe; word var_c24324; (* (( (ptr) gf_c0278)+7) ) = (word) XR_GetTypeIndexS((word) (&string1)); (* (( (ptr) gf_c0278)+9) ) = (word) XR_GetTypeIndex((word) &string2, 0, (word) &string3); (* (( (ptr) gf_c0278)+10) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5); (* (( (ptr) gf_c0278)+12) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7); (* (( (ptr) gf_c0278)+13) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string5); (* (( (ptr) gf_c0278)+14) ) = (word) XR_GetTypeIndex((word) &string9, 0, (word) &string10); (* (( (ptr) gf_c0278)+15) ) = (word) XR_GetTypeIndex((word) &string11, 0, (word) &string12); (* (( (ptr) gf_c0278)+16) ) = (word) XR_GetTypeIndexS((word) (&string13)); (* (( (ptr) gf_c0278)+17) ) = (word) XR_GetTypeIndexS((word) (&string14)); (* (( (ptr) gf_c0278)+18) ) = (word) XR_GetTypeIndex((word) &string15, 0, (word) &string16); (* (ptr) (( (bPt) gf_c0278)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string17); (* (ptr) (( (bPt) gf_c0278)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string18); (* (ptr) (( (bPt) gf_c0278)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string19); (* (ptr) (( (bPt) gf_c0278)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string20); (* (ptr) (( (bPt) gf_c0278)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string21); (* (ptr) (( (bPt) gf_c0278)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string22); (* (ptr) (( (bPt) gf_c0278)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string23); (* (ptr) (( (bPt) gf_c0278)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string24); (* (ptr) (( (bPt) gf_c0278)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string25); (* (ptr) (( (bPt) gf_c0278)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string26); (* (ptr) (( (bPt) gf_c0278)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0278)+10) ), (word) &string27); (void) XR_DeclareGlobalFrame((word) "TJaMStackImpl", &globalframe, (word) XR_GetTypeIndex((word) &string28, 0, (word) &string29) , (word) (( (bPt) gf_c0278)+512)/* var_c22596 */ ); var_c24324 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string30)), 43); (* (( (ptr) gf_c0278)+130)/* var_c22628 */ ) = var_c24324; (void) XR_ImportProcS(var_c24324, 67378689); var_c24324 = (word) XR_ImportInterface((word) &string31, (word) XR_GetTypeIndexS((word) (&string32)), 101); (* (( (ptr) gf_c0278)+131)/* var_c22692 */ ) = var_c24324; (void) XR_ImportProcS(var_c24324, 67371777); (void) XR_ImportProcS(var_c24324, 67375105); (void) XR_ImportProcS(var_c24324, 67374849); (void) XR_ImportProcS(var_c24324, 67374593); (void) XR_ImportProcS(var_c24324, 67374337); (void) XR_ImportProcS(var_c24324, 67374081); (void) XR_ImportProcS(var_c24324, 67373825); (void) XR_ImportProcS(var_c24324, 67373569); (void) XR_ImportProcS(var_c24324, 67373057); (void) XR_ImportProcS(var_c24324, 67634689); (void) XR_ImportProcS(var_c24324, 67372801); (void) XR_ImportProcS(var_c24324, 67634433); (void) XR_ImportProcS(var_c24324, 67373313); (void) XR_ImportProcS(var_c24324, 285441); (void) XR_ImportProcS(var_c24324, 540930); (void) XR_ImportProcS(var_c24324, 67385601); (void) XR_ImportProcS(var_c24324, 812035); var_c24324 = (word) XR_ExportInterface((word) &string31, (word) XR_GetTypeIndexS((word) (&string32)), 101); (* (( (ptr) gf_c0278)+132)/* var_c24356 */ ) = var_c24324; (void) XR_ExportType((word) "FrameImplRep", (word) XR_GetTypeIndexS((word) (&string33)), (word) XR_GetTypeIndex((word) &string34, 0, (word) &string35) ); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+496)/* var_c22532 */ , 529666, (word) "Push"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+472)/* var_c22436 */ , 529922, (word) "PushBool"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+480)/* var_c22468 */ , 530178, (word) "PushInt"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+464)/* var_c22404 */ , 530434, (word) "PushReal"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+488)/* var_c22500 */ , 792834, (word) "PushNum"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+456)/* var_c22372 */ , 530946, (word) "PushAtom"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+448)/* var_c22340 */ , 531202, (word) "PushRope"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+440)/* var_c22308 */ , 531458, (word) "PushStream"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+432)/* var_c22276 */ , 531714, (word) "PushCmd"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+424)/* var_c22244 */ , 531970, (word) "PushArray"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+416)/* var_c22212 */ , 532226, (word) "PushDict"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+408)/* var_c22180 */ , 532482, (word) "PushMark"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+400)/* var_c22148 */ , 67379457, (word) "Pop"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+368)/* var_c22020 */ , 67379713, (word) "PopBool"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+376)/* var_c22052 */ , 67379969, (word) "PopInt"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+360)/* var_c21988 */ , 67380225, (word) "PopReal"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+384)/* var_c22084 */ , 134489345, (word) "PopNum"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+352)/* var_c21956 */ , 67380737, (word) "PopAtom"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+344)/* var_c21924 */ , 67380993, (word) "PopRope"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+336)/* var_c21892 */ , 67381249, (word) "PopStream"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+328)/* var_c21860 */ , 67381505, (word) "PopCmd"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+320)/* var_c21828 */ , 67381761, (word) "PopArray"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+312)/* var_c21796 */ , 67382017, (word) "PopDict"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+304)/* var_c21764 */ , 67382273, (word) "PopMark"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+264)/* var_c21604 */ , 67382529, (word) "Top"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+256)/* var_c21572 */ , 67382785, (word) "TopType"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+296)/* var_c21732 */ , 536322, (word) "Copy"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+288)/* var_c21700 */ , 274433, (word) "Dup"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+280)/* var_c21668 */ , 798979, (word) "Roll"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+272)/* var_c21636 */ , 274945, (word) "Exch"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+208)/* var_c21380 */ , 275201, (word) "ClearStack"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+240)/* var_c21508 */ , 67384321, (word) "CountStack"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+248)/* var_c21540 */ , 67384577, (word) "StackIsEmpty"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+216)/* var_c21412 */ , 275969, (word) "ClearToMark"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+224)/* var_c21444 */ , 67385089, (word) "CountToMark"); (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+232)/* var_c21476 */ , 67647490, (word) "Index"); var_c24324 = (word) XR_ExportInterface((word) "TJaMPrivate", (word) XR_GetTypeIndexS((word) (&string36)), 2); (* (( (ptr) gf_c0278)+133)/* var_c24388 */ ) = var_c24324; (void) XR_ExportProcS(var_c24324, (word) (( (bPt) gf_c0278)+504)/* var_c22564 */ , 67371009, (word) "NewStack"); } static void TJaMStackImpl_P0(formal_c061, formal_c060) word formal_c061; word formal_c060; { register ptr gf_c24420 = (ptr) &globalframe; /* TJaMStackImpl: */ SOURCE(53, 10322) SOURCE(2117, 33) { word pd37; pd37 = (* (( (ptr) (* (( (ptr) gf_c24420)+130)/* var_c22628 */ ))+34) ); (* (( (ptr) gf_c24420)+4)/* emptyRope_v2748 */ ) = (word) ( *( (fPt) ((* (ptr) pd37 ))))(0, pd37); }; SOURCE(9671, 38) (* (( (ptr) gf_c24420)+5)/* defaultMark_v3868 */ ) = XR_NewObject(4, (* (( (ptr) gf_c24420)+7) )); SOURCE(9917, 35) { word pd38; pd38 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd38 ))))((* (( (ptr) gf_c24420)+29) ), (word) (( (bPt) gf_c24420)+200)/* var_c21348 */ , 0, pd38) ; }; SOURCE(9954, 37) { word pd39; pd39 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd39 ))))((* (( (ptr) gf_c24420)+28) ), (word) (( (bPt) gf_c24420)+168)/* var_c21220 */ , 0, pd39) ; }; SOURCE(9993, 35) { word pd40; pd40 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd40 ))))((* (( (ptr) gf_c24420)+27) ), (word) (( (bPt) gf_c24420)+184)/* var_c21284 */ , 0, pd40) ; }; SOURCE(10030, 45) { word pd41; pd41 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd41 ))))((* (( (ptr) gf_c24420)+26) ), (word) (( (bPt) gf_c24420)+152)/* var_c21156 */ , 0, pd41) ; }; SOURCE(10077, 37) { word pd42; pd42 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd42 ))))((* (( (ptr) gf_c24420)+25) ), (word) (( (bPt) gf_c24420)+192)/* var_c21316 */ , 0, pd42) ; }; SOURCE(10116, 37) { word pd43; pd43 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd43 ))))((* (( (ptr) gf_c24420)+24) ), (word) (( (bPt) gf_c24420)+176)/* var_c21252 */ , 0, pd43) ; }; SOURCE(10155, 40) { word pd44; pd44 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd44 ))))((* (( (ptr) gf_c24420)+23) ), (word) (( (bPt) gf_c24420)+160)/* var_c21188 */ , 0, pd44) ; }; SOURCE(10197, 48) { word pd45; pd45 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd45 ))))((* (( (ptr) gf_c24420)+22) ), (word) (( (bPt) gf_c24420)+128)/* var_c21060 */ , 0, pd45) ; }; SOURCE(10247, 48) { word pd46; pd46 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd46 ))))((* (( (ptr) gf_c24420)+19) ), (word) (( (bPt) gf_c24420)+120)/* var_c21028 */ , 0, pd46) ; }; SOURCE(10297, 37) { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd47 ))))((* (( (ptr) gf_c24420)+20) ), (word) (( (bPt) gf_c24420)+136)/* var_c21092 */ , 0, pd47) ; }; SOURCE(10336, 39) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c24420)+131)/* var_c22692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd48 ))))((* (( (ptr) gf_c24420)+21) ), (word) (( (bPt) gf_c24420)+144)/* var_c21124 */ , 0, pd48) ; }; } static word NewStack_P60(size_v4032) word size_v4032; { register ptr gf_c24452 = (ptr) &globalframe; word var_c4076; word stack_v7564; /* NewStack: */ SOURCE(215, 132) SOURCE(269, 34) { word var_c22724; word var_c22756; word var_c22788; var_c22724 = BCK(size_v4032, 22369621); var_c22756 = ((word) var_c22724 * 12); var_c22788 = XR_NewObject((12 + var_c22756), (* (( (ptr) gf_c24452)+18) )); (* (( (ptr) var_c22788)+2) ) = var_c22724; stack_v7564 = var_c22788; }; SOURCE(305, 27) (* (( (ptr) stack_v7564)+1) ) = 0; (* (ptr) stack_v7564 ) = 0; SOURCE(334, 13) return(stack_v7564); } static void Push_P120(frame_v4136, val_v4164) word frame_v4136; word val_v4164; { register ptr gf_c24484 = (ptr) &globalframe; word impl_v7608; word stack_v7636; /* Push: */ SOURCE(354, 405) SOURCE(401, 28) impl_v7608 = (* (ptr) frame_v4136 ); SOURCE(431, 25) stack_v7636 = (* (ptr) impl_v7608 ); SOURCE(458, 143) if (((* (ptr) stack_v7636 ) >= (* (( (ptr) stack_v7636)+2) ))) { SOURCE(493, 108) { word array_v7680; SOURCE(494, 36) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c24484)+131)/* var_c22692 */ ))+61) ); array_v7680 = (word) ( *( (fPt) ((* (ptr) pd49 ))))((* (ptr) (stack_v7636) ), pd49); }; SOURCE(532, 20) { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c24484)+131)/* var_c22692 */ ))+69) ); (void) ( *( (fPt) ((* (ptr) pd50 ))))(frame_v4136, array_v7680, pd50); }; SOURCE(554, 18) (void) Push_P120(frame_v4136, array_v7680); SOURCE(574, 27) { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c24484)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd51 ))))(7, pd51); }; }; }; SOURCE(604, 41) if ((val_v4164 == 0)) { SOURCE(620, 25) { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c24484)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd52 ))))(4, pd52); }; }; SOURCE(647, 28) { word idx53; word limit54; (* (( (W3Pt) (( (ptr) stack_v7636)+3))+( idx53 = (* (ptr) stack_v7636 ), limit54 = (* (( (ptr) stack_v7636)+2) ), BCK(idx53, limit54) )) ).f0 = val_v4164; }; SOURCE(677, 27) (* (ptr) stack_v7636 ) = ((* (ptr) stack_v7636 ) + 1); SOURCE(706, 53) if (((* (ptr) stack_v7636 ) > (* (( (ptr) stack_v7636)+1) ))) { SOURCE(736, 23) (* (( (ptr) stack_v7636)+1) ) = (* (ptr) stack_v7636 ); }; } static void PushNum_P180(frame_v4224, val_v4252) word frame_v4224; W2 val_v4252; { register ptr gf_c24516 = (ptr) &globalframe; word impl_v7724; word stack_v7752; /* PushNum: */ SOURCE(765, 422) SOURCE(821, 28) impl_v7724 = (* (ptr) frame_v4224 ); SOURCE(851, 25) stack_v7752 = (* (ptr) impl_v7724 ); SOURCE(878, 143) if (((* (ptr) stack_v7752 ) >= (* (( (ptr) stack_v7752)+2) ))) { SOURCE(913, 108) { word array_v7796; SOURCE(914, 36) { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf_c24516)+131)/* var_c22692 */ ))+61) ); array_v7796 = (word) ( *( (fPt) ((* (ptr) pd55 ))))((* (ptr) (stack_v7752) ), pd55); }; SOURCE(952, 20) { word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf_c24516)+131)/* var_c22692 */ ))+69) ); (void) ( *( (fPt) ((* (ptr) pd56 ))))(frame_v4224, array_v7796, pd56); }; SOURCE(974, 18) (void) Push_P120(frame_v4224, array_v7796); SOURCE(994, 27) { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf_c24516)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd57 ))))(7, pd57); }; }; }; SOURCE(1024, 35) { word idx58; word limit59; if (((* (( (W3Pt) (( (ptr) stack_v7752)+3))+( idx58 = (* (ptr) stack_v7752 ), limit59 = (* (( (ptr) stack_v7752)+2) ), BCK(idx58, limit59) )) ).f0 != 0)) { SOURCE(1059, 5) (void) XR_RaiseUnnamedError(); }; }; SOURCE(1073, 29) SOURCE(1074, 28) { word idx60; word limit61; (* (W2Pt) (( (ptr) (( (W3Pt) (( (ptr) stack_v7752)+3))+( idx60 = (* (ptr) stack_v7752 ), limit61 = (* (( (ptr) stack_v7752)+2) ), BCK(idx60, limit61) )))+1) ) = val_v4252; }; SOURCE(1105, 27) (* (ptr) stack_v7752 ) = ((* (ptr) stack_v7752 ) + 1); SOURCE(1134, 53) if (((* (ptr) stack_v7752 ) > (* (( (ptr) stack_v7752)+1) ))) { SOURCE(1164, 23) (* (( (ptr) stack_v7752)+1) ) = (* (ptr) stack_v7752 ); }; } static void PushInt_P240(frame_v4312, val_v4340) word frame_v4312; word val_v4340; { word impl_v7840; word stack_v7868; W2 num_v7896; /* PushInt: */ SOURCE(1193, 349) SOURCE(1243, 28) impl_v7840 = (* (ptr) frame_v4312 ); SOURCE(1273, 25) stack_v7868 = (* (ptr) impl_v7840 ); SOURCE(1300, 27) num_v7896.f0 = 0; num_v7896.f1 = val_v4340; SOURCE(1329, 213) { word tc62; word idx63; word limit64; if (((* (ptr) stack_v7868 ) < (* (( (ptr) stack_v7868)+2) ))) { tc62 = (word) ((* (( (W3Pt) (( (ptr) stack_v7868)+3))+( idx63 = (* (ptr) stack_v7868 ), limit64 = (* (( (ptr) stack_v7868)+2) ), BCK(idx63, limit64) )) ).f0 == 0); } else { tc62 = (word) 0; }; if (tc62) { SOURCE(1400, 29) SOURCE(1401, 28) { word idx65; word limit66; (* (W2Pt) (( (ptr) (( (W3Pt) (( (ptr) stack_v7868)+3))+( idx65 = (* (ptr) stack_v7868 ), limit66 = (* (( (ptr) stack_v7868)+2) ), BCK(idx65, limit66) )))+1) ) = num_v7896; }; SOURCE(1432, 27) (* (ptr) stack_v7868 ) = ((* (ptr) stack_v7868 ) + 1); SOURCE(1461, 53) if (((* (ptr) stack_v7868 ) > (* (( (ptr) stack_v7868)+1) ))) { SOURCE(1491, 23) (* (( (ptr) stack_v7868)+1) ) = (* (ptr) stack_v7868 ); }; } else { SOURCE(1523, 19) (void) PushNum_P180(frame_v4312, num_v7896); }; }; } static void PushBool_P300(frame_v4400, val_v4428) word frame_v4400; word val_v4428; { /* PushBool: */ SOURCE(1548, 88) SOURCE(1600, 36) (void) PushInt_P240(frame_v4400, ( (0 != val_v4428) ? 1 : 0 ) ); } static void PushReal_P360(frame_v4488, val_v4516) word frame_v4488; word val_v4516; { word impl_v7940; word stack_v7968; W2 num_v7996; /* PushReal: */ SOURCE(1642, 352) SOURCE(1694, 28) impl_v7940 = (* (ptr) frame_v4488 ); SOURCE(1724, 25) stack_v7968 = (* (ptr) impl_v7940 ); SOURCE(1751, 28) num_v7996.f0 = 1; num_v7996.f1 = val_v4516; SOURCE(1781, 213) { word tc67; word idx68; word limit69; if (((* (ptr) stack_v7968 ) < (* (( (ptr) stack_v7968)+2) ))) { tc67 = (word) ((* (( (W3Pt) (( (ptr) stack_v7968)+3))+( idx68 = (* (ptr) stack_v7968 ), limit69 = (* (( (ptr) stack_v7968)+2) ), BCK(idx68, limit69) )) ).f0 == 0); } else { tc67 = (word) 0; }; if (tc67) { SOURCE(1852, 29) SOURCE(1853, 28) { word idx70; word limit71; (* (W2Pt) (( (ptr) (( (W3Pt) (( (ptr) stack_v7968)+3))+( idx70 = (* (ptr) stack_v7968 ), limit71 = (* (( (ptr) stack_v7968)+2) ), BCK(idx70, limit71) )))+1) ) = num_v7996; }; SOURCE(1884, 27) (* (ptr) stack_v7968 ) = ((* (ptr) stack_v7968 ) + 1); SOURCE(1913, 53) if (((* (ptr) stack_v7968 ) > (* (( (ptr) stack_v7968)+1) ))) { SOURCE(1943, 23) (* (( (ptr) stack_v7968)+1) ) = (* (ptr) stack_v7968 ); }; } else { SOURCE(1975, 19) (void) PushNum_P180(frame_v4488, num_v7996); }; }; } static void PushAtom_P420(frame_v4576, val_v4604) word frame_v4576; word val_v4604; { register ptr gf_c24548 = (ptr) &globalframe; /* PushAtom: */ SOURCE(2000, 111) SOURCE(2052, 41) if ((val_v4604 == 0)) { SOURCE(2068, 25) { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c24548)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd72 ))))(4, pd72); }; }; SOURCE(2095, 16) (void) Push_P120(frame_v4576, val_v4604); } static void PushRope_P480(frame_v4664, val_v4692) word frame_v4664; word val_v4692; { register ptr gf_c24580 = (ptr) &globalframe; word rope_v8040; /* PushRope: */ SOURCE(2153, 148) SOURCE(2205, 47) rope_v8040 = ( (val_v4692 == 0) ? (* (( (ptr) gf_c24580)+4)/* emptyRope_v2748 */ ) : val_v4692 ) ; SOURCE(2284, 17) (void) Push_P120(frame_v4664, rope_v8040); } static void PushStream_P540(frame_v4752, val_v4780) word frame_v4752; word val_v4780; { register ptr gf_c24612 = (ptr) &globalframe; /* PushStream: */ SOURCE(2307, 115) SOURCE(2363, 41) if ((val_v4780 == 0)) { SOURCE(2379, 25) { word pd73; pd73 = (* (( (ptr) (* (( (ptr) gf_c24612)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd73 ))))(4, pd73); }; }; SOURCE(2406, 16) (void) Push_P120(frame_v4752, val_v4780); } static void PushCmd_P600(frame_v4840, val_v4868) word frame_v4840; word val_v4868; { register ptr gf_c24644 = (ptr) &globalframe; /* PushCmd: */ SOURCE(2428, 109) SOURCE(2478, 41) if ((val_v4868 == 0)) { SOURCE(2494, 25) { word pd74; pd74 = (* (( (ptr) (* (( (ptr) gf_c24644)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd74 ))))(4, pd74); }; }; SOURCE(2521, 16) (void) Push_P120(frame_v4840, val_v4868); } static void PushArray_P660(frame_v4928, val_v4956) word frame_v4928; word val_v4956; { register ptr gf_c24676 = (ptr) &globalframe; /* PushArray: */ SOURCE(2543, 113) SOURCE(2597, 41) if ((val_v4956 == 0)) { SOURCE(2613, 25) { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf_c24676)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd75 ))))(4, pd75); }; }; SOURCE(2640, 16) (void) Push_P120(frame_v4928, val_v4956); } static void PushDict_P720(frame_v5016, val_v5044) word frame_v5016; word val_v5044; { register ptr gf_c24708 = (ptr) &globalframe; /* PushDict: */ SOURCE(2662, 111) SOURCE(2714, 41) if ((val_v5044 == 0)) { SOURCE(2730, 25) { word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf_c24708)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd76 ))))(4, pd76); }; }; SOURCE(2757, 16) (void) Push_P120(frame_v5016, val_v5044); } static void PushMark_P780(frame_v5104, val_v5132) word frame_v5104; word val_v5132; { register ptr gf_c24740 = (ptr) &globalframe; /* PushMark: */ SOURCE(2779, 111) SOURCE(2831, 41) if ((val_v5132 == 0)) { SOURCE(2847, 25) { word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf_c24740)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd77 ))))(4, pd77); }; }; SOURCE(2874, 16) (void) Push_P120(frame_v5104, val_v5132); } static word Pop_P840(frame_v5192) word frame_v5192; { register ptr gf_c24772 = (ptr) &globalframe; word var_c5236; word impl_v8084; word stack_v8112; word ref_v8140 = 0; /* Pop: */ SOURCE(2897, 345) SOURCE(2947, 28) impl_v8084 = (* (ptr) frame_v5192 ); SOURCE(2977, 25) stack_v8112 = (* (ptr) impl_v8084 ); SOURCE(3014, 54) if (((* (ptr) stack_v8112 ) <= 0)) { SOURCE(3040, 28) { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c24772)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd78 ))))(6, pd78); }; }; SOURCE(3070, 27) { word idx79; (* (ptr) stack_v8112 ) = ( idx79 = (word) ((* (ptr) stack_v8112 ) - 1), SGNCK(idx79) ); }; SOURCE(3099, 28) { word idx80; word limit81; ref_v8140 = (* (( (W3Pt) (( (ptr) stack_v8112)+3))+( idx80 = (* (ptr) stack_v8112 ), limit81 = (* (( (ptr) stack_v8112)+2) ), BCK(idx80, limit81) )) ).f0; }; SOURCE(3129, 113) if ((ref_v8140 == 0)) { SOURCE(3145, 53) { word var_c22916; var_c22916 = XR_NewObject(8, (* (( (ptr) gf_c24772)+17) )); { word idx82; word limit83; (* (W2Pt) var_c22916 ) = (* (W2Pt) (( (ptr) (( (W3Pt) (( (ptr) stack_v8112)+3))+( idx82 = (* (ptr) stack_v8112 ), limit83 = (* (( (ptr) stack_v8112)+2) ), BCK(idx82, limit83) )))+1) ); }; return(var_c22916); }; } else { SOURCE(3200, 28) { word idx84; word limit85; (* (( (W3Pt) (( (ptr) stack_v8112)+3))+( idx84 = (* (ptr) stack_v8112 ), limit85 = (* (( (ptr) stack_v8112)+2) ), BCK(idx84, limit85) )) ).f0 = 0; }; SOURCE(3230, 12) return(ref_v8140); }; } static void Remove_P900(frame_v5296) word frame_v5296; { register ptr gf_c24804 = (ptr) &globalframe; word impl_v8200; word stack_v8228; /* Remove: */ SOURCE(3249, 237) SOURCE(3281, 28) impl_v8200 = (* (ptr) frame_v5296 ); SOURCE(3311, 25) stack_v8228 = (* (ptr) impl_v8200 ); SOURCE(3338, 54) if (((* (ptr) stack_v8228 ) <= 0)) { SOURCE(3364, 28) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c24804)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd86 ))))(6, pd86); }; }; SOURCE(3394, 27) { word idx87; (* (ptr) stack_v8228 ) = ( idx87 = (word) ((* (ptr) stack_v8228 ) - 1), SGNCK(idx87) ); }; SOURCE(3423, 63) { word idx88; word limit89; if (((* (( (W3Pt) (( (ptr) stack_v8228)+3))+( idx88 = (* (ptr) stack_v8228 ), limit89 = (* (( (ptr) stack_v8228)+2) ), BCK(idx88, limit89) )) ).f0 != 0)) { SOURCE(3458, 28) { word idx90; word limit91; (* (( (W3Pt) (( (ptr) stack_v8228)+3))+( idx90 = (* (ptr) stack_v8228 ), limit91 = (* (( (ptr) stack_v8228)+2) ), BCK(idx90, limit91) )) ).f0 = 0; }; }; }; } static void PopNum_P960(formal_c0121, frame_v5356) word formal_c0121; word frame_v5356; { register ptr gf_c24836 = (ptr) &globalframe; W2 var_c5400; word impl_v8272; word stack_v8300; word ref_v8328 = 0; /* PopNum: */ SOURCE(3492, 353) SOURCE(3551, 28) impl_v8272 = (* (ptr) frame_v5356 ); SOURCE(3581, 25) stack_v8300 = (* (ptr) impl_v8272 ); SOURCE(3618, 54) if (((* (ptr) stack_v8300 ) <= 0)) { SOURCE(3644, 28) { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf_c24836)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd92 ))))(6, pd92); }; }; SOURCE(3674, 27) { word idx93; (* (ptr) stack_v8300 ) = ( idx93 = (word) ((* (ptr) stack_v8300 ) - 1), SGNCK(idx93) ); }; SOURCE(3703, 28) { word idx94; word limit95; ref_v8328 = (* (( (W3Pt) (( (ptr) stack_v8300)+3))+( idx94 = (* (ptr) stack_v8300 ), limit95 = (* (( (ptr) stack_v8300)+2) ), BCK(idx94, limit95) )) ).f0; }; SOURCE(3733, 112) if ((ref_v8328 == 0)) { SOURCE(3749, 36) { W2 var_c22948; { word idx96; word limit97; var_c22948 = (* (W2Pt) (( (ptr) (( (W3Pt) (( (ptr) stack_v8300)+3))+( idx96 = (* (ptr) stack_v8300 ), limit97 = (* (( (ptr) stack_v8300)+2) ), BCK(idx96, limit97) )))+1) ); }; var_c5400 = var_c22948; /* removed tail goto */ }; } else { SOURCE(3787, 28) { word idx98; word limit99; (* (( (W3Pt) (( (ptr) stack_v8300)+3))+( idx98 = (* (ptr) stack_v8300 ), limit99 = (* (( (ptr) stack_v8300)+2) ), BCK(idx98, limit99) )) ).f0 = 0; }; SOURCE(3817, 28) { W2 var_c23012; { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c24836)+131)/* var_c22692 */ ))+13) ); var_c23012 = (* (W2Pt) ( *( (fPt) ((* (ptr) pd100 ))))(ref_v8328, pd100) ); }; var_c5400 = var_c23012; /* removed tail goto */ }; }; (* (W2Pt) formal_c0121 ) = var_c5400; return; } static word PopInt_P1020(frame_v5460) word frame_v5460; { register ptr gf_c24868 = (ptr) &globalframe; word var_c5504; word impl_v8384; word stack_v8412; word ref_v8440 = 0; /* PopInt: */ SOURCE(3852, 433) SOURCE(3905, 28) impl_v8384 = (* (ptr) frame_v5460 ); SOURCE(3935, 25) stack_v8412 = (* (ptr) impl_v8384 ); SOURCE(3972, 54) if (((* (ptr) stack_v8412 ) <= 0)) { SOURCE(3998, 28) { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c24868)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd101 ))))(6, pd101); }; }; SOURCE(4028, 27) { word idx102; (* (ptr) stack_v8412 ) = ( idx102 = (word) ((* (ptr) stack_v8412 ) - 1), SGNCK(idx102) ); }; SOURCE(4057, 28) { word idx103; word limit104; ref_v8440 = (* (( (W3Pt) (( (ptr) stack_v8412)+3))+( idx103 = (* (ptr) stack_v8412 ), limit104 = (* (( (ptr) stack_v8412)+2) ), BCK(idx103, limit104) )) ).f0; }; SOURCE(4087, 198) if ((ref_v8440 == 0)) { SOURCE(4103, 119) { W2 n_v8496; SOURCE(4105, 37) { word idx105; word limit106; n_v8496 = (* (W2Pt) (( (ptr) (( (W3Pt) (( (ptr) stack_v8412)+3))+( idx105 = (* (ptr) stack_v8412 ), limit106 = (* (( (ptr) stack_v8412)+2) ), BCK(idx105, limit106) )))+1) ); }; SOURCE(4144, 76) { word var_c23044; var_c23044 = n_v8496.f0; if ((var_c23044 == 0)) { SOURCE(4173, 13) return(n_v8496.f1); } else { SOURCE(4199, 21) { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c24868)+131)/* var_c22692 */ ))+9) ); return((word) ( *( (fPt) ((* (ptr) pd107 ))))(n_v8496, pd107)); }; }; }; }; } else { SOURCE(4231, 28) { word idx108; word limit109; (* (( (W3Pt) (( (ptr) stack_v8412)+3))+( idx108 = (* (ptr) stack_v8412 ), limit109 = (* (( (ptr) stack_v8412)+2) ), BCK(idx108, limit109) )) ).f0 = 0; }; SOURCE(4261, 24) { word pd110; pd110 = (* (( (ptr) (* (( (ptr) gf_c24868)+131)/* var_c22692 */ ))+11) ); return((word) ( *( (fPt) ((* (ptr) pd110 ))))(ref_v8440, pd110)); }; }; } static word PopBool_P1080(frame_v5564) word frame_v5564; { word var_c5608; /* PopBool: */ SOURCE(4292, 78) SOURCE(4347, 23) return( (unsigned) ( (int)(word) PopInt_P1020(frame_v5564) != (int)0)); } static word PopReal_P1140(frame_v5668) word frame_v5668; { register ptr gf_c24900 = (ptr) &globalframe; word var_c5712; word impl_v8540; word stack_v8568; word ref_v8596 = 0; /* PopReal: */ SOURCE(4376, 467) SOURCE(4431, 28) impl_v8540 = (* (ptr) frame_v5668 ); SOURCE(4461, 25) stack_v8568 = (* (ptr) impl_v8540 ); SOURCE(4498, 54) if (((* (ptr) stack_v8568 ) <= 0)) { SOURCE(4524, 28) { word pd111; pd111 = (* (( (ptr) (* (( (ptr) gf_c24900)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd111 ))))(6, pd111); }; }; SOURCE(4554, 27) { word idx112; (* (ptr) stack_v8568 ) = ( idx112 = (word) ((* (ptr) stack_v8568 ) - 1), SGNCK(idx112) ); }; SOURCE(4583, 28) { word idx113; word limit114; ref_v8596 = (* (( (W3Pt) (( (ptr) stack_v8568)+3))+( idx113 = (* (ptr) stack_v8568 ), limit114 = (* (( (ptr) stack_v8568)+2) ), BCK(idx113, limit114) )) ).f0; }; SOURCE(4613, 230) if ((ref_v8596 == 0)) { SOURCE(4629, 150) { W2 n_v8652; SOURCE(4631, 37) { word idx115; word limit116; n_v8652 = (* (W2Pt) (( (ptr) (( (W3Pt) (( (ptr) stack_v8568)+3))+( idx115 = (* (ptr) stack_v8568 ), limit116 = (* (( (ptr) stack_v8568)+2) ), BCK(idx115, limit116) )))+1) ); }; SOURCE(4670, 107) { word var_c23172; var_c23172 = n_v8652.f0; if ((var_c23172 == 0)) { SOURCE(4699, 19) { float tf117; return(( tf117 = (float)(int)n_v8652.f1, *(word*)&tf117 )); }; } else { if ((var_c23172 == 1)) { SOURCE(4728, 14) return(n_v8652.f1); } else { SOURCE(4755, 22) { word pd118; pd118 = (* (( (ptr) (* (( (ptr) gf_c24900)+131)/* var_c22692 */ ))+10) ); return((word) ( *( (fPt) ((* (ptr) pd118 ))))(n_v8652, pd118)); }; }; }; }; }; } else { SOURCE(4788, 28) { word idx119; word limit120; (* (( (W3Pt) (( (ptr) stack_v8568)+3))+( idx119 = (* (ptr) stack_v8568 ), limit120 = (* (( (ptr) stack_v8568)+2) ), BCK(idx119, limit120) )) ).f0 = 0; }; SOURCE(4818, 25) { word pd121; pd121 = (* (( (ptr) (* (( (ptr) gf_c24900)+131)/* var_c22692 */ ))+12) ); return((word) ( *( (fPt) ((* (ptr) pd121 ))))(ref_v8596, pd121)); }; }; } static word PopAtom_P1200(frame_v5772) word frame_v5772; { register ptr gf_c24932 = (ptr) &globalframe; word var_c5816; word x_v8696; /* PopAtom: */ SOURCE(4851, 150) SOURCE(4906, 19) x_v8696 = (word) Pop_P840(frame_v5772); SOURCE(4927, 74) { word var_c23268; var_c23268 = x_v8696; if ((var_c23268 == 0)) { goto lab_L100001; }; if (((* (( (ptr) gf_c24932)+16) ) == XR_GetReferentType(var_c23268))) { { word x_v8740; x_v8740 = var_c23268; SOURCE(4957, 9) return(x_v8740); }; } else { lab_L100001: ; SOURCE(4979, 22) { word pd122; pd122 = (* (( (ptr) (* (( (ptr) gf_c24932)+131)/* var_c22692 */ ))+14) ); return((word) ( *( (fPt) ((* (ptr) pd122 ))))(x_v8696, pd122)); }; }; }; } static word PopRope_P1260(frame_v5876) word frame_v5876; { register ptr gf_c24964 = (ptr) &globalframe; word var_c5920; word x_v8784; /* PopRope: */ SOURCE(5007, 150) SOURCE(5062, 19) x_v8784 = (word) Pop_P840(frame_v5876); SOURCE(5083, 74) { word var_c23332; var_c23332 = x_v8784; if ((var_c23332 == 0)) { goto lab_L100002; }; { word tc123; if (((* (( (ptr) gf_c24964)+9) ) == XR_GetReferentType(var_c23332))) { tc123 = (word) ( (unsigned) (*(int*)var_c23332<0) == 0); } else { tc123 = (word) 0; }; if (tc123) { { word x_v8828; x_v8828 = var_c23332; SOURCE(5113, 9) return(x_v8828); }; } else { lab_L100002: ; SOURCE(5135, 22) { word pd124; pd124 = (* (( (ptr) (* (( (ptr) gf_c24964)+131)/* var_c22692 */ ))+15) ); return((word) ( *( (fPt) ((* (ptr) pd124 ))))(x_v8784, pd124)); }; }; }; }; } static word PopStream_P1320(frame_v5980) word frame_v5980; { register ptr gf_c24996 = (ptr) &globalframe; word var_c6024; word x_v8872; /* PopStream: */ SOURCE(5163, 158) SOURCE(5222, 19) x_v8872 = (word) Pop_P840(frame_v5980); SOURCE(5243, 78) { word var_c23396; var_c23396 = x_v8872; if ((var_c23396 == 0)) { goto lab_L100003; }; if (((* (( (ptr) gf_c24996)+15) ) == XR_GetReferentType(var_c23396))) { { word x_v8916; x_v8916 = var_c23396; SOURCE(5275, 9) return(x_v8916); }; } else { lab_L100003: ; SOURCE(5297, 24) { word pd125; pd125 = (* (( (ptr) (* (( (ptr) gf_c24996)+131)/* var_c22692 */ ))+16) ); return((word) ( *( (fPt) ((* (ptr) pd125 ))))(x_v8872, pd125)); }; }; }; } static word PopCmd_P1380(frame_v6084) word frame_v6084; { register ptr gf_c25028 = (ptr) &globalframe; word var_c6128; word x_v8960; /* PopCmd: */ SOURCE(5327, 146) SOURCE(5380, 19) x_v8960 = (word) Pop_P840(frame_v6084); SOURCE(5401, 72) { word var_c23460; var_c23460 = x_v8960; if ((var_c23460 == 0)) { goto lab_L100004; }; if (((* (( (ptr) gf_c25028)+14) ) == XR_GetReferentType(var_c23460))) { { word x_v9004; x_v9004 = var_c23460; SOURCE(5430, 9) return(x_v9004); }; } else { lab_L100004: ; SOURCE(5452, 21) { word pd126; pd126 = (* (( (ptr) (* (( (ptr) gf_c25028)+131)/* var_c22692 */ ))+17) ); return((word) ( *( (fPt) ((* (ptr) pd126 ))))(x_v8960, pd126)); }; }; }; } static word PopArray_P1440(frame_v6188) word frame_v6188; { register ptr gf_c25060 = (ptr) &globalframe; word var_c6232; word x_v9048; /* PopArray: */ SOURCE(5479, 154) SOURCE(5536, 19) x_v9048 = (word) Pop_P840(frame_v6188); SOURCE(5557, 76) { word var_c23524; var_c23524 = x_v9048; if ((var_c23524 == 0)) { goto lab_L100005; }; if (((* (( (ptr) gf_c25060)+13) ) == XR_GetReferentType(var_c23524))) { { word x_v9092; x_v9092 = var_c23524; SOURCE(5588, 9) return(x_v9092); }; } else { lab_L100005: ; SOURCE(5610, 23) { word pd127; pd127 = (* (( (ptr) (* (( (ptr) gf_c25060)+131)/* var_c22692 */ ))+18) ); return((word) ( *( (fPt) ((* (ptr) pd127 ))))(x_v9048, pd127)); }; }; }; } static word PopDict_P1500(frame_v6292) word frame_v6292; { register ptr gf_c25092 = (ptr) &globalframe; word var_c6336; word x_v9136; /* PopDict: */ SOURCE(5639, 150) SOURCE(5694, 19) x_v9136 = (word) Pop_P840(frame_v6292); SOURCE(5715, 74) { word var_c23588; var_c23588 = x_v9136; if ((var_c23588 == 0)) { goto lab_L100006; }; if (((* (( (ptr) gf_c25092)+12) ) == XR_GetReferentType(var_c23588))) { { word x_v9180; x_v9180 = var_c23588; SOURCE(5745, 9) return(x_v9180); }; } else { lab_L100006: ; SOURCE(5767, 22) { word pd128; pd128 = (* (( (ptr) (* (( (ptr) gf_c25092)+131)/* var_c22692 */ ))+19) ); return((word) ( *( (fPt) ((* (ptr) pd128 ))))(x_v9136, pd128)); }; }; }; } static word PopMark_P1560(frame_v6396) word frame_v6396; { register ptr gf_c25124 = (ptr) &globalframe; word var_c6440; word x_v9224; /* PopMark: */ SOURCE(5795, 150) SOURCE(5850, 19) x_v9224 = (word) Pop_P840(frame_v6396); SOURCE(5871, 74) { word var_c23652; var_c23652 = x_v9224; if ((var_c23652 == 0)) { goto lab_L100007; }; if (((* (( (ptr) gf_c25124)+7) ) == XR_GetReferentType(var_c23652))) { { word x_v9268; x_v9268 = var_c23652; SOURCE(5901, 9) return(x_v9268); }; } else { lab_L100007: ; SOURCE(5923, 22) { word pd129; pd129 = (* (( (ptr) (* (( (ptr) gf_c25124)+131)/* var_c22692 */ ))+20) ); return((word) ( *( (fPt) ((* (ptr) pd129 ))))(x_v9224, pd129)); }; }; }; } static void Copy_P1620(frame_v6500, n_v6528) word frame_v6500; word n_v6528; { register ptr gf_c25156 = (ptr) &globalframe; word impl_v9312; word stack_v9340; /* Copy: */ SOURCE(5952, 484) SOURCE(5997, 28) impl_v9312 = (* (ptr) frame_v6500 ); SOURCE(6027, 25) stack_v9340 = (* (ptr) impl_v9312 ); SOURCE(6054, 37) if (( (int)n_v6528 < (int)0)) { SOURCE(6066, 25) { word pd130; pd130 = (* (( (ptr) (* (( (ptr) gf_c25156)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd130 ))))(4, pd130); }; }; SOURCE(6093, 50) if (( (int)(* (ptr) stack_v9340 ) < (int)n_v6528)) { SOURCE(6115, 28) { word pd131; pd131 = (* (( (ptr) (* (( (ptr) gf_c25156)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd131 ))))(6, pd131); }; }; SOURCE(6145, 143) if (( (int)((* (( (ptr) stack_v9340)+2) ) - (* (ptr) stack_v9340 )) < (int)n_v6528)) { SOURCE(6180, 108) { word array_v9384; SOURCE(6181, 36) { word pd132; pd132 = (* (( (ptr) (* (( (ptr) gf_c25156)+131)/* var_c22692 */ ))+61) ); array_v9384 = (word) ( *( (fPt) ((* (ptr) pd132 ))))((* (ptr) (stack_v9340) ), pd132); }; SOURCE(6219, 20) { word pd133; pd133 = (* (( (ptr) (* (( (ptr) gf_c25156)+131)/* var_c22692 */ ))+69) ); (void) ( *( (fPt) ((* (ptr) pd133 ))))(frame_v6500, array_v9384, pd133); }; SOURCE(6241, 18) (void) Push_P120(frame_v6500, array_v9384); SOURCE(6261, 27) { word pd134; pd134 = (* (( (ptr) (* (( (ptr) gf_c25156)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd134 ))))(7, pd134); }; }; }; SOURCE(6291, 145) if (( (int)n_v6528 != (int)0)) { SOURCE(6303, 135) { word k_v9428; word b_v9456; SOURCE(6305, 10) k_v9428 = SGNCK(n_v6528); SOURCE(6317, 22) b_v9456 = ((* (ptr) stack_v9340 ) - k_v9428); SOURCE(6341, 57) { register word i_v9500; register word noName_c23716; i_v9500 = b_v9456; noName_c23716 = (b_v9456 + k_v9428); if ((i_v9500 >= noName_c23716)) { goto lab_L100008; }; lab_L100011: ; SOURCE(6374, 24) SOURCE(6376, 22) { word var_c23748; var_c23748 = (i_v9500 + k_v9428); { word limit135; word limit136; (* (( (W3Pt) (( (ptr) stack_v9340)+3))+( limit135 = (* (( (ptr) stack_v9340)+2) ), BCK(var_c23748, limit135) )) ) = (* (( (W3Pt) (( (ptr) stack_v9340)+3))+( limit136 = (* (( (ptr) stack_v9340)+2) ), BCK(i_v9500, limit136) )) ); }; }; i_v9500 = (i_v9500 + 1); if ((i_v9500 < noName_c23716)) { goto lab_L100011; }; lab_L100008: ; }; SOURCE(6409, 27) { word idx137; (* (ptr) stack_v9340 ) = ( idx137 = (word) ((* (ptr) stack_v9340 ) + k_v9428), SGNCK(idx137) ); }; }; }; } static void Dup_P1680(frame_v6588) word frame_v6588; { /* Dup: */ SOURCE(6445, 51) SOURCE(6481, 15) (void) Copy_P1620(frame_v6588, 1); } static void Roll_P1740(frame_v6648, n_v6676, k_v6704) word frame_v6648; word n_v6676; word k_v6704; { W7 var_c25188; register ptr gf_c25220 = (ptr) &globalframe; /* declaration of var_c23780 skipped */ word impl_v9544; /* declaration of stack_v9572 skipped */ /* Roll: */ SOURCE(6500, 594) { word tmpAddr138; tmpAddr138 = (word) (( (ptr) &var_c25188)+4)/* var_c23780 */ ; (* (ptr) tmpAddr138 ) = ( ((word) (fPt) Reverse_P3720) ); (* (( (ptr) tmpAddr138) + 1) ) = 1; }; SOURCE(6548, 28) impl_v9544 = (* (ptr) frame_v6648 ); SOURCE(6578, 25) var_c25188.f6/* stack_v9572 */ = (* (ptr) impl_v9544 ); SOURCE(6605, 19) if (( (int)k_v6704 < (int)0)) { SOURCE(6617, 7) k_v6704 = (n_v6676 + k_v6704); }; SOURCE(6626, 51) if ((( (int)n_v6676 < (int)0) || ( (int)k_v6704 < (int)0)) || ( (int)k_v6704 > (int)n_v6676)) { SOURCE(6652, 25) { word pd139; pd139 = (* (( (ptr) (* (( (ptr) gf_c25220)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd139 ))))(4, pd139); }; }; SOURCE(6679, 50) if (( (int)(* (ptr) var_c25188.f6/* stack_v9572 */ ) < (int)n_v6676)) { SOURCE(6701, 28) { word pd140; pd140 = (* (( (ptr) (* (( (ptr) gf_c25220)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd140 ))))(6, pd140); }; }; SOURCE(6731, 363) if ((( (int)n_v6676 == (int)0) || ( (int)k_v6704 == (int)0)) || ( (int)k_v6704 == (int)n_v6676)) { } else { SOURCE(6767, 329) { word b_v9616; word m_v9644; SOURCE(6769, 22) b_v9616 = ((* (ptr) var_c25188.f6/* stack_v9572 */ ) - n_v6676); SOURCE(6793, 12) m_v9644 = (n_v6676 - k_v6704); SOURCE(7043, 15) (void) Reverse_P3720(b_v9616, (b_v9616 + m_v9644), (word) (( (bPt) &var_c25188)+16)/* var_c23780 */ ); SOURCE(7060, 17) (void) Reverse_P3720((b_v9616 + m_v9644), (b_v9616 + n_v6676), (word) (( (bPt) &var_c25188)+16)/* var_c23780 */ ); SOURCE(7079, 15) (void) Reverse_P3720(b_v9616, (b_v9616 + n_v6676), (word) (( (bPt) &var_c25188)+16)/* var_c23780 */ ); }; }; } static void Reverse_P3720(bot_v9748, top_v9776, formal_c25252) word bot_v9748; word top_v9776; word formal_c25252; { formal_c25252 = (formal_c25252 - 16); /* Reverse: */ SOURCE(6807, 15) SOURCE(6868, 160) { register word x_v9804 = 0; register word noName_c23812; noName_c23812 = ((word) SGNCK((top_v9776 - bot_v9748)) >> 1); if ((x_v9804 >= noName_c23812)) { goto lab_L100012; }; lab_L100015: ; { word i_v9848; word j_v9876; W3 temp_v9904; SOURCE(6904, 14) i_v9848 = (bot_v9748 + x_v9804); SOURCE(6920, 16) j_v9876 = ((top_v9776 - 1) - x_v9804); SOURCE(6938, 29) { word limit141; temp_v9904 = (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c25252)+6) ))+3))+( limit141 = (* (( (ptr) (* (( (ptr) formal_c25252)+6) ))+2) ), BCK(i_v9848, limit141) )) ); }; SOURCE(6977, 22) SOURCE(6979, 20) { word limit142; word limit143; (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c25252)+6) ))+3))+( limit142 = (* (( (ptr) (* (( (ptr) formal_c25252)+6) ))+2) ), BCK(i_v9848, limit142) )) ) = (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c25252)+6) ))+3))+( limit143 = (* (( (ptr) (* (( (ptr) formal_c25252)+6) ))+2) ), BCK(j_v9876, limit143) )) ); }; SOURCE(7010, 18) SOURCE(7012, 16) { word limit144; (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c25252)+6) ))+3))+( limit144 = (* (( (ptr) (* (( (ptr) formal_c25252)+6) ))+2) ), BCK(j_v9876, limit144) )) ) = temp_v9904; }; }; x_v9804 = (x_v9804 + 1); if ((x_v9804 < noName_c23812)) { goto lab_L100015; }; lab_L100012: ; }; } static void Exch_P1800(frame_v6764) word frame_v6764; { /* Exch: */ SOURCE(7102, 55) SOURCE(7139, 18) (void) Roll_P1740(frame_v6764, 2, 1); } static word Top_P1860(frame_v6824) word frame_v6824; { register ptr gf_c25284 = (ptr) &globalframe; word var_c6868; word impl_v9948; word stack_v9976; word ref_v10004 = 0; word var_c23844; /* Top: */ SOURCE(7162, 287) SOURCE(7212, 28) impl_v9948 = (* (ptr) frame_v6824 ); SOURCE(7242, 25) stack_v9976 = (* (ptr) impl_v9948 ); SOURCE(7279, 54) if (((* (ptr) stack_v9976 ) <= 0)) { SOURCE(7305, 28) { word pd145; pd145 = (* (( (ptr) (* (( (ptr) gf_c25284)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd145 ))))(6, pd145); }; }; SOURCE(7335, 30) { word limit146; var_c23844 = ((* (ptr) stack_v9976 ) - 1); ref_v10004 = (* (( (W3Pt) (( (ptr) stack_v9976)+3))+( limit146 = (* (( (ptr) stack_v9976)+2) ), BCK(var_c23844, limit146) )) ).f0; }; SOURCE(7367, 82) if ((ref_v10004 == 0)) { SOURCE(7383, 55) { word var_c23908; word var_c23940; var_c23908 = XR_NewObject(8, (* (( (ptr) gf_c25284)+17) )); { word limit147; var_c23940 = ((* (ptr) stack_v9976 ) - 1); (* (W2Pt) var_c23908 ) = (* (W2Pt) (( (ptr) (( (W3Pt) (( (ptr) stack_v9976)+3))+( limit147 = (* (( (ptr) stack_v9976)+2) ), BCK(var_c23940, limit147) )))+1) ); }; return(var_c23908); }; } else { SOURCE(7438, 11) return(ref_v10004); }; } static word TopType_P1920(frame_v6928) word frame_v6928; { register ptr gf_c25316 = (ptr) &globalframe; word var_c6972; word impl_v10060; word stack_v10088; word ref_v10116 = 0; word var_c23972; /* TopType: */ SOURCE(7455, 267) SOURCE(7514, 28) impl_v10060 = (* (ptr) frame_v6928 ); SOURCE(7544, 25) stack_v10088 = (* (ptr) impl_v10060 ); SOURCE(7581, 54) if (((* (ptr) stack_v10088 ) <= 0)) { SOURCE(7607, 28) { word pd148; pd148 = (* (( (ptr) (* (( (ptr) gf_c25316)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd148 ))))(6, pd148); }; }; SOURCE(7637, 30) { word limit149; var_c23972 = ((* (ptr) stack_v10088 ) - 1); ref_v10116 = (* (( (W3Pt) (( (ptr) stack_v10088)+3))+( limit149 = (* (( (ptr) stack_v10088)+2) ), BCK(var_c23972, limit149) )) ).f0; }; SOURCE(7669, 53) if ((ref_v10116 == 0)) { SOURCE(7685, 20) return(1); } else { SOURCE(7705, 17) { word pd150; pd150 = (* (( (ptr) (* (( (ptr) gf_c25316)+131)/* var_c22692 */ ))+7) ); return((word) ( *( (fPt) ((* (ptr) pd150 ))))(ref_v10116, pd150)); }; }; } static word StackIsEmpty_P1980(frame_v7032) word frame_v7032; { word var_c7076; word impl_v10172; word stack_v10200; /* StackIsEmpty: */ SOURCE(7728, 138) SOURCE(7788, 28) impl_v10172 = (* (ptr) frame_v7032 ); SOURCE(7818, 25) stack_v10200 = (* (ptr) impl_v10172 ); SOURCE(7845, 21) return( (unsigned) ((* (ptr) stack_v10200 ) == 0)); } static word CountStack_P2040(frame_v7136) word frame_v7136; { word var_c7180; word impl_v10244; word stack_v10272; /* CountStack: */ SOURCE(7872, 133) SOURCE(7929, 28) impl_v10244 = (* (ptr) frame_v7136 ); SOURCE(7959, 25) stack_v10272 = (* (ptr) impl_v10244 ); SOURCE(7986, 19) return((* (ptr) stack_v10272 )); } static word Index_P2100(frame_v7240, i_v7268) word frame_v7240; word i_v7268; { register ptr gf_c25348 = (ptr) &globalframe; word var_c7312; word impl_v10316; word stack_v10344; word k_v10372; word ref_v10400 = 0; /* Index: */ SOURCE(8011, 338) SOURCE(8071, 28) impl_v10316 = (* (ptr) frame_v7240 ); SOURCE(8101, 25) stack_v10344 = (* (ptr) impl_v10316 ); SOURCE(8146, 37) if (( (int)i_v7268 < (int)0)) { SOURCE(8158, 25) { word pd151; pd151 = (* (( (ptr) (* (( (ptr) gf_c25348)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd151 ))))(4, pd151); }; }; SOURCE(8185, 51) if (( (int)i_v7268 >= (int)(* (ptr) stack_v10344 ))) { SOURCE(8208, 28) { word pd152; pd152 = (* (( (ptr) (* (( (ptr) gf_c25348)+131)/* var_c22692 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd152 ))))(6, pd152); }; }; SOURCE(8238, 19) { word idx153; k_v10372 = ( idx153 = (word) (((* (ptr) stack_v10344 ) - 1) - i_v7268), SGNCK(idx153) ); }; SOURCE(8259, 18) { word limit154; ref_v10400 = (* (( (W3Pt) (( (ptr) stack_v10344)+3))+( limit154 = (* (( (ptr) stack_v10344)+2) ), BCK(k_v10372, limit154) )) ).f0; }; SOURCE(8279, 70) if ((ref_v10400 == 0)) { SOURCE(8295, 43) { word var_c24068; var_c24068 = XR_NewObject(8, (* (( (ptr) gf_c25348)+17) )); { word limit155; (* (W2Pt) var_c24068 ) = (* (W2Pt) (( (ptr) (( (W3Pt) (( (ptr) stack_v10344)+3))+( limit155 = (* (( (ptr) stack_v10344)+2) ), BCK(k_v10372, limit155) )))+1) ); }; return(var_c24068); }; } else { SOURCE(8338, 11) return(ref_v10400); }; } static word CountToMark_P2160(frame_v7372) word frame_v7372; { register ptr gf_c25380 = (ptr) &globalframe; word var_c7416; word impl_v10456; word stack_v10484; /* CountToMark: */ SOURCE(8355, 264) SOURCE(8413, 28) impl_v10456 = (* (ptr) frame_v7372 ); SOURCE(8443, 25) stack_v10484 = (* (ptr) impl_v10456 ); SOURCE(8470, 110) { register word i_v10528; i_v10528 = (* (ptr) stack_v10484 ); if ((0 >= i_v10528)) { goto lab_L100016; }; i_v10528 = (i_v10528 - 1); lab_L100019: ; SOURCE(8514, 66) { word var_c24100; { word limit156; var_c24100 = (* (( (W3Pt) (( (ptr) stack_v10484)+3))+( limit156 = (* (( (ptr) stack_v10484)+2) ), BCK(i_v10528, limit156) )) ).f0; }; if ((var_c24100 == 0)) { goto lab_L100020; }; if (((* (( (ptr) gf_c25380)+7) ) == XR_GetReferentType(var_c24100))) { { word x_v10572; x_v10572 = var_c24100; SOURCE(8555, 25) return(((* (ptr) stack_v10484 ) - (i_v10528 + 1))); }; } else { lab_L100020: ; }; }; if ((0 >= i_v10528)) { goto lab_L100016; }; i_v10528 = (i_v10528 - 1); goto lab_L100019; lab_L100016: ; }; SOURCE(8600, 19) return((* (ptr) stack_v10484 )); } static void ClearToMark_P2220(frame_v7476) word frame_v7476; { register ptr gf_c25412 = (ptr) &globalframe; word impl_v10616; word stack_v10644; /* ClearToMark: */ SOURCE(8625, 242) SOURCE(8669, 28) impl_v10616 = (* (ptr) frame_v7476 ); SOURCE(8699, 25) stack_v10644 = (* (ptr) impl_v10616 ); SOURCE(8726, 141) lab_L100023: ; if (((* (ptr) stack_v10644 ) > 0)) { } else { goto lab_L100021; }; { word ref_v10688; word var_c24164; SOURCE(8749, 49) { word limit158; { word idx157; var_c24164 = ( idx157 = (word) ((* (ptr) stack_v10644 ) - 1), SGNCK(idx157) ); }; (* (ptr) stack_v10644 ) = var_c24164; ref_v10688 = (* (( (W3Pt) (( (ptr) stack_v10644)+3))+( limit158 = (* (( (ptr) stack_v10644)+2) ), BCK(var_c24164, limit158) )) ).f0; }; SOURCE(8800, 44) if ((ref_v10688 != 0)) { SOURCE(8816, 28) { word idx159; word limit160; (* (( (W3Pt) (( (ptr) stack_v10644)+3))+( idx159 = (* (ptr) stack_v10644 ), limit160 = (* (( (ptr) stack_v10644)+2) ), BCK(idx159, limit160) )) ).f0 = 0; }; }; SOURCE(8846, 21) { word var_c24196; var_c24196 = ref_v10688; if ((var_c24196 == 0)) { goto lab_L100024; }; if (((* (( (ptr) gf_c25412)+7) ) == XR_GetReferentType(var_c24196))) { { word x_v10744; x_v10744 = var_c24196; SOURCE(8878, 4) goto lab_L100022; }; } else { lab_L100024: ; }; }; }; goto lab_L100023; lab_L100021: ; lab_L100022: ; } static void ClearStack_P2280(frame_v7536) word frame_v7536; { word impl_v10788; word stack_v10816; /* ClearStack: */ SOURCE(8906, 218) SOURCE(8949, 28) impl_v10788 = (* (ptr) frame_v7536 ); SOURCE(8979, 25) stack_v10816 = (* (ptr) impl_v10788 ); SOURCE(9006, 118) lab_L100027: ; if (((* (ptr) stack_v10816 ) > 0)) { } else { goto lab_L100025; }; { word ref_v10860; word var_c24260; SOURCE(9029, 49) { word limit162; { word idx161; var_c24260 = ( idx161 = (word) ((* (ptr) stack_v10816 ) - 1), SGNCK(idx161) ); }; (* (ptr) stack_v10816 ) = var_c24260; ref_v10860 = (* (( (W3Pt) (( (ptr) stack_v10816)+3))+( limit162 = (* (( (ptr) stack_v10816)+2) ), BCK(var_c24260, limit162) )) ).f0; }; SOURCE(9080, 44) if ((ref_v10860 != 0)) { SOURCE(9096, 28) { word idx163; word limit164; (* (( (W3Pt) (( (ptr) stack_v10816)+3))+( idx163 = (* (ptr) stack_v10816 ), limit164 = (* (( (ptr) stack_v10816)+2) ), BCK(idx163, limit164) )) ).f0 = 0; }; }; }; goto lab_L100027; lab_L100025: ; } static void ApplyPop_P2340(frame_v13236, cmd_v13264) word frame_v13236; word cmd_v13264; { /* ApplyPop: */ SOURCE(9140, 39) SOURCE(9166, 13) (void) Remove_P900(frame_v13236); } static void ApplyCopy_P2400(frame_v13324, cmd_v13352) word frame_v13324; word cmd_v13352; { word n_v10916; /* ApplyCopy: */ SOURCE(9185, 65) SOURCE(9212, 22) n_v10916 = (word) PopInt_P1020(frame_v13324); SOURCE(9236, 14) (void) Copy_P1620(frame_v13324, n_v10916); } static void ApplyDup_P2460(frame_v13412, cmd_v13440) word frame_v13412; word cmd_v13440; { /* ApplyDup: */ SOURCE(9256, 40) SOURCE(9282, 14) (void) Copy_P1620(frame_v13412, 1); } static void ApplyRoll_P2520(frame_v13500, cmd_v13528) word frame_v13500; word cmd_v13528; { word k_v10960; word n_v10988; /* ApplyRoll: */ SOURCE(9302, 92) SOURCE(9329, 22) k_v10960 = (word) PopInt_P1020(frame_v13500); SOURCE(9353, 22) n_v10988 = (word) PopInt_P1020(frame_v13500); SOURCE(9377, 17) (void) Roll_P1740(frame_v13500, n_v10988, k_v10960); } static void ApplyExch_P2580(frame_v13588, cmd_v13616) word frame_v13588; word cmd_v13616; { /* ApplyExch: */ SOURCE(9400, 44) SOURCE(9427, 17) (void) Roll_P1740(frame_v13588, 2, 1); } static void ApplyCount_P2640(frame_v13676, cmd_v13704) word frame_v13676; word cmd_v13704; { word n_v11032; /* ApplyCount: */ SOURCE(9450, 73) SOURCE(9478, 26) n_v11032 = (word) CountStack_P2040(frame_v13676); SOURCE(9506, 17) (void) PushInt_P240(frame_v13676, n_v11032); } static void ApplyClearStack_P2700(frame_v13764, cmd_v13792) word frame_v13764; word cmd_v13792; { /* ApplyClearStack: */ SOURCE(9529, 50) SOURCE(9562, 17) (void) ClearStack_P2280(frame_v13764); } static void ApplyIndex_P2760(frame_v13852, cmd_v13880) word frame_v13852; word cmd_v13880; { word i_v11076; /* ApplyIndex: */ SOURCE(9585, 80) SOURCE(9613, 22) i_v11076 = (word) PopInt_P1020(frame_v13852); SOURCE(9637, 28) { word var_c24292; var_c24292 = (word) Index_P2100(frame_v13852, i_v11076); (void) Push_P120(frame_v13852, var_c24292); }; } static void ApplyMark_P2820(frame_v13972, cmd_v14000) word frame_v13972; word cmd_v14000; { register ptr gf_c25444 = (ptr) &globalframe; /* ApplyMark: */ SOURCE(9712, 55) SOURCE(9739, 28) (void) PushMark_P780(frame_v13972, (* (( (ptr) gf_c25444)+5)/* defaultMark_v3868 */ )); } static void ApplyCountToMark_P2880(frame_v14060, cmd_v14088) word frame_v14060; word cmd_v14088; { word n_v11120; /* ApplyCountToMark: */ SOURCE(9773, 80) SOURCE(9807, 27) n_v11120 = (word) CountToMark_P2160(frame_v14060); SOURCE(9836, 17) (void) PushInt_P240(frame_v14060, n_v11120); } static void ApplyClearToMark_P2940(frame_v14148, cmd_v14176) word frame_v14148; word cmd_v14176; { /* ApplyClearToMark: */ SOURCE(9859, 52) SOURCE(9893, 18) (void) ClearToMark_P2220(frame_v14148); } /* file: TJaMStackImpl, module: TJaMStackImpl, compiled at: October 19, 1993 1:03:13 pm PDT */ extern void XR_install_TJaMStackImpl() { NoName_Q4116(); } extern void XR_run_TJaMStackImpl() { XR_Start(&globalframe); }