evolve4src/src/evolve_simulator/kforth_execute.cpp
static KFORTH_INTEGER pack32(KFORTH_INTEGER x)
{
	if( x > MAX_INT32 ) {
		return MAX_INT32;

	} else if( x < MIN_INT32 ) {
		return MIN_INT32;

	} else {
		return x;
	}
}
/*
 * If incomming value is too big or too little (for an int)
 * then peg value at max or min.
 */
If incomming value is too big or too little (for an int)
then peg value at max or min.
If incomming value is too big or too little ( for an int ) then peg value at max or min .
static KFORTH_INTEGER pack32(KFORTH_INTEGER x)
{
	if( x > MAX_INT32 ) {
		return MAX_INT32;
	} else if( x < MIN_INT32 ) {
		return MIN_INT32;
	} else {
		return x;
	}
}
static KFORTH_INTEGER pack32 ( KFORTH_INTEGER x ) { if ( x > MAX_INT32 ) { return MAX_INT32 ; } else if ( x < MIN_INT32 ) { return MIN_INT32 ; } else { return x ; } }
If incomming value is too big or too little (for an int)
 then peg value at max or min.
If incomming value is too big or too little ( for an int ) then peg value at max or min .