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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libffi/] [testsuite/] [libffi.call/] [cls_ushort.c] - Blame information for rev 854

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

Line No. Rev Author Line
1 732 jeremybenn
/* Area:        closure_call
2
   Purpose:     Check return value ushort.
3
   Limitations: none.
4
   PR:          none.
5
   Originator:  <andreast@gcc.gnu.org> 20030828  */
6
 
7
/* { dg-do run } */
8
#include "ffitest.h"
9
 
10
static void cls_ret_ushort_fn(ffi_cif* cif __UNUSED__, void* resp, void** args,
11
                              void* userdata __UNUSED__)
12
{
13
  *(ffi_arg*)resp = *(unsigned short *)args[0];
14
 
15
  printf("%d: %d\n",*(unsigned short *)args[0],
16
         (int)*(ffi_arg *)(resp));
17
}
18
typedef unsigned short (*cls_ret_ushort)(unsigned short);
19
 
20
int main (void)
21
{
22
  ffi_cif cif;
23
  void *code;
24
  ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
25
  ffi_type * cl_arg_types[2];
26
  unsigned short res;
27
 
28
  cl_arg_types[0] = &ffi_type_ushort;
29
  cl_arg_types[1] = NULL;
30
 
31
  /* Initialize the cif */
32
  CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1,
33
                     &ffi_type_ushort, cl_arg_types) == FFI_OK);
34
 
35
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_ret_ushort_fn, NULL, code)  == FFI_OK);
36
 
37
  res = (*((cls_ret_ushort)code))(65535);
38
  /* { dg-output "65535: 65535" } */
39
  printf("res: %d\n",res);
40
  /* { dg-output "\nres: 65535" } */
41
 
42
  exit(0);
43
}

powered by: WebSVN 2.1.0

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