void DgUninitBytes( // DATA GENERATE UNINIT BYTES target_size_t size ) // - number of bytes { if( size == TARGET_UINT_MAX+1 ) { size /= 2; DGUBytes( size ); DGUBytes( size ); } else { DGUBytes( size ); } }
void DgUninitBytes( // DATA GENERATE UNINIT BYTES target_size_t size ) // - number of bytes { #if ( _CPU == 8086 ) if( size == TARGET_UINT_MAX + 1 ) { size /= 2; DGUBytes( size ); DGUBytes( size ); } else { DGUBytes( size ); } #else DGUBytes( size ); #endif }
void BGProcDecl( cg_sym_handle sym, type_def *tipe ) /*****************************************************/ { hw_reg_set reg; name *temp; type_class_def type_class; segment_id old_segid; label_handle lbl; SaveTargetModel = TargetModel; type_class = AddCallBlock( sym, tipe ); if( tipe != TypeNone ) { if( type_class == XX ) { if( CurrProc->state.attr & ROUTINE_ALLOCS_RETURN ) { old_segid = SetOP( AskBackSeg() ); lbl = AskForNewLabel(); DataLabel( lbl ); DGUBytes( tipe->length ); CurrProc->targ.return_points = (name *)SAllocMemory( lbl, 0, CG_LBL, TypeClass( tipe ), tipe->length ); SetOP( old_segid ); } else { reg = CurrProc->state.return_reg; if( HW_CEqual( reg, HW_EMPTY ) ) { temp = DoParmDecl( NULL, TypeInteger, HW_EMPTY ); } else { temp = AllocTemp( WD ); temp->v.usage |= USE_IN_ANOTHER_BLOCK; AddIns( MakeMove( AllocRegName( reg ), temp, WD ) ); HW_TurnOn( CurrProc->state.parm.used, reg ); } CurrProc->targ.return_points = temp; } } } if( CurrProc->state.attr & ROUTINE_FARSS ) { TargetModel |= FLOATING_SS; } }