Function put_vax_long

src/include/memory_routines.h:152–185

}

inline UCHAR put_vax_long(UCHAR* p, SLONG value)
{
/**************************************
 *
 *      p u t _ v a x _ l o n g
 *
 **************************************
 *
 * Functional description
 *    Store one signed long int as
 *    four chars in VAX format
 *
 **************************************/
#ifndef WORDS_BIGENDIAN
	// little-endian
	memcpy(p, &value, sizeof(SLONG));
#else
	// big-endian
	union
	{
		SLONG n;
		UCHAR c[4];
	} temp;

	temp.n = value;

	p[0] = temp.c[3];
	p[1] = temp.c[2];
	p[2] = temp.c[1];
	p[3] = temp.c[0];
#endif

	return sizeof(value);
}

inline UCHAR put_vax_int64(UCHAR* p, SINT64 value)
{