void GBegDList( void ) { //=================== // Start list of data. unsigned_16 const_offset; obj_ptr curr_obj; const_offset = ObjOffset( DtConstList ); curr_obj = ObjSeek( DtConstList ); OutU16( const_offset ); ObjSeek( curr_obj ); }
void EndFmt( void ) { //================ // Finish format processing. obj_ptr fmt_ptr; unsigned_16 fmt_len; fmt_len = ObjOffset( FormatList ) - sizeof( unsigned_16 ); fmt_ptr = ObjSeek( FormatList ); OutU16( fmt_len ); ObjSeek( fmt_ptr ); }
void GEndSList( sym_id sym ) { //======================================= // Finish off ADV initialization. unsigned_16 warp_size; sym = sym; EmitOp( FC_WARP_RETURN ); warp_size = ObjOffset( WarpLabel ) - sizeof( unsigned_16 ); WarpLabel = ObjSeek( WarpLabel ); OutU16( warp_size ); ObjSeek( WarpLabel ); }