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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [fnptr-by-value-1_y.c] - Rev 154

Go to most recent revision | Compare with Previous | Blame | View Log

#include <stdarg.h>
 
#include "compat-common.h"
 
typedef void (*fpi)(int);
typedef void (*fpd)(double);
 
extern int f1_val;
extern void checki (int, int);
 
void
test1a (fpi f)
{
  (*f)(1);
}
 
void
test1b (fpi f, int i)
{
  (*f)(i);
}
 
void
test1c (double x, fpd f)
{
  (*f)(x);
}
 
void
test2a (fpi f1, fpd f2)
{
  (*f1)(10);
  (*f2)(10.0);
}
 
void
test2b (fpi f1, fpd f2, int i)
{
  (*f1)(i);
  (*f2)((double)i);
}
 
void
test2c (fpi f1, int i, fpd f2)
{
  (*f1)(i);
  (*f2)((double)i);
}
 
void
test2d (int i, fpi f1, fpd f2)
{
  (*f1)(i);
  (*f2)((double)i);
}
 
void
test2e (fpi f1, fpd f2, int i, double x)
{
  (*f1)(i);
  (*f2)(x);
}
 
void
test2f (fpi f1, int i, fpd f2, double x)
{
  (*f1)(i);
  (*f2)(x);
}
 
void
test2g (fpi f1, int i, double x, fpd f2)
{
  (*f1)(i);
  (*f2)(x);
}
 
void
test2h (double x, fpd f1, fpi f2, int i)
{
  (*f1)(x);
  (*f2)(i);
}
 
void
test2i (double x, fpd f1, int i, fpi f2)
{
  (*f1)(x);
  (*f2)(i);
}
 
void
test2j (int i, double x, fpi f1, fpd f2)
{
  (*f1)(i);
  (*f2)(x);
}
 
void
testva (int n, ...)
{
  int i;
  va_list ap;
  va_start (ap, n);
  for (i = 0; i < n; i++)
    {
      fpi fp = va_arg (ap, fpi);
      (*fp)(i);
      checki (f1_val, i);
    }
}
 

Go to most recent revision | 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.