void TurnJavaModeOff(void) {
vector unsigned int javaOffMask = ( vector unsigned int ) ( 0x00010000 );
vector unsigned int java;
gOldJavaMode = ( vector unsigned int ) vec_mfvscr ( );
java = vec_or ( gOldJavaMode, javaOffMask );
vec_mtvscr ( java );
}
void
b()
{
z = vec_add (x, y);
/* Make sure the predicates accept correct argument types. */
int1 = vec_all_in (f, g);
int1 = vec_all_ge (f, g);
int1 = vec_all_eq (c, d);
int1 = vec_all_ne (s, t);
int1 = vec_any_eq (i, j);
int1 = vec_any_ge (f, g);
int1 = vec_all_ngt (f, g);
int1 = vec_any_ge (c, d);
int1 = vec_any_ge (s, t);
int1 = vec_any_ge (i, j);
int1 = vec_any_ge (c, d);
int1 = vec_any_ge (s, t);
int1 = vec_any_ge (i, j);
vec_mtvscr (i);
vec_dssall ();
s = (vector signed short) vec_mfvscr ();
vec_dss (3);
vec_dst (pi, int1 + int2, 3);
vec_dstst (pi, int1 + int2, 3);
vec_dststt (pi, int1 + int2, 3);
vec_dstt (pi, int1 + int2, 3);
uc = (vector unsigned char) vec_lvsl (int1 + 69, (signed int *) pi);
uc = (vector unsigned char) vec_lvsr (int1 + 69, (signed int *) pi);
c = vec_lde (int1, (signed char *) pi);
s = vec_lde (int1, (signed short *) pi);
i = vec_lde (int1, (signed int *) pi);
i = vec_ldl (int1, pi);
i = vec_ld (int1, pi);
vec_st (i, int2, pi);
vec_ste (c, int2, (signed char *) pi);
vec_ste (s, int2, (signed short *) pi);
vec_ste (i, int2, (signed int *) pi);
vec_stl (i, int2, pi);
}
void set_ftz(){
#if defined(__i386__) || defined(__x86_64__)
#ifndef _CRAYC
_MM_SET_FLUSH_ZERO_MODE (_MM_FLUSH_ZERO_ON);
#endif
#elif defined(__PPC__) || defined(__PPC64__)
// Altivec non-IEEE mode for subnormal (denormalized) values.
// m*vscr requires vector types even for writing to registers (disturbing)
// so the high order bits are index'd.
vector unsigned short vscr = vec_mfvscr();
vscr[1] |= 1; // (1<<16) in reg
vec_mtvscr(vscr);
#endif
}
