#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "not a procedure", 16}; PRIVATE TXT txt2 = { 3, "nested procedure", 17};
PRIVATE TXT txt3 = { 3, "default is incompatible with method type", 41}; PRIVATE TXT txt4 = { 3, "undefined", 10}; PRIVATE TXT txt5 = { 3, "method declaration??", 21};
PRIVATE TXT txt6 = { 3, "METHOD ", 8}; PRIVATE TXT txt7 = { 3, " := ", 5};
#line 16 "../Interfaces/Type.i3"
#define t2 ADDRESS
#define t80 void
typedef int t25;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t64;
#line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3"
#define t44 t64
#define TC2 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16 "../Interfaces/Type.i3"
IMPORT char VS_Type__Map__41dd9f4b33104fce; 
#define t11 ADDRESS
#define TC11 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc;
#line 18 "../Interfaces/ProcType.i3"
#define t30 ADDRESS
#define t36 ADDRESS
#define TC36 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44;
#line 13 "../Interfaces/String.i3"
#define t12 ADDRESS
#define TC12 TC_String__T
IMPORT TYPE TC_String__T;
#line 13
IMPORT char VS_String__T__3a6c7dc12615e4ee;
typedef struct { t12 _module; t12 _item; } t13; 
#define t77 ADDRESS
 typedef struct { TYPE self; int private; } t77_methods; 
#define t77_msize (sizeof (t77_methods))
typedef struct { ADDRESS methods; } t77_fields; 
#define t77_size (sizeof (t77_fields))
#define TC77 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 15 "../Interfaces/M3.i3"
#define t10 ADDRESS
#define TC10 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 14 "../Interfaces/ProcType.i3"
typedef struct { t30 _next; t13 _name; t10 _except; } t32;



#define TC30 TC_ProcType__Raisee
IMPORT TYPE TC_ProcType__Raisee;
#line 18
IMPORT char VS_ProcType__Raisee__5fe771ff27c179d9;
#line 14 "../Interfaces/Expr.i3"
#define t34 ADDRESS
#define t33 ADDRESS
#define TC33 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16 "../Interfaces/M3.i3"
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "../Interfaces/Expr.i3"
#define t37 t64
#define TC34 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Scope.i3"
#define t39 ADDRESS
#define t27 t64
#define TC39 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c;
#line 17 "../Interfaces/Type.i3"
#define t48 ADDRESS
#define t9 ADDRESS
#define TC9 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 { t48 _next; t9 _type; } t49; 
#define TC48 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t66 ADDRESS
#define TC66 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; 
#define t67 ADDRESS
 typedef struct { TYPE self; int private; } t67_methods; 
#define t67_msize (sizeof (t67_methods))
typedef struct { ADDRESS methods; } t67_fields; 
#define t67_size (sizeof (t67_fields))
#define TC67 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t67_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
 typedef unsigned char t5;
#line 34 "./Procedure.i3"
typedef t80 (*t4)();
#line 18 "./Value.i3"
typedef unsigned char t7;
#line 43 "./ValueRep.i3"
typedef t7 (*t8)();
#line 19 "../Interfaces/M3.i3"
#define t14 ADDRESS
#define TC14 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 45 "./ValueRep.i3"
typedef t14 (*t17)();

typedef t10 (*t40)();



typedef t5 (*t6)();
typedef t33 (*t35)();
typedef t9 (*t20)();
#line 16 "Method.m3"
typedef struct { int filler; } t3_methods; 
#define t3_msize (sizeof (t3_methods))
typedef struct {
#line 16
 t5 _override; t9 _parent; t9 _signature; t13 _qid; t10 _default; } t3_fields; 
#define t3_size (sizeof (t3_fields))
PRIVATE void t3_InitProc ();
#line 16
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 16
  t3_size, t3_msize, NIL, 0, 0, t3_InitProc,   t3_SetupProc,   t3_PrintProc, "Method#$%^_0002", 479949993, 566110478}; PRIVATE TYPE TC3 = &t3_TC;
#line 16

#line 37 "./Procedure.i3"
#define t15 t64
#define t16 ADDRESS
#define TC16 TC_Procedure__T
IMPORT TYPE TC_Procedure__T;
#line 15
IMPORT char VS_Procedure__T__be7ead4a3afd8be5;
#line 17 "../Interfaces/CallExpr.i3"
#define t18 ADDRESS
#define TC18 TC_CallExpr__MethodList
IMPORT TYPE TC_CallExpr__MethodList;
#line 17
IMPORT char VS_CallExpr__MethodList__7e87c2d720444b71; 
#define t19 ADDRESS
#define TC19 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t19_MapProc TC_TEXT->mapProc
typedef struct {
#line 14 "./Decl.i3"
 t12 _alias; t5 _isExternal; t5 _isInline; t5 _isUnused; t5 _isObsolete; } t21;
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t51;
#line 45
typedef struct { int elts[4]; } t22;
#line 14 "../Interfaces/M3.i3"
#define t23 ADDRESS
#define TC23 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 16 "./Variable.i3"
#define t24 ADDRESS
#define TC24 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5;







typedef t24 (*t26)();
#line 28 "../Interfaces/ProcType.i3"
typedef t25 (*t28)();
#line 27
typedef t18 (*t29)();
#line 24
typedef t23 (*t31)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t58;
#line 65 "../Interfaces/Token.i3"
#define t50 t64
typedef struct { t12 elts[100]; } t59;
#line 17 "../Interfaces/String.i3"
typedef struct { t25 _top; t59 _stk; } t38;
#line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3"
typedef signed_char t46; typedef struct { t25 elts[2]; } t41;
#line 16 "./ValueRep.i3"
typedef t5 t42;


#define t43 ADDRESS

#line 19
typedef struct { t4 _bind; t4 _typeCheck; t8 _class; t4 _fingerprint; t17 _load; t4 _write; t40 _select; t6 _declare0; t4 _declare1;
#line 19
   t4 _declare2; t6 _needsDecl; t35 _toExpr; t20 _toType; } t43_methods; 
#define t43_msize (sizeof (t43_methods))
typedef struct {
#line 19
 t25 _origin; t12 _name; t12 _extName; t23 _scope; t9 _type; unsigned _checked : 1; unsigned _incheck : 1; unsigned _readonly : 1;
#line 19
   unsigned _declared : 1; unsigned _bound : 1; unsigned _compiled : 1; unsigned _imported : 1; unsigned _exported : 1; unsigned _external : 1;
#line 19
   unsigned _used : 1; unsigned _usedAtTop : 1; unsigned _unused : 1; unsigned _obsolete : 1; unsigned _inFrame : 1; t41 _fprint;
#line 19
 } t43_fields; 
#define t43_size (sizeof (t43_fields))
#define TC43 TC_M3__Value
typedef void (*t45)();
#line 121 "../Interfaces/Type.i3"
typedef t2 (*t47)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t12 elts[97]; } t52; typedef int t53;
#line 37 "../Interfaces/String.i3"
typedef t19 (*t54)();
#line 34
typedef t12 (*t55)(); typedef unsigned char t56;
#line 28
#define t57 t64
typedef signed_char t60;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef t60 (*t61)();
#line 26
typedef t53 (*t62)();
#line 23
typedef t56 (*t63)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t65;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t68 ADDRESS
#define TC68 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t68_MapProc TC_Thread__T->mapProc
typedef t66 (*t69)();



#define t70 ADDRESS
#define TC70 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t70_MapProc TC_Thread__Condition->mapProc
#define t71 ADDRESS
#define TC71 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t71_MapProc TC_MUTEX->mapProc
typedef t68 (*t72)();
#line 23
#define t73 ADDRESS

#line 23
typedef struct { t69 _apply; } t73_methods; 
#define t73_msize (sizeof (t73_methods))
typedef struct {
#line 23
 int filler; } t73_fields; 
#define t73_size (sizeof (t73_fields))
#define TC73 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t73_MapProc TC_Thread__Closure->mapProc
typedef t70 (*t74)();





typedef t71 (*t75)();
#line 28
#define t76 ADDRESS

#line 28
typedef struct { int filler; } t76_methods; 
#define t76_msize (sizeof (t76_methods))
typedef struct {
#line 28
 t53 _stackSize; } t76_fields; 
#define t76_size (sizeof (t76_fields))
#define TC76 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t76_MapProc TC_Thread__SizedClosure->mapProc
#define t78 ADDRESS
#define TC78 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17 "../Interfaces/M3.i3"
IMPORT char VS_M3__Stmt__376b307627fc1f2f; typedef CLOSURE t79; typedef double t81; typedef float t82;
#line 10 "Method.m3"
IMPORT INITLINK* Procedure__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* Temp__init; IMPORT INITLINK* ProcType__init;
#line 10
IMPORT INITLINK* Error__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* Scope__init; IMPORT INITLINK* Type__init;
#line 10
IMPORT INITLINK* ValueRep__init; IMPORT INITLINK* Value__init; IMPORT INITLINK* Method__init;  IMPORT t5 _Procedure__IsNested ();
#line 10
IMPORT char VS_Procedure__IsNested__6138cc692dfd93f7;   IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46;
#line 10
IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15;
#line 10
IMPORT t80 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846;   IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee;
#line 10
  IMPORT t5 _ProcType__IsCompatible (); IMPORT char VS_ProcType__IsCompatible__c183a5072f62b941;   IMPORT t80 _Error__Str ();
#line 10
IMPORT char VS_Error__Str__2bd0723e3872e90c; IMPORT t80 _Error__QID (); IMPORT char VS_Error__QID__84a7ccd932b81b86;     IMPORT TYPE TC_Expr__T;
#line 10
IMPORT char VS_Expr__T__2446b70b3f7780a5;   IMPORT TYPE TC_Scope__T; IMPORT char VS_Scope__T__3a6c7dc12615e4ee; IMPORT t80 _Scope__Insert ();
#line 10
IMPORT char VS_Scope__Insert__ef77c00626575764; IMPORT t10 _Scope__LookUpQID (); IMPORT char VS_Scope__LookUpQID__725ce38220cfad93;
#line 10
  IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; IMPORT t9 _Type__Bind (); IMPORT char VS_Type__Bind__3443ccd12eedb9e8;
#line 10
IMPORT t80 _Type__Check (); IMPORT char VS_Type__Check__3c8ceb09206ee440; IMPORT t80 _Type__Compile (); IMPORT char VS_Type__Compile__b35af2d633205d32;
#line 10
IMPORT t80 _Type__Fingerprint (); IMPORT char VS_Type__Fingerprint__0d24a3463c25e166;   IMPORT TYPE TC_ValueRep__V; IMPORT char VS_ValueRep__V__f28699153c608442;
#line 10
IMPORT t80 _ValueRep__Init (); IMPORT char VS_ValueRep__Init__ba99dff739390f9a; IMPORT t10 _ValueRep__NoDuplicates (); IMPORT char VS_ValueRep__NoDuplicates__ed93f73a247eb7b4;
#line 10
IMPORT t33 _ValueRep__NoExpr (); IMPORT char VS_ValueRep__NoExpr__1297c63d2e046c2c; IMPORT t9 _ValueRep__NoType (); IMPORT char VS_ValueRep__NoType__4061f01226f55ca3;
#line 10
IMPORT t14 _ValueRep__NoLoader (); IMPORT char VS_ValueRep__NoLoader__9a7f0c5b24f526c1; IMPORT t80 _ValueRep__NoWriter ();
#line 10
IMPORT char VS_ValueRep__NoWriter__3b24d43c367f7122; IMPORT t80 _ValueRep__NoDeclarer (); IMPORT char VS_ValueRep__NoDeclarer__22db283420635bde;
#line 10
IMPORT t5 _ValueRep__Never (); IMPORT char VS_ValueRep__Never__39b6ab0628d97589; IMPORT t5 _ValueRep__Always (); IMPORT char VS_ValueRep__Always__1b0a9bbf2173b8b3;
#line 10
  IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5; IMPORT t80 _Value__Bind (); IMPORT char VS_Value__Bind__6439d03d3a1be824;
#line 10
IMPORT t9 _Value__TypeOf (); IMPORT char VS_Value__TypeOf__5fe9c10426934d60; IMPORT t80 _Value__TypeCheck (); IMPORT char VS_Value__TypeCheck__917dc8a02c0b0de4;
#line 10
IMPORT t7 _Value__ClassOf (); IMPORT char VS_Value__ClassOf__9c68d87829345fcf; IMPORT t80 _Value__Fingerprint (); IMPORT char VS_Value__Fingerprint__709226fa2fc0e2e1;
#line 10
  EXPORT t80 _Method__New (); EXPORT char VS_Method__New__21fa68c73ba5f894 = '\0'; EXPORT t5 _Method__Split (); EXPORT char VS_Method__Split__ad6b2c1332a70dee = '\0';
#line 10
EXPORT t80 _Method__NoteOverride (); EXPORT char VS_Method__NoteOverride__e1dbeb43342ff26f = '\0'; PRIVATE TYPE TC_Method__T;
#line 10
PRIVATE t80 _Method__Check (); PRIVATE t80 _Method__Bind (); PRIVATE t80 _Method__Compile (); PRIVATE t7 _Method__MyClass ();
#line 10
PRIVATE t5 _Method__Declarer (); PRIVATE t80 _Method__FPrinter ();  IMPORT char VS_M3__Value__c975bdb53a08f518;    
#line 37 "Method.m3"
 EXPORT t80 _Method__New (_name, _parent, _signature, _defaultM, _defaultN) t12 _name; t9 _parent; t9 _signature; t12 _defaultM;
#line 37
t12 _defaultN; { t3 z0; t3 z2; t5 z3; t3 z1;
#line 37 "Method.m3"
{ auto t3 _t; {

      ZERO1  (& _t);
#line 37
      CHECKSTACKOVERFLOW;



      { register char** ptr = (char**) UNEWOBJ (TC3); z0 = (t3) ptr; }; _t = z0;
      _ValueRep__Init (_t, _name);
      NILCHECKA (z2 = _t); (((t43_fields*)(z2+(0+t77_size)))->_readonly) =  1 ;
      z3 = (_signature == 0); NILCHECKA (z1 = _t); (((t3_fields*)(z1+(0+t43_size+t77_size)))->_override) = z3;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t43_size+t77_size)))->_parent) = _parent;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t43_size+t77_size)))->_signature) = _signature;
      NILCHECKA (z2 = _t); ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_qid)._module) = _defaultM;
      NILCHECKA (z2 = _t); ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_qid)._item) = _defaultN;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t43_size+t77_size)))->_default) = (t10) 0;
      _Scope__Insert (_t); } } };
#line 53 "Method.m3"
 EXPORT t5 _Method__Split (_method, _override, _sig, _default) t10 _method; t5 * _override; t9 * _sig; t10 * _default; { t3 z1;
#line 53 "Method.m3"
{ auto t5 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;


      { register ADDRESS ref = (ADDRESS) _method; register int tc = TYPECODE (ref); if (tc == 0) goto tc0_0; if (ISSUBTYPE (tc, TC3)) goto tc0_1;
#line 56
         goto tc0_else; tc0_0:; __result =  0 ;
            return __result; tc0_1:; { auto t3 _t; {

                  ZERO1  (& _t);
#line 57
                  _t = (t3) ref;

                  NILCHECKA (z1 = _t); (*_override) = (((t3_fields*)(z1+(0+t43_size+t77_size)))->_override);
                  NILCHECKA (z1 = _t); (*_sig) = (((t3_fields*)(z1+(0+t43_size+t77_size)))->_signature);
                  NILCHECKA (z1 = _t); (*_default) = (((t3_fields*)(z1+(0+t43_size+t77_size)))->_default);
                  __result =  1 ; return __result; } } tc0_else:; __result =  0 ;

            return __result; tc0_exit:; }; } } };
#line 68 "Method.m3"
 EXPORT t80 _Method__NoteOverride (_method, _signature) t10 _method; t9 _signature; { t3 z1; t3 z2;
#line 68 "Method.m3"
{ auto t3 _t; {
      ZERO1  (& _t);
#line 68
      CHECKSTACKOVERFLOW;


      z1 = NARROW (_method, t3, TC3, z1); _t = z1;
      NILCHECKA (z1 = _t); if (!(((t3_fields*)(z1+(0+t43_size+t77_size)))->_override)) ASSERTFAULT;
      NILCHECKA (z2 = _t); (((t3_fields*)(z2+(0+t43_size+t77_size)))->_signature) = _signature;
      NILCHECKA (z2 = _t); (((t43_fields*)(z2+(0+t77_size)))->_type) = _signature; } } };
#line 77 "Method.m3"
 PRIVATE t80 _Method__Check (_t) t3 _t; { t3 z2; t3 z1; t5 z3; t7 z4; t16 z5; t3 z6; t9 z7; t5 z8; t5 z0;
#line 77 "Method.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); _Type__Check ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_signature));
      NILCHECKA (z1 = _t); z3 = ((((t3_fields*)(z1+(0+t43_size+t77_size)))->_default) != 0); if (z3) {
         NILCHECKA (z2 = _t); _Value__TypeCheck ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_default));
         NILCHECKA (z2 = _t); z4 = _Value__ClassOf ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_default)); z3 = (z4 !=  4 );
#line 82
         if (z3) {
            NILCHECKA (z2 = _t); _Error__QID (&(((t3_fields*)(z2+(0+t43_size+t77_size)))->_qid), ((ADDRESS)(& txt1.str)));
#line 83
            goto if_2_end; }; NILCHECKA (z2 = _t); z5 = NARROW ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_default), t16, TC16, z5);
#line 83
         z3 = _Procedure__IsNested (z5); if (z3) {

            NILCHECKA (z2 = _t); _Error__QID (&(((t3_fields*)(z2+(0+t43_size+t77_size)))->_qid), ((ADDRESS)(& txt2.str)));
#line 85
            goto if_2_end; }; NILCHECKA (z6 = _t); z7 = _Value__TypeOf ((((t3_fields*)(z6+(0+t43_size+t77_size)))->_default));
#line 85
         NILCHECKA (z2 = _t); z8 = _ProcType__IsCompatible (z7, (((t3_fields*)(z2+(0+t43_size+t77_size)))->_parent), (((t3_fields*)(z2+(0+t43_size+t77_size)))->_signature));
#line 85
         z0 = ! z8; if (z0) {


            NILCHECKA (z2 = _t); _Error__QID (&(((t3_fields*)(z2+(0+t43_size+t77_size)))->_qid), ((ADDRESS)(& txt3.str)));
#line 88
            goto if_2_end; }; if_2_end: /**/; goto if_1_end; }; if_1_end: /**/; } } };
#line 93 "Method.m3"
 PRIVATE t80 _Method__Bind (_t) t3 _t; { t3 z2; t9 z3; t3 z1; t5 z4; t10 z5;
#line 93 "Method.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); z3 = _Type__Bind ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_signature)); NILCHECKA (z1 = _t);
#line 95
      (((t3_fields*)(z1+(0+t43_size+t77_size)))->_signature) = z3;
      NILCHECKA (z1 = _t); z4 = (((((t3_fields*)(z1+(0+t43_size+t77_size)))->_qid)._item) != 0); if (z4) {
         NILCHECKA (z2 = _t); z5 = _Scope__LookUpQID (&(((t3_fields*)(z2+(0+t43_size+t77_size)))->_qid)); NILCHECKA (z1 = _t);
#line 97
         (((t3_fields*)(z1+(0+t43_size+t77_size)))->_default) = z5;
         NILCHECKA (z1 = _t); z4 = ((((t3_fields*)(z1+(0+t43_size+t77_size)))->_default) == 0); if (z4) { NILCHECKA (z2 = _t);
#line 98
            _Error__QID (&(((t3_fields*)(z2+(0+t43_size+t77_size)))->_qid), ((ADDRESS)(& txt4.str))); goto if_4_end; }; if_4_end: /**/;
#line 98
         goto if_3_end; }; if_3_end: /**/;

      NILCHECKA (z2 = _t); _Value__Bind ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_default));
      NILCHECKA (z1 = _t); (((t43_fields*)(z1+(0+t77_size)))->_type) = (((t3_fields*)(z1+(0+t43_size+t77_size)))->_signature);
#line 101
      } } };
#line 104 "Method.m3"
 PRIVATE t80 _Method__Compile (_t) t3 _t; { t3 z2;
#line 104 "Method.m3"
{ { CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); _Type__Compile ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_signature)); } } };
#line 109 "Method.m3"
 PRIVATE t7 _Method__MyClass (_t) t3 _t; {
#line 109 "Method.m3"
{ auto t7 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      __result =  7 ; return __result; } } };
#line 114 "Method.m3"
 PRIVATE t5 _Method__Declarer (_t) t3 _t; { t3 z2;
#line 114 "Method.m3"
{ auto t5 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      NILCHECKA (z2 = _t); _Error__Str ((((t43_fields*)(z2+(0+t77_size)))->_name), ((ADDRESS)(& txt5.str)));
      if (! 0 ) ASSERTFAULT; } } };
#line 121 "Method.m3"
 PRIVATE t80 _Method__FPrinter (_t, _map, _wr) t3 _t; t2 _map; t1 _wr; { t3 z2; t3 z1; t5 z3;
#line 121 "Method.m3"
{ { CHECKSTACKOVERFLOW;

      _Wr__PutText (_wr, ((ADDRESS)(& txt6.str)));
      NILCHECKA (z2 = _t); _Type__Fingerprint ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_signature), _map, _wr);
      NILCHECKA (z1 = _t); z3 = ((((t3_fields*)(z1+(0+t43_size+t77_size)))->_default) != 0); if (z3) {
         _Wr__PutText (_wr, ((ADDRESS)(& txt7.str)));
         NILCHECKA (z2 = _t); _Value__Fingerprint ((((t3_fields*)(z2+(0+t43_size+t77_size)))->_default), _map, _wr); goto if_5_end;
#line 127
 }; if_5_end: /**/; } } };  PRIVATE int init_done = -1;
#line 127 "Method.m3"
 PRIVATE void Method__initProc (g) int g; {
#line 127 "Method.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Method__init); INITIALIZE (& Procedure__init); INITIALIZE (& Wr__init);
#line 127
INITIALIZE (& Temp__init); INITIALIZE (& ProcType__init); INITIALIZE (& Error__init); INITIALIZE (& String__init); INITIALIZE (& Expr__init);
#line 127
INITIALIZE (& Scope__init); INITIALIZE (& Type__init); INITIALIZE (& ValueRep__init); INITIALIZE (& Value__init); return;
#line 127
}; 
#line 127 "Method.m3"
PRIVATE void t3_InitProc (obj) char* obj; { register t3_fields* p;
#line 127 "Method.m3"
CHECKSTACKOVERFLOW; p = (t3_fields*) (obj + TC10->datasize); }; 
#line 127 "Method.m3"
PRIVATE void t3_SetupProc () { register int* p;
#line 127 "Method.m3"
t3_TC.datasize += TC10->datasize; t3_TC.methodsize += TC10->methodsize; p = (int*) UALLOC (t3_TC.methodsize); COPY (TC10->defaultMethods, p, (TC10->methodsize));
#line 127
p[0] = (int)(& t3_TC); p[1] = 0; ((t43_methods*) (((char*)p) + TC77->methodsize))->_bind = _Method__Bind; ((t43_methods*) (((char*)p) + TC77->methodsize))->_typeCheck = _Method__Check;
#line 127
((t43_methods*) (((char*)p) + TC77->methodsize))->_class = _Method__MyClass; ((t43_methods*) (((char*)p) + TC77->methodsize))->_fingerprint = _Method__FPrinter;
#line 127
((t43_methods*) (((char*)p) + TC77->methodsize))->_load = _ValueRep__NoLoader; ((t43_methods*) (((char*)p) + TC77->methodsize))->_write = _ValueRep__NoWriter;
#line 127
((t43_methods*) (((char*)p) + TC77->methodsize))->_select = _ValueRep__NoDuplicates; ((t43_methods*) (((char*)p) + TC77->methodsize))->_declare0 = _Method__Declarer;
#line 127
((t43_methods*) (((char*)p) + TC77->methodsize))->_declare1 = _Method__Compile; ((t43_methods*) (((char*)p) + TC77->methodsize))->_needsDecl = _ValueRep__Never;
#line 127
((t43_methods*) (((char*)p) + TC77->methodsize))->_toExpr = _ValueRep__NoExpr; ((t43_methods*) (((char*)p) + TC77->methodsize))->_toType = _ValueRep__NoType;
#line 127
t3_TC.defaultMethods = (char*) p; }; 
#line 127 "Method.m3"
PRIVATE void t3_PrintProc (obj) char *obj; { t3_fields* o;
#line 127 "Method.m3"
CHECKSTACKOVERFLOW; if (TC10->printProc != 0) {TC10->printProc (obj); } fprintf (stderr, "{%s} ", TC3->brand); o = (t3_fields*) (obj + TC10->datasize);
#line 127
fprintf (stderr, "override = %d", o->_override); fprintf (stderr, ", "); fprintf (stderr, "parent = %#x", o->_parent); fprintf (stderr, ", ");
#line 127
fprintf (stderr, "signature = %#x", o->_signature); fprintf (stderr, ", "); fprintf (stderr, "qid = { "); fprintf (stderr, "module = %#x", o->_qid._module);
#line 127
fprintf (stderr, "item = %#x", o->_qid._item); fprintf (stderr, "}"); fprintf (stderr, ", "); fprintf (stderr, "default = %#x", o->_default);
#line 127
fprintf (stderr, ", "); };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Method__initProc}; static char* VSimports[] = { &VS_Procedure__T__be7ead4a3afd8be5,
&VS_Procedure__IsNested__6138cc692dfd93f7, &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_ProcType__Raisee__5fe771ff27c179d9,
&VS_ProcType__IsCompatible__c183a5072f62b941, &VS_Error__Str__2bd0723e3872e90c, &VS_Error__QID__84a7ccd932b81b86, &VS_String__T__3a6c7dc12615e4ee,
&VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_Scope__T__3a6c7dc12615e4ee, &VS_Scope__ValueList__64bf053e22e4e53c,
&VS_Scope__Insert__ef77c00626575764, &VS_Scope__LookUpQID__725ce38220cfad93, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce,
&VS_Type__List__5791758e343becc1, &VS_Type__Bind__3443ccd12eedb9e8, &VS_Type__Check__3c8ceb09206ee440, &VS_Type__Compile__b35af2d633205d32,
&VS_Type__Fingerprint__0d24a3463c25e166, &VS_ValueRep__V__f28699153c608442, &VS_ValueRep__Init__ba99dff739390f9a, &VS_ValueRep__NoDuplicates__ed93f73a247eb7b4,
&VS_ValueRep__NoExpr__1297c63d2e046c2c, &VS_ValueRep__NoType__4061f01226f55ca3, &VS_ValueRep__NoLoader__9a7f0c5b24f526c1,
&VS_ValueRep__NoWriter__3b24d43c367f7122, &VS_ValueRep__NoDeclarer__22db283420635bde, &VS_ValueRep__Never__39b6ab0628d97589,
&VS_ValueRep__Always__1b0a9bbf2173b8b3, &VS_Value__T__2446b70b3f7780a5, &VS_Value__Bind__6439d03d3a1be824, &VS_Value__TypeOf__5fe9c10426934d60,
&VS_Value__TypeCheck__917dc8a02c0b0de4, &VS_Value__ClassOf__9c68d87829345fcf, &VS_Value__Fingerprint__709226fa2fc0e2e1, NIL
 };  void Method__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Method__init; Method__init = & me_0; t3_TC = t3_TC_init;
         REGISTERTYPE (TC3); break; }; case 1: { t3_TC.parent = TC_M3__Value; break; }; case 2: { break; }; }; };