evolve4src/src/evolve_batch/evolve_batch.cpp
static void kfop_print_stack(KFORTH_MACHINE *kfm)
{
	KFORTH_STACK_NODE *node;

	ASSERT( kfm != NULL );

	node = kfm->data_sp;
	if( node ) {
		/* scan to beginning */
		while( node->prev != NULL ) {
			node = node->prev;
		}

		while( node != NULL ) {
#ifndef __linux__
			printf("%I64d\n", node->u.data.value);
#else
			printf("%lld\n", node->u.data.value);
#endif
			node = node->next;
		}
	} else {
		printf("(empty)\n");
	}
}
/*
 * Print stack, but don't remove anything.
 */
Print stack, but don't remove anything.
Print stack but don ' t remove anything .
static void kfop_print_stack(KFORTH_MACHINE *kfm)
{
	KFORTH_STACK_NODE *node;
	ASSERT( kfm != NULL );
	node = kfm->data_sp;
	if( node ) {
		while( node->prev != NULL ) {
			node = node->prev;
		}
		while( node != NULL ) {
#ifndef __linux__
			printf("%I64d\n", node->u.data.value);
#else
			printf("%lld\n", node->u.data.value);
#endif
			node = node->next;
		}
	} else {
		printf("(empty)\n");
	}
}
static void kfop_print_stack ( KFORTH_MACHINE * kfm ) { KFORTH_STACK_NODE * node ; ASSERT ( kfm != NULL ) ; node = kfm -> data_sp ; if ( node ) { while ( node -> prev != NULL ) { node = node -> prev ; } while ( node != NULL ) { #ifndef __linux__ printf ( " \n " , node -> u . data . value ) ; #else printf ( " \n " , node -> u . data . value ) ; #endif node = node -> next ; } } else { printf ( " \n " ) ; } }
Print stack, but don't remove anything.
Print stack but don ' t remove anything .
/* scan to beginning */