Attachment 589756 Details for Bug 829187 – test_c.c

test_c.c

test_c.c (text/x-csrc), 1.17 KB, created by Richard W.M. Jones on 2012-06-06 07:57:09 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Richard W.M. Jones

Created: 2012-06-06 07:57:09 UTC

Size: 1.17 KB

patch

obsolete

>#include <stdio.h>
>#include <stdlib.h>
>#include <assert.h>
>
>#include <caml/config.h>
>#include <caml/memory.h>
>#include <caml/mlvalues.h>
>
>value
>test_c (value v1, value v2, value v3, value v4, value v5,
>        value v6, value v7, value v8, value v9, value v10,
>        value v11, value v12, value v13, value v14, value v15)
>{
>  CAMLparam5 (v1, v2, v3, v4, v5);
>  CAMLxparam5 (v6, v7, v8, v9, v10);
>  CAMLxparam5 (v11, v12, v13, v14, v15);
>
>  printf ("%d\n", Int_val (v1));
>  printf ("%d\n", Int_val (v2));
>  printf ("%d\n", Int_val (v3));
>  printf ("%d\n", Int_val (v4));
>  printf ("%d\n", Int_val (v5));
>
>  printf ("%d\n", Int_val (v6));
>  printf ("%d\n", Int_val (v7));
>  printf ("%d\n", Int_val (v8));
>  printf ("%d\n", Int_val (v9));
>  printf ("%d\n", Int_val (v10));
>
>  printf ("%d\n", Int_val (v11));
>  printf ("%d\n", Int_val (v12));
>  printf ("%d\n", Int_val (v13));
>  printf ("%d\n", Int_val (v14));
>  printf ("%d\n", Int_val (v15));
>
>  CAMLreturn (Val_unit);
>}
>
>value
>test_c_byte (value *argv, int argn)
>{
>  assert (argn == 15);
>  return test_c (argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14]);
>}

Actions: View

Attachments on bug 829187: 589756 | 589757