#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "SUBARRAY", 9}; PRIVATE TXT txt2 = { 3, "SUBARRAY: first argument must be an array", 42};
PRIVATE TXT txt3 = { 3, "SUBARRAY: second argrment must be assignable to CARDINAL", 57 }; PRIVATE TXT txt4 = { 3, "SUBARRAY: third argument must be assignable to CARDINAL",
   56 }; PRIVATE TXT txt5 = { 3, "{\001\012", 4}; PRIVATE TXT txt6 = { 3, "@ = @;\012", 8}; PRIVATE TXT txt7 = { 3, "if ((@+@) > ", 13};
PRIVATE TXT txt8 = { 3, "@) RANGEFAULT;\012", 16}; PRIVATE TXT txt9 = { 3, "@.size[0] = @;\012", 16}; PRIVATE TXT txt10 = { 3, "@.elts = ((char*)(& @)) + ", 27};
PRIVATE TXT txt11 = { 3, "(@ * @);\012", 10}; PRIVATE TXT txt12 = { 3, "register t@* array = & @;\012", 27}; PRIVATE TXT txt13 = { 3, "if ((@+@) > array->size[0]) RANGEFAULT;\012", 41};
PRIVATE TXT txt14 = { 3, "@.size[@] = ", 13}; PRIVATE TXT txt15 = { 3, "array->size[@];\012", 17}; PRIVATE TXT txt16 = { 3, "@.elts = array->elts + (@ * ", 29};
PRIVATE TXT txt17 = { 3, "(array->size[@]) * ", 20}; PRIVATE TXT txt18 = { 3, "@);\012", 5}; PRIVATE TXT txt19 = { 3, "\002};\012", 5};
#line 14 "../Interfaces/Expr.i3"
#define t3 ADDRESS
#define t74 void
#define t71 ADDRESS
 typedef struct { TYPE self; int private; } t71_methods; 
#define t71_msize (sizeof (t71_methods))
typedef struct { ADDRESS methods; } t71_fields; 
#define t71_size (sizeof (t71_fields))
#define TC71 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 16 "../Interfaces/M3.i3"
#define t4 ADDRESS
#define TC4 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t58;
#line 14 "../Interfaces/Expr.i3"
#define t40 t58
#define TC3 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Scope.i3"
#define t30 ADDRESS
#define t14 ADDRESS
#define TC14 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15 "../Interfaces/M3.i3"
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 17 "../Interfaces/Scope.i3"
#define t33 t58
#define TC30 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c; 
#define t35 ADDRESS
typedef int t6; 
#define TC35 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44;
#line 16 "../Interfaces/Type.i3"
#define t37 ADDRESS
#define t44 t58
#define TC37 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce;
#define t42 ADDRESS
#define t7 ADDRESS
#define TC7 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 { t42 _next; t7 _type; } t43; 
#define TC42 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t60 ADDRESS
#define TC60 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; 
#define t75 ADDRESS
#define TC75 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc;
#line 111 "Subarray.m3"
typedef t74 (*t1)(); typedef unsigned char t2;
#line 106
typedef t2 (*t5)();
#line 19 "../Interfaces/M3.i3"
#define t8 ADDRESS
#define TC8 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 47 "Subarray.m3"
typedef t8 (*t9)();
#line 20
typedef t7 (*t10)();
#line 17 "../Interfaces/CallExpr.i3"
#define t11 ADDRESS
#define TC11 TC_CallExpr__MethodList
IMPORT TYPE TC_CallExpr__MethodList;
#line 17
IMPORT char VS_CallExpr__MethodList__7e87c2d720444b71;
#line 14 "../Interfaces/CheckExpr.i3"
typedef t4 (*t12)();
#line 13 "../Interfaces/String.i3"
#define t13 ADDRESS
#define TC13 TC_String__T
IMPORT TYPE TC_String__T;
#line 13
IMPORT char VS_String__T__3a6c7dc12615e4ee; 
#define t15 ADDRESS
#define TC15 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t15_MapProc TC_TEXT->mapProc
typedef struct {
#line 14 "../Interfaces/Decl.i3"
 t13 _alias; t2 _isExternal; t2 _isInline; t2 _isUnused; t2 _isObsolete; } t16;
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t46;
#line 45
typedef struct { int elts[4]; } t17;
#line 16 "../Interfaces/Variable.i3"
#define t18 ADDRESS
#define TC18 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5;
#line 14 "../Interfaces/VarExpr.i3"
typedef t18 (*t19)();
#line 27 "../Interfaces/Emit.i3"
typedef signed_char t20;
#line 63
typedef t20 (*t21)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t52;
#line 65 "../Interfaces/Token.i3"
#define t45 t58
typedef struct { t13 elts[100]; } t53;
#line 17 "../Interfaces/String.i3"
typedef struct { t6 _top; t53 _stk; } t22; typedef double t23; typedef unsigned char t24;
#line 29 "../Interfaces/ArrayType.i3"
typedef t6 (*t25)();
#line 14 "../Interfaces/String.i3"
typedef struct { t13 _module; t13 _item; } t26;
#line 37 "../Interfaces/Procedure.i3"
#define t27 t58
#define t28 ADDRESS
#define TC28 TC_Procedure__T
IMPORT TYPE TC_Procedure__T;
#line 15
IMPORT char VS_Procedure__T__be7ead4a3afd8be5;
#line 14 "../Interfaces/M3.i3"
#define t29 ADDRESS
#define TC29 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 38 "../Interfaces/Scope.i3"
typedef t14 (*t31)();
#line 31
typedef t29 (*t32)();
#line 27 "../Interfaces/CallExpr.i3"
typedef t11 (*t34)(); 
#define t61 ADDRESS
 typedef struct { TYPE self; int private; } t61_methods; 
#define t61_msize (sizeof (t61_methods))
typedef struct { ADDRESS methods; } t61_fields; 
#define t61_size (sizeof (t61_fields))
#define TC61 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t61_MapProc TC_ROOT->mapProc
#define t36 ADDRESS
#define TC36 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t36_MapProc TC_Wr__T->mapProc
typedef unsigned char t38;
#line 40 "../Interfaces/Value.i3"
typedef t38 (*t39)();
#line 121 "../Interfaces/Type.i3"
typedef t37 (*t41)();
#line 65 "../Interfaces/Token.i3"
typedef struct { t13 elts[97]; } t47; typedef int t48;
#line 37 "../Interfaces/String.i3"
typedef t15 (*t49)();
#line 34
typedef t13 (*t50)();
#line 28
#define t51 t58
typedef signed_char t54;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef t54 (*t55)();
#line 26
typedef t48 (*t56)();
#line 23
typedef t24 (*t57)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t59;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t62 ADDRESS
#define TC62 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t62_MapProc TC_Thread__T->mapProc
typedef t60 (*t63)();



#define t64 ADDRESS
#define TC64 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t64_MapProc TC_Thread__Condition->mapProc
#define t65 ADDRESS
#define TC65 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t65_MapProc TC_MUTEX->mapProc
typedef t62 (*t66)();
#line 23
#define t67 ADDRESS

#line 23
typedef struct { t63 _apply; } t67_methods; 
#define t67_msize (sizeof (t67_methods))
typedef struct {
#line 23
 int filler; } t67_fields; 
#define t67_size (sizeof (t67_fields))
#define TC67 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t67_MapProc TC_Thread__Closure->mapProc
typedef t64 (*t68)();





typedef t65 (*t69)();
#line 28
#define t70 ADDRESS

#line 28
typedef struct { int filler; } t70_methods; 
#define t70_msize (sizeof (t70_methods))
typedef struct {
#line 28
 t48 _stackSize; } t70_fields; 
#define t70_size (sizeof (t70_fields))
#define TC70 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t70_MapProc TC_Thread__SizedClosure->mapProc
#define t72 ADDRESS
#define TC72 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17 "../Interfaces/M3.i3"
IMPORT char VS_M3__Stmt__376b307627fc1f2f; typedef CLOSURE t73; typedef float t76;
#line 10 "Subarray.m3"
IMPORT INITLINK* Target__init; IMPORT INITLINK* CheckExpr__init; IMPORT INITLINK* Temp__init; IMPORT INITLINK* Tipe__init;
#line 10
IMPORT INITLINK* IntegerExpr__init; IMPORT INITLINK* SubrangeType__init; IMPORT INITLINK* AddExpr__init; IMPORT INITLINK* VarExpr__init;
#line 10
IMPORT INITLINK* DerefExpr__init; IMPORT INITLINK* SubscriptExpr__init; IMPORT INITLINK* OpenArray__init; IMPORT INITLINK* Int__init;
#line 10
IMPORT INITLINK* Emit__init; IMPORT INITLINK* Card__init; IMPORT INITLINK* ArrayType__init; IMPORT INITLINK* Error__init;
#line 10
IMPORT INITLINK* Procedure__init; IMPORT INITLINK* Type__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* CallExpr__init;
#line 10
IMPORT INITLINK* Subarray__init;  IMPORT char VS_Target__CHARSIZE__bfc83af22ccab4e4;   IMPORT t4 _CheckExpr__NewLower ();
#line 10
IMPORT char VS_CheckExpr__NewLower__5e10e5102119d155;   IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee;
#line 10
IMPORT t8 _Temp__AllocEmpty (); IMPORT char VS_Temp__AllocEmpty__20296f6d2a78c948; IMPORT t8 _Temp__Alloc (); IMPORT char VS_Temp__Alloc__0b946c9d3ec0974e;
#line 10
IMPORT t74 _Temp__Free (); IMPORT char VS_Temp__Free__3b952a2225c26846;                     IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3;
#line 10
IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7; IMPORT t74 _Emit__Op (); IMPORT char VS_Emit__Op__072646cc27c8ae10;
#line 10
IMPORT t74 _Emit__OpI (); IMPORT char VS_Emit__OpI__02cb878634bb9f49; IMPORT t74 _Emit__OpTT (); IMPORT char VS_Emit__OpTT__cba0ce912431e01c;
#line 10
IMPORT t74 _Emit__OpTI (); IMPORT char VS_Emit__OpTI__af828b1c28578815; IMPORT t74 _Emit__OpIT (); IMPORT char VS_Emit__OpIT__1322d0f925e21d92;
#line 10
  IMPORT t7 _Card__T; IMPORT char VS_Card__T__05078300272f1e6d;   IMPORT t2 _ArrayType__Split (); IMPORT char VS_ArrayType__Split__b3402f88270f8053;
#line 10
IMPORT t7 _ArrayType__OpenCousin (); IMPORT char VS_ArrayType__OpenCousin__69bc73692c545d08; IMPORT t7 _ArrayType__OpenImpl ();
#line 10
IMPORT char VS_ArrayType__OpenImpl__fe61729235c79eff; IMPORT t6 _ArrayType__OpenDepth (); IMPORT char VS_ArrayType__OpenDepth__0aca628230da93d9;
#line 10
IMPORT t7 _ArrayType__OpenType (); IMPORT char VS_ArrayType__OpenType__dc0e4a482cc08a8b;   IMPORT t74 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f;
#line 10
  IMPORT t74 _Procedure__Define (); IMPORT char VS_Procedure__Define__23155a563959ddb7;   IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5;
#line 10
IMPORT t6 _Type__Size (); IMPORT char VS_Type__Size__2f4d980e28adf05b; IMPORT t6 _Type__Number (); IMPORT char VS_Type__Number__f5ca10923ed3cf22;
#line 10
IMPORT t7 _Type__Base (); IMPORT char VS_Type__Base__2bebd0333659a92c; IMPORT t6 _Type__Name (); IMPORT char VS_Type__Name__f99416972257a869;
#line 10
IMPORT t2 _Type__IsAssignable (); IMPORT char VS_Type__IsAssignable__6d0a7b0e2c806002;   IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5;
#line 10
IMPORT t74 _Expr__Bind (); IMPORT char VS_Expr__Bind__7e2752da3eaf56eb; IMPORT t7 _Expr__TypeOf (); IMPORT char VS_Expr__TypeOf__fef0a11b388c64fa;
#line 10
IMPORT t2 _Expr__IsDesignator (); IMPORT char VS_Expr__IsDesignator__e3556614321cb906; IMPORT t2 _Expr__IsWritable (); IMPORT char VS_Expr__IsWritable__85b9bb292e4a0f55;
#line 10
IMPORT t74 _Expr__TypeCheck (); IMPORT char VS_Expr__TypeCheck__af9aa9073729e7f7; IMPORT t8 _Expr__Compile (); IMPORT char VS_Expr__Compile__a7e0cc4029a2ec76;
#line 10
  IMPORT t11 _CallExpr__NewMethodList (); IMPORT char VS_CallExpr__NewMethodList__1e86caa631267427; IMPORT t4 _CallExpr__NoValue ();
#line 10
IMPORT char VS_CallExpr__NoValue__93a279c02a9c62e4;   EXPORT t74 _Subarray__Initialize (); EXPORT char VS_Subarray__Initialize__a9e41b11337eae0d = '\0';
#line 10
PRIVATE t11 _Subarray__Z; PRIVATE t7 _Subarray__Bind (); PRIVATE t74 _Subarray__Check (); PRIVATE t8 _Subarray__Compile ();
#line 10
PRIVATE t2 _Subarray__IsWritable (); PRIVATE t2 _Subarray__IsDesignator ();     
#line 20 "Subarray.m3"
 PRIVATE t7 _Subarray__Bind (_proc, _args) t4 _proc; t3 _args; { t3 z4; t6 z6; t6 z7; t7 z5; t7 z2; t7 z1;
#line 20 "Subarray.m3"
{ auto t7 __result; { CHECKSTACKOVERFLOW;

      NILCHECKB (z4 = _args); { register t58* array = & (*((t40*) z4)); z7 =  0 ; if (z7 >= (array->size[0])) RANGEFAULT;
#line 22
         z6 = (int)(array->elts + (z7 * 4)); }; z5 = _Expr__TypeOf ((*(t4*)z6)); z2 = _Type__Base (z5); z1 = _ArrayType__OpenCousin (z2);
#line 22
      __result = z1; return __result; } } };
#line 25 "Subarray.m3"
 PRIVATE t74 _Subarray__Check (_proc, _args) t4 _proc; t3 * _args; { t3 z3; t6 z5; t6 z6; t7 z4; t7 z1; t3 z2; t2 z7; t2 z0;
t4 z8;
#line 25 "Subarray.m3"
{ auto t7 _t; auto t7 _u; auto t7 _v; auto t7 _index; auto t7 _elt; { CHECKSTACKOVERFLOW;


      NILCHECKB (z3 = (*_args)); { register t58* array = & (*((t40*) z3)); z6 =  0 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 28
         z5 = (int)(array->elts + (z6 * 4)); }; z4 = _Expr__TypeOf ((*(t4*)z5)); z1 = _Type__Base (z4); _t = z1;
      NILCHECKB (z2 = (*_args)); { register t58* array = & (*((t40*) z2)); z6 =  1 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 29
         z5 = (int)(array->elts + (z6 * 4)); }; z4 = _Expr__TypeOf ((*(t4*)z5)); _u = z4;
      NILCHECKB (z2 = (*_args)); { register t58* array = & (*((t40*) z2)); z6 =  2 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 30
         z5 = (int)(array->elts + (z6 * 4)); }; z4 = _Expr__TypeOf ((*(t4*)z5)); _v = z4;
      z7 = _ArrayType__Split (_t, &_index, &_elt); z0 = ! z7; if (z0) {
         _Error__Msg (((ADDRESS)(& txt2.str))); goto if_1_end; }; z7 = _Type__IsAssignable (_Card__T, _u); z0 = ! z7; if (z0) {

         _Error__Msg (((ADDRESS)(& txt3.str))); goto if_1_end; }; z7 = _Type__IsAssignable (_Card__T, _v); z0 = ! z7; if (z0) {

         _Error__Msg (((ADDRESS)(& txt4.str))); goto if_1_end; }; NILCHECKB (z2 = (*_args));

         { register t58* array = & (*((t40*) z2)); z6 =  1 ; if (z6 >= (array->size[0])) RANGEFAULT; z5 = (int)(array->elts + (z6 * 4));
#line 38
 }; z8 = _CheckExpr__NewLower ((*(t4*)z5),  0 ); NILCHECKB (z2 = (*_args)); { register t58* array = & (*((t40*) z2)); z6 =  1 ;
#line 38
            if (z6 >= (array->size[0])) RANGEFAULT; z5 = (int)(array->elts + (z6 * 4)); }; (*(t4*)z5) = z8;
         NILCHECKB (z2 = (*_args)); { register t58* array = & (*((t40*) z2)); z6 =  2 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 39
            z5 = (int)(array->elts + (z6 * 4)); }; z8 = _CheckExpr__NewLower ((*(t4*)z5),  0 ); NILCHECKB (z2 = (*_args));
#line 39
         { register t58* array = & (*((t40*) z2)); z6 =  2 ; if (z6 >= (array->size[0])) RANGEFAULT; z5 = (int)(array->elts + (z6 * 4));
#line 39
 }; (*(t4*)z5) = z8;
         { int from, to, index; from =  1 ; to =  2 ; { auto t6 _i; { for (index = from; index <= to; index += 1) { _i = (t6) index;
                     NILCHECKB (z2 = (*_args)); { register t58* array = & (*((t40*) z2)); z6 = _i; if (z6 >= (array->size[0])) RANGEFAULT;
#line 41
                        z5 = (int)(array->elts + (z6 * 4)); }; _Expr__Bind ((*(t4*)z5));
                     NILCHECKB (z2 = (*_args)); { register t58* array = & (*((t40*) z2)); z6 = _i; if (z6 >= (array->size[0])) RANGEFAULT;
#line 42
                        z5 = (int)(array->elts + (z6 * 4)); }; _Expr__TypeCheck ((*(t4*)z5)); } } }; }; if_1_end: /**/; }
#line 42
   } };
#line 47 "Subarray.m3"
 PRIVATE t8 _Subarray__Compile (_proc, _args) t4 _proc; t3 _args; { t3 z3; t6 z5; t6 z6; t7 z4; t7 z1; t7 z2; t8 z7; t2 z8;
t7 z9;
#line 47 "Subarray.m3"
{ auto t8 _result; auto t8 _start; auto t8 _len; auto t8 _arg0; auto t8 _arg1; auto t8 _arg2; auto t7 _array; auto t7 _index;
#line 47
   auto t7 _element; auto t7 _open; auto t6 _j; auto t6 _depth; auto t8 __result; { CHECKSTACKOVERFLOW;





      NILCHECKB (z3 = _args); { register t58* array = & (*((t40*) z3)); z6 =  0 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 53
         z5 = (int)(array->elts + (z6 * 4)); }; z4 = _Expr__TypeOf ((*(t4*)z5)); z1 = _Type__Base (z4); _array = z1;
      z2 = _ArrayType__OpenCousin (_array); _open = z2;
      NILCHECKB (z3 = _args); { register t58* array = & (*((t40*) z3)); z6 =  0 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 55
         z5 = (int)(array->elts + (z6 * 4)); }; z7 = _Expr__Compile ((*(t4*)z5)); _arg0 = z7;
      NILCHECKB (z3 = _args); { register t58* array = & (*((t40*) z3)); z6 =  1 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 56
         z5 = (int)(array->elts + (z6 * 4)); }; z7 = _Expr__Compile ((*(t4*)z5)); _arg1 = z7;
      NILCHECKB (z3 = _args); { register t58* array = & (*((t40*) z3)); z6 =  2 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 57
         z5 = (int)(array->elts + (z6 * 4)); }; z7 = _Expr__Compile ((*(t4*)z5)); _arg2 = z7;
      z4 = _ArrayType__OpenImpl (_open); z7 = _Temp__AllocEmpty (z4,  1 ); _result = z7;
      NILCHECKB (z3 = _args); { register t58* array = & (*((t40*) z3)); z6 =  1 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 59
         z5 = (int)(array->elts + (z6 * 4)); }; z7 = _Temp__Alloc ((*(t4*)z5)); _start = z7;
      NILCHECKB (z3 = _args); { register t58* array = & (*((t40*) z3)); z6 =  2 ; if (z6 >= (array->size[0])) RANGEFAULT;
#line 60
         z5 = (int)(array->elts + (z6 * 4)); }; z7 = _Temp__Alloc ((*(t4*)z5)); _len = z7;
      z5 = _ArrayType__OpenDepth (_array); _depth = z5;
      { { auto t2 _b; { ZERO1B (& _b); z8 = _ArrayType__Split (_array, &_index, &_element); _b = z8;
               if (!_b) ASSERTFAULT; } } };
      _Emit__Op (((ADDRESS)(& txt5.str)));
      z8 = (_depth ==  0 ); if (z8) {

         _Emit__OpTT (((ADDRESS)(& txt6.str)), _start, _arg1);
         _Emit__OpTT (((ADDRESS)(& txt6.str)), _len, _arg2);
         _Emit__OpTT (((ADDRESS)(& txt7.str)), _start, _len);
         z5 = _Type__Number (_index); _Emit__OpI (((ADDRESS)(& txt8.str)), z5);
         _Emit__OpTT (((ADDRESS)(& txt9.str)), _result, _len);
         _Emit__OpTT (((ADDRESS)(& txt10.str)), _result, _arg0);
         z5 = _Type__Size (_element); z6 = IDIV (z5,  8 ); _Emit__OpTI (((ADDRESS)(& txt11.str)), _start, z6); goto if_2_end;
#line 73
 }; z4 = _ArrayType__OpenImpl (_open);


         z5 = _Type__Name (z4); _j = z5;
         _Emit__OpIT (((ADDRESS)(& txt12.str)), _j, _arg0);
         _Emit__OpTT (((ADDRESS)(& txt6.str)), _start, _arg1);
         _Emit__OpTT (((ADDRESS)(& txt6.str)), _len, _arg2);
         _Emit__OpTT (((ADDRESS)(& txt13.str)), _start, _len);
         _Emit__OpTT (((ADDRESS)(& txt9.str)), _result, _len);
         { int from, to, index; from =  1 ; z5 = _depth -  1 ; to = z5; { auto t6 _i; { for (index = from; index <= to; index += 1) {
#line 82
                     _i = (t6) index;
                     _Emit__OpTI (((ADDRESS)(& txt14.str)), _result, _i);
                     _Emit__OpI (((ADDRESS)(& txt15.str)), _i); } } }; };

         _Emit__OpTT (((ADDRESS)(& txt16.str)), _result, _start);
         { int from, to, index; from =  1 ; z5 = _depth -  1 ; to = z5; { auto t6 _i; { for (index = from; index <= to; index += 1) {
#line 87
                     _i = (t6) index; _Emit__OpI (((ADDRESS)(& txt17.str)), _i); } } }; };

         z9 = _ArrayType__OpenType (_open); z5 = _Type__Size (z9); z6 = IDIV (z5,  8 ); _Emit__OpI (((ADDRESS)(& txt18.str)), z6);
#line 89
 if_2_end: /**/;

      _Emit__Op (((ADDRESS)(& txt19.str)));

      _Temp__Free (_arg0);
      _Temp__Free (_arg1);
      _Temp__Free (_arg2);
      _Temp__Free (_start);
      _Temp__Free (_len);
      __result = _result; return __result; } } };
#line 101 "Subarray.m3"
 PRIVATE t2 _Subarray__IsWritable (_proc, _args) t4 _proc; t3 _args; { t3 z2; t6 z4; t6 z5; t2 z3;
#line 101 "Subarray.m3"
{ auto t2 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      NILCHECKB (z2 = _args); { register t58* array = & (*((t40*) z2)); z5 =  0 ; if (z5 >= (array->size[0])) RANGEFAULT;
#line 103
         z4 = (int)(array->elts + (z5 * 4)); }; z3 = _Expr__IsWritable ((*(t4*)z4)); __result = z3; return __result; } } };
#line 106 "Subarray.m3"
 PRIVATE t2 _Subarray__IsDesignator (_proc, _args) t4 _proc; t3 _args; { t3 z2; t6 z4; t6 z5; t2 z3;
#line 106 "Subarray.m3"
{ auto t2 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;

      NILCHECKB (z2 = _args); { register t58* array = & (*((t40*) z2)); z5 =  0 ; if (z5 >= (array->size[0])) RANGEFAULT;
#line 108
         z4 = (int)(array->elts + (z5 * 4)); }; z3 = _Expr__IsDesignator ((*(t4*)z4)); __result = z3; return __result; } }
#line 108
 };
#line 111 "Subarray.m3"
 EXPORT t74 _Subarray__Initialize () { t11 z10;
#line 111 "Subarray.m3"
{ { CHECKSTACKOVERFLOW;

      z10 = _CallExpr__NewMethodList ( 3 ,  3 ,  1 , _Subarray__Bind, _Subarray__Check, _Subarray__Compile, _CallExpr__NoValue, 
#line 113
      _Subarray__IsWritable, _Subarray__IsDesignator); _Subarray__Z = z10;

      _Procedure__Define (((ADDRESS)(& txt1.str)), _Subarray__Z, 0); } } };  PRIVATE int init_done = -1;
#line 115 "Subarray.m3"
 PRIVATE void Subarray__initProc (g) int g; {
#line 115 "Subarray.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Subarray__init); INITIALIZE (& Target__init); INITIALIZE (& CheckExpr__init);
#line 115
INITIALIZE (& Temp__init); INITIALIZE (& Tipe__init); INITIALIZE (& IntegerExpr__init); INITIALIZE (& SubrangeType__init);
#line 115
INITIALIZE (& AddExpr__init); INITIALIZE (& VarExpr__init); INITIALIZE (& DerefExpr__init); INITIALIZE (& SubscriptExpr__init);
#line 115
INITIALIZE (& OpenArray__init); INITIALIZE (& Int__init); INITIALIZE (& Emit__init); INITIALIZE (& Card__init); INITIALIZE (& ArrayType__init);
#line 115
INITIALIZE (& Error__init); INITIALIZE (& Procedure__init); INITIALIZE (& Type__init); INITIALIZE (& Expr__init); INITIALIZE (& CallExpr__init);
#line 115
return; };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Subarray__initProc}; static char* VSimports[] = { &VS_Target__CHARSIZE__bfc83af22ccab4e4,
   &VS_CheckExpr__NewLower__5e10e5102119d155, &VS_Temp__T__3a6c7dc12615e4ee, &VS_Temp__AllocEmpty__20296f6d2a78c948, &VS_Temp__Alloc__0b946c9d3ec0974e,
   &VS_Temp__Free__3b952a2225c26846, &VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__Op__072646cc27c8ae10,
   &VS_Emit__OpI__02cb878634bb9f49, &VS_Emit__OpTT__cba0ce912431e01c, &VS_Emit__OpTI__af828b1c28578815, &VS_Emit__OpIT__1322d0f925e21d92,
   &VS_Card__T__05078300272f1e6d, &VS_ArrayType__Split__b3402f88270f8053, &VS_ArrayType__OpenCousin__69bc73692c545d08, &VS_ArrayType__OpenImpl__fe61729235c79eff,
   &VS_ArrayType__OpenDepth__0aca628230da93d9, &VS_ArrayType__OpenType__dc0e4a482cc08a8b, &VS_Error__Msg__4d119a332467757f,
   &VS_Procedure__T__be7ead4a3afd8be5, &VS_Procedure__Define__23155a563959ddb7, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce,
   &VS_Type__List__5791758e343becc1, &VS_Type__Size__2f4d980e28adf05b, &VS_Type__Number__f5ca10923ed3cf22, &VS_Type__Base__2bebd0333659a92c,
   &VS_Type__Name__f99416972257a869, &VS_Type__IsAssignable__6d0a7b0e2c806002, &VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a,
   &VS_Expr__Bind__7e2752da3eaf56eb, &VS_Expr__TypeOf__fef0a11b388c64fa, &VS_Expr__IsDesignator__e3556614321cb906, &VS_Expr__IsWritable__85b9bb292e4a0f55,
   &VS_Expr__TypeCheck__af9aa9073729e7f7, &VS_Expr__Compile__a7e0cc4029a2ec76, &VS_CallExpr__MethodList__7e87c2d720444b71,
   &VS_CallExpr__NewMethodList__1e86caa631267427, &VS_CallExpr__NoValue__93a279c02a9c62e4, NIL };  void Subarray__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Subarray__init; Subarray__init = & me_0;
         break; }; case 1: { break; }; case 2: { break; }; }; };