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

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

	} else {
		return x;
	}
}
/*
 * If incomming value is too big or too little (for a short)
 * then peg value at max or min.
 */
If incomming value is too big or too little (for a short)
then peg value at max or min.
If incomming value is too big or too little ( for a short ) then peg value at max or min .
static KFORTH_INTEGER pack16(KFORTH_INTEGER x)
{
	if( x > MAX_INT16 ) {
		return MAX_INT16;
	} else if( x < MIN_INT16 ) {
		return MIN_INT16;
	} else {
		return x;
	}
}
static KFORTH_INTEGER pack16 ( KFORTH_INTEGER x ) { if ( x > MAX_INT16 ) { return MAX_INT16 ; } else if ( x < MIN_INT16 ) { return MIN_INT16 ; } else { return x ; } }
If incomming value is too big or too little (for a short)
 then peg value at max or min.
If incomming value is too big or too little ( for a short ) then peg value at max or min .