#include "M3Runtime.h" typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "illegal operands for unary \047+\047", 31}; PRIVATE TXT txt2 = { 3, "U+ ", 4}; #line 16 "../Interfaces/Type.i3" #define t2 ADDRESS #define t67 void typedef int t23; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t50; #line 16 "../Interfaces/Type.i3" #define t35 t50 #define TC2 TC_Type__Map IMPORT TYPE TC_Type__Map; #line 16 IMPORT char VS_Type__Map__41dd9f4b33104fce; #define t9 ADDRESS #define TC9 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 14 "./Expr.i3" #define t28 ADDRESS #define t63 ADDRESS typedef struct { TYPE self; int private; } t63_methods; #define t63_msize (sizeof (t63_methods)) typedef struct { ADDRESS methods; } t63_fields; #define t63_size (sizeof (t63_fields)) #define TC63 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; #line 16 "../Interfaces/M3.i3" #define t5 ADDRESS #define TC5 TC_M3__Expr IMPORT TYPE TC_M3__Expr; #line 16 IMPORT char VS_M3__Expr__8ae39aaa2d432477; #line 14 "./Expr.i3" #define t29 t50 #define TC28 TC_Expr__List IMPORT TYPE TC_Expr__List; #line 14 IMPORT char VS_Expr__List__3f87eceb2b9a246a; #line 17 "../Interfaces/Type.i3" #define t33 ADDRESS #define t12 ADDRESS #define TC12 TC_M3__Type IMPORT TYPE TC_M3__Type; #line 18 "../Interfaces/M3.i3" IMPORT char VS_M3__Type__4d87bc25311f81d2; #line 17 "../Interfaces/Type.i3" typedef struct { t33 _next; t12 _type; } t34; #define TC33 TC_Type__List IMPORT TYPE TC_Type__List; #line 17 IMPORT char VS_Type__List__5791758e343becc1; #define t45 ADDRESS #define TC45 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t52 ADDRESS #define TC52 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t53 ADDRESS typedef struct { TYPE self; int private; } t53_methods; #define t53_msize (sizeof (t53_methods)) typedef struct { ADDRESS methods; } t53_fields; #define t53_size (sizeof (t53_fields)) #define TC53 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t53_MapProc TC_ROOT->mapProc #define t1 ADDRESS #define TC1 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t1_MapProc TC_Wr__T->mapProc #define t3 ADDRESS #line 32 "./Temp.i3" typedef t67 (*t4)(); #line 19 "../Interfaces/M3.i3" #define t7 ADDRESS #define TC7 TC_M3__Temp IMPORT TYPE TC_M3__Temp; #line 19 IMPORT char VS_M3__Temp__450b691937f03dae; #line 31 "./ExprRep.i3" typedef t7 (*t8)(); #line 24 typedef t5 (*t6)(); typedef unsigned char t10; #line 44 typedef t10 (*t11)(); #line 13 "./ExprA.i3" #define t13 ADDRESS #line 13 typedef struct { int filler; } t13_methods; #define t13_msize (sizeof (t13_methods)) typedef struct { #line 13 t5 _a; } t13_fields; #define t13_size (sizeof (t13_fields)) #define TC13 TC_ExprA__T IMPORT TYPE TC_ExprA__T; #line 13 IMPORT char VS_ExprA__T__2939e24629f27817; #line 14 "PlusExpr.m3" typedef struct { int filler; } t3_methods; #define t3_msize (sizeof (t3_methods)) typedef struct { #line 14 int filler; } t3_fields; #define t3_size (sizeof (t3_fields)) PRIVATE void t3_InitProc (); #line 14 PRIVATE void t3_SetupProc (); PRIVATE void t3_PrintProc (); PRIVATE typecell t3_TC; PRIVATE typecell t3_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, #line 14 t3_size, t3_msize, NIL, 0, 0, t3_InitProc, t3_SetupProc, t3_PrintProc, "", 1749947249, 760038152}; PRIVATE TYPE TC3 = &t3_TC; #line 15 "../Interfaces/M3.i3" #define t14 ADDRESS #define TC14 TC_M3__Value IMPORT TYPE TC_M3__Value; #line 15 IMPORT char VS_M3__Value__6f64cf9c2cae25fb; #line 45 "../Interfaces/Value.i3" typedef t12 (*t15)(); #line 18 typedef unsigned char t16; #line 40 typedef t16 (*t17)(); #line 27 typedef t14 (*t18)(); #line 13 "../Interfaces/String.i3" #define t19 ADDRESS #define TC19 TC_String__T IMPORT TYPE TC_String__T; #line 13 IMPORT char VS_String__T__3a6c7dc12615e4ee; typedef double t20; #line 15 "../Interfaces/Reel.i3" typedef t19 (*t21)(); #line 14 typedef t20 (*t22)(); #define t24 ADDRESS #define TC24 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t24_MapProc TC_TEXT->mapProc typedef struct { #line 14 "../Interfaces/String.i3" t19 _module; t19 _item; } t25; #line 13 "./ExprRep.i3" #define t26 ADDRESS #line 13 typedef struct { t4 _bind; t4 _check; t4 _write; t11 _isEqual; t6 _evaluate; t4 _getBounds; t11 _isWritable; t11 _isDesignator; #line 13 t11 _isZeroes; t4 _genLiteral; t4 _fprint; t8 _compile; } t26_methods; #define t26_msize (sizeof (t26_methods)) typedef struct { #line 13 t23 _origin; t12 _type; t10 _bound; t10 _inCheck; t10 _checked; } t26_fields; #define t26_size (sizeof (t26_fields)) #define TC26 TC_M3__Expr typedef unsigned char t37; #line 45 "../Interfaces/Token.i3" typedef struct { int elts[4]; } t27; #line 19 "../Interfaces/String.i3" typedef signed_char t43; #line 65 "../Interfaces/Token.i3" #define t36 t50 typedef struct { t19 elts[100]; } t44; #line 17 "../Interfaces/String.i3" typedef struct { t23 _top; t44 _stk; } t30; #line 121 "../Interfaces/Type.i3" typedef t2 (*t31)(); #line 97 typedef t23 (*t32)(); #line 65 "../Interfaces/Token.i3" typedef struct { t19 elts[97]; } t38; typedef int t39; #line 37 "../Interfaces/String.i3" typedef t24 (*t40)(); typedef unsigned char t41; #line 28 #define t42 t50 typedef signed_char t46; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef t46 (*t47)(); #line 26 typedef t39 (*t48)(); #line 23 typedef t41 (*t49)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t51; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t54 ADDRESS #define TC54 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t54_MapProc TC_Thread__T->mapProc typedef t52 (*t55)(); #define t56 ADDRESS #define TC56 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t56_MapProc TC_Thread__Condition->mapProc #define t57 ADDRESS #define TC57 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t57_MapProc TC_MUTEX->mapProc typedef t54 (*t58)(); #line 23 #define t59 ADDRESS #line 23 typedef struct { t55 _apply; } t59_methods; #define t59_msize (sizeof (t59_methods)) typedef struct { #line 23 int filler; } t59_fields; #define t59_size (sizeof (t59_fields)) #define TC59 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t59_MapProc TC_Thread__Closure->mapProc typedef t56 (*t60)(); typedef t57 (*t61)(); #line 28 #define t62 ADDRESS #line 28 typedef struct { int filler; } t62_methods; #define t62_msize (sizeof (t62_methods)) typedef struct { #line 28 t39 _stackSize; } t62_fields; #define t62_size (sizeof (t62_fields)) #define TC62 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t62_MapProc TC_Thread__SizedClosure->mapProc #define t64 ADDRESS #define TC64 TC_M3__Stmt IMPORT TYPE TC_M3__Stmt; #line 17 "../Interfaces/M3.i3" IMPORT char VS_M3__Stmt__376b307627fc1f2f; #line 14 #define t65 ADDRESS #define TC65 TC_M3__Scope IMPORT TYPE TC_M3__Scope; #line 14 IMPORT char VS_M3__Scope__6e6d8848308d8a2d; typedef CLOSURE t66; typedef float t68; #line 9 "PlusExpr.m3" IMPORT INITLINK* Wr__init; IMPORT INITLINK* Temp__init; IMPORT INITLINK* Longreal__init; IMPORT INITLINK* Reel__init; IMPORT INITLINK* Int__init; #line 9 IMPORT INITLINK* Error__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* ExprRep__init; IMPORT INITLINK* ExprA__init; IMPORT INITLINK* Expr__init; #line 9 IMPORT INITLINK* PlusExpr__init; IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; #line 9 IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15; #line 9 IMPORT t67 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846; IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee; #line 9 IMPORT t12 _Longreal__T; IMPORT char VS_Longreal__T__5097042c20911d85; IMPORT t12 _Reel__T; IMPORT char VS_Reel__T__254c3c852237b326; #line 9 IMPORT t12 _Int__T; IMPORT char VS_Int__T__1062912139372387; IMPORT t67 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f; #line 9 IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; IMPORT t12 _Type__Base (); IMPORT char VS_Type__Base__2bebd0333659a92c; #line 9 IMPORT t67 _ExprRep__Init (); IMPORT char VS_ExprRep__Init__8b7fff3e227cebab; IMPORT t67 _ExprRep__NoBind (); IMPORT char VS_ExprRep__NoBind__e7d0d3dd3d703c08; #line 9 IMPORT t67 _ExprRep__NoCheck (); IMPORT char VS_ExprRep__NoCheck__c11b54bc361794fa; IMPORT t5 _ExprRep__NoValue (); IMPORT char VS_ExprRep__NoValue__8ccc143224598a66; #line 9 IMPORT t67 _ExprRep__NoBounds (); IMPORT char VS_ExprRep__NoBounds__b64bb146289ee4f0; IMPORT t10 _ExprRep__IsNever (); IMPORT char VS_ExprRep__IsNever__8f1a069b301903c8; #line 9 IMPORT t10 _ExprRep__NeverEq (); IMPORT char VS_ExprRep__NeverEq__dfdc2412249ccb65; IMPORT t67 _ExprRep__NoWriter (); IMPORT char VS_ExprRep__NoWriter__a97bb1a23bbf506e; #line 9 IMPORT t67 _ExprRep__NoLiteral (); IMPORT char VS_ExprRep__NoLiteral__6c9c90073f496f67; IMPORT t67 _ExprA__Bind (); IMPORT char VS_ExprA__Bind__08846be83f5a1e99; #line 9 IMPORT t10 _ExprA__EqCheck (); IMPORT char VS_ExprA__EqCheck__da9dd11f27dbbbfb; IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; #line 9 IMPORT t67 _Expr__Bind (); IMPORT char VS_Expr__Bind__7e2752da3eaf56eb; IMPORT t12 _Expr__TypeOf (); IMPORT char VS_Expr__TypeOf__fef0a11b388c64fa; #line 9 IMPORT t5 _Expr__ConstValue (); IMPORT char VS_Expr__ConstValue__ce4fd448218fe483; IMPORT t67 _Expr__TypeCheck (); IMPORT char VS_Expr__TypeCheck__af9aa9073729e7f7; #line 9 IMPORT t7 _Expr__Compile (); IMPORT char VS_Expr__Compile__a7e0cc4029a2ec76; IMPORT t10 _Expr__IsEqual (); IMPORT char VS_Expr__IsEqual__062d8b2c385e35a9; #line 9 IMPORT t67 _Expr__Fingerprint (); IMPORT char VS_Expr__Fingerprint__50ce687c31d90a5b; EXPORT t5 _PlusExpr__New (); EXPORT char VS_PlusExpr__New__bf642fd93973a3b9 = '\0'; #line 9 PRIVATE TYPE TC_PlusExpr__P; PRIVATE t67 _PlusExpr__Bind (); PRIVATE t67 _PlusExpr__Check (); PRIVATE t10 _PlusExpr__EqCheck (); #line 9 PRIVATE t7 _PlusExpr__Compile (); PRIVATE t5 _PlusExpr__Fold (); PRIVATE t67 _PlusExpr__FPrinter (); IMPORT char VS_M3__Expr__58bf709e39adf1f7; #line 9 IMPORT char VS_M3__Expr__58bf709e39adf1f7; #line 30 "PlusExpr.m3" EXPORT t5 _PlusExpr__New (_a) t5 _a; { t3 z0; t3 z2; #line 30 "PlusExpr.m3" { auto t3 _p; auto t5 __result; { ZERO1 (& _p); #line 30 CHECKSTACKOVERFLOW; { register char** ptr = (char**) UNEWOBJ (TC3); z0 = (t3) ptr; }; _p = z0; _ExprRep__Init (_p); NILCHECKA (z2 = _p); (((t13_fields*)(z2+(0+t26_size+t63_size)))->_a) = _a; __result = _p; return __result; } } }; #line 39 "PlusExpr.m3" PRIVATE t67 _PlusExpr__Bind (_p) t3 _p; { t3 z2; t12 z3; t3 z1; #line 39 "PlusExpr.m3" { { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _p); _Expr__Bind ((((t13_fields*)(z2+(0+t26_size+t63_size)))->_a)); NILCHECKA (z2 = _p); z3 = _Expr__TypeOf ((((t13_fields*)(z2+(0+t26_size+t63_size)))->_a)); NILCHECKA (z1 = _p); (((t26_fields*)(z1+(0+t63_size)))->_type) = z3; #line 42 } } }; #line 45 "PlusExpr.m3" PRIVATE t67 _PlusExpr__Check (_p) t3 _p; { t3 z2; t12 z3; t10 z4; t10 z0; t10 z1; #line 45 "PlusExpr.m3" { auto t12 _t; { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _p); _Expr__TypeCheck ((((t13_fields*)(z2+(0+t26_size+t63_size)))->_a)); NILCHECKA (z2 = _p); z3 = _Type__Base ((((t26_fields*)(z2+(0+t63_size)))->_type)); _t = z3; z4 = (_t != _Int__T); z0 = 0; if (z4) { z4 = (_t != _Reel__T); z0 = z4; }; z1 = 0; if (z0) { z4 = (_t != _Longreal__T); #line 50 z1 = z4; }; if (z1) { _Error__Msg (((ADDRESS)(& txt1.str))); goto if_1_end; }; if_1_end: /**/; } } }; #line 55 "PlusExpr.m3" PRIVATE t10 _PlusExpr__EqCheck (_a, _e) t3 _a; t5 _e; { t3 z2; t3 z4; t10 z5; #line 55 "PlusExpr.m3" { auto t10 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; { register ADDRESS ref = (ADDRESS) _e; register int tc = TYPECODE (ref); if (tc == 0) goto tc0_0; if (ISSUBTYPE (tc, TC3)) goto tc0_1; #line 57 goto tc0_else; tc0_0:; __result = 0 ; return __result; tc0_1:; { auto t3 _b; { ZERO1 (& _b); #line 58 _b = (t3) ref; NILCHECKA (z2 = _a); NILCHECKA (z4 = _b); z5 = _Expr__IsEqual ((((t13_fields*)(z2+(0+t26_size+t63_size)))->_a), (((t13_fields*)(z4+(0+t26_size+t63_size)))->_a)); #line 59 __result = z5; return __result; } } tc0_else:; NILCHECKA (z2 = _a); z5 = _Expr__IsEqual ((((t13_fields*)(z2+(0+t26_size+t63_size)))->_a), _e); __result = z5; return __result; tc0_exit:; #line 60 }; } } }; #line 64 "PlusExpr.m3" PRIVATE t7 _PlusExpr__Compile (_p) t3 _p; { t3 z2; t7 z3; #line 64 "PlusExpr.m3" { auto t7 __result; { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _p); z3 = _Expr__Compile ((((t13_fields*)(z2+(0+t26_size+t63_size)))->_a)); __result = z3; return __result; #line 66 } } }; #line 69 "PlusExpr.m3" PRIVATE t5 _PlusExpr__Fold (_p) t3 _p; { t3 z2; t5 z3; #line 69 "PlusExpr.m3" { auto t5 __result; { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _p); z3 = _Expr__ConstValue ((((t13_fields*)(z2+(0+t26_size+t63_size)))->_a)); __result = z3; return __result; #line 71 } } }; #line 74 "PlusExpr.m3" PRIVATE t67 _PlusExpr__FPrinter (_p, _map, _wr) t3 _p; t2 _map; t1 _wr; { t3 z2; #line 74 "PlusExpr.m3" { { CHECKSTACKOVERFLOW; _Wr__PutText (_wr, ((ADDRESS)(& txt2.str))); NILCHECKA (z2 = _p); _Expr__Fingerprint ((((t13_fields*)(z2+(0+t26_size+t63_size)))->_a), _map, _wr); } } }; PRIVATE int init_done = -1; #line 77 "PlusExpr.m3" PRIVATE void PlusExpr__initProc (g) int g; { #line 77 "PlusExpr.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& PlusExpr__init); INITIALIZE (& Wr__init); INITIALIZE (& Temp__init); #line 77 INITIALIZE (& Longreal__init); INITIALIZE (& Reel__init); INITIALIZE (& Int__init); INITIALIZE (& Error__init); INITIALIZE (& Type__init); #line 77 INITIALIZE (& ExprRep__init); INITIALIZE (& ExprA__init); INITIALIZE (& Expr__init); return; }; #line 77 "PlusExpr.m3" PRIVATE void t3_InitProc (obj) char* obj; { register t3_fields* p; #line 77 "PlusExpr.m3" CHECKSTACKOVERFLOW; p = (t3_fields*) (obj + TC13->datasize); }; #line 77 "PlusExpr.m3" PRIVATE void t3_SetupProc () { register int* p; #line 77 "PlusExpr.m3" t3_TC.datasize += TC13->datasize; t3_TC.methodsize += TC13->methodsize; p = (int*) UALLOC (t3_TC.methodsize); COPY (TC13->defaultMethods, p, (TC13->methodsize)); #line 77 p[0] = (int)(& t3_TC); p[1] = 0; ((t26_methods*) (((char*)p) + TC63->methodsize))->_bind = _PlusExpr__Bind; ((t26_methods*) (((char*)p) + TC63->methodsize))->_check = _PlusExpr__Check; #line 77 ((t26_methods*) (((char*)p) + TC63->methodsize))->_compile = _PlusExpr__Compile; ((t26_methods*) (((char*)p) + TC63->methodsize))->_evaluate = _PlusExpr__Fold; #line 77 ((t26_methods*) (((char*)p) + TC63->methodsize))->_fprint = _PlusExpr__FPrinter; ((t26_methods*) (((char*)p) + TC63->methodsize))->_write = _ExprRep__NoWriter; #line 77 ((t26_methods*) (((char*)p) + TC63->methodsize))->_isEqual = _PlusExpr__EqCheck; ((t26_methods*) (((char*)p) + TC63->methodsize))->_getBounds = _ExprRep__NoBounds; #line 77 ((t26_methods*) (((char*)p) + TC63->methodsize))->_isWritable = _ExprRep__IsNever; ((t26_methods*) (((char*)p) + TC63->methodsize))->_isDesignator = _ExprRep__IsNever; #line 77 ((t26_methods*) (((char*)p) + TC63->methodsize))->_isZeroes = _ExprRep__IsNever; ((t26_methods*) (((char*)p) + TC63->methodsize))->_genLiteral = _ExprRep__NoLiteral; #line 77 t3_TC.defaultMethods = (char*) p; }; #line 77 "PlusExpr.m3" PRIVATE void t3_PrintProc (obj) char *obj; { t3_fields* o; #line 77 "PlusExpr.m3" CHECKSTACKOVERFLOW; if (TC13->printProc != 0) {TC13->printProc (obj); } fprintf (stderr, "{%s} ", TC3->brand); o = (t3_fields*) (obj + TC13->datasize); #line 77 }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, PlusExpr__initProc}; static char* VSimports[] = { &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1, &VS_Wr__Failure__5f82cfb43dabf527, &VS_Wr__Error__c367253d3ed4fd15, &VS_Wr__PutText__e034dab73a793846, &VS_Temp__T__3a6c7dc12615e4ee, &VS_Longreal__T__5097042c20911d85, &VS_Reel__T__254c3c852237b326, &VS_Int__T__1062912139372387, &VS_Error__Msg__4d119a332467757f, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_Type__Base__2bebd0333659a92c, &VS_ExprRep__Init__8b7fff3e227cebab, &VS_ExprRep__NoBind__e7d0d3dd3d703c08, &VS_ExprRep__NoCheck__c11b54bc361794fa, &VS_ExprRep__NoValue__8ccc143224598a66, &VS_ExprRep__NoBounds__b64bb146289ee4f0, &VS_ExprRep__IsNever__8f1a069b301903c8, &VS_ExprRep__NeverEq__dfdc2412249ccb65, &VS_ExprRep__NoWriter__a97bb1a23bbf506e, &VS_ExprRep__NoLiteral__6c9c90073f496f67, &VS_ExprA__T__2939e24629f27817, &VS_ExprA__Bind__08846be83f5a1e99, &VS_ExprA__EqCheck__da9dd11f27dbbbfb, &VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_Expr__Bind__7e2752da3eaf56eb, &VS_Expr__TypeOf__fef0a11b388c64fa, &VS_Expr__ConstValue__ce4fd448218fe483, &VS_Expr__TypeCheck__af9aa9073729e7f7, &VS_Expr__Compile__a7e0cc4029a2ec76, &VS_Expr__IsEqual__062d8b2c385e35a9, &VS_Expr__Fingerprint__50ce687c31d90a5b, NIL }; void PlusExpr__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = PlusExpr__init; PlusExpr__init = & me_0; t3_TC = t3_TC_init; REGISTERTYPE (TC3); break; }; case 1: { t3_TC.parent = TC_ExprA__T; break; }; case 2: { break; }; }; };