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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.target/] [mips/] [args-3.c] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
/* __mips, and related defines, guarantee that certain assembly
2
   instructions can be used.  Check a few examples.  */
3
/* { dg-do run } */
4
extern void abort (void);
5
extern void exit (int);
6
 
7
typedef int int32 __attribute__ ((mode (SI)));
8
typedef int int64 __attribute__ ((mode (DI)));
9
int foo (float inf, int64 in64, int32 in32)
10
{
11
  int64 res64;
12
  int32 res32;
13
 
14
#if __mips != 1 && defined (__mips_hard_float)
15
  __asm__ ("trunc.w.s %0, %1" : "=f" (res32) : "f" (inf));
16
  if (res32 != 11)
17
    abort ();
18
#endif
19
 
20
#if defined (__mips64)
21
  __asm__ ("daddu %0, %1, %1" : "=r" (res64) : "r" (in64));
22
  if (res64 != 50)
23
    abort ();
24
#endif
25
 
26
#if (__mips == 4 || __mips == 32 || __mips == 64) && !defined (__mips16)
27
  __asm__ ("move %0,%.\n\tmovn %0,%1,%2"
28
           : "=&r" (res32) : "r" (in32), "r" (in64 != 0));
29
  if (res32 != 60)
30
    abort ();
31
#endif
32
}
33
 
34
int main ()
35
{
36
  foo (11.4f, 25, 60);
37
  exit (0);
38
}

powered by: WebSVN 2.1.0

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