evolve4src/src/evolve_simulator/kforth_compiler.cpp
int kforth_program_length(KFORTH_PROGRAM *kfp)
{
	int i, len;

	ASSERT( kfp != NULL );

	len = 0;
	for(i=0; i < kfp->nblocks; i++) {
		len += kfp->block_len[i];
	}

	return len;
}
/*
 * return total number of instructions and numbers
 * that comprise the program 'kfp'.
 */
return total number of instructions and numbers
that comprise the program 'kfp'.
return total number of instructions and numbers that comprise the program ' kfp ' .
int kforth_program_length(KFORTH_PROGRAM *kfp)
{
	int i, len;
	ASSERT( kfp != NULL );
	len = 0;
	for(i=0; i < kfp->nblocks; i++) {
		len += kfp->block_len[i];
	}
	return len;
}
int kforth_program_length ( KFORTH_PROGRAM * kfp ) { int i , len ; ASSERT ( kfp != NULL ) ; len = 0 ; for ( i = 0 ; i < kfp -> nblocks ; i ++ ) { len += kfp -> block_len [ i ] ; } return len ; }
return total number of instructions and numbers
 that comprise the program 'kfp'.
return total number of instructions and numbers that comprise the program ' kfp ' .