OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [tree-vect.h] - Rev 298

Compare with Previous | Blame | View Log

/* Check if system supports SIMD */
#include <signal.h>
 
#if defined(__i386__) || defined(__x86_64__)
# include "cpuid.h"
#endif
 
extern void abort (void);
extern void exit (int);
 
static void
sig_ill_handler (int sig)
{
  exit(0);
}
 
static void __attribute__((noinline))
check_vect (void)
{
  signal(SIGILL, sig_ill_handler);
#if defined(__PAIRED__)
  /* 750CL paired-single instruction, 'ps_mul %v0,%v0,%v0'.  */
 asm volatile (".long 0x10000032");
#elif defined(__ppc__) || defined(__ppc64__) || defined(__powerpc__) || defined(powerpc)
  /* Altivec instruction, 'vor %v0,%v0,%v0'.  */
  asm volatile (".long 0x10000484");
#elif defined(__i386__) || defined(__x86_64__)
  {
    int a, b, c, d, want_level, want_c, want_d;
 
    /* Determine what instruction set we've been compiled for, and detect
       that we're running with it.  This allows us to at least do a compile
       check for, e.g. SSE4.1 when the machine only supports SSE2.  */
# ifdef __XOP__
    want_level = 0x80000001, want_c = bit_XOP, want_d = 0;
# elif defined(__AVX__)
    want_level = 1, want_c = bit_AVX, want_d = 0;
# elif defined(__SSE4_1__)
    want_level = 1, want_c = bit_SSE4_1, want_d = 0;
# elif defined(__SSSE3__)
    want_level = 1, want_c = bit_SSSE3, want_d = 0;
# else
    want_level = 1, want_c = 0, want_d = bit_SSE2;
#  if defined(__sun__) && defined(__svr4__)
    /* Before Solaris 9 4/04, trying to execute an SSE2 instruction gives
       SIGILL even if the CPU can handle them.  */
    asm volatile ("unpcklpd %xmm0,%xmm2");
#  endif
# endif
 
    if (!__get_cpuid (want_level, &a, &b, &c, &d)
	|| ((c & want_c) | (d & want_d)) == 0)
      exit (0);
  }
#elif defined(__sparc__)
  asm volatile (".word\t0x81b007c0");
#elif defined(__arm__)
  {
    /* On some processors without NEON support, this instruction may
       be a no-op, on others it may trap, so check that it executes
       correctly.  */
    long long a = 0, b = 1;
    asm ("vorr %P0, %P1, %P2"
	 : "=w" (a)
	 : "0" (a), "w" (b));
    if (a != 1)
      exit (0);
  }
#endif
  signal (SIGILL, SIG_DFL);
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.