gcc/testsuite/jit.dg/test-error-call-through-ptr-with-not-enough-args.c

   1 #include <stdlib.h>
   2 #include <stdio.h>
   3
   4 #include "libgccjit.h"
   5
   6 #include "harness.h"
   7
   8 void
   9 create_code (gcc_jit_context *ctxt, void *user_data)
  10 {
  11   /* Let's try to inject the equivalent of:
  12
  13      void
  14      test_caller (void (*some_fn_ptr) (int p))
  15      {
  16         called_function (); // missing arg
  17      }
  18
  19      and verify that the API complains about the missing argument.
  20   */
  21   gcc_jit_type *void_type =
  22     gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_VOID);
  23   gcc_jit_type *int_type =
  24     gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_INT);
  25
  26   /* Build the function ptr type.  */
  27   gcc_jit_type *fn_ptr_type =
  28     gcc_jit_context_new_function_ptr_type (ctxt, NULL,
  29                                            void_type,
  30                                            1, &int_type, 0);
  31
  32   /* Build the test_fn.  */
  33   gcc_jit_param *param_fn_ptr =
  34     gcc_jit_context_new_param (ctxt, NULL, fn_ptr_type, "some_fn_ptr");
  35
  36   gcc_jit_function *test_fn =
  37     gcc_jit_context_new_function (ctxt, NULL,
  38                                   GCC_JIT_FUNCTION_EXPORTED,
  39                                   void_type,
  40                                   "test_caller",
  41                                   1, &param_fn_ptr,
  42                                   0);
  43
  44   gcc_jit_block *block = gcc_jit_function_new_block (test_fn, NULL);
  45   /* called_function ();  */
  46   gcc_jit_block_add_eval (
  47     block, NULL,
  48     gcc_jit_context_new_call_through_ptr (
  49       ctxt,
  50       NULL,
  51       gcc_jit_param_as_rvalue (param_fn_ptr),
  52       0, NULL));
  53   /* the above has not enough args.  */
  54   gcc_jit_block_end_with_void_return (block, NULL);
  55 }
  56
  57 void
  58 verify_code (gcc_jit_context *ctxt, gcc_jit_result *result)
  59 {
  60   /* Ensure that mismatching arg count leads to the API giving a NULL
  61      result back.  */
  62   CHECK_VALUE (result, NULL);
  63
  64   /* Verify that the correct error message was emitted.  */
  65   CHECK_STRING_VALUE (gcc_jit_context_get_first_error (ctxt),
  66                       ("gcc_jit_context_new_call_through_ptr:"
  67                        " not enough arguments to fn_ptr: some_fn_ptr"
  68                        " (got 0 args, expected 1)"));
  69 }
  70