/*****************************************************************************

	ZChrIt()

	This function type casts a LONG into a char.  It exists because
the ALCYON compiler didn't do implicit type casting correctly.  It should
probably be deleted,  as the ALCYON compiler is no longer supported.

*****************************************************************************/

#include "ZPort.h"		/* define portability identifiers */

#ifdef ALCYON
char ZChrIt(LngVal)		/* type convert from char to LONG */
LONG LngVal;
{
	union u_tag { LONG L32; char L8[4]; } UDummy;
	UDummy.L32 = LngVal;
	return(UDummy.L8[3]);
}
#else
char ZChrIt(LngVal)		/* type convert from char to LONG */
LONG LngVal;
{
	return((char)LngVal);
}
#endif