coroutines.hhf

来自「High Level assembly language(HLA)软件」· HHF 代码 · 共 37 行

#if( ! @defined( coroutines_hhf ))
?coroutines_hhf := true;

const
	coroutine	:text := "coroutine_t";		// Deprecated!
	
type
	coroutine_t:
		class
		
			var
				CurrentSP:			dword;
				Stack:				dword;
				ExceptionContext:	dword;
				LastCaller:			dword;
				
			procedure cocall;	
				@external( "COR_COCALL" );

			procedure create( size:uns32; theProc:procedure );
				@external( "COR_CREATE" );

			method cofree;
				@external( "COR_COFREE" );
			
		endclass;

static
	mainPgm_coroutine:coroutine_t; @external( "MainPgmCoroutine__hla_" );


procedure coret; @external( "COR_CORET" );

#endif