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.target/] [arm/] [aapcs/] [vfp12.c] - Rev 313

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 "vfp12.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
  ARG(int, 7, R0)
  ARG(struct y, v, R1)
  ARG(struct z, a, D0)
  ARG(double, 1.0, D4)
  ARG(struct z, b, STACK+8)
  LAST_ARG(double, 0.5, STACK+40)
#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.