#include "M3Runtime.h" typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "a variable cannot be inline", 28}; PRIVATE TXT txt2 = { 3, "a variable cannot be external", 30}; PRIVATE TXT txt3 = { 3, "argument type must have fixed length", 37}; PRIVATE TXT txt4 = { 3, "@", 2}; PRIVATE TXT txt5 = { 3, "EXCEPTION_NAME @;\012", 19}; PRIVATE TXT txt6 = { 3, "EXCEPTION_NAME @ = ", 20}; PRIVATE TXT txt7 = { 3, "\042@\042;\012", 6}; PRIVATE TXT txt8 = { 3, "EXCEPT ", 8}; PRIVATE TXT txt9 = { 3, " ", 2}; #line 16 "../Interfaces/Type.i3" #define t3 ADDRESS #define t79 void typedef int t21; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t65; #line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3" #define t52 t65 #define TC3 TC_Type__Map IMPORT TYPE TC_Type__Map; #line 16 "../Interfaces/Type.i3" IMPORT char VS_Type__Map__41dd9f4b33104fce; #define t12 ADDRESS #define TC12 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #define t32 ADDRESS #define TC32 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #line 14 "../Interfaces/Expr.i3" #define t42 ADDRESS #define t76 ADDRESS typedef struct { TYPE self; int private; } t76_methods; #define t76_msize (sizeof (t76_methods)) typedef struct { ADDRESS methods; } t76_fields; #define t76_size (sizeof (t76_fields)) #define TC76 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; #line 16 "../Interfaces/M3.i3" #define t40 ADDRESS #define TC40 TC_M3__Expr IMPORT TYPE TC_M3__Expr; #line 16 IMPORT char VS_M3__Expr__8ae39aaa2d432477; #line 14 "../Interfaces/Expr.i3" #define t43 t65 #define TC42 TC_Expr__List IMPORT TYPE TC_Expr__List; #line 14 IMPORT char VS_Expr__List__3f87eceb2b9a246a; #line 17 "../Interfaces/Scope.i3" #define t45 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 t48 t65 #define TC45 TC_Scope__ValueList IMPORT TYPE TC_Scope__ValueList; #line 17 IMPORT char VS_Scope__ValueList__64bf053e22e4e53c; #line 17 "../Interfaces/Type.i3" #define t56 ADDRESS #define t13 ADDRESS #define TC13 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 { t56 _next; t13 _type; } t57; #define TC56 TC_Type__List IMPORT TYPE TC_Type__List; #line 17 IMPORT char VS_Type__List__5791758e343becc1; #define t62 ADDRESS #define TC62 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #line 19 "../Interfaces/String.i3" typedef signed_char t60; #line 13 #define t16 ADDRESS #define TC16 TC_String__T IMPORT TYPE TC_String__T; #line 13 IMPORT char VS_String__T__3a6c7dc12615e4ee; #line 65 "../Interfaces/Token.i3" #define t58 t65 typedef struct { t16 elts[100]; } t61; #line 17 "../Interfaces/String.i3" typedef struct { t21 _top; t61 _stk; } t1; #define t33 ADDRESS typedef struct { TYPE self; int private; } t33_methods; #define t33_msize (sizeof (t33_methods)) typedef struct { ADDRESS methods; } t33_fields; #define t33_size (sizeof (t33_fields)) #define TC33 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t33_MapProc TC_ROOT->mapProc #define t2 ADDRESS #define TC2 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t2_MapProc TC_Wr__T->mapProc #define t4 ADDRESS #line 38 "../Interfaces/Scanner.i3" typedef t79 (*t5)(); #line 18 "./Value.i3" typedef unsigned char t8; #line 43 "./ValueRep.i3" typedef t8 (*t9)(); #line 19 "../Interfaces/M3.i3" #define t10 ADDRESS #define TC10 TC_M3__Temp IMPORT TYPE TC_M3__Temp; #line 19 IMPORT char VS_M3__Temp__450b691937f03dae; #line 45 "./ValueRep.i3" typedef t10 (*t11)(); typedef t14 (*t46)(); typedef unsigned char t6; typedef t6 (*t7)(); typedef t40 (*t41)(); typedef t13 (*t15)(); #line 17 "Exceptionz.m3" typedef struct { int filler; } t4_methods; #define t4_msize (sizeof (t4_methods)) typedef struct { #line 17 t13 _tipe; } t4_fields; #define t4_size (sizeof (t4_fields)) PRIVATE void t4_InitProc (); #line 17 PRIVATE void t4_SetupProc (); PRIVATE void t4_PrintProc (); PRIVATE typecell t4_TC; PRIVATE typecell t4_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, #line 17 t4_size, t4_msize, NIL, 0, 0, t4_InitProc, t4_SetupProc, t4_PrintProc, "Exceptionz#$%^_0002", -93198449, 561830678}; PRIVATE TYPE TC4 = &t4_TC; #line 17 #line 15 "../Interfaces/Token.i3" typedef unsigned char t17; #line 14 "./Decl.i3" typedef struct { t16 _alias; t6 _isExternal; t6 _isInline; t6 _isUnused; t6 _isObsolete; } t18; #line 45 "../Interfaces/Token.i3" typedef struct { int elts[4]; } t19; #line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3" #define t20 ADDRESS #define TC20 TC_Rd__T IMPORT TYPE TC_Rd__T; #line 83 IMPORT char VS_Rd__T__2555b70b3f7780b1; #define t20_MapProc TC_Rd__T->mapProc #define t22 ADDRESS #define TC22 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t22_MapProc TC_TEXT->mapProc typedef t16 (*t23)(); #line 13 "../Interfaces/Scanner.i3" typedef struct { t17 _token; t16 _string; t21 _value; t21 _offset; } t24; typedef int t25; #line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3" typedef t25 (*t26)(); #line 220 typedef t22 (*t27)(); typedef unsigned char t28; #line 189 #define t29 t65 typedef t28 (*t30)(); #line 84 typedef unsigned char t31; #line 27 "../Interfaces/Emit.i3" typedef signed_char t34; #line 63 typedef t34 (*t35)(); #line 16 "./Variable.i3" #define t36 ADDRESS #define TC36 TC_Variable__T IMPORT TYPE TC_Variable__T; #line 16 IMPORT char VS_Variable__T__be7ead4a3afd8be5; typedef double t37; #line 14 "../Interfaces/M3.i3" #define t38 ADDRESS #define TC38 TC_M3__Scope IMPORT TYPE TC_M3__Scope; #line 14 IMPORT char VS_M3__Scope__6e6d8848308d8a2d; #line 24 "./Variable.i3" typedef t36 (*t39)(); #line 14 "../Interfaces/String.i3" typedef struct { t16 _module; t16 _item; } t44; #line 31 "../Interfaces/Scope.i3" typedef t38 (*t47)(); #line 15 ".ROOT/.boots/corelib/Interfaces/FPrint.i3" typedef struct { t21 elts[2]; } t49; #line 16 "./ValueRep.i3" typedef t6 t50; #define t51 ADDRESS #line 19 typedef struct { t5 _bind; t5 _typeCheck; t9 _class; t5 _fingerprint; t11 _load; t5 _write; t46 _select; t7 _declare0; t5 _declare1; #line 19 t5 _declare2; t7 _needsDecl; t41 _toExpr; t15 _toType; } t51_methods; #define t51_msize (sizeof (t51_methods)) typedef struct { #line 19 t21 _origin; t16 _name; t16 _extName; t38 _scope; t13 _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; t49 _fprint; #line 19 } t51_fields; #define t51_size (sizeof (t51_fields)) #define TC51 TC_M3__Value typedef void (*t53)(); #line 121 "../Interfaces/Type.i3" typedef t3 (*t54)(); #line 97 typedef t21 (*t55)(); #line 65 "../Interfaces/Token.i3" typedef struct { t16 elts[97]; } t59; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t63; typedef t63 (*t64)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t66; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t67 ADDRESS #define TC67 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t67_MapProc TC_Thread__T->mapProc typedef t32 (*t68)(); #define t69 ADDRESS #define TC69 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t69_MapProc TC_Thread__Condition->mapProc #define t70 ADDRESS #define TC70 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t70_MapProc TC_MUTEX->mapProc typedef t67 (*t71)(); #line 23 #define t72 ADDRESS #line 23 typedef struct { t68 _apply; } t72_methods; #define t72_msize (sizeof (t72_methods)) typedef struct { #line 23 int filler; } t72_fields; #define t72_size (sizeof (t72_fields)) #define TC72 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t72_MapProc TC_Thread__Closure->mapProc typedef t69 (*t73)(); typedef t70 (*t74)(); #line 28 #define t75 ADDRESS #line 28 typedef struct { int filler; } t75_methods; #define t75_msize (sizeof (t75_methods)) typedef struct { #line 28 t25 _stackSize; } t75_fields; #define t75_size (sizeof (t75_fields)) #define TC75 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t75_MapProc TC_Thread__SizedClosure->mapProc #define t77 ADDRESS #define TC77 TC_M3__Stmt IMPORT TYPE TC_M3__Stmt; #line 17 "../Interfaces/M3.i3" IMPORT char VS_M3__Stmt__376b307627fc1f2f; typedef CLOSURE t78; typedef float t80; #line 11 "Exceptionz.m3" IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Decl__init; IMPORT INITLINK* Token__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* Temp__init; #line 11 IMPORT INITLINK* Emit__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* Error__init; IMPORT INITLINK* Scope__init; IMPORT INITLINK* Void__init; #line 11 IMPORT INITLINK* Type__init; IMPORT INITLINK* String__init; IMPORT INITLINK* ValueRep__init; IMPORT INITLINK* Value__init; #line 11 IMPORT INITLINK* Exceptionz__init; IMPORT t24 _Scanner__cur; IMPORT char VS_Scanner__cur__929fa6f8367ea415; IMPORT t79 _Scanner__Match (); #line 11 IMPORT char VS_Scanner__Match__aaf5b32f2f19a6d8; IMPORT t16 _Scanner__MatchID (); IMPORT char VS_Scanner__MatchID__4fb3c66f3429afd9; #line 11 IMPORT t79 _Scanner__GetToken (); IMPORT char VS_Scanner__GetToken__192100a32c7e576d; IMPORT t79 _Scanner__Fail (); IMPORT char VS_Scanner__Fail__a15a8cf32391aa62; #line 11 IMPORT t19 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; IMPORT t19 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02; #line 11 IMPORT t19 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836; IMPORT EXCEPTION_NAME _Thread__Alerted; #line 11 IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; #line 11 IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15; IMPORT t79 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846; #line 11 IMPORT TYPE TC_Temp__T; IMPORT char VS_Temp__T__3a6c7dc12615e4ee; IMPORT t10 _Temp__FromValue (); IMPORT char VS_Temp__FromValue__c79a4f6f291f20ac; #line 11 IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3; IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7; #line 11 IMPORT t79 _Emit__OpN (); IMPORT char VS_Emit__OpN__a3f6e37c396e144c; IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; #line 11 IMPORT t79 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f; IMPORT t79 _Error__Str (); IMPORT char VS_Error__Str__2bd0723e3872e90c; #line 11 IMPORT TYPE TC_Scope__T; IMPORT char VS_Scope__T__3a6c7dc12615e4ee; IMPORT t79 _Scope__Insert (); IMPORT char VS_Scope__Insert__ef77c00626575764; #line 11 IMPORT t79 _Scope__NameToPrefix (); IMPORT char VS_Scope__NameToPrefix__480892d13153ee71; IMPORT t13 _Void__T; IMPORT char VS_Void__T__d44caf853dc63223; #line 11 IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; IMPORT t13 _Type__Parse (); IMPORT char VS_Type__Parse__603df5e3247e0b72; #line 11 IMPORT t13 _Type__Bind (); IMPORT char VS_Type__Bind__3443ccd12eedb9e8; IMPORT t21 _Type__Size (); IMPORT char VS_Type__Size__2f4d980e28adf05b; #line 11 IMPORT t79 _Type__Check (); IMPORT char VS_Type__Check__3c8ceb09206ee440; IMPORT t79 _Type__Fingerprint (); IMPORT char VS_Type__Fingerprint__0d24a3463c25e166; #line 11 IMPORT t79 _String__PutStack (); IMPORT char VS_String__PutStack__2155a7863fdb4aca; IMPORT TYPE TC_ValueRep__V; IMPORT char VS_ValueRep__V__f28699153c608442; #line 11 IMPORT t79 _ValueRep__Init (); IMPORT char VS_ValueRep__Init__ba99dff739390f9a; IMPORT t14 _ValueRep__NoDuplicates (); IMPORT char VS_ValueRep__NoDuplicates__ed93f73a247eb7b4; #line 11 IMPORT t40 _ValueRep__NoExpr (); IMPORT char VS_ValueRep__NoExpr__1297c63d2e046c2c; IMPORT t13 _ValueRep__NoType (); IMPORT char VS_ValueRep__NoType__4061f01226f55ca3; #line 11 IMPORT t10 _ValueRep__NoLoader (); IMPORT char VS_ValueRep__NoLoader__9a7f0c5b24f526c1; IMPORT t79 _ValueRep__NoWriter (); #line 11 IMPORT char VS_ValueRep__NoWriter__3b24d43c367f7122; IMPORT t79 _ValueRep__NoDeclarer (); IMPORT char VS_ValueRep__NoDeclarer__22db283420635bde; #line 11 IMPORT t6 _ValueRep__Never (); IMPORT char VS_ValueRep__Never__39b6ab0628d97589; IMPORT t6 _ValueRep__Always (); IMPORT char VS_ValueRep__Always__1b0a9bbf2173b8b3; #line 11 IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5; IMPORT t79 _Value__GenStorageClass (); IMPORT char VS_Value__GenStorageClass__fc0c1a1823c9d008; #line 11 EXPORT t79 _Exceptionz__ParseDecl (); EXPORT char VS_Exceptionz__ParseDecl__a686f72b250573e4 = '\0'; EXPORT t13 _Exceptionz__ArgType (); #line 11 EXPORT char VS_Exceptionz__ArgType__3188a9b832af1842 = '\0'; PRIVATE TYPE TC_Exceptionz__T; PRIVATE t79 _Exceptionz__Bind (); #line 11 PRIVATE t79 _Exceptionz__Check (); PRIVATE t10 _Exceptionz__Load (); PRIVATE t79 _Exceptionz__Write (); PRIVATE t79 _Exceptionz__Compile (); #line 11 PRIVATE t8 _Exceptionz__MyClass (); PRIVATE t6 _Exceptionz__Declarer (); PRIVATE t79 _Exceptionz__FPrinter (); IMPORT char VS_M3__Value__c975bdb53a08f518; #line 11 #line 34 "Exceptionz.m3" EXPORT t79 _Exceptionz__ParseDecl (_fail, _att) t19 * _fail; t18 _att; { t19 z3; t21 z4; t19 z5; t6 z6; t19 z2; t16 z7; t4 z0; t4 z8; t19 z1; t13 z9; #line 34 "Exceptionz.m3" { auto t4 _t; auto t16 _id; { ZERO1 (& _t); #line 34 CHECKSTACKOVERFLOW; if ((_att._isInline)) { _Error__Msg (((ADDRESS)(& txt1.str))); goto if_1_end; }; if_1_end: /**/; if ((_att._isExternal)) { _Error__Msg (((ADDRESS)(& txt2.str))); goto if_2_end; }; if_2_end: /**/; z3.elts [0] = 0x00008002; z3.elts [1] = 0; z3.elts [2] = 0; z3.elts [3] = 0; z5 = z3; _Scanner__Match ( 56 , &(*_fail), &z5); z6 = ((_Scanner__cur._token) == 1 ); if (z6) do { z2.elts [0] = 0x00018000; z2.elts [1] = 0; z2.elts [2] = 0; z2.elts [3] = 0; z3 = z2; z7 = _Scanner__MatchID (&(*_fail), &z3); _id = z7; { register char** ptr = (char**) UNEWOBJ (TC4); z0 = (t4) ptr; }; _t = z0; _ValueRep__Init (_t, _id); NILCHECKA (z8 = _t); (((t51_fields*)(z8+(0+t76_size)))->_readonly) = 1 ; NILCHECKA (z8 = _t); (((t51_fields*)(z8+(0+t76_size)))->_unused) = (_att._isUnused); NILCHECKA (z8 = _t); (((t51_fields*)(z8+(0+t76_size)))->_obsolete) = (_att._isObsolete); NILCHECKA (z8 = _t); (((t4_fields*)(z8+(0+t51_size+t76_size)))->_tipe) = (t13) 0; z6 = ((_Scanner__cur._token) == 16 ); if (z6) { _Scanner__GetToken (); z2.elts [0] = 0x10008000; z2.elts [1] = 0; z2.elts [2] = 0; z2.elts [3] = 0; z3.elts[0] = (*_fail).elts[0] | z2.elts[0]; #line 52 z3.elts[1] = (*_fail).elts[1] | z2.elts[1]; z3.elts[2] = (*_fail).elts[2] | z2.elts[2]; z3.elts[3] = (*_fail).elts[3] | z2.elts[3]; #line 52 z1 = z3; z9 = _Type__Parse (&z1); NILCHECKA (z8 = _t); (((t4_fields*)(z8+(0+t51_size+t76_size)))->_tipe) = z9; z3.elts [0] = 0x00008000; z3.elts [1] = 0; z3.elts [2] = 0; z3.elts [3] = 0; z5 = z3; _Scanner__Match ( 28 , &(*_fail), &z5); #line 53 goto if_3_end; }; if_3_end: /**/; _Scope__Insert (_t); z3.elts [0] = 0; z3.elts [1] = 0; z3.elts [2] = 0; z3.elts [3] = 0; z5 = z3; _Scanner__Match ( 15 , &(*_fail), &z5); #line 56 z6 = ((_Scanner__cur._token) == 1 ); } while (z6); } } }; #line 60 "Exceptionz.m3" PRIVATE t79 _Exceptionz__Bind (_t) t4 _t; { t4 z2; t13 z3; t4 z1; #line 60 "Exceptionz.m3" { { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _t); z3 = _Type__Bind ((((t4_fields*)(z2+(0+t51_size+t76_size)))->_tipe)); NILCHECKA (z1 = _t); (((t4_fields*)(z1+(0+t51_size+t76_size)))->_tipe) = z3; NILCHECKA (z2 = _t); (((t51_fields*)(z2+(0+t76_size)))->_type) = _Void__T; } } }; #line 66 "Exceptionz.m3" PRIVATE t79 _Exceptionz__Check (_t) t4 _t; { t4 z1; t6 z3; t4 z2; t21 z4; #line 66 "Exceptionz.m3" { { CHECKSTACKOVERFLOW; NILCHECKA (z1 = _t); z3 = ((((t4_fields*)(z1+(0+t51_size+t76_size)))->_tipe) != 0); if (z3) { NILCHECKA (z2 = _t); _Type__Check ((((t4_fields*)(z2+(0+t51_size+t76_size)))->_tipe)); NILCHECKA (z2 = _t); z4 = _Type__Size ((((t4_fields*)(z2+(0+t51_size+t76_size)))->_tipe)); z3 = (z4 < 0 ); if (z3) { NILCHECKA (z2 = _t); _Error__Str ((((t51_fields*)(z2+(0+t76_size)))->_name), ((ADDRESS)(& txt3.str))); goto if_5_end; #line 71 }; if_5_end: /**/; goto if_4_end; }; if_4_end: /**/; } } }; #line 76 "Exceptionz.m3" EXPORT t13 _Exceptionz__ArgType (_v) t14 _v; { t4 z1; #line 76 "Exceptionz.m3" { auto t13 __result; { CHECKSTACKOVERFLOW; { register ADDRESS ref = (ADDRESS) _v; register int tc = TYPECODE (ref); if (tc == 0) goto tc0_0; if (ISSUBTYPE (tc, TC4)) goto tc0_1; #line 78 goto tc0_else; tc0_0:; __result = 0; return __result; tc0_1:; { auto t4 _t; { ZERO1 (& _t); #line 79 _t = (t4) ref; NILCHECKA (z1 = _t); __result = (((t4_fields*)(z1+(0+t51_size+t76_size)))->_tipe); return __result; } } #line 80 tc0_else:; __result = 0; return __result; tc0_exit:; }; } } }; #line 85 "Exceptionz.m3" PRIVATE t10 _Exceptionz__Load (_t) t4 _t; { t10 z3; #line 85 "Exceptionz.m3" { auto t10 __result; { CHECKSTACKOVERFLOW; z3 = _Temp__FromValue (_t, 0 ); __result = z3; return __result; } } }; #line 90 "Exceptionz.m3" PRIVATE t79 _Exceptionz__Write (_t) t4 _t; { #line 90 "Exceptionz.m3" { { CHECKSTACKOVERFLOW; _Emit__OpN (((ADDRESS)(& txt4.str)), _t); } } }; #line 95 "Exceptionz.m3" PRIVATE t79 _Exceptionz__Compile (_t) t4 _t; { #line 95 "Exceptionz.m3" { { CHECKSTACKOVERFLOW; } } }; #line 99 "Exceptionz.m3" PRIVATE t8 _Exceptionz__MyClass (_t) t4 _t; { #line 99 "Exceptionz.m3" { auto t8 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; __result = 3 ; return __result; } } }; #line 104 "Exceptionz.m3" PRIVATE t6 _Exceptionz__Declarer (_t) t4 _t; { t4 z1; t6 z2; #line 104 "Exceptionz.m3" { auto t6 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; _Value__GenStorageClass (_t, 1 ); NILCHECKA (z1 = _t); z2 = 1; if (! (((t51_fields*)(z1+(0+t76_size)))->_external)) { NILCHECKA (z1 = _t); z2 = (((t51_fields*)(z1+(0+t76_size)))->_imported); #line 107 }; if (z2) { _Emit__OpN (((ADDRESS)(& txt5.str)), _t); goto if_6_end; }; _Emit__OpN (((ADDRESS)(& txt6.str)), _t); _Emit__OpN (((ADDRESS)(& txt7.str)), _t); if_6_end: /**/; __result = 1 ; return __result; } } }; #line 116 "Exceptionz.m3" PRIVATE t79 _Exceptionz__FPrinter (_t, _map, _wr) t4 _t; t3 _map; t2 _wr; { t4 z2; #line 116 "Exceptionz.m3" { auto t1 _s; { CHECKSTACKOVERFLOW; _Wr__PutText (_wr, ((ADDRESS)(& txt8.str))); (_s._top) = 0 ; _Scope__NameToPrefix (_t, &_s, 1 ); _String__PutStack (_wr, _s); _Wr__PutText (_wr, ((ADDRESS)(& txt9.str))); NILCHECKA (z2 = _t); _Type__Fingerprint ((((t4_fields*)(z2+(0+t51_size+t76_size)))->_tipe), _map, _wr); } } }; PRIVATE int init_done = -1; #line 124 "Exceptionz.m3" PRIVATE void Exceptionz__initProc (g) int g; { #line 124 "Exceptionz.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& Exceptionz__init); INITIALIZE (& Scanner__init); INITIALIZE (& Decl__init); #line 124 INITIALIZE (& Token__init); INITIALIZE (& Wr__init); INITIALIZE (& Temp__init); INITIALIZE (& Emit__init); INITIALIZE (& Expr__init); #line 124 INITIALIZE (& Error__init); INITIALIZE (& Scope__init); INITIALIZE (& Void__init); INITIALIZE (& Type__init); INITIALIZE (& String__init); #line 124 INITIALIZE (& ValueRep__init); INITIALIZE (& Value__init); return; }; #line 124 "Exceptionz.m3" PRIVATE void t4_InitProc (obj) char* obj; { register t4_fields* p; #line 124 "Exceptionz.m3" CHECKSTACKOVERFLOW; p = (t4_fields*) (obj + TC14->datasize); }; #line 124 "Exceptionz.m3" PRIVATE void t4_SetupProc () { register int* p; #line 124 "Exceptionz.m3" t4_TC.datasize += TC14->datasize; t4_TC.methodsize += TC14->methodsize; p = (int*) UALLOC (t4_TC.methodsize); COPY (TC14->defaultMethods, p, (TC14->methodsize)); #line 124 p[0] = (int)(& t4_TC); p[1] = 0; ((t51_methods*) (((char*)p) + TC76->methodsize))->_bind = _Exceptionz__Bind; ((t51_methods*) (((char*)p) + TC76->methodsize))->_typeCheck = _Exceptionz__Check; #line 124 ((t51_methods*) (((char*)p) + TC76->methodsize))->_class = _Exceptionz__MyClass; ((t51_methods*) (((char*)p) + TC76->methodsize))->_fingerprint = _Exceptionz__FPrinter; #line 124 ((t51_methods*) (((char*)p) + TC76->methodsize))->_load = _Exceptionz__Load; ((t51_methods*) (((char*)p) + TC76->methodsize))->_write = _Exceptionz__Write; #line 124 ((t51_methods*) (((char*)p) + TC76->methodsize))->_select = _ValueRep__NoDuplicates; ((t51_methods*) (((char*)p) + TC76->methodsize))->_declare0 = _Exceptionz__Declarer; #line 124 ((t51_methods*) (((char*)p) + TC76->methodsize))->_declare1 = _Exceptionz__Compile; ((t51_methods*) (((char*)p) + TC76->methodsize))->_needsDecl = _ValueRep__Always; #line 124 ((t51_methods*) (((char*)p) + TC76->methodsize))->_toExpr = _ValueRep__NoExpr; ((t51_methods*) (((char*)p) + TC76->methodsize))->_toType = _ValueRep__NoType; #line 124 t4_TC.defaultMethods = (char*) p; }; #line 124 "Exceptionz.m3" PRIVATE void t4_PrintProc (obj) char *obj; { t4_fields* o; #line 124 "Exceptionz.m3" CHECKSTACKOVERFLOW; if (TC14->printProc != 0) {TC14->printProc (obj); } fprintf (stderr, "{%s} ", TC4->brand); o = (t4_fields*) (obj + TC14->datasize); #line 124 fprintf (stderr, "tipe = %#x", o->_tipe); fprintf (stderr, ", "); }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Exceptionz__initProc}; static char* VSimports[] = { &VS_Scanner__cur__929fa6f8367ea415, &VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Scanner__MatchID__4fb3c66f3429afd9, &VS_Scanner__GetToken__192100a32c7e576d, &VS_Scanner__Fail__a15a8cf32391aa62, &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836, &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_Temp__FromValue__c79a4f6f291f20ac, &VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__OpN__a3f6e37c396e144c, &VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_Error__Msg__4d119a332467757f, &VS_Error__Str__2bd0723e3872e90c, &VS_Scope__T__3a6c7dc12615e4ee, &VS_Scope__ValueList__64bf053e22e4e53c, &VS_Scope__Insert__ef77c00626575764, &VS_Scope__NameToPrefix__480892d13153ee71, &VS_Void__T__d44caf853dc63223, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce, &VS_Type__List__5791758e343becc1, &VS_Type__Parse__603df5e3247e0b72, &VS_Type__Bind__3443ccd12eedb9e8, &VS_Type__Size__2f4d980e28adf05b, &VS_Type__Check__3c8ceb09206ee440, &VS_Type__Fingerprint__0d24a3463c25e166, &VS_String__T__3a6c7dc12615e4ee, &VS_String__PutStack__2155a7863fdb4aca, &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__GenStorageClass__fc0c1a1823c9d008, &VS_Scanner__cur__929fa6f8367ea415, &VS_Scanner__MatchID__4fb3c66f3429afd9, &VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Scanner__Fail__a15a8cf32391aa62, &VS_Scanner__GetToken__192100a32c7e576d, NIL }; void Exceptionz__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Exceptionz__init; Exceptionz__init = & me_0; t4_TC = t4_TC_init; REGISTERTYPE (TC4); break; }; case 1: { t4_TC.parent = TC_M3__Value; break; }; case 2: { break; }; }; };