evolve4src/src/evolve_simulator/kforth_execute.cpp
static void kfop_push(KFORTH_MACHINE *kfm)
{
	KFORTH_STACK_NODE *node;
	int cb, pc;

	node = kforth_stack_node_make();

	cb = kfm->cb;
	pc = kfm->pc;

	node->u.data.value = kfm->program->operand[cb][pc];

	kforth_stack_push(&kfm->data_sp, node);
	kfm->data_stack_size += 1;
}
/*
 * Push Operand value on data stack
 *
 * This is opcode 0, and is created by the compiler when
 * a numeric literal is encountered in the input.
 *
 * ( -- a )
 */
Push Operand value on data stack
This is opcode 0, and is created by the compiler when
a numeric literal is encountered in the input.

- a )
Push Operand value on data stack This is opcode 0 and is created by the compiler when a numeric literal is encountered in the input . - a )
static void kfop_push(KFORTH_MACHINE *kfm)
{
	KFORTH_STACK_NODE *node;
	int cb, pc;
	node = kforth_stack_node_make();
	cb = kfm->cb;
	pc = kfm->pc;
	node->u.data.value = kfm->program->operand[cb][pc];
	kforth_stack_push(&kfm->data_sp, node);
	kfm->data_stack_size += 1;
}
static void kfop_push ( KFORTH_MACHINE * kfm ) { KFORTH_STACK_NODE * node ; int cb , pc ; node = kforth_stack_node_make ( ) ; cb = kfm -> cb ; pc = kfm -> pc ; node -> u . data . value = kfm -> program -> operand [ cb ] [ pc ] ; kforth_stack_push ( & kfm -> data_sp , node ) ; kfm -> data_stack_size += 1 ; }
Push Operand value on data stack
 This is opcode 0, and is created by the compiler when
 a numeric literal is encountered in the input.
Push Operand value on data stack This is opcode 0 and is created by the compiler when a numeric literal is encountered in the input .