← Back to branch summary

~ubuntu-branches/ubuntu/natty/libffi/natty

« back to all changes in this revision

Viewing changes to testsuite/libffi.call/many_win32.c

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2008-04-04 21:20:12 UTC
  • Revision ID: james.westby@ubuntu.com-20080404212012-08zs514m24myu0bh
Tags: upstream-3.0.5
Import upstream version 3.0.5

Show diffs side-by-side

added added

removed removed

Lines of Context:
testsuite/libffi.call/many_win32.c
 
1
/* Area:        ffi_call
 
2
   Purpose:     Check stdcall many call on X86_WIN32 systems.
 
3
   Limitations: none.
 
4
   PR:          none.
 
5
   Originator:  From the original ffitest.c  */
 
6
 
 
7
/* { dg-do run { target i?86-*-cygwin* i?86-*-mingw* } } */
 
8
 
 
9
#include "ffitest.h"
 
10
#include <float.h>
 
11
 
 
12
static float __attribute__((stdcall)) stdcall_many(float f1,
 
13
                                                   float f2,
 
14
                                                   float f3,
 
15
                                                   float f4,
 
16
                                                   float f5,
 
17
                                                   float f6,
 
18
                                                   float f7,
 
19
                                                   float f8,
 
20
                                                   float f9,
 
21
                                                   float f10,
 
22
                                                   float f11,
 
23
                                                   float f12,
 
24
                                                   float f13)
 
25
{
 
26
  return ((f1/f2+f3/f4+f5/f6+f7/f8+f9/f10+f11/f12) * f13);
 
27
}
 
28
 
 
29
int main (void)
 
30
{
 
31
  ffi_cif cif;
 
32
  ffi_type *args[13];
 
33
  void *values[13];
 
34
  float fa[13];
 
35
  float f, ff;
 
36
  unsigned long ul;
 
37
 
 
38
  for (ul = 0; ul < 13; ul++)
 
39
    {
 
40
      args[ul] = &ffi_type_float;
 
41
      values[ul] = &fa[ul];
 
42
        fa[ul] = (float) ul;
 
43
    }
 
44
 
 
45
  /* Initialize the cif */
 
46
  CHECK(ffi_prep_cif(&cif, FFI_STDCALL, 13,
 
47
                     &ffi_type_float, args) == FFI_OK);
 
48
 
 
49
  ff =  stdcall_many(fa[0], fa[1],
 
50
                     fa[2], fa[3],
 
51
                     fa[4], fa[5],
 
52
                     fa[6], fa[7],
 
53
                     fa[8], fa[9],
 
54
                     fa[10], fa[11], fa[12]);
 
55
 
 
56
  ffi_call(&cif, FFI_FN(stdcall_many), &f, values);
 
57
 
 
58
  if (f - ff < FLT_EPSILON)
 
59
    printf("stdcall many arg tests ok!\n");
 
60
  else
 
61
    CHECK(0);
 
62
  exit(0);
 
63
}