P8000/WEGA/contrib/ingres/dbs/src/amx_lib/AAi2_f4.c

# include	"AA_liba.h"

# ifndef NO_F4
AAi2_f4(s, d)
register char	*s;
register char	*d;
{
	short	is;
	float	id;

	AAbmove(s, &is, sizeof is);
	id = is;
	AAbmove(&id, d, sizeof id);
}
# endif