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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [arm/] [aapcs/] [vfp10.c] - Rev 691

Compare with Previous | Blame | View Log

/* Test AAPCS layout (VFP variant) */
 
/* { dg-do run { target arm*-*-*eabi* } } */
/* { dg-require-effective-target arm_hard_vfp_ok } */
/* { dg-require-effective-target arm32 } */
/* { dg-options "-O -mfpu=vfp -mfloat-abi=hard" } */
 
#ifndef IN_FRAMEWORK
#define VFP
#define TESTFILE "vfp10.c"
 
__complex__ x = 1.0+2.0i;
 
struct y
{
  int p;
  int q;
  int r;
  int s;
} v = { 1, 2, 3, 4 };
 
struct z
{
  double x[4];
};
 
struct z a = { 5.0, 6.0, 7.0, 8.0 };
struct z b = { 9.0, 10.0, 11.0, 12.0 };
 
#include "abitest.h"
#else
  /* A variadic function passes using the base ABI */
  ARG(double, 11.0, R0)
  DOTS
  ANON(struct z, a, R2)
  ANON(struct z, b, STACK+24)
  LAST_ANON(double, 0.5, STACK+56)
#endif
 

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.