#include "M3Runtime.h" typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "Can\047t seek an unseekable writer", 32}; PRIVATE TXT txt2 = { 3, "Seek method didn\047t make writer ready", 37}; PRIVATE TXT txt3 = { 3, "Who\047s changing wr without the lock?", 36}; #define t35 ADDRESS #define t45 void #define TC35 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t16 ADDRESS #define TC16 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t16_MapProc TC_TEXT->mapProc #define t20 ADDRESS typedef unsigned char t9; #line 116 "./Wr.i3" typedef struct { char* elts; int size[1]; } t33; #line 345 "WrMove.m3" #define t1 t33 #define TC20 TC_TEXT #define t29 ADDRESS PRIVATE void t29_PrintProc (); #line 80 "./WrClass.i3" PRIVATE typecell t29_TC; PRIVATE typecell t29_TC_init = {0, 0, 0, 0, 0, (PROC)NIL, -2, 0, NIL, 1, 1, (PROC)NIL, (PROC)NIL, t29_PrintProc, #line 80 "", 991118862, 833218118}; PRIVATE TYPE TC29 = &t29_TC; #define t47 ADDRESS typedef int t8; #define TC47 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t48 ADDRESS #define TC48 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; typedef int t2; #define t32 ADDRESS typedef struct { TYPE self; int private; } t32_methods; #define t32_msize (sizeof (t32_methods)) typedef struct { ADDRESS methods; } t32_fields; #define t32_size (sizeof (t32_fields)) #define TC32 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t32_MapProc TC_ROOT->mapProc #define t3 ADDRESS #define TC3 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 "./Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t3_MapProc TC_Wr__T->mapProc typedef t2 (*t4)(); #line 420 "WrMove.m3" typedef t45 (*t5)(); typedef unsigned char t6; #line 412 typedef t6 (*t7)(); #line 345 typedef signed_char t10; typedef struct { t9 elts[101]; } t11; typedef double t12; typedef float t13; #line 321 typedef signed_char t14; typedef struct { t9 elts[36]; } t15; #line 19 #define t17 ADDRESS #define t18 ADDRESS #define TC18 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t18_MapProc TC_MUTEX->mapProc typedef struct { #line 19 int filler; } t17_methods; #define t17_msize (sizeof (t17_methods)) typedef struct { #line 19 t8 _next; t8 _stop; } t17_fields; #define t17_size (sizeof (t17_fields)) PRIVATE void t17_InitProc (); #line 19 PRIVATE void t17_SetupProc (); PRIVATE void t17_PrintProc (); PRIVATE void t17_MapProc (); PRIVATE typecell t17_TC; PRIVATE typecell t17_TC_init = {0, 0, 0, 0, 0, t17_MapProc, #line 19 t17_size, t17_msize, NIL, 0, 0, t17_InitProc, t17_SetupProc, t17_PrintProc, "WrMove#$%^_0002", 1793746749, 689940430}; PRIVATE TYPE TC17 = &t17_TC; #line 19 #line 22 ".ROOT/.boots/corelib/Interfaces/TextF.i3" typedef t16 (*t19)(); #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t21; typedef t21 (*t22)(); #line 63 typedef t8 (*t23)(); #line 23 typedef t9 (*t24)(); #line 96 ".ROOT/.boots/corelib/Interfaces/Convert.i3" typedef t12 (*t25)(); #line 92 typedef t13 (*t26)(); #line 19 typedef signed_char t27; typedef unsigned char t28; #line 79 "./WrClass.i3" #define t30 ADDRESS #line 76 #define t31 ADDRESS #define TC31 TC_WrClass__Private IMPORT TYPE TC_WrClass__Private; #line 76 IMPORT char VS_WrClass__Private__5594af883f1b8361; #define t31_MapProc TC_WrClass__Private->mapProc typedef struct { t5 _seek; t4 _length; t5 _flush; t5 _close; } t30_methods; #define t30_msize (sizeof (t30_methods)) typedef struct { #line 79 t29 _buff; t2 _st; t2 _lo; t2 _hi; t2 _cur; t6 _closed; t6 _seekable; t6 _buffered; } t30_fields; #define t30_size (sizeof (t30_fields)) #define TC30 TC_Wr__T #define t30_MapProc TC_Wr__T->mapProc typedef unsigned char t34; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t36 ADDRESS #define TC36 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t36_MapProc TC_Thread__T->mapProc typedef t35 (*t37)(); #define t38 ADDRESS #define TC38 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t38_MapProc TC_Thread__Condition->mapProc typedef t36 (*t39)(); #define t40 ADDRESS #line 23 typedef struct { t37 _apply; } t40_methods; #define t40_msize (sizeof (t40_methods)) typedef struct { #line 23 int filler; } t40_fields; #define t40_size (sizeof (t40_fields)) #define TC40 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t40_MapProc TC_Thread__Closure->mapProc typedef t38 (*t41)(); typedef t18 (*t42)(); #line 28 #define t43 ADDRESS #line 28 typedef struct { int filler; } t43_methods; #define t43_msize (sizeof (t43_methods)) typedef struct { #line 28 t2 _stackSize; } t43_fields; #define t43_size (sizeof (t43_fields)) #define TC43 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t43_MapProc TC_Thread__SizedClosure->mapProc typedef CLOSURE t44; #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_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; #line 14 "WrMove.m3" IMPORT INITLINK* Thread__init; IMPORT INITLINK* TextF__init; IMPORT INITLINK* Text__init; IMPORT INITLINK* Convert__init; #line 14 IMPORT INITLINK* UnsafeWr__init; IMPORT INITLINK* WrClass__init; IMPORT INITLINK* Wr__init; IMPORT char VS_Thread__DefaultStackSize__0c949e2e2def4e40; #line 14 IMPORT TYPE TC_Thread__Mutex; IMPORT char VS_Thread__Mutex__4f5c12072cdeec3e; IMPORT t45 _Thread__Acquire (); IMPORT char VS_Thread__Acquire__4f2412f3260f1927; #line 14 IMPORT t45 _Thread__Release (); IMPORT char VS_Thread__Release__539a01d7243a726e; IMPORT EXCEPTION_NAME _Thread__Alerted; #line 14 IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT TYPE TC_Text__T; IMPORT char VS_Text__T__fc4b369f3ab271fd; IMPORT t9 _Text__GetChar (); #line 14 IMPORT char VS_Text__GetChar__0f4bd6e72493f4ff; IMPORT t2 _Text__Length (); IMPORT char VS_Text__Length__661a58173d76f41c; #line 14 IMPORT EXCEPTION_NAME _Convert__Failed; IMPORT char VS_Convert__Failed__2816e40d3f5c20d1; IMPORT t8 _Convert__FromInt (); #line 14 IMPORT char VS_Convert__FromInt__ef7d44523e253eab; IMPORT t8 _Convert__FromFloat (); IMPORT char VS_Convert__FromFloat__23a5efdb2af5c200; #line 14 IMPORT t8 _Convert__FromLongFloat (); IMPORT char VS_Convert__FromLongFloat__114d507b263cb69e; IMPORT EXCEPTION_NAME _Wr__Error; #line 14 IMPORT char VS_Wr__Error__c367253d3ed4fd15; IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; #line 14 EXPORT t45 _UnsafeWr__FastPutChar (); EXPORT char VS_UnsafeWr__FastPutChar__b1a53b0220cb969f = '\0'; EXPORT t45 _UnsafeWr__FastPutText (); #line 14 EXPORT char VS_UnsafeWr__FastPutText__a6a617eb3f19afd1 = '\0'; EXPORT t45 _UnsafeWr__FastPutString (); EXPORT char VS_UnsafeWr__FastPutString__3489317e38b7823c = '\0'; #line 14 EXPORT t45 _UnsafeWr__FastPutInt (); EXPORT char VS_UnsafeWr__FastPutInt__da9571263c7312f3 = '\0'; EXPORT t45 _UnsafeWr__FastPutReal (); #line 14 EXPORT char VS_UnsafeWr__FastPutReal__48d0debd304cb5da = '\0'; EXPORT t45 _UnsafeWr__FastPutLongReal (); EXPORT char VS_UnsafeWr__FastPutLongReal__3a7f546321c8abf3 = '\0'; #line 14 EXPORT t45 _WrClass__Lock (); EXPORT char VS_WrClass__Lock__c7e43d8d3affa311 = '\0'; EXPORT t45 _WrClass__Unlock (); EXPORT char VS_WrClass__Unlock__30e083913e7a52e9 = '\0'; #line 14 EXPORT t2 _WrClass__LengthDefault (); EXPORT char VS_WrClass__LengthDefault__f78fa4a22d1f7f55 = '\0'; EXPORT t45 _WrClass__CloseDefault (); #line 14 EXPORT char VS_WrClass__CloseDefault__d8c30bfe280fb390 = '\0'; EXPORT t45 _WrClass__FlushDefault (); EXPORT char VS_WrClass__FlushDefault__0f59e35131773891 = '\0'; #line 14 EXPORT t45 _Wr__PutChar (); EXPORT char VS_Wr__PutChar__ff65afd63f0def72 = '\0'; EXPORT t45 _Wr__PutText (); EXPORT char VS_Wr__PutText__e034dab73a793846 = '\0'; #line 14 EXPORT t45 _Wr__PutString (); EXPORT char VS_Wr__PutString__ffa656402b28b91a = '\0'; EXPORT t45 _Wr__Seek (); EXPORT char VS_Wr__Seek__159ddf093adbe110 = '\0'; #line 14 EXPORT t45 _Wr__Flush (); EXPORT char VS_Wr__Flush__2d2c8ef127dcfe6f = '\0'; EXPORT t45 _Wr__Close (); EXPORT char VS_Wr__Close__6e568877234e064a = '\0'; #line 14 EXPORT t2 _Wr__Length (); EXPORT char VS_Wr__Length__64915bc33c8329ef = '\0'; EXPORT t2 _Wr__GetIndex (); EXPORT char VS_Wr__GetIndex__1a576bad34643d26 = '\0'; #line 14 EXPORT t6 _Wr__Seekable (); EXPORT char VS_Wr__Seekable__64e6f2532cd33033 = '\0'; EXPORT t6 _Wr__Closed (); EXPORT char VS_Wr__Closed__f91a7ec4274c5d2a = '\0'; #line 14 EXPORT t6 _Wr__Buffered (); EXPORT char VS_Wr__Buffered__a5dc89be31e5c93f = '\0'; PRIVATE t45 _WrMove__MakeValid (); PRIVATE t45 _WrMove__SlowPutChar (); #line 14 PRIVATE t6 _WrMove__MakeClean (); EXPORT char VS_WrClass__Private__60adbcf22244f6cf = '\0'; IMPORT char VS_TEXT__db80a199220abd03; #line 14 IMPORT char VS_Wr__T__85e526fe26f23155; IMPORT char VS_Wr__T__425fee3d37f2ccaf; #line 263 PRIVATE EXCEPTION_NAME *raises_9 [] = { & _Wr__Error, & _Thread__Alerted, & _Wr__Failure, (EXCEPTION_NAME *) NULL}; #line 281 PRIVATE EXCEPTION_NAME *raises_10 [] = { & _Wr__Error, & _Thread__Alerted, & _Wr__Failure, (EXCEPTION_NAME *) NULL}; #line 308 PRIVATE EXCEPTION_NAME *raises_11 [] = { & _Wr__Error, & _Thread__Alerted, & _Wr__Failure, (EXCEPTION_NAME *) NULL}; PRIVATE EXCEPTION_NAME *raises_15 [] = { & _Convert__Failed, & _Wr__Error, & _Thread__Alerted, & _Wr__Failure, (EXCEPTION_NAME *) NULL}; #line 326 PRIVATE EXCEPTION_NAME *raises_21 [] = { & _Convert__Failed, & _Wr__Error, & _Thread__Alerted, & _Wr__Failure, (EXCEPTION_NAME *) NULL}; #line 338 PRIVATE EXCEPTION_NAME *raises_22 [] = { & _Convert__Failed, & _Wr__Error, & _Thread__Alerted, & _Wr__Failure, (EXCEPTION_NAME *) NULL}; #line 350 PRIVATE EXCEPTION_NAME *raises_23 [] = { & _Thread__Alerted, & _Wr__Failure, (EXCEPTION_NAME *) NULL}; #line 368 PRIVATE EXCEPTION_NAME *raises_25 [] = { & _Thread__Alerted, & _Wr__Failure, (EXCEPTION_NAME *) NULL}; #line 382 PRIVATE EXCEPTION_NAME *raises_24 [] = { & _Thread__Alerted, & _Wr__Failure, (EXCEPTION_NAME *) NULL}; #line 34 "WrMove.m3" EXPORT t45 _UnsafeWr__FastPutChar (_wr, _ch) t3 _wr; t9 _ch; { t3 z1; t3 z0; t6 z3; t3 z2; t29 z4; t3 z5; t8 z6; t8 z7; t8 z8; #line 34 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_9, proc_0); { { CHECKSTACKOVERFLOW; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z3 = ((((t17_fields*)(z0+(0)))->_next) != (((t17_fields*)(z0+(0)))->_stop)); #line 38 if (z3) { NILCHECKA (z2 = _wr); z1 = (char*)z2 + TC18->datasize; NILCHECKB (z4 = (((t30_fields*)(z1+(0+t17_size)))->_buff)); #line 39 NILCHECKA (z5 = _wr); z2 = (char*)z5 + TC18->datasize; z6 = (((t17_fields*)(z2+(0)))->_next); if (z6 < 0) RANGEFAULT; #line 39 { register t33* array = & (*((t1*) z4)); z8 = z6; if (z8 >= (array->size[0])) RANGEFAULT; z7 = (int)(array->elts + (z8 * 1)); #line 39 }; (*(t9*)z7) = _ch; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; (((t17_fields*)(z0+(0)))->_next) += 1 ; goto if_1_end; #line 41 }; _WrMove__SlowPutChar (_wr, _ch); if_1_end: /**/; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); #line 43 }; }; #line 124 "WrMove.m3" PRIVATE t45 _WrMove__MakeValid (_wr) t3 _wr; { t3 z1; t3 z0; t8 z3; t6 z2; t8 z4; #line 124 "WrMove.m3" { { CHECKSTACKOVERFLOW; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z3 = - 1 ; z2 = ((((t17_fields*)(z0+(0)))->_next) != z3); if (z2) { NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z3 = (((t30_fields*)(z0+(0+t17_size)))->_lo) + (((t17_fields*)(z0+(0)))->_next); #line 128 NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z4 = z3 - (((t30_fields*)(z0+(0+t17_size)))->_st); z3 = z4; #line 128 if (z3 < 0) RANGEFAULT; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; (((t30_fields*)(z0+(0+t17_size)))->_cur) = z3; #line 128 goto if_2_end; }; if_2_end: /**/; } } }; #line 157 "WrMove.m3" PRIVATE t45 _WrMove__SlowPutChar (_wr, _ch) t3 _wr; t9 _ch; { t3 z1; t3 z0; t34 z2; t8 z3; t6 z4; t5 z5; t6 z6; t16 z7; t3 z8; t29 z9; t3 z10; t8 z11; t8 z12; #line 157 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_9, proc_0); { { CHECKSTACKOVERFLOW; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; if ((((t30_fields*)(z0+(0+t17_size)))->_closed)) { z2 = 0 ; RAISE (& _Wr__Error, & z2, 1); }; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z3 = - 1 ; z4 = ((((t17_fields*)(z0+(0)))->_next) != z3); #line 164 if (z4) { _WrMove__MakeValid (_wr); goto if_4_end; }; z4 = _WrMove__MakeClean (_wr); if_4_end: /**/; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z4 = ((((t30_fields*)(z0+(0+t17_size)))->_cur) == (((t30_fields*)(z0+(0+t17_size)))->_hi)); #line 173 if (z4) { NILCHECKA (z1 = _wr); z0 = (*(char**)z1) + TC18->methodsize; z5 = ((t30_methods*) (z0+(0+t17_msize)))->_seek; #line 175 z0 = (char*)z1 + TC18->datasize; z5 (z1, (((t30_fields*)(z0+(0+t17_size)))->_cur)); z4 = _WrMove__MakeClean (_wr); z6 = ! z4; if (z6) { z7 = ((ADDRESS)(& txt2.str)); RAISE (& _Wr__Failure, & z7, 4); }; goto if_5_end; }; if_5_end: /**/; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z4 = ((((t17_fields*)(z0+(0)))->_next) != (((t17_fields*)(z0+(0)))->_stop)); #line 183 if (z4) { NILCHECKA (z8 = _wr); z1 = (char*)z8 + TC18->datasize; NILCHECKB (z9 = (((t30_fields*)(z1+(0+t17_size)))->_buff)); #line 184 NILCHECKA (z8 = _wr); z10 = (char*)z8 + TC18->datasize; z3 = (((t17_fields*)(z10+(0)))->_next); if (z3 < 0) RANGEFAULT; #line 184 { register t33* array = & (*((t1*) z9)); z12 = z3; if (z12 >= (array->size[0])) RANGEFAULT; z11 = (int)(array->elts + (z12 * 1)); #line 184 }; (*(t9*)z11) = _ch; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; (((t17_fields*)(z0+(0)))->_next) += 1 ; goto if_7_end; #line 186 }; NILCHECKA (z8 = _wr); z1 = (char*)z8 + TC18->datasize; NILCHECKB (z9 = (((t30_fields*)(z1+(0+t17_size)))->_buff)); NILCHECKA (z8 = _wr); #line 188 z10 = (char*)z8 + TC18->datasize; z11 = (((t30_fields*)(z10+(0+t17_size)))->_st) + (((t30_fields*)(z10+(0+t17_size)))->_cur); #line 188 NILCHECKA (z8 = _wr); z10 = (char*)z8 + TC18->datasize; z3 = z11 - (((t30_fields*)(z10+(0+t17_size)))->_lo); z11 = z3; #line 188 if (z11 < 0) RANGEFAULT; { register t33* array = & (*((t1*) z9)); z12 = z11; if (z12 >= (array->size[0])) RANGEFAULT; #line 188 z3 = (int)(array->elts + (z12 * 1)); }; (*(t9*)z3) = _ch; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; (((t30_fields*)(z0+(0+t17_size)))->_cur) += 1 ; NILCHECKA (z1 = _wr); z0 = (*(char**)z1) + TC18->methodsize; z5 = ((t30_methods*) (z0+(0+t17_msize)))->_flush; #line 191 z5 (z1); if_7_end: /**/; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); #line 191 }; }; #line 197 "WrMove.m3" PRIVATE t6 _WrMove__MakeClean (_wr) t3 _wr; { t3 z1; t3 z0; t6 z3; t6 z2; t6 z4; t8 z5; t8 z6; t16 z7; #line 197 "WrMove.m3" { auto t6 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z3 = ((((t30_fields*)(z0+(0+t17_size)))->_lo) <= (((t30_fields*)(z0+(0+t17_size)))->_cur)); #line 199 z2 = 0; if (z3) { NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z4 = ((((t30_fields*)(z0+(0+t17_size)))->_cur) < (((t30_fields*)(z0+(0+t17_size)))->_hi)); #line 199 z2 = z4; }; z3 = 0; if (z2) { NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z4 = ((((t30_fields*)(z0+(0+t17_size)))->_buff) != 0); #line 199 z3 = z4; }; z2 = 0; if (z3) { NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z3 = ! (((t30_fields*)(z0+(0+t17_size)))->_closed); #line 199 z2 = z3; }; if (z2) { NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z5 = (((t30_fields*)(z0+(0+t17_size)))->_st) + (((t30_fields*)(z0+(0+t17_size)))->_cur); #line 203 NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z6 = z5 - (((t30_fields*)(z0+(0+t17_size)))->_lo); NILCHECKA (z1 = _wr); #line 203 z0 = (char*)z1 + TC18->datasize; (((t17_fields*)(z0+(0)))->_next) = z6; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z5 = (((t30_fields*)(z0+(0+t17_size)))->_st) + (((t30_fields*)(z0+(0+t17_size)))->_hi); #line 204 NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z6 = z5 - (((t30_fields*)(z0+(0+t17_size)))->_lo); NILCHECKA (z1 = _wr); #line 204 z0 = (char*)z1 + TC18->datasize; (((t17_fields*)(z0+(0)))->_stop) = z6; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z3 = ((((t17_fields*)(z0+(0)))->_stop) < (((t17_fields*)(z0+(0)))->_next)); #line 205 if (z3) { z7 = ((ADDRESS)(& txt3.str)); RAISE (& _Wr__Failure, & z7, 4); }; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z2 = ! (((t30_fields*)(z0+(0+t17_size)))->_buffered); if (z2) { #line 208 NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; (((t17_fields*)(z0+(0)))->_stop) = (((t17_fields*)(z0+(0)))->_next); #line 208 goto if_10_end; }; if_10_end: /**/; __result = 1 ; return __result; }; z5 = - 1 ; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; (((t17_fields*)(z0+(0)))->_stop) = z5; z5 = - 1 ; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; (((t17_fields*)(z0+(0)))->_next) = z5; __result = 0 ; return __result; } } }; #line 253 "WrMove.m3" EXPORT t45 _WrClass__Lock (_wr) t3 _wr; { #line 253 "WrMove.m3" { { CHECKSTACKOVERFLOW; _Thread__Acquire (_wr); _WrMove__MakeValid (_wr); } } }; #line 259 "WrMove.m3" EXPORT t45 _WrClass__Unlock (_wr) t3 _wr; { t6 z2; #line 259 "WrMove.m3" { { CHECKSTACKOVERFLOW; z2 = _WrMove__MakeClean (_wr); _Thread__Release (_wr); } } }; #line 265 "WrMove.m3" EXPORT t45 _Wr__PutChar (_wr, _ch) t3 _wr; t9 _ch; { #line 265 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_9, proc_0); { { CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_0; PUSH_FINALLY (hlock_0, lock_0); _UnsafeWr__FastPutChar (_wr, _ch); #line 269 lock_0: CUT_TO_NEXT_HANDLER (hlock_0); _Thread__Release (mu); if (hlock_0.exception != FALL_EXCEPTION) { hproc_0.exception = hlock_0.exception; #line 269 goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); #line 269 }; }; #line 278 "WrMove.m3" EXPORT t45 _Wr__PutText (_wr, _t) t3 _wr; t16 _t; { #line 278 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_10, proc_0); { { CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_1; PUSH_FINALLY (hlock_1, lock_1); _UnsafeWr__FastPutText (_wr, _t); lock_1: CUT_TO_NEXT_HANDLER (hlock_1); _Thread__Release (mu); if (hlock_1.exception != FALL_EXCEPTION) { #line 281 hproc_0.exception = hlock_1.exception; goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); #line 281 if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 284 "WrMove.m3" EXPORT t45 _UnsafeWr__FastPutText (_wr, _t) t3 _wr; t16 _t; { t2 z2; t6 z3; t3 z1; t3 z0; t8 z4; t8 z5; t16 z6; t8 z7; t3 z8; t29 z9; t3 z10; t8 z11; t9 z12; #line 284 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_10, proc_0); { auto t2 _start; auto t2 _length; auto t9 _ch; { ZERO1 (& _start); ZERO1 (& _length); ZERO1B (& _ch); #line 286 ZERO1 ((& _start)); z2 = _Text__Length (_t); _length = z2; #line 284 CHECKSTACKOVERFLOW; z3 = (_length > 0 ); if (z3) do { { t8 with; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z4 = (((t17_fields*)(z0+(0)))->_stop) - (((t17_fields*)(z0+(0)))->_next); #line 291 z5 = z4; z2 = _length; if (z5 > z2) z5 = z2; with = z5; { auto t8 _present; { _present = with; { int from, to, index; from = 0 ; z4 = _present - 1 ; to = z4; { auto t8 _i; { for (index = from; index <= to; index += 1) { #line 292 _i = (t8) index; NILCHECKB (z6 = _t); z4 = _start + _i; z5 = z4; if (z5 < 0) RANGEFAULT; { register t33* array = & (*((t1*) z6)); #line 293 z7 = z5; if (z7 >= (array->size[0])) RANGEFAULT; z4 = (int)(array->elts + (z7 * 1)); }; #line 293 NILCHECKA (z8 = _wr); z1 = (char*)z8 + TC18->datasize; NILCHECKB (z9 = (((t30_fields*)(z1+(0+t17_size)))->_buff)); #line 293 NILCHECKA (z8 = _wr); z10 = (char*)z8 + TC18->datasize; z5 = (((t17_fields*)(z10+(0)))->_next) + _i; #line 293 z7 = z5; if (z7 < 0) RANGEFAULT; { register t33* array = & (*((t1*) z9)); z11 = z7; if (z11 >= (array->size[0])) RANGEFAULT; #line 293 z5 = (int)(array->elts + (z11 * 1)); }; (*(t9*)z5) = (*(t9*)z4); } } }; }; if ((_start += _present) < 0) RANGEFAULT; if ((_length -= _present) < 0) RANGEFAULT; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; (((t17_fields*)(z0+(0)))->_next) += _present; z3 = (_length > 0 ); if (z3) { z12 = _Text__GetChar (_t, _start); _ch = z12; _start += 1 ; if ((_length -= 1 ) < 0) RANGEFAULT; _WrMove__SlowPutChar (_wr, _ch); goto if_11_end; }; if_11_end: /**/; } } }; z3 = (_length > 0 ); #line 301 } while (z3); } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); #line 301 }; }; #line 304 "WrMove.m3" EXPORT t45 _Wr__PutString (_wr, _a) t3 _wr; t1 _a; { #line 304 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_11, proc_0); { { CHECKSTACKOVERFLOW; { register int *ip; register int sz; #line 304 register char *elts; ip = & (_a.size[0]); sz = ip[0] * 1; elts = (char*) alloca (sz); COPY (_a.elts, elts, sz); #line 304 _a.elts = elts; }; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_2; PUSH_FINALLY (hlock_2, lock_2); _UnsafeWr__FastPutString (_wr, _a); lock_2: CUT_TO_NEXT_HANDLER (hlock_2); _Thread__Release (mu); if (hlock_2.exception != FALL_EXCEPTION) { #line 308 hproc_0.exception = hlock_2.exception; goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); #line 308 if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 311 "WrMove.m3" EXPORT t45 _UnsafeWr__FastPutString (_wr, _a) t3 _wr; t1 _a; { t8 z0; t8 z4; t8 z5; #line 311 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_11, proc_0); { { CHECKSTACKOVERFLOW; { register int *ip; register int sz; #line 311 register char *elts; ip = & (_a.size[0]); sz = ip[0] * 1; elts = (char*) alloca (sz); COPY (_a.elts, elts, sz); #line 311 _a.elts = elts; }; { int from, to, index; from = 0 ; z0 = _a.size[0] - 1; to = z0; { auto t8 _i; { for (index = from; index <= to; index += 1) { #line 314 _i = (t8) index; { register t33* array = & _a; z5 = _i; if (z5 >= (array->size[0])) RANGEFAULT; z4 = (int)(array->elts + (z5 * 1)); #line 315 }; _UnsafeWr__FastPutChar (_wr, (*(t9*)z4)); } } }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); #line 315 }; }; #line 318 "WrMove.m3" EXPORT t45 _UnsafeWr__FastPutInt (_wr, _n, _base) t3 _wr; t8 _n; t8 _base; { t33 z2; t8 z4; t8 z5; t8 z3; #line 318 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_15, proc_0); { auto t15 _chars; auto t8 _size; { ZERO (36, & _chars); #line 318 CHECKSTACKOVERFLOW; { z2.elts = (char*) (& _chars); z2.size[0] = 36; }; z4 = _base; if ((z4 < 2) || (16 < z4)) RANGEFAULT; z5 = _Convert__FromInt (&z2, _n, z4, 0 ); #line 324 _size = z5; { int from, to, index; from = 0 ; z3 = _size - 1 ; to = z3; { auto t8 _i; { for (index = from; index <= to; index += 1) { #line 325 _i = (t8) index; z4 = _i; if (z4 > 35) RANGEFAULT; _UnsafeWr__FastPutChar (_wr, (_chars.elts[z4])); } } }; }; } } proc_0: #line 326 CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 329 "WrMove.m3" EXPORT t45 _UnsafeWr__FastPutReal (_wr, _r, _p, _s) t3 _wr; t13 _r; t2 _p; t28 _s; { t33 z2; t8 z5; t8 z3; t8 z4; #line 329 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_21, proc_0); { auto t11 _chars; auto t8 _size; { ZERO (101, & _chars); #line 329 CHECKSTACKOVERFLOW; { z2.elts = (char*) (& _chars); z2.size[0] = 101; }; z5 = _Convert__FromFloat (&z2, _r, _p, _s); _size = z5; { int from, to, index; from = 0 ; z3 = _size - 1 ; to = z3; { auto t8 _i; { for (index = from; index <= to; index += 1) { #line 337 _i = (t8) index; z4 = _i; if (z4 > 100) RANGEFAULT; _UnsafeWr__FastPutChar (_wr, (_chars.elts[z4])); } } }; }; } } proc_0: #line 338 CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 341 "WrMove.m3" EXPORT t45 _UnsafeWr__FastPutLongReal (_wr, _r, _p, _s) t3 _wr; t12 _r; t2 _p; t28 _s; { t33 z2; t8 z5; t8 z3; t8 z4; #line 341 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_22, proc_0); { auto t11 _chars; auto t8 _size; { ZERO (101, & _chars); #line 341 CHECKSTACKOVERFLOW; { z2.elts = (char*) (& _chars); z2.size[0] = 101; }; z5 = _Convert__FromLongFloat (&z2, _r, _p, _s); _size = z5; { int from, to, index; from = 0 ; z3 = _size - 1 ; to = z3; { auto t8 _i; { for (index = from; index <= to; index += 1) { #line 349 _i = (t8) index; z4 = _i; if (z4 > 100) RANGEFAULT; _UnsafeWr__FastPutChar (_wr, (_chars.elts[z4])); } } }; }; } } proc_0: #line 350 CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 356 "WrMove.m3" EXPORT t45 _Wr__Seek (_wr, _n) t3 _wr; t2 _n; { t3 z1; t3 z0; t6 z2; t16 z3; t5 z4; #line 356 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_23, proc_0); { { CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_3; PUSH_FINALLY (hlock_3, lock_3); NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z2 = ! (((t30_fields*)(z0+(0+t17_size)))->_seekable); #line 359 if (z2) { z3 = ((ADDRESS)(& txt1.str)); RAISE (& _Wr__Failure, & z3, 4); }; _WrMove__MakeValid (_wr); { HANDLER hfinally_0; PUSH_FINALLY (hfinally_0, finally_0); NILCHECKA (z1 = _wr); z0 = (*(char**)z1) + TC18->methodsize; #line 363 z4 = ((t30_methods*) (z0+(0+t17_msize)))->_seek; z4 (z1, _n); finally_0: CUT_TO_NEXT_HANDLER (hfinally_0); #line 363 z2 = _WrMove__MakeClean (_wr); if (hfinally_0.exception != FALL_EXCEPTION) { hlock_3.exception = hfinally_0.exception; #line 363 goto lock_3; }; }; lock_3: CUT_TO_NEXT_HANDLER (hlock_3); _Thread__Release (mu); if (hlock_3.exception != FALL_EXCEPTION) { #line 363 hproc_0.exception = hlock_3.exception; goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); #line 363 if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 367 "WrMove.m3" EXPORT t2 _Wr__GetIndex (_wr) t3 _wr; { t3 z1; t3 z0; #line 367 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_1, proc_0); { auto t2 __result; { ZERO1 (& __result); CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_4; PUSH_FINALLY (hlock_4, lock_4); _WrMove__MakeValid (_wr); #line 368 NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; __result = (((t30_fields*)(z0+(0+t17_size)))->_cur); #line 368 hlock_4.exception = RETURN_EXCEPTION; goto lock_4; lock_4: CUT_TO_NEXT_HANDLER (hlock_4); _Thread__Release (mu); #line 368 if (hlock_4.exception != FALL_EXCEPTION) { if (hlock_4.exception == RETURN_EXCEPTION) { CUT_TO_NEXT_HANDLER (hproc_0); #line 368 return __result; }; hproc_0.exception = hlock_4.exception; goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); #line 368 if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 370 "WrMove.m3" EXPORT t2 _Wr__Length (_wr) t3 _wr; { t3 z1; t3 z0; t4 z2; t2 z3; t6 z4; #line 370 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_25, proc_0); { auto t2 __result; { ZERO1 (& __result); CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_5; PUSH_FINALLY (hlock_5, lock_5); _WrMove__MakeValid (_wr); { HANDLER hfinally_1; PUSH_FINALLY (hfinally_1, finally_1); NILCHECKA (z1 = _wr); z0 = (*(char**)z1) + TC18->methodsize; #line 374 z2 = ((t30_methods*) (z0+(0+t17_msize)))->_length; z3 = z2 (z1); __result = z3; hfinally_1.exception = RETURN_EXCEPTION; #line 374 goto finally_1; finally_1: CUT_TO_NEXT_HANDLER (hfinally_1); z4 = _WrMove__MakeClean (_wr); if (hfinally_1.exception != FALL_EXCEPTION) { #line 374 if (hfinally_1.exception == RETURN_EXCEPTION) { hlock_5.exception = RETURN_EXCEPTION; goto lock_5; }; #line 374 hlock_5.exception = hfinally_1.exception; goto lock_5; }; }; lock_5: CUT_TO_NEXT_HANDLER (hlock_5); _Thread__Release (mu); #line 374 if (hlock_5.exception != FALL_EXCEPTION) { if (hlock_5.exception == RETURN_EXCEPTION) { CUT_TO_NEXT_HANDLER (hproc_0); #line 374 return __result; }; hproc_0.exception = hlock_5.exception; goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); #line 374 if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 378 "WrMove.m3" EXPORT t45 _Wr__Flush (_wr) t3 _wr; { t3 z1; t3 z0; t5 z2; t6 z3; #line 378 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_24, proc_0); { { CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_6; PUSH_FINALLY (hlock_6, lock_6); _WrMove__MakeValid (_wr); { HANDLER hfinally_2; PUSH_FINALLY (hfinally_2, finally_2); NILCHECKA (z1 = _wr); z0 = (*(char**)z1) + TC18->methodsize; #line 382 z2 = ((t30_methods*) (z0+(0+t17_msize)))->_flush; z2 (z1); finally_2: CUT_TO_NEXT_HANDLER (hfinally_2); #line 382 z3 = _WrMove__MakeClean (_wr); if (hfinally_2.exception != FALL_EXCEPTION) { hlock_6.exception = hfinally_2.exception; #line 382 goto lock_6; }; }; lock_6: CUT_TO_NEXT_HANDLER (hlock_6); _Thread__Release (mu); if (hlock_6.exception != FALL_EXCEPTION) { #line 382 hproc_0.exception = hlock_6.exception; goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); #line 382 if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 386 "WrMove.m3" EXPORT t45 _Wr__Close (_wr) t3 _wr; { t3 z1; t3 z0; t6 z2; t5 z3; t3 z4; #line 386 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_24, proc_0); { { CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_7; PUSH_FINALLY (hlock_7, lock_7); NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; z2 = ! (((t30_fields*)(z0+(0+t17_size)))->_closed); #line 389 if (z2) { _WrMove__MakeValid (_wr); { HANDLER hfinally_3; PUSH_FINALLY (hfinally_3, finally_3); #line 392 NILCHECKA (z1 = _wr); z0 = (*(char**)z1) + TC18->methodsize; z3 = ((t30_methods*) (z0+(0+t17_msize)))->_flush; #line 392 z3 (z1); NILCHECKA (z1 = _wr); z0 = (*(char**)z1) + TC18->methodsize; z3 = ((t30_methods*) (z0+(0+t17_msize)))->_close; #line 394 z3 (z1); finally_3: CUT_TO_NEXT_HANDLER (hfinally_3); NILCHECKA (z4 = _wr); z1 = (char*)z4 + TC18->datasize; (((t30_fields*)(z1+(0+t17_size)))->_closed) = 1 ; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; (((t17_fields*)(z0+(0)))->_next) = (((t17_fields*)(z0+(0)))->_stop); #line 396 if (hfinally_3.exception != FALL_EXCEPTION) { hlock_7.exception = hfinally_3.exception; goto lock_7; #line 396 }; }; goto if_13_end; }; if_13_end: /**/; lock_7: CUT_TO_NEXT_HANDLER (hlock_7); _Thread__Release (mu); if (hlock_7.exception != FALL_EXCEPTION) { #line 396 hproc_0.exception = hlock_7.exception; goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); #line 396 if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 402 "WrMove.m3" EXPORT t6 _Wr__Seekable (_wr) t3 _wr; { t3 z1; t3 z0; #line 402 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_1, proc_0); { auto t6 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_8; PUSH_FINALLY (hlock_8, lock_8); NILCHECKA (z1 = _wr); #line 404 z0 = (char*)z1 + TC18->datasize; __result = (((t30_fields*)(z0+(0+t17_size)))->_seekable); hlock_8.exception = RETURN_EXCEPTION; #line 404 goto lock_8; lock_8: CUT_TO_NEXT_HANDLER (hlock_8); _Thread__Release (mu); if (hlock_8.exception != FALL_EXCEPTION) { #line 404 if (hlock_8.exception == RETURN_EXCEPTION) { CUT_TO_NEXT_HANDLER (hproc_0); return __result; }; hproc_0.exception = hlock_8.exception; #line 404 goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); #line 404 }; }; #line 407 "WrMove.m3" EXPORT t6 _Wr__Closed (_wr) t3 _wr; { t3 z1; t3 z0; #line 407 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_1, proc_0); { auto t6 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_9; PUSH_FINALLY (hlock_9, lock_9); NILCHECKA (z1 = _wr); #line 409 z0 = (char*)z1 + TC18->datasize; __result = (((t30_fields*)(z0+(0+t17_size)))->_closed); hlock_9.exception = RETURN_EXCEPTION; #line 409 goto lock_9; lock_9: CUT_TO_NEXT_HANDLER (hlock_9); _Thread__Release (mu); if (hlock_9.exception != FALL_EXCEPTION) { #line 409 if (hlock_9.exception == RETURN_EXCEPTION) { CUT_TO_NEXT_HANDLER (hproc_0); return __result; }; hproc_0.exception = hlock_9.exception; #line 409 goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); #line 409 }; }; #line 412 "WrMove.m3" EXPORT t6 _Wr__Buffered (_wr) t3 _wr; { t3 z1; t3 z0; #line 412 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_1, proc_0); { auto t6 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW; { register t18 mu = (t18)_wr; _Thread__Acquire (mu); { HANDLER hlock_10; PUSH_FINALLY (hlock_10, lock_10); NILCHECKA (z1 = _wr); #line 414 z0 = (char*)z1 + TC18->datasize; __result = (((t30_fields*)(z0+(0+t17_size)))->_buffered); hlock_10.exception = RETURN_EXCEPTION; #line 414 goto lock_10; lock_10: CUT_TO_NEXT_HANDLER (hlock_10); _Thread__Release (mu); if (hlock_10.exception != FALL_EXCEPTION) { #line 414 if (hlock_10.exception == RETURN_EXCEPTION) { CUT_TO_NEXT_HANDLER (hproc_0); return __result; }; hproc_0.exception = hlock_10.exception; #line 414 goto proc_0; }; }; }; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); #line 414 }; }; #line 417 "WrMove.m3" EXPORT t45 _WrClass__CloseDefault (_wr) t3 _wr; { t3 z2; t3 z1; #line 417 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_1, proc_0); { { CHECKSTACKOVERFLOW; NILCHECKA (z2 = _wr); z1 = (char*)z2 + TC18->datasize; (((t30_fields*)(z1+(0+t17_size)))->_buff) = (t29) 0; } } proc_0: #line 418 CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 420 "WrMove.m3" EXPORT t45 _WrClass__FlushDefault (_wr) t3 _wr; { #line 420 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_1, proc_0); { { CHECKSTACKOVERFLOW; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); #line 420 if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); }; }; #line 423 "WrMove.m3" EXPORT t2 _WrClass__LengthDefault (_wr) t3 _wr; { t3 z1; t3 z0; #line 423 "WrMove.m3" { HANDLER hproc_0; PUSH_RAISES (hproc_0, raises_1, proc_0); { auto t2 __result; { ZERO1 (& __result); CHECKSTACKOVERFLOW; NILCHECKA (z1 = _wr); z0 = (char*)z1 + TC18->datasize; __result = (((t30_fields*)(z0+(0+t17_size)))->_cur); CUT_TO_NEXT_HANDLER (hproc_0); #line 424 return __result; } } proc_0: CUT_TO_NEXT_HANDLER (hproc_0); if (hproc_0.exception != 0) RAISE_FOR_SURE (hproc_0.exception); #line 424 }; }; PRIVATE int init_done = -1; #line 424 "WrMove.m3" PRIVATE void WrMove__initProc (g) int g; { #line 424 "WrMove.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& UnsafeWr__init); INITIALIZE (& WrClass__init); INITIALIZE (& Wr__init); #line 424 INITIALIZE (& Thread__init); INITIALIZE (& TextF__init); INITIALIZE (& Text__init); INITIALIZE (& Convert__init); return; #line 424 }; #line 424 "WrMove.m3" PRIVATE void t17_InitProc (obj) char* obj; { register t17_fields* p; t8 z1; #line 424 "WrMove.m3" CHECKSTACKOVERFLOW; p = (t17_fields*) (obj + TC18->datasize); z1 = - 1 ; p->_next = z1; z1 = - 1 ; p->_stop = z1; }; #line 424 "WrMove.m3" PRIVATE void t17_SetupProc () { register int* p; #line 424 "WrMove.m3" t17_TC.datasize += TC18->datasize; t17_TC.methodsize += TC18->methodsize; p = (int*) UALLOC (t17_TC.methodsize); COPY (TC18->defaultMethods, p, (TC18->methodsize)); #line 424 p[0] = (int)(& t17_TC); p[1] = 0; t17_TC.defaultMethods = (char*) p; }; #line 424 "WrMove.m3" PRIVATE void t17_PrintProc (obj) char *obj; { t17_fields* o; #line 424 "WrMove.m3" CHECKSTACKOVERFLOW; if (TC18->printProc != 0) {TC18->printProc (obj); } fprintf (stderr, "{%s} ", TC17->brand); o = (t17_fields*) (obj + TC18->datasize); #line 424 fprintf (stderr, "next = %d", o->_next); fprintf (stderr, ", "); fprintf (stderr, "stop = %d", o->_stop); }; #line 424 "WrMove.m3" PRIVATE void t29_PrintProc (ref) t1* ref; { CHECKSTACKOVERFLOW; fprintf (stderr, "%s {", TC29->brand); fprintf (stderr, "^ = array"); #line 424 fprintf (stderr, "}\n"); }; PRIVATE void t17_MapProc (p, r, c) void (*p) (); char* r; ADDRESS c; { register t17_fields* o; #line 424 CHECKSTACKOVERFLOW; t18_MapProc (p, r, c); o = (t17_fields*) (r + TC18->datasize); }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, WrMove__initProc}; #line 424 PRIVATE INITLINK me_1 ={(INITLINK*)NIL, 0, WrMove__initProc}; PRIVATE INITLINK me_2 ={(INITLINK*)NIL, 0, WrMove__initProc}; static char* VSimports[] = { &VS_Thread__DefaultStackSize__0c949e2e2def4e40, &VS_Thread__T__2555b70b3f7780b1, &VS_Thread__Mutex__4f5c12072cdeec3e, &VS_Thread__Condition__26d5968239e08f4e, &VS_Thread__Closure__7fb5c6232c5a658a, &VS_Thread__SizedClosure__8a46717d2eae7b07, &VS_Thread__Acquire__4f2412f3260f1927, &VS_Thread__Release__539a01d7243a726e, &VS_Thread__Alerted__fc88feb43485af46, &VS_Text__T__fc4b369f3ab271fd, &VS_Text__GetChar__0f4bd6e72493f4ff, &VS_Text__Length__661a58173d76f41c, &VS_Convert__Failed__2816e40d3f5c20d1, &VS_Convert__FromInt__ef7d44523e253eab, &VS_Convert__FromFloat__23a5efdb2af5c200, &VS_Convert__FromLongFloat__114d507b263cb69e, &VS_Wr__Error__c367253d3ed4fd15, &VS_Wr__Failure__5f82cfb43dabf527, &VS_Thread__Alerted__fc88feb43485af46, &VS_WrClass__Private__5594af883f1b8361, &VS_Wr__T__2555b70b3f7780b1, NIL }; void WrMove__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = UnsafeWr__init; UnsafeWr__init = & me_0; me_1.link = WrClass__init; WrClass__init = & me_1; me_2.link = Wr__init; Wr__init = & me_2; t17_TC = t17_TC_init; REGISTERTYPE (TC17); t29_TC = t29_TC_init; REGISTERTYPE (TC29); break; }; case 1: { t17_TC.parent = TC_MUTEX; #line 19 "WrMove.m3" IDENTIFYTYPES (TC31, TC17); break; }; case 2: { break; }; }; };