#include "M3Runtime.h" typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "NEW", 4}; PRIVATE TXT txt2 = { 3, "NEW must be applied to a reference type", 40}; PRIVATE TXT txt3 = { 3, "cannot allocate an open reference type", 39}; PRIVATE TXT txt4 = { 3, "cannot allocate variables of empty types", 41}; PRIVATE TXT txt5 = { 3, "too many arguments to NEW", 26}; PRIVATE TXT txt6 = { 3, "argument must be an integer", 28}; PRIVATE TXT txt7 = { 3, "too many dimensions specified", 30}; PRIVATE TXT txt8 = { 3, "not enough dimensions specified", 32}; PRIVATE TXT txt9 = { 3, "extra arguments must include keywords", 38}; PRIVATE TXT txt10 = { 3, "unknown record field", 21}; PRIVATE TXT txt11 = { 3, "undefined field?", 17}; PRIVATE TXT txt12 = { 3, "value is not assignable to field", 33}; PRIVATE TXT txt13 = { 3, "unknown object field or method", 31}; PRIVATE TXT txt14 = { 3, "procedure is not compatible with method", 40}; PRIVATE TXT txt15 = { 3, "undefined?", 11}; PRIVATE TXT txt16 = { 3, "NEW must be applied to a variable of a reference type", 54 }; PRIVATE TXT txt17 = { 3, "@ = ", 5}; PRIVATE TXT txt18 = { 3, "(t@) ", 6}; PRIVATE TXT txt19 = { 3, "T", 2}; PRIVATE TXT txt20 = { 3, "U", 2}; PRIVATE TXT txt21 = { 3, "NEW (TC@);\012", 12}; PRIVATE TXT txt22 = { 3, "{\001\012", 4}; PRIVATE TXT txt23 = { 3, "register t@* ptr;\012", 19}; PRIVATE TXT txt24 = { 3, "int sz[@];\012", 12}; PRIVATE TXT txt25 = { 3, "sz[@] = ", 9}; PRIVATE TXT txt26 = { 3, "@;\012", 4}; PRIVATE TXT txt27 = { 3, "ptr = (t@*) ", 13}; PRIVATE TXT txt28 = { 3, "TNEWA", 6}; PRIVATE TXT txt29 = { 3, "UNEWA", 6}; PRIVATE TXT txt30 = { 3, "(TC@, @ + ", 11}; PRIVATE TXT txt31 = { 3, "sz[@] * ", 9}; PRIVATE TXT txt32 = { 3, "@);\012", 5}; PRIVATE TXT txt33 = { 3, "ptr->elts = (char*)(& ptr->size[@]);\012", 38}; PRIVATE TXT txt34 = { 3, "ptr->size[@] = sz[@];\012", 23}; PRIVATE TXT txt35 = { 3, "{\001\012register int index;\012", 24}; PRIVATE TXT txt36 = { 3, "register t@* aelt = (t@*) ptr->elts;\012", 38}; PRIVATE TXT txt37 = { 3, "for (index = 0; index < ", 25}; PRIVATE TXT txt38 = { 3, "1; aelt++, index++) {\001\012", 24}; PRIVATE TXT txt39 = { 3, "(*aelt)", 8}; PRIVATE TXT txt40 = { 3, "\002};\012\002};\012", 9}; PRIVATE TXT txt41 = { 3, "@ = (t@) ptr;\012", 15}; PRIVATE TXT txt42 = { 3, "\002};\012", 5}; PRIVATE TXT txt43 = { 3, "{\001\012register t@* ptr = (t@*) ", 29}; PRIVATE TXT txt44 = { 3, "ptr->_@", 8}; PRIVATE TXT txt45 = { 3, " = @;\012", 7}; PRIVATE TXT txt46 = { 3, "@ = (t@) ptr;\012\002};\012", 19}; PRIVATE TXT txt47 = { 3, "{\001\012register char** ptr = (char**) ", 35}; PRIVATE TXT txt48 = { 3, "NEWOBJ (TC@);\012", 15}; PRIVATE TXT txt49 = { 3, "CLONE_METHOD_SUITE (ptr, TC@);\012", 32}; PRIVATE TXT txt50 = { 3, "((t@_methods*)((*ptr) + (", 26}; PRIVATE TXT txt51 = { 3, "TC@->methodsize + ", 19}; PRIVATE TXT txt52 = { 3, ")))", 4}; PRIVATE TXT txt53 = { 3, "((t@_fields*)((char*)ptr + (", 29}; PRIVATE TXT txt54 = { 3, "TC@->datasize + ", 17}; PRIVATE TXT txt55 = { 3, "->_@", 5}; PRIVATE TXT txt56 = { 3, "@ = (t@) ", 10}; #line 14 "../Interfaces/Expr.i3" #define t5 ADDRESS #define t84 void #define t82 ADDRESS typedef struct { TYPE self; int private; } t82_methods; #define t82_msize (sizeof (t82_methods)) typedef struct { ADDRESS methods; } t82_fields; #define t82_size (sizeof (t82_fields)) #define TC82 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; #line 16 "../Interfaces/M3.i3" #define t7 ADDRESS #define TC7 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]; } t69; #line 14 "../Interfaces/Expr.i3" #define t52 t69 #define TC5 TC_Expr__List IMPORT TYPE TC_Expr__List; #line 14 IMPORT char VS_Expr__List__3f87eceb2b9a246a; #line 18 "../Interfaces/ProcType.i3" #define t30 ADDRESS #define t47 ADDRESS typedef int t2; #define TC47 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #line 13 "../Interfaces/String.i3" #define t9 ADDRESS #define TC9 TC_String__T IMPORT TYPE TC_String__T; #line 13 IMPORT char VS_String__T__3a6c7dc12615e4ee; typedef struct { t9 _module; t9 _item; } t32; #line 15 "../Interfaces/M3.i3" #define t8 ADDRESS #define TC8 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; t32 _name; t8 _except; } t33; #define TC30 TC_ProcType__Raisee IMPORT TYPE TC_ProcType__Raisee; #line 18 IMPORT char VS_ProcType__Raisee__5fe771ff27c179d9; #line 17 "../Interfaces/Scope.i3" #define t46 ADDRESS #define t27 t69 #define TC46 TC_Scope__ValueList IMPORT TYPE TC_Scope__ValueList; #line 17 IMPORT char VS_Scope__ValueList__64bf053e22e4e53c; #line 16 "../Interfaces/Type.i3" #define t49 ADDRESS #define t56 t69 #define TC49 TC_Type__Map IMPORT TYPE TC_Type__Map; #line 16 IMPORT char VS_Type__Map__41dd9f4b33104fce; #define t54 ADDRESS #define t3 ADDRESS #define TC3 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 { t54 _next; t3 _type; } t55; #define TC54 TC_Type__List IMPORT TYPE TC_Type__List; #line 17 IMPORT char VS_Type__List__5791758e343becc1; #define t71 ADDRESS #define TC71 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t85 ADDRESS #define TC85 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 358 "New.m3" typedef t84 (*t1)(); #line 19 "../Interfaces/M3.i3" #define t4 ADDRESS #define TC4 TC_M3__Temp IMPORT TYPE TC_M3__Temp; #line 19 IMPORT char VS_M3__Temp__450b691937f03dae; typedef unsigned char t6; #line 19 "../Interfaces/String.i3" typedef signed_char t63; #line 65 "../Interfaces/Token.i3" #define t57 t69 typedef struct { t9 elts[100]; } t64; #line 17 "../Interfaces/String.i3" typedef struct { t2 _top; t64 _stk; } t10; #line 14 "../Interfaces/M3.i3" #define t11 ADDRESS #define TC11 TC_M3__Scope IMPORT TYPE TC_M3__Scope; #line 14 IMPORT char VS_M3__Scope__6e6d8848308d8a2d; #line 173 "New.m3" typedef t4 (*t12)(); #line 21 typedef t3 (*t13)(); #line 17 "../Interfaces/CallExpr.i3" #define t14 ADDRESS #define TC14 TC_CallExpr__MethodList IMPORT TYPE TC_CallExpr__MethodList; #line 17 IMPORT char VS_CallExpr__MethodList__7e87c2d720444b71; #line 12 "../Interfaces/ProcCheckExpr.i3" typedef t7 (*t15)(); #line 14 "../Interfaces/TypeExpr.i3" typedef t6 (*t16)(); #line 25 "../Interfaces/RecordType.i3" #define t17 t69 typedef short t18; #line 25 typedef struct { t3 elts[1001]; } t19; #line 15 "../Interfaces/Token.i3" typedef unsigned char t58; #line 45 typedef struct { int elts[4]; } t20; #line 18 "../Interfaces/AssignStmt.i3" typedef unsigned char t21; #line 17 "../Interfaces/M3.i3" #define t22 ADDRESS #define TC22 TC_M3__Stmt IMPORT TYPE TC_M3__Stmt; #line 17 IMPORT char VS_M3__Stmt__376b307627fc1f2f; #line 16 "../Interfaces/AssignStmt.i3" typedef t22 (*t23)(); #line 16 "../Interfaces/Stmt.i3" typedef unsigned char t26; typedef struct { int elts[1]; } t24; typedef void (*t25)(); #line 28 "../Interfaces/ProcType.i3" typedef t2 (*t28)(); #line 27 typedef t14 (*t29)(); #line 24 typedef t11 (*t31)(); #line 12 "../Interfaces/Field.i3" typedef t8 (*t34)(); #line 27 "../Interfaces/Emit.i3" typedef signed_char t35; #line 63 typedef t35 (*t36)(); #define t37 ADDRESS #define TC37 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t37_MapProc TC_TEXT->mapProc #define t38 ADDRESS #define TC38 TC_Variable__T IMPORT TYPE TC_Variable__T; #line 16 "../Interfaces/Variable.i3" IMPORT char VS_Variable__T__be7ead4a3afd8be5; typedef double t39; typedef unsigned char t40; #line 14 "../Interfaces/RefType.i3" typedef t9 (*t41)(); #line 37 "../Interfaces/Procedure.i3" #define t42 t69 #define t43 ADDRESS #define TC43 TC_Procedure__T IMPORT TYPE TC_Procedure__T; #line 15 IMPORT char VS_Procedure__T__be7ead4a3afd8be5; #line 14 "../Interfaces/Decl.i3" typedef struct { t9 _alias; t6 _isExternal; t6 _isInline; t6 _isUnused; t6 _isObsolete; } t44; #line 24 "../Interfaces/Variable.i3" typedef t38 (*t45)(); #define t72 ADDRESS typedef struct { TYPE self; int private; } t72_methods; #define t72_msize (sizeof (t72_methods)) typedef struct { ADDRESS methods; } t72_fields; #define t72_size (sizeof (t72_fields)) #define TC72 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t72_MapProc TC_ROOT->mapProc #define t48 ADDRESS #define TC48 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t48_MapProc TC_Wr__T->mapProc typedef unsigned char t50; #line 40 "../Interfaces/Value.i3" typedef t50 (*t51)(); #line 121 "../Interfaces/Type.i3" typedef t49 (*t53)(); #line 65 "../Interfaces/Token.i3" typedef struct { t9 elts[97]; } t59; typedef int t60; #line 37 "../Interfaces/String.i3" typedef t37 (*t61)(); #line 28 #define t62 t69 typedef signed_char t65; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef t65 (*t66)(); #line 26 typedef t60 (*t67)(); #line 23 typedef t40 (*t68)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t70; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t73 ADDRESS #define TC73 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t73_MapProc TC_Thread__T->mapProc typedef t71 (*t74)(); #define t75 ADDRESS #define TC75 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t75_MapProc TC_Thread__Condition->mapProc #define t76 ADDRESS #define TC76 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t76_MapProc TC_MUTEX->mapProc typedef t73 (*t77)(); #line 23 #define t78 ADDRESS #line 23 typedef struct { t74 _apply; } t78_methods; #define t78_msize (sizeof (t78_methods)) typedef struct { #line 23 int filler; } t78_fields; #define t78_size (sizeof (t78_fields)) #define TC78 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t78_MapProc TC_Thread__Closure->mapProc typedef t75 (*t79)(); typedef t76 (*t80)(); #line 28 #define t81 ADDRESS #line 28 typedef struct { int filler; } t81_methods; #define t81_msize (sizeof (t81_methods)) typedef struct { #line 28 t60 _stackSize; } t81_fields; #define t81_size (sizeof (t81_fields)) #define TC81 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t81_MapProc TC_Thread__SizedClosure->mapProc typedef CLOSURE t83; typedef float t86; #line 10 "New.m3" IMPORT INITLINK* ProcCheckExpr__init; IMPORT INITLINK* Null__init; IMPORT INITLINK* TypeExpr__init; IMPORT INITLINK* Temp__init; #line 10 IMPORT INITLINK* RecordType__init; IMPORT INITLINK* Scope__init; IMPORT INITLINK* Target__init; IMPORT INITLINK* AssignStmt__init; #line 10 IMPORT INITLINK* ProcType__init; IMPORT INITLINK* Int__init; IMPORT INITLINK* Method__init; IMPORT INITLINK* Field__init; #line 10 IMPORT INITLINK* Emit__init; IMPORT INITLINK* KeywordExpr__init; IMPORT INITLINK* ArrayType__init; IMPORT INITLINK* OpaqueType__init; #line 10 IMPORT INITLINK* ObjectType__init; IMPORT INITLINK* RefType__init; IMPORT INITLINK* Value__init; IMPORT INITLINK* String__init; #line 10 IMPORT INITLINK* Void__init; IMPORT INITLINK* Error__init; IMPORT INITLINK* Procedure__init; IMPORT INITLINK* Type__init; #line 10 IMPORT INITLINK* Expr__init; IMPORT INITLINK* CallExpr__init; IMPORT INITLINK* New__init; IMPORT t7 _ProcCheckExpr__New (); #line 10 IMPORT char VS_ProcCheckExpr__New__6648bc1129c6bd44; IMPORT t3 _Null__T; IMPORT char VS_Null__T__fc9c07773b07e1a2; IMPORT t6 _TypeExpr__Split (); #line 10 IMPORT char VS_TypeExpr__Split__f3b91e1b2487bd66; IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee; IMPORT t4 _Temp__AllocEmpty (); #line 10 IMPORT char VS_Temp__AllocEmpty__20296f6d2a78c948; IMPORT t84 _Temp__Free (); IMPORT char VS_Temp__Free__3b952a2225c26846; #line 10 IMPORT char VS_RecordType__MaxFields__7046285b3b00145b; IMPORT t6 _RecordType__Split (); IMPORT char VS_RecordType__Split__a733312e25a1fca2; #line 10 IMPORT t6 _RecordType__LookUp (); IMPORT char VS_RecordType__LookUp__fe9c9a932216499f; IMPORT TYPE TC_Scope__T; IMPORT char VS_Scope__T__3a6c7dc12615e4ee; #line 10 IMPORT char VS_Target__INTSIZE__6d9548032b40710f; IMPORT char VS_Target__CHARSIZE__bfc83af22ccab4e4; IMPORT t7 _AssignStmt__CheckRHS (); #line 10 IMPORT char VS_AssignStmt__CheckRHS__9aaea40f392f387e; IMPORT t6 _AssignStmt__NeedsClosureCheck (); IMPORT char VS_AssignStmt__NeedsClosureCheck__7e619b1c366ab3f3; #line 10 IMPORT t6 _ProcType__IsCompatible (); IMPORT char VS_ProcType__IsCompatible__c183a5072f62b941; IMPORT t3 _Int__T; IMPORT char VS_Int__T__1062912139372387; #line 10 IMPORT t6 _Method__Split (); IMPORT char VS_Method__Split__ad6b2c1332a70dee; IMPORT t6 _Field__Split (); IMPORT char VS_Field__Split__2f17aa55376061e0; #line 10 IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3; IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7; #line 10 IMPORT t84 _Emit__Op (); IMPORT char VS_Emit__Op__072646cc27c8ae10; IMPORT t84 _Emit__OpS (); IMPORT char VS_Emit__OpS__f7dc93802c012951; #line 10 IMPORT t84 _Emit__OpI (); IMPORT char VS_Emit__OpI__02cb878634bb9f49; IMPORT t84 _Emit__OpII (); IMPORT char VS_Emit__OpII__2247fe46332f901b; #line 10 IMPORT t84 _Emit__OpT (); IMPORT char VS_Emit__OpT__764bdffe21d249e8; IMPORT t84 _Emit__OpTI (); IMPORT char VS_Emit__OpTI__af828b1c28578815; #line 10 IMPORT t7 _KeywordExpr__New (); IMPORT char VS_KeywordExpr__New__3c2bbe8b31c0d46b; IMPORT t6 _KeywordExpr__Split (); IMPORT char VS_KeywordExpr__Split__c7296ea8373069e8; #line 10 IMPORT t6 _ArrayType__Split (); IMPORT char VS_ArrayType__Split__b3402f88270f8053; IMPORT t3 _ArrayType__OpenImpl (); IMPORT char VS_ArrayType__OpenImpl__fe61729235c79eff; #line 10 IMPORT t3 _ArrayType__OpenType (); IMPORT char VS_ArrayType__OpenType__dc0e4a482cc08a8b; IMPORT t6 _OpaqueType__Is (); IMPORT char VS_OpaqueType__Is__fc6b19392bae1e5e; #line 10 IMPORT t3 _OpaqueType__Super (); IMPORT char VS_OpaqueType__Super__77b460cc2d28036a; IMPORT t6 _ObjectType__Is (); IMPORT char VS_ObjectType__Is__bbf46d51350b1d48; #line 10 IMPORT t6 _ObjectType__LookUp (); IMPORT char VS_ObjectType__LookUp__9b69ce2938248b0f; IMPORT t84 _ObjectType__EmitOffsets (); #line 10 IMPORT char VS_ObjectType__EmitOffsets__dee1146928b5f4cb; IMPORT t6 _RefType__Split (); IMPORT char VS_RefType__Split__63957cb63a45b878; #line 10 IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5; IMPORT t9 _String__Add (); IMPORT char VS_String__Add__0f5e21cc3d204b63; #line 10 IMPORT t3 _Void__T; IMPORT char VS_Void__T__d44caf853dc63223; IMPORT t84 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f; #line 10 IMPORT t84 _Error__Int (); IMPORT char VS_Error__Int__05fff4c5263ea533; IMPORT t84 _Error__Str (); IMPORT char VS_Error__Str__2bd0723e3872e90c; #line 10 IMPORT t84 _Procedure__Define (); IMPORT char VS_Procedure__Define__23155a563959ddb7; IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; #line 10 IMPORT t2 _Type__Size (); IMPORT char VS_Type__Size__2f4d980e28adf05b; IMPORT t6 _Type__IsEmpty (); IMPORT char VS_Type__IsEmpty__dfa43388210ba9ab; #line 10 IMPORT t3 _Type__Base (); IMPORT char VS_Type__Base__2bebd0333659a92c; IMPORT t6 _Type__IsTraced (); IMPORT char VS_Type__IsTraced__1998431b3bdeb797; #line 10 IMPORT t6 _Type__IsEqual (); IMPORT char VS_Type__IsEqual__4098bc3f32325d05; IMPORT t2 _Type__Name (); IMPORT char VS_Type__Name__f99416972257a869; #line 10 IMPORT t6 _Type__IsAssignable (); IMPORT char VS_Type__IsAssignable__6d0a7b0e2c806002; IMPORT t84 _Type__InitVariable (); #line 10 IMPORT char VS_Type__InitVariable__6a50e15739c65009; IMPORT t2 _Type__InitCost (); IMPORT char VS_Type__InitCost__cf661aa23b84374c; #line 10 IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; IMPORT t84 _Expr__Bind (); IMPORT char VS_Expr__Bind__7e2752da3eaf56eb; #line 10 IMPORT t3 _Expr__TypeOf (); IMPORT char VS_Expr__TypeOf__fef0a11b388c64fa; IMPORT t84 _Expr__TypeCheck (); IMPORT char VS_Expr__TypeCheck__af9aa9073729e7f7; #line 10 IMPORT t4 _Expr__Compile (); IMPORT char VS_Expr__Compile__a7e0cc4029a2ec76; IMPORT t14 _CallExpr__NewMethodList (); IMPORT char VS_CallExpr__NewMethodList__1e86caa631267427; #line 10 IMPORT t6 _CallExpr__IsNever (); IMPORT char VS_CallExpr__IsNever__ed0ffc703e490927; IMPORT t7 _CallExpr__NoValue (); IMPORT char VS_CallExpr__NoValue__93a279c02a9c62e4; #line 10 EXPORT t84 _New__Initialize (); EXPORT char VS_New__Initialize__2f4d94303e90498b = '\0'; PRIVATE t14 _New__Z; PRIVATE t3 _New__Bind (); #line 10 PRIVATE t84 _New__Check (); PRIVATE t84 _New__CheckRef (); PRIVATE t84 _New__CheckOpenArray (); PRIVATE t84 _New__CheckRecord (); #line 10 PRIVATE t84 _New__CheckObject (); PRIVATE t84 _New__CheckOpaque (); PRIVATE t4 _New__Compile (); PRIVATE t84 _New__GenRef (); #line 10 PRIVATE t84 _New__GenOpenArray (); PRIVATE t84 _New__GenRecord (); PRIVATE t84 _New__GenObject (); PRIVATE t84 _New__GenOpaque (); #line 10 #line 21 "New.m3" PRIVATE t3 _New__Bind (_proc, _args) t7 _proc; t5 _args; { t5 z2; t2 z4; t2 z5; t6 z3; #line 21 "New.m3" { auto t3 _t; auto t3 __result; { CHECKSTACKOVERFLOW; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = 0 ; if (z5 >= (array->size[0])) RANGEFAULT; #line 24 z4 = (int)(array->elts + (z5 * 4)); }; z3 = _TypeExpr__Split ((*(t7*)z4), &_t); if (z3) { __result = _t; return __result; }; __result = _Null__T; return __result; } } }; #line 30 "New.m3" PRIVATE t84 _New__Check (_proc, _args) t7 _proc; t5 * _args; { t5 z2; t2 z4; t2 z5; t6 z3; t6 z0; #line 30 "New.m3" { auto t3 _t; auto t3 _r; { CHECKSTACKOVERFLOW; NILCHECKB (z2 = (*_args)); { register t69* array = & (*((t52*) z2)); z5 = 0 ; if (z5 >= (array->size[0])) RANGEFAULT; #line 33 z4 = (int)(array->elts + (z5 * 4)); }; z3 = _TypeExpr__Split ((*(t7*)z4), &_t); z0 = ! z3; if (z0) { _Error__Msg (((ADDRESS)(& txt2.str))); goto if_2_end; }; z3 = _RefType__Split (_t, &_r); if (z3) { _New__CheckRef (_r, (*_args)); goto if_2_end; }; z3 = _ObjectType__Is (_t); if (z3) { _New__CheckObject (_t, (*_args)); goto if_2_end; }; z3 = _OpaqueType__Is (_t); if (z3) { _New__CheckOpaque (_t, (*_args)); goto if_2_end; }; _Error__Msg (((ADDRESS)(& txt2.str))); if_2_end: /**/; } } }; #line 46 "New.m3" PRIVATE t84 _New__CheckRef (_r, _args) t3 _r; t5 _args; { t6 z2; t6 z0; t6 z4; t6 z3; t60 z1; t5 z5; #line 46 "New.m3" { auto t3 _index; auto t3 _elt; auto t11 _fields; { CHECKSTACKOVERFLOW; z2 = (_r == 0); z0 = 1; if (! z2) { z4 = _Type__IsEqual (_r, _Void__T); z0 = z4; }; if (z0) { _Error__Msg (((ADDRESS)(& txt3.str))); goto if_3_end; }; z2 = _Type__IsEmpty (_r); if (z2) { _Error__Msg (((ADDRESS)(& txt4.str))); goto if_3_end; }; z4 = _ArrayType__Split (_r, &_index, &_elt); z0 = 0; if (z4) { #line 52 z3 = (_index == 0); z0 = z3; }; if (z0) { _New__CheckOpenArray (_r, _args); goto if_3_end; }; z3 = _RecordType__Split (_r, &_fields); if (z3) { _New__CheckRecord (_r, _args); goto if_3_end; }; NILCHECKB (z5 = _args); z1 = (*((t52*) z5)).size[0]; z2 = (z1 > 1 ); #line 56 if (z2) { _Error__Msg (((ADDRESS)(& txt5.str))); goto if_3_end; }; if_3_end: /**/; } } }; #line 62 "New.m3" PRIVATE t84 _New__CheckOpenArray (_r, _args) t3 _r; t5 _args; { t2 z0; t5 z2; t5 z3; t2 z5; t2 z6; t3 z4; t3 z1; t6 z7; t6 z8; #line 62 "New.m3" { auto t3 _x; auto t3 _index; auto t3 _elt; { CHECKSTACKOVERFLOW; { int from, to, index; from = 1 ; NILCHECKB (z2 = _args); z0 = (*((t52*) z2)).size[0] - 1; to = z0; { auto t2 _i; { #line 65 for (index = from; index <= to; index += 1) { _i = (t2) index; NILCHECKB (z3 = _args); { register t69* array = & (*((t52*) z3)); z6 = _i; if (z6 >= (array->size[0])) RANGEFAULT; #line 66 z5 = (int)(array->elts + (z6 * 4)); }; z4 = _Expr__TypeOf ((*(t7*)z5)); z1 = _Type__Base (z4); _x = z1; z7 = _Type__IsEqual (_x, _Int__T); z8 = ! z7; if (z8) { _Error__Int (_i, ((ADDRESS)(& txt6.str))); goto if_4_end; }; z7 = _ArrayType__Split (_r, &_index, &_elt); #line 68 z8 = ! z7; z7 = 1; if (! z8) { z8 = (_index != 0); z7 = z8; }; if (z7) { _Error__Int (_i, ((ADDRESS)(& txt7.str))); goto if_4_end; }; _r = _elt; if_4_end: /**/; } } }; }; z7 = _ArrayType__Split (_r, &_index, &_elt); z8 = 0; if (z7) { z7 = (_index == 0); z8 = z7; }; if (z8) { _Error__Msg (((ADDRESS)(& txt8.str))); goto if_5_end; }; if_5_end: /**/; } } }; #line 80 "New.m3" PRIVATE t84 _New__CheckRecord (_t, _args) t3 _t; t5 _args; { t2 z0; t5 z2; t2 z4; t2 z5; t3 z3; t6 z6; t6 z1; t7 z7; #line 80 "New.m3" { auto t3 _x; auto t9 _key; auto t7 _value; auto t8 _field; auto t3 _sig; auto t2 _offset; auto t7 _defaultE; auto t7 _expr; #line 80 { CHECKSTACKOVERFLOW; #line 91 { int from, to, index; from = 1 ; NILCHECKB (z2 = _args); z0 = (*((t52*) z2)).size[0] - 1; to = z0; { auto t2 _i; { #line 91 for (index = from; index <= to; index += 1) { _i = (t2) index; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 92 z4 = (int)(array->elts + (z5 * 4)); }; z3 = _Expr__TypeOf ((*(t7*)z4)); _x = z3; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 93 z4 = (int)(array->elts + (z5 * 4)); }; z6 = _KeywordExpr__Split ((*(t7*)z4), &_key, &_value); z1 = ! z6; #line 93 if (z1) { _Error__Msg (((ADDRESS)(& txt9.str))); goto if_6_end; }; z6 = _RecordType__LookUp (_t, _key, &_field); #line 94 z1 = ! z6; if (z1) { _Error__Str (_key, ((ADDRESS)(& txt10.str))); goto if_6_end; }; z6 = _Field__Split (_field, &_offset, &_sig, &_defaultE); #line 96 z1 = ! z6; if (z1) { _Error__Str (_key, ((ADDRESS)(& txt11.str))); goto if_6_end; }; z6 = _Type__IsAssignable (_sig, _x); #line 98 z1 = ! z6; if (z1) { _Error__Str (_key, ((ADDRESS)(& txt12.str))); goto if_6_end; }; z7 = _AssignStmt__CheckRHS (_sig, _value, 0 ); _expr = z7; z6 = (_expr != _value); if (z6) { z7 = _KeywordExpr__New (_key, _expr); NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); #line 104 z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; z4 = (int)(array->elts + (z5 * 4)); }; (*(t7*)z4) = z7; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 105 z4 = (int)(array->elts + (z5 * 4)); }; _Expr__Bind ((*(t7*)z4)); NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 106 z4 = (int)(array->elts + (z5 * 4)); }; _Expr__TypeCheck ((*(t7*)z4)); goto if_7_end; }; if_7_end: /**/; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 108 z4 = (int)(array->elts + (z5 * 4)); }; z3 = _Expr__TypeOf ((*(t7*)z4)); _x = z3; if_6_end: /**/; } #line 108 } }; }; } } }; #line 113 "New.m3" PRIVATE t84 _New__CheckObject (_t, _args) t3 _t; t5 _args; { t2 z0; t5 z2; t2 z4; t2 z5; t3 z3; t6 z6; t6 z1; t7 z7; t7 z8; #line 113 "New.m3" { auto t3 _x; auto t9 _key; auto t7 _value; auto t8 _field; auto t3 _visible; auto t3 _opaque; auto t3 _sig; auto t8 _default; #line 113 auto t2 _offset; auto t7 _defaultE; auto t7 _expr; auto t6 _override; { #line 126 ZERO1B (& _override); #line 113 CHECKSTACKOVERFLOW; #line 128 { int from, to, index; from = 1 ; NILCHECKB (z2 = _args); z0 = (*((t52*) z2)).size[0] - 1; to = z0; { auto t2 _i; { #line 128 for (index = from; index <= to; index += 1) { _i = (t2) index; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 129 z4 = (int)(array->elts + (z5 * 4)); }; z3 = _Expr__TypeOf ((*(t7*)z4)); _x = z3; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 130 z4 = (int)(array->elts + (z5 * 4)); }; z6 = _KeywordExpr__Split ((*(t7*)z4), &_key, &_value); z1 = ! z6; #line 130 if (z1) { _Error__Msg (((ADDRESS)(& txt9.str))); goto if_8_end; }; z6 = _ObjectType__LookUp (_t, _key, &_field, &_visible, &_opaque); #line 131 z1 = ! z6; if (z1) { _Error__Str (_key, ((ADDRESS)(& txt13.str))); goto if_8_end; }; z6 = _Method__Split (_field, &_override, &_sig, &_default); #line 133 if (z6) { z6 = _ProcType__IsCompatible (_x, _t, _sig); z1 = ! z6; if (z1) { _Error__Str (_key, ((ADDRESS)(& txt14.str))); goto if_9_end; }; if_9_end: /**/; z6 = _AssignStmt__NeedsClosureCheck (_value); if (z6) { z7 = _ProcCheckExpr__New (_value); z8 = _KeywordExpr__New (_key, z7); NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); #line 139 z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; z4 = (int)(array->elts + (z5 * 4)); }; (*(t7*)z4) = z8; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 140 z4 = (int)(array->elts + (z5 * 4)); }; _Expr__Bind ((*(t7*)z4)); NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 141 z4 = (int)(array->elts + (z5 * 4)); }; _Expr__TypeCheck ((*(t7*)z4)); goto if_10_end; }; if_10_end: /**/; #line 141 goto if_8_end; }; z6 = _Field__Split (_field, &_offset, &_sig, &_defaultE); if (z6) { z6 = _Type__IsAssignable (_sig, _x); z1 = ! z6; if (z1) { _Error__Str (_key, ((ADDRESS)(& txt12.str))); goto if_11_end; }; z7 = _AssignStmt__CheckRHS (_sig, _value, 0 ); _expr = z7; z6 = (_expr != _value); if (z6) { z7 = _KeywordExpr__New (_key, _expr); NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); #line 149 z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; z4 = (int)(array->elts + (z5 * 4)); }; (*(t7*)z4) = z7; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 150 z4 = (int)(array->elts + (z5 * 4)); }; _Expr__Bind ((*(t7*)z4)); NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 151 z4 = (int)(array->elts + (z5 * 4)); }; _Expr__TypeCheck ((*(t7*)z4)); goto if_12_end; }; if_12_end: /**/; NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 153 z4 = (int)(array->elts + (z5 * 4)); }; z3 = _Expr__TypeOf ((*(t7*)z4)); _x = z3; if_11_end: /**/; #line 153 goto if_8_end; }; _Error__Str (_key, ((ADDRESS)(& txt15.str))); if_8_end: /**/; } } }; }; } } }; #line 161 "New.m3" PRIVATE t84 _New__CheckOpaque (_t, _args) t3 _t; t5 _args; { t6 z2; t3 z3; t3 z1; t60 z0; t5 z4; #line 161 "New.m3" { auto t3 _x; { CHECKSTACKOVERFLOW; _x = _t; z2 = _OpaqueType__Is (_x); if (z2) do { z3 = _OpaqueType__Super (_x); z1 = _Type__Base (z3); _x = z1; z2 = _OpaqueType__Is (_x); #line 165 } while (z2); z2 = _ObjectType__Is (_x); if (z2) { _New__CheckObject (_t, _args); goto if_13_end; }; NILCHECKB (z4 = _args); z0 = (*((t52*) z4)).size[0]; z2 = (z0 > 1 ); #line 167 if (z2) { _Error__Msg (((ADDRESS)(& txt5.str))); goto if_13_end; }; if_13_end: /**/; } } }; #line 173 "New.m3" PRIVATE t4 _New__Compile (_proc, _args) t7 _proc; t5 _args; { t5 z2; t2 z4; t2 z5; t6 z3; t4 z6; #line 173 "New.m3" { auto t3 _t; auto t3 _r; auto t4 _x; auto t4 __result; { CHECKSTACKOVERFLOW; { { auto t6 _b; { ZERO1B (& _b); NILCHECKB (z2 = _args); { register t69* array = & (*((t52*) z2)); z5 = 0 ; if (z5 >= (array->size[0])) RANGEFAULT; #line 176 z4 = (int)(array->elts + (z5 * 4)); }; z3 = _TypeExpr__Split ((*(t7*)z4), &_t); _b = z3; if (!_b) ASSERTFAULT; } } }; z6 = _Temp__AllocEmpty (_t, 0 ); _x = z6; z3 = _RefType__Split (_t, &_r); if (z3) { _New__GenRef (_t, _r, _args, _x); goto if_14_end; }; z3 = _ObjectType__Is (_t); #line 179 if (z3) { _New__GenObject (_t, _args, _x); goto if_14_end; }; z3 = _OpaqueType__Is (_t); if (z3) { _New__GenOpaque (_t, _args, _x); goto if_14_end; }; _Error__Msg (((ADDRESS)(& txt16.str))); if_14_end: /**/; __result = _x; return __result; } } }; #line 187 "New.m3" PRIVATE t84 _New__GenRef (_t, _r, _args, _result) t3 _t; t3 _r; t5 _args; t4 _result; { t6 z2; t6 z4; t6 z0; t6 z3; t2 z5; #line 187 "New.m3" { auto t3 _index; auto t3 _elt; auto t2 _i; auto t6 _traced; auto t11 _fields; { ZERO1B (& _traced); #line 187 CHECKSTACKOVERFLOW; z2 = _Type__IsTraced (_t); _traced = z2; z4 = _ArrayType__Split (_r, &_index, &_elt); z0 = 0; if (z4) { z3 = (_index == 0); z0 = z3; }; if (z0) { _New__GenOpenArray (_t, _r, _traced, _args, _result); goto if_15_end; }; z3 = _RecordType__Split (_r, &_fields); #line 192 if (z3) { _New__GenRecord (_t, _r, _traced, _args, _result); goto if_15_end; }; z5 = _Type__Name (_t); _i = z5; _Emit__OpT (((ADDRESS)(& txt17.str)), _result); _Emit__OpI (((ADDRESS)(& txt18.str)), _i); if (_traced) { _Emit__Op (((ADDRESS)(& txt19.str))); goto if_16_end; }; _Emit__Op (((ADDRESS)(& txt20.str))); if_16_end: /**/; _Emit__OpI (((ADDRESS)(& txt21.str)), _i); if_15_end: /**/; } } }; #line 205 "New.m3" PRIVATE t84 _New__GenOpenArray (_t, _r, _traced, _args, _result) t3 _t; t3 _r; t6 _traced; t5 _args; t4 _result; { t3 z2; t2 z0; t5 z3; t3 z5; t2 z4; t2 z6; t4 z7; t2 z8; t6 z1; t9 z9; #line 205 "New.m3" { auto t3 _x; auto t2 _j; auto t2 _n; auto t4 _tmp; auto t10 _prefix; { CHECKSTACKOVERFLOW; z2 = _ArrayType__OpenType (_r); _x = z2; NILCHECKB (z3 = _args); z0 = (*((t52*) z3)).size[0] - 1; _n = z0; _Emit__Op (((ADDRESS)(& txt22.str))); z5 = _ArrayType__OpenImpl (_r); z4 = _Type__Name (z5); _Emit__OpI (((ADDRESS)(& txt23.str)), z4); _Emit__OpI (((ADDRESS)(& txt24.str)), _n); { int from, to, index; from = 1 ; to = _n; { auto t2 _i; { for (index = from; index <= to; index += 1) { _i = (t2) index; NILCHECKB (z3 = _args); { register t69* array = & (*((t52*) z3)); z6 = _i; if (z6 >= (array->size[0])) RANGEFAULT; #line 221 z4 = (int)(array->elts + (z6 * 4)); }; z7 = _Expr__Compile ((*(t7*)z4)); _tmp = z7; z4 = _i - 1 ; _Emit__OpI (((ADDRESS)(& txt25.str)), z4); _Emit__OpT (((ADDRESS)(& txt26.str)), _tmp); _Temp__Free (_tmp); } } }; }; z5 = _ArrayType__OpenImpl (_r); z4 = _Type__Name (z5); _Emit__OpI (((ADDRESS)(& txt27.str)), z4); if (_traced) { _Emit__Op (((ADDRESS)(& txt28.str))); goto if_17_end; }; _Emit__Op (((ADDRESS)(& txt29.str))); if_17_end: /**/; z4 = _Type__Name (_t); z6 = _n + 1 ; z8 = z6 * 32 ; z6 = IDIV (z8, 8 ); _Emit__OpII (((ADDRESS)(& txt30.str)), z4, z6); { int from, to, index; from = 1 ; to = _n; { auto t2 _i; { for (index = from; index <= to; index += 1) { _i = (t2) index; #line 231 z4 = _i - 1 ; _Emit__OpI (((ADDRESS)(& txt31.str)), z4); } } }; }; z4 = _Type__Size (_x); z6 = IDIV (z4, 8 ); _Emit__OpI (((ADDRESS)(& txt32.str)), z6); _Emit__OpI (((ADDRESS)(& txt33.str)), _n); { int from, to, index; from = 0 ; z4 = _n - 1 ; to = z4; { auto t2 _i; { for (index = from; index <= to; index += 1) { #line 235 _i = (t2) index; _Emit__OpII (((ADDRESS)(& txt34.str)), _i, _i); } } }; }; z4 = _Type__InitCost (_x, 1 ); z1 = (z4 > 0 ); if (z1) { z4 = _Type__Name (_x); _j = z4; _Emit__Op (((ADDRESS)(& txt35.str))); _Emit__OpII (((ADDRESS)(& txt36.str)), _j, _j); _Emit__Op (((ADDRESS)(& txt37.str))); { int from, to, index; from = 1 ; to = _n; { auto t2 _i; { for (index = from; index <= to; index += 1) { _i = (t2) index; #line 244 z4 = _i - 1 ; _Emit__OpI (((ADDRESS)(& txt31.str)), z4); } } }; }; _Emit__Op (((ADDRESS)(& txt38.str))); (_prefix._top) = 1 ; z9 = _String__Add (((ADDRESS)(& txt39.str)), 999999 ); ((_prefix._stk).elts[ 0 ]) = z9; _Type__InitVariable (_x, 1 , &_prefix); _Emit__Op (((ADDRESS)(& txt40.str))); goto if_18_end; }; if_18_end: /**/; z6 = _Type__Name (_t); _Emit__OpTI (((ADDRESS)(& txt41.str)), _result, z6); _Emit__Op (((ADDRESS)(& txt42.str))); } } }; #line 257 "New.m3" PRIVATE t84 _New__GenRecord (_t, _r, _traced, _args, _result) t3 _t; t3 _r; t6 _traced; t5 _args; t4 _result; { t2 z2; t2 z0; t5 z3; t2 z4; t2 z5; t3 z6; t6 z7; t4 z8; #line 257 "New.m3" { auto t3 _x; auto t9 _key; auto t7 _value; auto t2 _rName; auto t2 _tName; auto t4 _tmp; { CHECKSTACKOVERFLOW; z2 = _Type__Name (_r); _rName = z2; z2 = _Type__Name (_t); _tName = z2; _Emit__OpII (((ADDRESS)(& txt43.str)), _rName, _rName); if (_traced) { _Emit__Op (((ADDRESS)(& txt19.str))); goto if_19_end; }; _Emit__Op (((ADDRESS)(& txt20.str))); if_19_end: /**/; _Emit__OpI (((ADDRESS)(& txt21.str)), _tName); { int from, to, index; from = 1 ; NILCHECKB (z3 = _args); z0 = (*((t52*) z3)).size[0] - 1; to = z0; { auto t2 _i; { #line 273 for (index = from; index <= to; index += 1) { _i = (t2) index; NILCHECKB (z3 = _args); { register t69* array = & (*((t52*) z3)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 274 z4 = (int)(array->elts + (z5 * 4)); }; z6 = _Expr__TypeOf ((*(t7*)z4)); _x = z6; { { auto t6 _b; { ZERO1B (& _b); NILCHECKB (z3 = _args); { register t69* array = & (*((t52*) z3)); z5 = _i; #line 275 if (z5 >= (array->size[0])) RANGEFAULT; z4 = (int)(array->elts + (z5 * 4)); }; z7 = _KeywordExpr__Split ((*(t7*)z4), &_key, &_value); #line 275 _b = z7; if (!_b) ASSERTFAULT; } } }; z8 = _Expr__Compile (_value); _tmp = z8; _Emit__OpS (((ADDRESS)(& txt44.str)), _key); _Emit__OpT (((ADDRESS)(& txt45.str)), _tmp); _Temp__Free (_tmp); } } }; }; _Emit__OpTI (((ADDRESS)(& txt46.str)), _result, _tName); } } }; #line 286 "New.m3" PRIVATE t84 _New__GenObject (_t, _args, _result) t3 _t; t5 _args; t4 _result; { t6 z2; t2 z4; t2 z0; t5 z3; t2 z5; t3 z6; t6 z7; t4 z8; #line 286 "New.m3" { auto t3 _x; auto t9 _key; auto t7 _value; auto t8 _field; auto t3 _visible; auto t3 _opaque; auto t3 _sig; auto t8 _default; #line 286 auto t2 _offset; auto t7 _defaultE; auto t6 _override; auto t6 _sharedM; auto t4 _tmp; { #line 298 ZERO1B (& _override); ZERO1B (& _sharedM); #line 286 CHECKSTACKOVERFLOW; #line 303 _Emit__Op (((ADDRESS)(& txt47.str))); z2 = _Type__IsTraced (_t); if (z2) { _Emit__Op (((ADDRESS)(& txt19.str))); goto if_20_end; }; _Emit__Op (((ADDRESS)(& txt20.str))); #line 304 if_20_end: /**/; z4 = _Type__Name (_t); _Emit__OpI (((ADDRESS)(& txt48.str)), z4); _sharedM = 1 ; { int from, to, index; from = 1 ; NILCHECKB (z3 = _args); z0 = (*((t52*) z3)).size[0] - 1; to = z0; { auto t2 _i; { #line 308 for (index = from; index <= to; index += 1) { _i = (t2) index; NILCHECKB (z3 = _args); { register t69* array = & (*((t52*) z3)); z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; #line 309 z4 = (int)(array->elts + (z5 * 4)); }; z6 = _Expr__TypeOf ((*(t7*)z4)); _x = z6; { { auto t6 _b; { ZERO1B (& _b); NILCHECKB (z3 = _args); { register t69* array = & (*((t52*) z3)); z5 = _i; #line 310 if (z5 >= (array->size[0])) RANGEFAULT; z4 = (int)(array->elts + (z5 * 4)); }; z7 = _KeywordExpr__Split ((*(t7*)z4), &_key, &_value); #line 310 _b = z7; if (!_b) ASSERTFAULT; } } }; { { auto t6 _b; { ZERO1B (& _b); z7 = _ObjectType__LookUp (_t, _key, &_field, &_visible, &_opaque); _b = z7; if (!_b) ASSERTFAULT; } } }; z8 = _Expr__Compile (_value); _tmp = z8; z7 = _Method__Split (_field, &_override, &_sig, &_default); if (z7) { if (_sharedM) { z4 = _Type__Name (_t); _Emit__OpI (((ADDRESS)(& txt49.str)), z4); _sharedM = 0 ; goto if_22_end; }; if_22_end: /**/; z4 = _Type__Name (_visible); _Emit__OpI (((ADDRESS)(& txt50.str)), z4); z2 = (_opaque != 0); if (z2) { z4 = _Type__Name (_opaque); _Emit__OpI (((ADDRESS)(& txt51.str)), z4); goto if_23_end; }; if_23_end: /**/; _ObjectType__EmitOffsets (_visible, _opaque, 1 ); _Emit__Op (((ADDRESS)(& txt52.str))); goto if_21_end; }; z7 = _Field__Split (_field, &_offset, &_sig, &_defaultE); if (!z7) ASSERTFAULT; z4 = _Type__Name (_visible); _Emit__OpI (((ADDRESS)(& txt53.str)), z4); z2 = (_opaque != 0); if (z2) { z4 = _Type__Name (_opaque); _Emit__OpI (((ADDRESS)(& txt54.str)), z4); goto if_24_end; }; if_24_end: /**/; _ObjectType__EmitOffsets (_visible, _opaque, 0 ); _Emit__Op (((ADDRESS)(& txt52.str))); if_21_end: /**/; _Emit__OpS (((ADDRESS)(& txt55.str)), _key); _Emit__OpT (((ADDRESS)(& txt45.str)), _tmp); _Temp__Free (_tmp); } } }; }; z5 = _Type__Name (_t); _Emit__OpTI (((ADDRESS)(& txt46.str)), _result, z5); } } }; #line 343 "New.m3" PRIVATE t84 _New__GenOpaque (_t, _args, _result) t3 _t; t5 _args; t4 _result; { t6 z2; t3 z3; t3 z1; t5 z4; t2 z5; t2 z6; #line 343 "New.m3" { auto t3 _x; auto t2 _i; { CHECKSTACKOVERFLOW; _x = _t; z2 = _OpaqueType__Is (_x); if (z2) do { z3 = _OpaqueType__Super (_x); z1 = _Type__Base (z3); _x = z1; z2 = _OpaqueType__Is (_x); #line 347 } while (z2); z2 = _ObjectType__Is (_x); if (z2) { _New__GenObject (_t, _args, _result); goto if_25_end; }; NILCHECKB (z4 = _args); { register t69* array = & (*((t52*) z4)); z6 = 0 ; if (z6 >= (array->size[0])) RANGEFAULT; z5 = (int)(array->elts + (z6 * 4)); #line 351 }; z3 = _Expr__TypeOf ((*(t7*)z5)); z5 = _Type__Name (z3); _i = z5; _Emit__OpTI (((ADDRESS)(& txt56.str)), _result, _i); z2 = _Type__IsTraced (_t); if (z2) { _Emit__Op (((ADDRESS)(& txt19.str))); goto if_26_end; }; _Emit__Op (((ADDRESS)(& txt20.str))); #line 353 if_26_end: /**/; _Emit__OpI (((ADDRESS)(& txt21.str)), _i); if_25_end: /**/; } } }; #line 358 "New.m3" EXPORT t84 _New__Initialize () { t14 z10; #line 358 "New.m3" { { CHECKSTACKOVERFLOW; z10 = _CallExpr__NewMethodList ( 1 , 2147483647 , 1 , _New__Bind, _New__Check, _New__Compile, _CallExpr__NoValue, _CallExpr__IsNever, _CallExpr__IsNever); #line 360 _New__Z = z10; _Procedure__Define (((ADDRESS)(& txt1.str)), _New__Z, 0); } } }; PRIVATE int init_done = -1; #line 364 "New.m3" PRIVATE void New__initProc (g) int g; { #line 364 "New.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& New__init); INITIALIZE (& ProcCheckExpr__init); INITIALIZE (& Null__init); #line 364 INITIALIZE (& TypeExpr__init); INITIALIZE (& Temp__init); INITIALIZE (& RecordType__init); INITIALIZE (& Scope__init); INITIALIZE (& Target__init); #line 364 INITIALIZE (& AssignStmt__init); INITIALIZE (& ProcType__init); INITIALIZE (& Int__init); INITIALIZE (& Method__init); INITIALIZE (& Field__init); #line 364 INITIALIZE (& Emit__init); INITIALIZE (& KeywordExpr__init); INITIALIZE (& ArrayType__init); INITIALIZE (& OpaqueType__init); #line 364 INITIALIZE (& ObjectType__init); INITIALIZE (& RefType__init); INITIALIZE (& Value__init); INITIALIZE (& String__init); INITIALIZE (& Void__init); #line 364 INITIALIZE (& Error__init); INITIALIZE (& Procedure__init); INITIALIZE (& Type__init); INITIALIZE (& Expr__init); INITIALIZE (& CallExpr__init); #line 364 return; }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, New__initProc}; static char* VSimports[] = { &VS_ProcCheckExpr__New__6648bc1129c6bd44, &VS_Null__T__fc9c07773b07e1a2, &VS_TypeExpr__Split__f3b91e1b2487bd66, &VS_Temp__T__3a6c7dc12615e4ee, &VS_Temp__AllocEmpty__20296f6d2a78c948, &VS_Temp__Free__3b952a2225c26846, &VS_RecordType__MaxFields__7046285b3b00145b, &VS_RecordType__Split__a733312e25a1fca2, &VS_RecordType__LookUp__fe9c9a932216499f, &VS_Scope__T__3a6c7dc12615e4ee, &VS_Scope__ValueList__64bf053e22e4e53c, &VS_Target__INTSIZE__6d9548032b40710f, &VS_Target__CHARSIZE__bfc83af22ccab4e4, &VS_AssignStmt__CheckRHS__9aaea40f392f387e, &VS_AssignStmt__NeedsClosureCheck__7e619b1c366ab3f3, &VS_ProcType__Raisee__5fe771ff27c179d9, &VS_ProcType__IsCompatible__c183a5072f62b941, &VS_Int__T__1062912139372387, &VS_Method__Split__ad6b2c1332a70dee, &VS_Field__Split__2f17aa55376061e0, &VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__Op__072646cc27c8ae10, &VS_Emit__OpS__f7dc93802c012951, &VS_Emit__OpI__02cb878634bb9f49, &VS_Emit__OpII__2247fe46332f901b, &VS_Emit__OpT__764bdffe21d249e8, &VS_Emit__OpTI__af828b1c28578815, &VS_KeywordExpr__New__3c2bbe8b31c0d46b, &VS_KeywordExpr__Split__c7296ea8373069e8, &VS_ArrayType__Split__b3402f88270f8053, &VS_ArrayType__OpenImpl__fe61729235c79eff, &VS_ArrayType__OpenType__dc0e4a482cc08a8b, &VS_OpaqueType__Is__fc6b19392bae1e5e, &VS_OpaqueType__Super__77b460cc2d28036a, &VS_ObjectType__Is__bbf46d51350b1d48, &VS_ObjectType__LookUp__9b69ce2938248b0f, &VS_ObjectType__EmitOffsets__dee1146928b5f4cb, &VS_RefType__Split__63957cb63a45b878, &VS_Value__T__2446b70b3f7780a5, &VS_String__T__3a6c7dc12615e4ee, &VS_String__Add__0f5e21cc3d204b63, &VS_Void__T__d44caf853dc63223, &VS_Error__Msg__4d119a332467757f, &VS_Error__Int__05fff4c5263ea533, &VS_Error__Str__2bd0723e3872e90c, &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__IsEmpty__dfa43388210ba9ab, &VS_Type__Base__2bebd0333659a92c, &VS_Type__IsTraced__1998431b3bdeb797, &VS_Type__IsEqual__4098bc3f32325d05, &VS_Type__Name__f99416972257a869, &VS_Type__IsAssignable__6d0a7b0e2c806002, &VS_Type__InitVariable__6a50e15739c65009, &VS_Type__InitCost__cf661aa23b84374c, &VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_Expr__Bind__7e2752da3eaf56eb, &VS_Expr__TypeOf__fef0a11b388c64fa, &VS_Expr__TypeCheck__af9aa9073729e7f7, &VS_Expr__Compile__a7e0cc4029a2ec76, &VS_CallExpr__MethodList__7e87c2d720444b71, &VS_CallExpr__NewMethodList__1e86caa631267427, &VS_CallExpr__IsNever__ed0ffc703e490927, &VS_CallExpr__NoValue__93a279c02a9c62e4, NIL }; void New__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = New__init; New__init = & me_0; break; }; case 1: { break; }; case 2: { break; }; }; };