#include "M3Runtime.h" typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "finally_", 9}; #line 14 "../Interfaces/Expr.i3" #define t24 ADDRESS #define t80 void #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_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; #line 16 "../Interfaces/M3.i3" #define t23 ADDRESS #define TC23 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]; } t68; #line 14 "../Interfaces/Expr.i3" #define t33 t68 #define TC24 TC_Expr__List IMPORT TYPE TC_Expr__List; #line 14 IMPORT char VS_Expr__List__3f87eceb2b9a246a; #define t27 ADDRESS typedef int t3; #define TC27 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #line 16 "../Interfaces/Type.i3" #define t32 ADDRESS #define t59 t68 #define TC32 TC_Type__Map IMPORT TYPE TC_Type__Map; #line 16 IMPORT char VS_Type__Map__41dd9f4b33104fce; #define t45 ADDRESS #define TC45 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #line 17 "../Interfaces/Scope.i3" #define t48 ADDRESS #define t22 ADDRESS #define TC22 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 t52 t68 #define TC48 TC_Scope__ValueList IMPORT TYPE TC_Scope__ValueList; #line 17 IMPORT char VS_Scope__ValueList__64bf053e22e4e53c; #line 17 "../Interfaces/Type.i3" #define t57 ADDRESS #define t17 ADDRESS #define TC17 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 { t57 _next; t17 _type; } t58; #define TC57 TC_Type__List IMPORT TYPE TC_Type__List; #line 17 IMPORT char VS_Type__List__5791758e343becc1; #define t81 ADDRESS #define TC81 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 16 "./Stmt.i3" typedef unsigned char t60; typedef struct { int elts[1]; } t1; typedef unsigned char t2; #line 17 "TryFinStmt.m3" #define t4 ADDRESS #line 17 "../Interfaces/M3.i3" #define t8 ADDRESS #define TC8 TC_M3__Stmt IMPORT TYPE TC_M3__Stmt; #line 17 IMPORT char VS_M3__Stmt__376b307627fc1f2f; #line 34 "../Interfaces/Procedure.i3" typedef t80 (*t6)(); #line 20 "./StmtRep.i3" typedef void (*t5)(); #line 17 "TryFinStmt.m3" typedef struct { int filler; } t4_methods; #define t4_msize (sizeof (t4_methods)) typedef struct { #line 17 t8 _body; t8 _finally; } 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, "", 1583862605, 567771166}; PRIVATE TYPE TC4 = &t4_TC; #line 15 "../Interfaces/Token.i3" typedef unsigned char t7; #line 45 typedef struct { int elts[4]; } t9; #line 31 "TryFinStmt.m3" typedef t8 (*t10)(); #line 13 "../Interfaces/String.i3" #define t11 ADDRESS #define TC11 TC_String__T IMPORT TYPE TC_String__T; #line 13 IMPORT char VS_String__T__3a6c7dc12615e4ee; #line 19 "../Interfaces/M3.i3" #define t12 ADDRESS #define TC12 TC_M3__Temp IMPORT TYPE TC_M3__Temp; #line 19 IMPORT char VS_M3__Temp__450b691937f03dae; #line 37 "../Interfaces/Procedure.i3" #define t13 t68 #define t14 ADDRESS #define TC14 TC_Procedure__T IMPORT TYPE TC_Procedure__T; #line 15 IMPORT char VS_Procedure__T__be7ead4a3afd8be5; #line 37 typedef t12 (*t15)(); #line 36 typedef t2 (*t16)(); #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 t17 (*t20)(); #line 14 "../Interfaces/Decl.i3" typedef struct { t11 _alias; t2 _isExternal; t2 _isInline; t2 _isUnused; t2 _isObsolete; } t21; #line 39 "../Interfaces/CallExpr.i3" typedef t23 (*t25)(); #line 27 typedef t18 (*t26)(); #line 16 "../Interfaces/Variable.i3" #define t28 ADDRESS #define TC28 TC_Variable__T IMPORT TYPE TC_Variable__T; #line 16 IMPORT char VS_Variable__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 24 "../Interfaces/Variable.i3" typedef t28 (*t30)(); #define t46 ADDRESS typedef struct { TYPE self; int private; } t46_methods; #define t46_msize (sizeof (t46_methods)) typedef struct { ADDRESS methods; } t46_fields; #define t46_size (sizeof (t46_fields)) #define TC46 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t46_MapProc TC_ROOT->mapProc #define t31 ADDRESS #define TC31 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t31_MapProc TC_Wr__T->mapProc #define t34 ADDRESS #line 13 "./StmtRep.i3" typedef struct { t6 _bind; t6 _check; t6 _precompile; t5 _compile; } t34_methods; #define t34_msize (sizeof (t34_methods)) typedef struct { #line 13 t8 _next; t3 _origin; } t34_fields; #define t34_size (sizeof (t34_fields)) #define TC34 TC_M3__Stmt #define t35 ADDRESS #define TC35 TC_Rd__T IMPORT TYPE TC_Rd__T; #line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3" IMPORT char VS_Rd__T__2555b70b3f7780b1; #define t35_MapProc TC_Rd__T->mapProc typedef t11 (*t36)(); #line 13 "../Interfaces/Scanner.i3" typedef struct { t7 _token; t11 _string; t3 _value; t3 _offset; } t37; typedef int t38; #line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3" typedef t38 (*t39)(); #line 220 typedef t19 (*t40)(); typedef unsigned char t41; #line 189 #define t42 t68 typedef t41 (*t43)(); #line 84 typedef unsigned char t44; #line 19 "../Interfaces/String.i3" typedef signed_char t64; #line 65 "../Interfaces/Token.i3" #define t62 t68 typedef struct { t11 elts[100]; } t65; #line 17 "../Interfaces/String.i3" typedef struct { t3 _top; t65 _stk; } t47; #line 14 typedef struct { t11 _module; t11 _item; } t49; #line 38 "../Interfaces/Scope.i3" typedef t22 (*t50)(); #line 31 typedef t29 (*t51)(); #line 18 "../Interfaces/Value.i3" typedef unsigned char t53; #line 40 typedef t53 (*t54)(); #line 121 "../Interfaces/Type.i3" typedef t32 (*t55)(); #line 97 typedef t3 (*t56)(); #line 65 "../Interfaces/Token.i3" typedef struct { t11 elts[97]; } t63; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t66; typedef t66 (*t67)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t69; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t70 ADDRESS #define TC70 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t70_MapProc TC_Thread__T->mapProc typedef t45 (*t71)(); #define t72 ADDRESS #define TC72 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t72_MapProc TC_Thread__Condition->mapProc #define t73 ADDRESS #define TC73 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t73_MapProc TC_MUTEX->mapProc typedef t70 (*t74)(); #line 23 #define t75 ADDRESS #line 23 typedef struct { t71 _apply; } t75_methods; #define t75_msize (sizeof (t75_methods)) typedef struct { #line 23 int filler; } t75_fields; #define t75_size (sizeof (t75_fields)) #define TC75 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t75_MapProc TC_Thread__Closure->mapProc typedef t72 (*t76)(); typedef t73 (*t77)(); #line 28 #define t78 ADDRESS #line 28 typedef struct { int filler; } t78_methods; #define t78_msize (sizeof (t78_methods)) typedef struct { #line 28 t38 _stackSize; } t78_fields; #define t78_size (sizeof (t78_fields)) #define TC78 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t78_MapProc TC_Thread__SizedClosure->mapProc typedef CLOSURE t79; typedef double t82; typedef float t83; #line 10 "TryFinStmt.m3" IMPORT INITLINK* Stmt__init; IMPORT INITLINK* String__init; IMPORT INITLINK* ReturnStmt__init; IMPORT INITLINK* Procedure__init; #line 10 IMPORT INITLINK* Variable__init; IMPORT INITLINK* Expr__init; IMPORT INITLINK* Marker__init; IMPORT INITLINK* StmtRep__init; #line 10 IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Token__init; IMPORT INITLINK* Scope__init; IMPORT INITLINK* TryFinStmt__init; #line 10 IMPORT TYPE TC_Stmt__T; IMPORT char VS_Stmt__T__2446b70b3f7780a5; IMPORT t8 _Stmt__Parse (); IMPORT char VS_Stmt__Parse__35df10ad3fd1dfe6; #line 10 IMPORT t80 _Stmt__Bind (); IMPORT char VS_Stmt__Bind__55f2c79a304c25df; IMPORT t80 _Stmt__TypeCheck (); IMPORT char VS_Stmt__TypeCheck__e228c94928564a9d; #line 10 IMPORT t80 _Stmt__Precompile (); IMPORT char VS_Stmt__Precompile__68dddedb3aa69659; IMPORT void _Stmt__Compile (); IMPORT char VS_Stmt__Compile__53f9f2c43edb087a; #line 10 IMPORT t11 _String__Add (); IMPORT char VS_String__Add__0f5e21cc3d204b63; IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5; #line 10 IMPORT TYPE TC_Marker__Prefix; IMPORT char VS_Marker__Prefix__819dde3f21a97326; IMPORT t80 _Marker__Pop (); IMPORT char VS_Marker__Pop__e998f6f7244b0f3e; #line 10 IMPORT t80 _Marker__PushFinally (); IMPORT char VS_Marker__PushFinally__0a3f25a0352cef57; IMPORT t80 _Marker__StartOfFinally (); #line 10 IMPORT char VS_Marker__StartOfFinally__c8ccfcac30ec0eb4; IMPORT t80 _Marker__MiddleOfFinally (); IMPORT char VS_Marker__MiddleOfFinally__4f35fb60268cef8a; #line 10 IMPORT t80 _Marker__EndOfFinally (); IMPORT char VS_Marker__EndOfFinally__40d9236d36eae813; IMPORT t80 _StmtRep__Init (); #line 10 IMPORT char VS_StmtRep__Init__fe14377c36e397de; IMPORT t80 _Scanner__Match (); IMPORT char VS_Scanner__Match__aaf5b32f2f19a6d8; #line 10 IMPORT t9 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; IMPORT t9 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02; #line 10 IMPORT t9 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836; IMPORT t9 _Token__StmtStart; IMPORT char VS_Token__StmtStart__d5f1dc8e390e874c; #line 10 IMPORT TYPE TC_Scope__T; IMPORT char VS_Scope__T__3a6c7dc12615e4ee; EXPORT t8 _TryFinStmt__Parse (); EXPORT char VS_TryFinStmt__Parse__8bd2399039ce36c4 = '\0'; #line 10 PRIVATE TYPE TC_TryFinStmt__P; PRIVATE t11 _TryFinStmt__labelPrefix; PRIVATE t3 _TryFinStmt__nextID; PRIVATE t80 _TryFinStmt__Bind (); #line 10 PRIVATE t80 _TryFinStmt__Check (); PRIVATE t80 _TryFinStmt__Precompile (); PRIVATE void _TryFinStmt__Compile (); IMPORT char VS_M3__Stmt__8851da472c4ee5cd; #line 10 #line 31 "TryFinStmt.m3" EXPORT t8 _TryFinStmt__Parse (_body, _fail) t8 _body; t9 * _fail; { t4 z0; t4 z2; t9 z3; t3 z4; t9 z5; t9 z1; t8 z6; #line 31 "TryFinStmt.m3" { auto t4 _p; auto t8 __result; { ZERO1 (& _p); #line 31 CHECKSTACKOVERFLOW; { register char** ptr = (char**) UNEWOBJ (TC4); z0 = (t4) ptr; }; _p = z0; _StmtRep__Init (_p); NILCHECKA (z2 = _p); (((t4_fields*)(z2+(0+t34_size+t61_size)))->_body) = _body; z3.elts [0] = 0; z3.elts [1] = 0x00200000; z3.elts [2] = 0; z3.elts [3] = 0; z5.elts[0] = z3.elts[0] | _Token__StmtStart.elts[0]; #line 38 z5.elts[1] = z3.elts[1] | _Token__StmtStart.elts[1]; z5.elts[2] = z3.elts[2] | _Token__StmtStart.elts[2]; z5.elts[3] = z3.elts[3] | _Token__StmtStart.elts[3]; #line 38 z3 = z5; _Scanner__Match ( 59 , &(*_fail), &z3); z3.elts [0] = 0; z3.elts [1] = 0x00200000; z3.elts [2] = 0; z3.elts [3] = 0; z5.elts[0] = (*_fail).elts[0] | z3.elts[0]; #line 39 z5.elts[1] = (*_fail).elts[1] | z3.elts[1]; z5.elts[2] = (*_fail).elts[2] | z3.elts[2]; z5.elts[3] = (*_fail).elts[3] | z3.elts[3]; #line 39 z1 = z5; z6 = _Stmt__Parse (&z1); NILCHECKA (z2 = _p); (((t4_fields*)(z2+(0+t34_size+t61_size)))->_finally) = z6; z3.elts [0] = 0; z3.elts [1] = 0; z3.elts [2] = 0; z3.elts [3] = 0; z5 = z3; _Scanner__Match ( 53 , &(*_fail), &z5); __result = _p; return __result; } } }; #line 44 "TryFinStmt.m3" PRIVATE t80 _TryFinStmt__Bind (_p) t4 _p; { t4 z2; #line 44 "TryFinStmt.m3" { { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _p); _Stmt__Bind ((((t4_fields*)(z2+(0+t34_size+t61_size)))->_body)); NILCHECKA (z2 = _p); _Stmt__Bind ((((t4_fields*)(z2+(0+t34_size+t61_size)))->_finally)); } } }; #line 50 "TryFinStmt.m3" PRIVATE t80 _TryFinStmt__Check (_p) t4 _p; { t4 z2; #line 50 "TryFinStmt.m3" { { CHECKSTACKOVERFLOW; _Marker__PushFinally (0, 0 ); NILCHECKA (z2 = _p); _Stmt__TypeCheck ((((t4_fields*)(z2+(0+t34_size+t61_size)))->_body)); _Marker__Pop (); NILCHECKA (z2 = _p); _Stmt__TypeCheck ((((t4_fields*)(z2+(0+t34_size+t61_size)))->_finally)); } } }; #line 58 "TryFinStmt.m3" PRIVATE t80 _TryFinStmt__Precompile (_p) t4 _p; { t4 z2; #line 58 "TryFinStmt.m3" { { CHECKSTACKOVERFLOW; _Marker__PushFinally (0, 0 ); NILCHECKA (z2 = _p); _Stmt__Precompile ((((t4_fields*)(z2+(0+t34_size+t61_size)))->_body)); _Marker__Pop (); NILCHECKA (z2 = _p); _Stmt__Precompile ((((t4_fields*)(z2+(0+t34_size+t61_size)))->_finally)); } } }; #line 66 "TryFinStmt.m3" PRIVATE void _TryFinStmt__Compile (_p, _return) t4 _p; t1* _return; { t2 z2; t11 z3; t4 z4; t1 z5; t1 z0; t3 z1; t1 z6; #line 66 "TryFinStmt.m3" { auto t3 _label; auto t2 _returnSeen; auto t2 _exitSeen; auto t1 _oc; auto t1 _xc; auto t1 _o; auto t1 __result; { ZERO1B (& _returnSeen); ZERO1B (& _exitSeen); #line 66 CHECKSTACKOVERFLOW; _label = _TryFinStmt__nextID; _TryFinStmt__nextID += 1 ; z2 = (_TryFinStmt__labelPrefix == 0); if (z2) { z3 = _String__Add (((ADDRESS)(& txt1.str)), 999999 ); _TryFinStmt__labelPrefix = z3; #line 70 goto if_1_end; }; if_1_end: /**/; _Marker__StartOfFinally (_TryFinStmt__labelPrefix, _label); NILCHECKA (z4 = _p); _Stmt__Compile ((((t4_fields*)(z4+(0+t34_size+t61_size)))->_body), &z5); _oc.elts[0] = z5.elts[0]; _Marker__MiddleOfFinally (_TryFinStmt__labelPrefix, _label, &_returnSeen, &_exitSeen); NILCHECKA (z4 = _p); _Stmt__Compile ((((t4_fields*)(z4+(0+t34_size+t61_size)))->_finally), &z5); _xc.elts[0] = z5.elts[0]; _Marker__EndOfFinally (_TryFinStmt__labelPrefix, _label, _returnSeen, _exitSeen); z0.elts [0] = 0; _o.elts[0] = z0.elts[0]; z2 = ((_xc.elts [0] & (1<<0)) != 0); if (z2) { z2 = ((_oc.elts [0] & (1<<0)) != 0); if (z2) { z5.elts [0] = 0x00000001; z6.elts[0] = _o.elts[0] | z5.elts[0]; _o.elts[0] = z6.elts[0]; goto if_3_end; }; if_3_end: /**/; z2 = ((_oc.elts [0] & (1<<1)) != 0); if (z2) { z5.elts [0] = 0x00000002; z6.elts[0] = _o.elts[0] | z5.elts[0]; _o.elts[0] = z6.elts[0]; goto if_4_end; }; if_4_end: /**/; z2 = ((_oc.elts [0] & (1<<2)) != 0); if (z2) { z5.elts [0] = 0x00000004; z6.elts[0] = _o.elts[0] | z5.elts[0]; _o.elts[0] = z6.elts[0]; goto if_5_end; }; if_5_end: /**/; #line 85 goto if_2_end; }; if_2_end: /**/; z2 = ((_xc.elts [0] & (1<<1)) != 0); if (z2) { z5.elts [0] = 0x00000002; z6.elts[0] = _o.elts[0] | z5.elts[0]; _o.elts[0] = z6.elts[0]; goto if_6_end; }; if_6_end: /**/; z2 = ((_xc.elts [0] & (1<<2)) != 0); if (z2) { z5.elts [0] = 0x00000004; z6.elts[0] = _o.elts[0] | z5.elts[0]; _o.elts[0] = z6.elts[0]; goto if_7_end; }; if_7_end: /**/; __result = _o; *_return = __result; return; } } }; PRIVATE int init_done = -1; #line 94 "TryFinStmt.m3" PRIVATE void TryFinStmt__initProc (g) int g; { #line 94 "TryFinStmt.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& TryFinStmt__init); INITIALIZE (& Stmt__init); INITIALIZE (& String__init); #line 94 INITIALIZE (& ReturnStmt__init); INITIALIZE (& Procedure__init); INITIALIZE (& Variable__init); INITIALIZE (& Expr__init); #line 94 INITIALIZE (& Marker__init); INITIALIZE (& StmtRep__init); INITIALIZE (& Scanner__init); INITIALIZE (& Token__init); INITIALIZE (& Scope__init); #line 28 ZERO1 ((& _TryFinStmt__labelPrefix)); ZERO1 ((& _TryFinStmt__nextID)); #line 94 return; }; #line 94 "TryFinStmt.m3" PRIVATE void t4_InitProc (obj) char* obj; { register t4_fields* p; #line 94 "TryFinStmt.m3" CHECKSTACKOVERFLOW; p = (t4_fields*) (obj + TC8->datasize); }; #line 94 "TryFinStmt.m3" PRIVATE void t4_SetupProc () { register int* p; #line 94 "TryFinStmt.m3" t4_TC.datasize += TC8->datasize; t4_TC.methodsize += TC8->methodsize; p = (int*) UALLOC (t4_TC.methodsize); COPY (TC8->defaultMethods, p, (TC8->methodsize)); #line 94 p[0] = (int)(& t4_TC); p[1] = 0; ((t34_methods*) (((char*)p) + TC61->methodsize))->_bind = _TryFinStmt__Bind; ((t34_methods*) (((char*)p) + TC61->methodsize))->_check = _TryFinStmt__Check; #line 94 ((t34_methods*) (((char*)p) + TC61->methodsize))->_precompile = _TryFinStmt__Precompile; ((t34_methods*) (((char*)p) + TC61->methodsize))->_compile = _TryFinStmt__Compile; #line 94 t4_TC.defaultMethods = (char*) p; }; #line 94 "TryFinStmt.m3" PRIVATE void t4_PrintProc (obj) char *obj; { t4_fields* o; #line 94 "TryFinStmt.m3" CHECKSTACKOVERFLOW; if (TC8->printProc != 0) {TC8->printProc (obj); } fprintf (stderr, "{%s} ", TC4->brand); o = (t4_fields*) (obj + TC8->datasize); #line 94 fprintf (stderr, "body = %#x", o->_body); fprintf (stderr, ", "); fprintf (stderr, "finally = %#x", o->_finally); fprintf (stderr, ", "); #line 94 }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, TryFinStmt__initProc}; static char* VSimports[] = { &VS_Stmt__T__2446b70b3f7780a5, &VS_Stmt__Parse__35df10ad3fd1dfe6, &VS_Stmt__Bind__55f2c79a304c25df, &VS_Stmt__TypeCheck__e228c94928564a9d, &VS_Stmt__Precompile__68dddedb3aa69659, &VS_Stmt__Compile__53f9f2c43edb087a, &VS_String__T__3a6c7dc12615e4ee, &VS_String__Add__0f5e21cc3d204b63, &VS_Procedure__T__be7ead4a3afd8be5, &VS_Variable__T__be7ead4a3afd8be5, &VS_Expr__T__2446b70b3f7780a5, &VS_Expr__List__3f87eceb2b9a246a, &VS_Marker__Prefix__819dde3f21a97326, &VS_Marker__Pop__e998f6f7244b0f3e, &VS_Marker__PushFinally__0a3f25a0352cef57, &VS_Marker__StartOfFinally__c8ccfcac30ec0eb4, &VS_Marker__MiddleOfFinally__4f35fb60268cef8a, &VS_Marker__EndOfFinally__40d9236d36eae813, &VS_StmtRep__Init__fe14377c36e397de, &VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836, &VS_Token__StmtStart__d5f1dc8e390e874c, &VS_Scope__T__3a6c7dc12615e4ee, &VS_Scope__ValueList__64bf053e22e4e53c, NIL }; void TryFinStmt__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = TryFinStmt__init; TryFinStmt__init = & me_0; t4_TC = t4_TC_init; REGISTERTYPE (TC4); break; }; case 1: { t4_TC.parent = TC_M3__Stmt; break; }; case 2: { break; }; }; };