#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "typedef struct { int tc; char* str; int len; } TXT;\012",
   53 }; PRIVATE TXT txt2 = { 3, "PRIVATE TXT txt@ = { @, ", 25}; PRIVATE TXT txt3 = { 3, "\042@\042, @};\012", 10}; PRIVATE TXT txt4 = { 3, "PRIVATE TXT txt@ = { @,\001\012", 26};
PRIVATE TXT txt5 = { 3, "\042@\042,\012@\002\012};\012", 12}; PRIVATE TXT txt6 = { 3, "((ADDRESS)(& txt@.str))", 24}; PRIVATE TXT txt7 = { 3, "NULLTEXT", 9};
PRIVATE TXT txt8 = { 3, "\042", 2};
#line 16 "../Interfaces/Type.i3"
#define t5 ADDRESS
#define t76 void
typedef int t10;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t62;
#line 16 "../Interfaces/Type.i3"
#define t54 t62
#define TC5 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce; 
#define t7 ADDRESS
#define TC7 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; 
#define t27 ADDRESS
#define TC27 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a;
#line 17 "../Interfaces/Scope.i3"
#define t39 ADDRESS
#define t73 ADDRESS
 typedef struct { TYPE self; int private; } t73_methods; 
#define t73_msize (sizeof (t73_methods))
typedef struct { ADDRESS methods; } t73_fields; 
#define t73_size (sizeof (t73_fields))
#define TC73 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 15 "../Interfaces/M3.i3"
#define t33 ADDRESS
#define TC33 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 17 "../Interfaces/Scope.i3"
#define t43 t62
#define TC39 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c;
#line 14 "./Expr.i3"
#define t48 ADDRESS
#define t9 ADDRESS
#define TC9 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16 "../Interfaces/M3.i3"
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "./Expr.i3"
#define t49 t62
#define TC48 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Type.i3"
#define t52 ADDRESS
#define t36 ADDRESS
#define TC36 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 { t52 _next; t36 _type; } t53; 
#define TC52 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t59 ADDRESS
#define TC59 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; typedef unsigned char t1;
#line 20 "TextExpr.m3"
#define t2 ADDRESS

#line 13 "../Interfaces/String.i3"
#define t8 ADDRESS
#define TC8 TC_String__T
IMPORT TYPE TC_String__T;
#line 13
IMPORT char VS_String__T__3a6c7dc12615e4ee;
#line 38 "../Interfaces/Scanner.i3"
typedef t76 (*t6)();
#line 19 "../Interfaces/M3.i3"
#define t11 ADDRESS
#define TC11 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 31 "./ExprRep.i3"
typedef t11 (*t12)();
#line 24
typedef t9 (*t13)();
#line 44
typedef t1 (*t3)();
#line 20 "TextExpr.m3"
typedef struct { int filler; } t2_methods; 
#define t2_msize (sizeof (t2_methods))
typedef struct {
#line 20
 t8 _value; } t2_fields; 
#define t2_size (sizeof (t2_fields))
PRIVATE void t2_InitProc ();
#line 20
PRIVATE void t2_SetupProc (); PRIVATE void t2_PrintProc (); PRIVATE typecell t2_TC; PRIVATE typecell t2_TC_init = {0, 0, 0, 0, 0, (PROC)NIL,
#line 20
  t2_size, t2_msize, NIL, 0, 0, t2_InitProc,   t2_SetupProc,   t2_PrintProc, "", -1946757896, 826436534}; PRIVATE TYPE TC2 = &t2_TC;  
#define t28 ADDRESS
 typedef struct { TYPE self; int private; } t28_methods; 
#define t28_msize (sizeof (t28_methods))
typedef struct { ADDRESS methods; } t28_fields; 
#define t28_size (sizeof (t28_fields))
#define TC28 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t28_MapProc TC_ROOT->mapProc
#define t4 ADDRESS
#define TC4 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t4_MapProc TC_Wr__T->mapProc
#define t14 ADDRESS
#define TC14 TC_Rd__T
IMPORT TYPE TC_Rd__T;
#line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
IMPORT char VS_Rd__T__2555b70b3f7780b1; 
#define t14_MapProc TC_Rd__T->mapProc
typedef unsigned char t18;
#line 45 "../Interfaces/Token.i3"
typedef struct { int elts[4]; } t15; 
#define t16 ADDRESS
#define TC16 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t16_MapProc TC_TEXT->mapProc
typedef t8 (*t17)();
#line 13 "../Interfaces/Scanner.i3"
typedef struct { t18 _token; t8 _string; t10 _value; t10 _offset; } t19; typedef int t20;
#line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
typedef t20 (*t21)();
#line 220
typedef t16 (*t22)(); typedef unsigned char t23;
#line 189
#define t24 t62
typedef t23 (*t25)();
#line 84
typedef unsigned char t26;
#line 27 "../Interfaces/Emit.i3"
typedef signed_char t29;
#line 63
typedef t29 (*t30)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t57;
#line 65 "../Interfaces/Token.i3"
#define t55 t62
typedef struct { t8 elts[100]; } t58;
#line 17 "../Interfaces/String.i3"
typedef struct { t10 _top; t58 _stk; } t31;
#line 16 "../Interfaces/Variable.i3"
#define t32 ADDRESS
#define TC32 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5; typedef double t34;
#line 14 "../Interfaces/M3.i3"
#define t35 ADDRESS
#define TC35 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 24 "../Interfaces/Variable.i3"
typedef t32 (*t37)();
#line 14 "../Interfaces/Decl.i3"
typedef struct { t8 _alias; t1 _isExternal; t1 _isInline; t1 _isUnused; t1 _isObsolete; } t38;
#line 14 "../Interfaces/String.i3"
typedef struct { t8 _module; t8 _item; } t40;
#line 38 "../Interfaces/Scope.i3"
typedef t33 (*t41)();
#line 31
typedef t35 (*t42)();
#line 45 "../Interfaces/Value.i3"
typedef t36 (*t44)();
#line 18
typedef unsigned char t45;
#line 40
typedef t45 (*t46)();
#line 13 "./ExprRep.i3"
#define t47 ADDRESS

#line 13
typedef struct { t6 _bind; t6 _check; t6 _write; t3 _isEqual; t13 _evaluate; t6 _getBounds; t3 _isWritable; t3 _isDesignator;
#line 13
   t3 _isZeroes; t6 _genLiteral; t6 _fprint; t12 _compile; } t47_methods; 
#define t47_msize (sizeof (t47_methods))
typedef struct {
#line 13
 t10 _origin; t36 _type; t1 _bound; t1 _inCheck; t1 _checked; } t47_fields; 
#define t47_size (sizeof (t47_fields))
#define TC47 TC_M3__Expr
typedef t5 (*t50)();
#line 97 "../Interfaces/Type.i3"
typedef t10 (*t51)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t8 elts[97]; } t56;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t60; typedef t60 (*t61)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t63;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t64 ADDRESS
#define TC64 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t64_MapProc TC_Thread__T->mapProc
typedef t27 (*t65)();



#define t66 ADDRESS
#define TC66 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t66_MapProc TC_Thread__Condition->mapProc
#define t67 ADDRESS
#define TC67 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t67_MapProc TC_MUTEX->mapProc
typedef t64 (*t68)();
#line 23
#define t69 ADDRESS

#line 23
typedef struct { t65 _apply; } t69_methods; 
#define t69_msize (sizeof (t69_methods))
typedef struct {
#line 23
 int filler; } t69_fields; 
#define t69_size (sizeof (t69_fields))
#define TC69 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t69_MapProc TC_Thread__Closure->mapProc
typedef t66 (*t70)();





typedef t67 (*t71)();
#line 28
#define t72 ADDRESS

#line 28
typedef struct { int filler; } t72_methods; 
#define t72_msize (sizeof (t72_methods))
typedef struct {
#line 28
 t20 _stackSize; } t72_fields; 
#define t72_size (sizeof (t72_fields))
#define TC72 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t72_MapProc TC_Thread__SizedClosure->mapProc
#define t74 ADDRESS
#define TC74 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17 "../Interfaces/M3.i3"
IMPORT char VS_M3__Stmt__376b307627fc1f2f; typedef CLOSURE t75; typedef float t77;
#line 11 "TextExpr.m3"
IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Target__init; IMPORT INITLINK* Word__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* Type__init;
#line 11
IMPORT INITLINK* Temp__init; IMPORT INITLINK* Emit__init; IMPORT INITLINK* Textt__init; IMPORT INITLINK* String__init; IMPORT INITLINK* ExprRep__init;
#line 11
IMPORT INITLINK* Expr__init; IMPORT INITLINK* TextExpr__init;  IMPORT t10 _Scanner__offset; IMPORT char VS_Scanner__offset__dfc05f042d8347f4;
#line 11
      IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT EXCEPTION_NAME _Wr__Failure;
#line 11
IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15;
#line 11
IMPORT t76 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846;   IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5;
#line 11
  IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee; IMPORT t11 _Temp__FromExpr (); IMPORT char VS_Temp__FromExpr__808b53eb2a7a6d33;
#line 11
  IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3; IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7;
#line 11
IMPORT t76 _Emit__Op (); IMPORT char VS_Emit__Op__072646cc27c8ae10; IMPORT t76 _Emit__OpSI (); IMPORT char VS_Emit__OpSI__ab1965f432d76dc2;
#line 11
IMPORT t76 _Emit__OpI (); IMPORT char VS_Emit__OpI__02cb878634bb9f49; IMPORT t76 _Emit__OpII (); IMPORT char VS_Emit__OpII__2247fe46332f901b;
#line 11
  IMPORT t36 _Textt__T; IMPORT char VS_Textt__T__9d7171873f46a1f8;   IMPORT t8 _String__Concat (); IMPORT char VS_String__Concat__52f07b88222785f0;
#line 11
IMPORT t76 _String__Put (); IMPORT char VS_String__Put__2457561e210725b3; IMPORT t10 _String__Length (); IMPORT char VS_String__Length__75f8af7a37a956d2;
#line 11
IMPORT t10 _String__GetUID (); IMPORT char VS_String__GetUID__54d5228a21500678; IMPORT t76 _String__SetUID (); IMPORT char VS_String__SetUID__d5af33282e8887a9;
#line 11
  IMPORT t76 _ExprRep__Init (); IMPORT char VS_ExprRep__Init__8b7fff3e227cebab; IMPORT t76 _ExprRep__NoBind (); IMPORT char VS_ExprRep__NoBind__e7d0d3dd3d703c08;
#line 11
IMPORT t76 _ExprRep__NoCheck (); IMPORT char VS_ExprRep__NoCheck__c11b54bc361794fa; IMPORT t9 _ExprRep__NoValue (); IMPORT char VS_ExprRep__NoValue__8ccc143224598a66;
#line 11
IMPORT t9 _ExprRep__Self (); IMPORT char VS_ExprRep__Self__28962e523a8d814b; IMPORT t76 _ExprRep__NoBounds (); IMPORT char VS_ExprRep__NoBounds__b64bb146289ee4f0;
#line 11
IMPORT t1 _ExprRep__IsNever (); IMPORT char VS_ExprRep__IsNever__8f1a069b301903c8; IMPORT t1 _ExprRep__NeverEq (); IMPORT char VS_ExprRep__NeverEq__dfdc2412249ccb65;
#line 11
IMPORT t76 _ExprRep__NoWriter (); IMPORT char VS_ExprRep__NoWriter__a97bb1a23bbf506e; IMPORT t76 _ExprRep__NoLiteral (); IMPORT char VS_ExprRep__NoLiteral__6c9c90073f496f67;
#line 11
  IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5;   EXPORT t9 _TextExpr__New (); EXPORT char VS_TextExpr__New__59f81ed53141605d = '\0';
#line 11
EXPORT t1 _TextExpr__Cat (); EXPORT char VS_TextExpr__Cat__49925d862c356fbf = '\0'; PRIVATE TYPE TC_TextExpr__P; PRIVATE t1 _TextExpr__typeDone;
#line 11
PRIVATE t10 _TextExpr__nextID; PRIVATE t76 _TextExpr__Check (); PRIVATE t1 _TextExpr__EqCheck (); PRIVATE t11 _TextExpr__Compile ();
#line 11
PRIVATE t76 _TextExpr__Writer (); PRIVATE t76 _TextExpr__GenLiteral (); PRIVATE t76 _TextExpr__FPrinter (); PRIVATE t1 _TextExpr__IsZeroes ();
#line 11
 IMPORT char VS_M3__Expr__58bf709e39adf1f7;    
#line 44 "TextExpr.m3"
 EXPORT t9 _TextExpr__New (_value) t8 _value; { t2 z0; t2 z2;
#line 44 "TextExpr.m3"
{ auto t2 _p; auto t9 __result; {
      ZERO1  (& _p); { register char** ptr = (char**) UNEWOBJ (TC2); z0 = (t2) ptr; }; _p = z0;
#line 44
      CHECKSTACKOVERFLOW;


      _ExprRep__Init (_p);
      NILCHECKA (z2 = _p); (((t2_fields*)(z2+(0+t47_size+t73_size)))->_value) = _value;
      NILCHECKA (z2 = _p); (((t47_fields*)(z2+(0+t73_size)))->_type) = _Textt__T;
      NILCHECKA (z2 = _p); (((t47_fields*)(z2+(0+t73_size)))->_bound) =  1 ;
      __result = _p; return __result; } } };
#line 54 "TextExpr.m3"
 PRIVATE t76 _TextExpr__Check (_p) t2 _p; { t2 z2; t10 z3; t1 z4; t1 z1; t2 z5; t10 z6;
#line 54 "TextExpr.m3"
{ auto t10 _uid; auto t10 _len; auto t10 _save; { CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _p); z3 = _String__GetUID ((((t2_fields*)(z2+(0+t47_size+t73_size)))->_value)); _uid = z3;
      z4 = (_uid >=  0 ); if (z4) { return; };

      NILCHECKA (z2 = _p); z3 = _String__Length ((((t2_fields*)(z2+(0+t47_size+t73_size)))->_value)); _len = z3;
      z4 = (_len >  0 ); if (z4) {
         _uid = _TextExpr__nextID; _TextExpr__nextID +=  1 ; goto if_2_end; }; _uid =  0 ;
 if_2_end: /**/;

      NILCHECKA (z2 = _p); _String__SetUID ((((t2_fields*)(z2+(0+t47_size+t73_size)))->_value), _uid);


      z4 = (_len >  0 ); if (z4) {
         _save = _Scanner__offset;
         _Scanner__offset =  0 ;
         z1 = ! _TextExpr__typeDone; if (z1) {
            _Emit__Op (((ADDRESS)(& txt1.str)));
            _TextExpr__typeDone =  1 ; goto if_4_end; }; if_4_end: /**/;

         z4 = (_len <  45 ); if (z4) {
            _Emit__OpII (((ADDRESS)(& txt2.str)), _uid,  3 );
            NILCHECKA (z5 = _p); z6 = _len +  1 ; _Emit__OpSI (((ADDRESS)(& txt3.str)), (((t2_fields*)(z5+(0+t47_size+t73_size)))->_value), z6);
#line 77
            goto if_5_end; }; _Emit__OpII (((ADDRESS)(& txt4.str)), _uid,  3 );


            NILCHECKA (z5 = _p); z6 = _len +  1 ; _Emit__OpSI (((ADDRESS)(& txt5.str)), (((t2_fields*)(z5+(0+t47_size+t73_size)))->_value), z6);
#line 80
 if_5_end: /**/;

         _Scanner__offset = _save; goto if_3_end; }; if_3_end: /**/; } } };
#line 86 "TextExpr.m3"
 PRIVATE t1 _TextExpr__EqCheck (_a, _e) t2 _a; t9 _e; { t2 z1; t2 z3; t1 z4;
#line 86 "TextExpr.m3"
{ auto t1 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      { register ADDRESS ref = (ADDRESS) _e; register int tc = TYPECODE (ref); if (tc == 0) goto tc0_0; if (ISSUBTYPE (tc, TC2)) goto tc0_1;
#line 88
         goto tc0_else; tc0_0:; __result =  0 ;
            return __result; tc0_1:; { auto t2 _b; {
                  ZERO1  (& _b);
#line 89
                  _b = (t2) ref;
                  NILCHECKA (z1 = _a); NILCHECKA (z3 = _b); z4 = ((((t2_fields*)(z1+(0+t47_size+t73_size)))->_value) == (((t2_fields*)(z3+(0+t47_size+t73_size)))->_value));
#line 90
                  __result = z4; return __result; } } tc0_else:; __result =  0 ;
            return __result; tc0_exit:; }; } } };
#line 95 "TextExpr.m3"
 PRIVATE t11 _TextExpr__Compile (_p) t2 _p; { t11 z2;
#line 95 "TextExpr.m3"
{ auto t11 __result; { CHECKSTACKOVERFLOW;

      z2 = _Temp__FromExpr (_p); __result = z2; return __result; } } };
#line 100 "TextExpr.m3"
 PRIVATE t76 _TextExpr__Writer (_p, _t1, _t2) t2 _p; t11 _t1; t11 _t2; { t2 z2; t10 z3; t1 z4;
#line 100 "TextExpr.m3"
{ auto t10 _uid; { CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _p); z3 = _String__GetUID ((((t2_fields*)(z2+(0+t47_size+t73_size)))->_value)); _uid = z3;
      z4 = (_uid !=  0 ); if (z4) {
         _Emit__OpI (((ADDRESS)(& txt6.str)), _uid); goto if_6_end; }; _Emit__Op (((ADDRESS)(& txt7.str)));
 if_6_end: /**/; } } };
#line 110 "TextExpr.m3"
 PRIVATE t76 _TextExpr__GenLiteral (_p) t2 _p; { t2 z2; t10 z3; t1 z4;
#line 110 "TextExpr.m3"
{ auto t10 _uid; { CHECKSTACKOVERFLOW;


      NILCHECKA (z2 = _p); z3 = _String__GetUID ((((t2_fields*)(z2+(0+t47_size+t73_size)))->_value)); _uid = z3;
      z4 = (_uid !=  0 ); if (z4) {
         _Emit__OpI (((ADDRESS)(& txt6.str)), _uid); goto if_7_end; }; _Emit__Op (((ADDRESS)(& txt7.str)));
 if_7_end: /**/; } } };
#line 120 "TextExpr.m3"
 EXPORT t1 _TextExpr__Cat (_a, _b, _c) t9 _a; t9 _b; t9 * _c; { t2 z1; t8 z4; t9 z2;
#line 120 "TextExpr.m3"
{ auto t8 _sa; auto t8 _sb; auto t1 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;


      { register ADDRESS ref = (ADDRESS) _a; register int tc = TYPECODE (ref); if (tc == 0) goto tc1_0; if (ISSUBTYPE (tc, TC2)) goto tc1_1;
#line 123
         goto tc1_else; tc1_0:; __result =  0 ;
            return __result; tc1_1:; { auto t2 _p; {
                  ZERO1  (& _p);
#line 124
                  _p = (t2) ref;
                  NILCHECKA (z1 = _p); _sa = (((t2_fields*)(z1+(0+t47_size+t73_size)))->_value); } } goto tc1_exit; tc1_else:;
#line 125

            __result =  0 ; return __result; tc1_exit:; };

      { register ADDRESS ref = (ADDRESS) _b; register int tc = TYPECODE (ref); if (tc == 0) goto tc2_0; if (ISSUBTYPE (tc, TC2)) goto tc2_1;
#line 128
         goto tc2_else; tc2_0:; __result =  0 ;
            return __result; tc2_1:; { auto t2 _p; {
                  ZERO1  (& _p);
#line 129
                  _p = (t2) ref;
                  NILCHECKA (z1 = _p); _sb = (((t2_fields*)(z1+(0+t47_size+t73_size)))->_value); } } goto tc2_exit; tc2_else:;
#line 130

            __result =  0 ; return __result; tc2_exit:; };

      z4 = _String__Concat (_sa, _sb); z2 = _TextExpr__New (z4); (*_c) = z2;
      __result =  1 ; return __result; } } };
#line 137 "TextExpr.m3"
 PRIVATE t76 _TextExpr__FPrinter (_p, _map, _wr) t2 _p; t5 _map; t4 _wr; { t2 z3;
#line 137 "TextExpr.m3"
{ { CHECKSTACKOVERFLOW;

      _Wr__PutText (_wr, ((ADDRESS)(& txt8.str)));
      NILCHECKA (z3 = _p); _String__Put (_wr, (((t2_fields*)(z3+(0+t47_size+t73_size)))->_value));
      _Wr__PutText (_wr, ((ADDRESS)(& txt8.str))); } } };
#line 144 "TextExpr.m3"
 PRIVATE t1 _TextExpr__IsZeroes (_p) t2 _p; { t2 z2; t10 z3; t1 z1;
#line 144 "TextExpr.m3"
{ auto t1 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _p); z3 = _String__GetUID ((((t2_fields*)(z2+(0+t47_size+t73_size)))->_value)); z1 = (z3 ==  0 ); __result = z1;
#line 146
      return __result; } } };  PRIVATE int init_done = -1;
#line 146 "TextExpr.m3"
 PRIVATE void TextExpr__initProc (g) int g; {
#line 146 "TextExpr.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& TextExpr__init); INITIALIZE (& Scanner__init); INITIALIZE (& Target__init);
#line 146
INITIALIZE (& Word__init); INITIALIZE (& Wr__init); INITIALIZE (& Type__init); INITIALIZE (& Temp__init); INITIALIZE (& Emit__init);
#line 146
INITIALIZE (& Textt__init); INITIALIZE (& String__init); INITIALIZE (& ExprRep__init); INITIALIZE (& Expr__init);
#line 41
ZERO1B (& _TextExpr__typeDone); ZERO1B ((& _TextExpr__typeDone));
_TextExpr__nextID =  1 ;
#line 146
return; }; 
#line 146 "TextExpr.m3"
PRIVATE void t2_InitProc (obj) char* obj; { register t2_fields* p;
#line 146 "TextExpr.m3"
CHECKSTACKOVERFLOW; p = (t2_fields*) (obj + TC9->datasize); }; 
#line 146 "TextExpr.m3"
PRIVATE void t2_SetupProc () { register int* p;
#line 146 "TextExpr.m3"
t2_TC.datasize += TC9->datasize; t2_TC.methodsize += TC9->methodsize; p = (int*) UALLOC (t2_TC.methodsize); COPY (TC9->defaultMethods, p, (TC9->methodsize));
#line 146
p[0] = (int)(& t2_TC); p[1] = 0; ((t47_methods*) (((char*)p) + TC73->methodsize))->_bind = _ExprRep__NoBind; ((t47_methods*) (((char*)p) + TC73->methodsize))->_check = _TextExpr__Check;
#line 146
((t47_methods*) (((char*)p) + TC73->methodsize))->_compile = _TextExpr__Compile; ((t47_methods*) (((char*)p) + TC73->methodsize))->_evaluate = _ExprRep__Self;
#line 146
((t47_methods*) (((char*)p) + TC73->methodsize))->_fprint = _TextExpr__FPrinter; ((t47_methods*) (((char*)p) + TC73->methodsize))->_write = _TextExpr__Writer;
#line 146
((t47_methods*) (((char*)p) + TC73->methodsize))->_isEqual = _TextExpr__EqCheck; ((t47_methods*) (((char*)p) + TC73->methodsize))->_getBounds = _ExprRep__NoBounds;
#line 146
((t47_methods*) (((char*)p) + TC73->methodsize))->_isWritable = _ExprRep__IsNever; ((t47_methods*) (((char*)p) + TC73->methodsize))->_isDesignator = _ExprRep__IsNever;
#line 146
((t47_methods*) (((char*)p) + TC73->methodsize))->_isZeroes = _TextExpr__IsZeroes; ((t47_methods*) (((char*)p) + TC73->methodsize))->_genLiteral = _TextExpr__GenLiteral;
#line 146
t2_TC.defaultMethods = (char*) p; }; 
#line 146 "TextExpr.m3"
PRIVATE void t2_PrintProc (obj) char *obj; { t2_fields* o;
#line 146 "TextExpr.m3"
CHECKSTACKOVERFLOW; if (TC9->printProc != 0) {TC9->printProc (obj); } fprintf (stderr, "{%s} ", TC2->brand); o = (t2_fields*) (obj + TC9->datasize);
#line 146
fprintf (stderr, "value = %#x", o->_value); fprintf (stderr, ", "); };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, TextExpr__initProc};
static char* VSimports[] = { &VS_Scanner__offset__dfc05f042d8347f4, &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1,
&VS_Wr__Failure__5f82cfb43dabf527, &VS_Wr__Error__c367253d3ed4fd15, &VS_Wr__PutText__e034dab73a793846, &VS_Type__T__2446b70b3f7780a5,
&VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_Temp__T__3a6c7dc12615e4ee, &VS_Temp__FromExpr__808b53eb2a7a6d33,
&VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__Op__072646cc27c8ae10, &VS_Emit__OpSI__ab1965f432d76dc2,
&VS_Emit__OpI__02cb878634bb9f49, &VS_Emit__OpII__2247fe46332f901b, &VS_Textt__T__9d7171873f46a1f8, &VS_String__T__3a6c7dc12615e4ee,
&VS_String__Concat__52f07b88222785f0, &VS_String__Put__2457561e210725b3, &VS_String__Length__75f8af7a37a956d2, &VS_String__GetUID__54d5228a21500678,
&VS_String__SetUID__d5af33282e8887a9, &VS_ExprRep__Init__8b7fff3e227cebab, &VS_ExprRep__NoBind__e7d0d3dd3d703c08, &VS_ExprRep__NoCheck__c11b54bc361794fa,
&VS_ExprRep__NoValue__8ccc143224598a66, &VS_ExprRep__Self__28962e523a8d814b, &VS_ExprRep__NoBounds__b64bb146289ee4f0, &VS_ExprRep__IsNever__8f1a069b301903c8,
&VS_ExprRep__NeverEq__dfdc2412249ccb65, &VS_ExprRep__NoWriter__a97bb1a23bbf506e, &VS_ExprRep__NoLiteral__6c9c90073f496f67,
&VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, NIL };  void TextExpr__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = TextExpr__init; TextExpr__init = & me_0;
         t2_TC = t2_TC_init; REGISTERTYPE (TC2); break; }; case 1: { t2_TC.parent = TC_M3__Expr; break; }; case 2: { break; }; };
 };