evolve4src/src/evolve_simulator/kforth_compiler.cpp
void kforth_delete(KFORTH_PROGRAM *kfp)
{
	int cb;

	ASSERT( kfp != NULL );

	for(cb=0; cb < kfp->nblocks; cb++ ) {
		FREE( kfp->opcode[cb] );
		FREE( kfp->operand[cb] );
	}

	FREE( kfp->opcode );
	FREE( kfp->operand );
	FREE( kfp->block_len );

	FREE( kfp );
}
/***********************************************************************
 * Delete the KFORTH program 'kfp'
 */
Delete the KFORTH program 'kfp'
Delete the KFORTH program ' kfp '
void kforth_delete(KFORTH_PROGRAM *kfp)
{
	int cb;
	ASSERT( kfp != NULL );
	for(cb=0; cb < kfp->nblocks; cb++ ) {
		FREE( kfp->opcode[cb] );
		FREE( kfp->operand[cb] );
	}
	FREE( kfp->opcode );
	FREE( kfp->operand );
	FREE( kfp->block_len );
	FREE( kfp );
}
void kforth_delete ( KFORTH_PROGRAM * kfp ) { int cb ; ASSERT ( kfp != NULL ) ; for ( cb = 0 ; cb < kfp -> nblocks ; cb ++ ) { FREE ( kfp -> opcode [ cb ] ) ; FREE ( kfp -> operand [ cb ] ) ; } FREE ( kfp -> opcode ) ; FREE ( kfp -> operand ) ; FREE ( kfp -> block_len ) ; FREE ( kfp ) ; }
Delete the KFORTH program 'kfp'
Delete the KFORTH program ' kfp '