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_fn (void *some_ptr)
      15       {
      16          ((some_unspecified_fn_ptr_type)some_ptr) (42);
      17       }
      18  
      19       and verify that the API complains about the 42 not being a
      20       function pointer.  */
      21    gcc_jit_type *void_type =
      22      gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_VOID);
      23    gcc_jit_type *void_ptr_type =
      24      gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_VOID_PTR);
      25    gcc_jit_type *int_type =
      26      gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_INT);
      27  
      28    /* Build the test_fn.  */
      29    gcc_jit_param *some_ptr =
      30      gcc_jit_context_new_param (ctxt, NULL, void_ptr_type, "some_ptr");
      31  
      32    gcc_jit_function *test_fn =
      33      gcc_jit_context_new_function (ctxt, NULL,
      34                                    GCC_JIT_FUNCTION_EXPORTED,
      35                                    void_type,
      36                                    "test_fn",
      37                                    1, &some_ptr,
      38                                    0);
      39    gcc_jit_rvalue *arg =
      40      gcc_jit_context_new_rvalue_from_int (ctxt, int_type, 42);
      41  
      42    /* ((some_unspecified_fn_ptr_type)some_ptr) (42); */
      43    gcc_jit_block *block = gcc_jit_function_new_block (test_fn, NULL);
      44    gcc_jit_block_add_eval (
      45      block, NULL,
      46      gcc_jit_context_new_call_through_ptr (
      47        ctxt,
      48        NULL,
      49        /* This is not a function pointer.  */
      50        gcc_jit_param_as_rvalue (some_ptr),
      51        1, &arg));
      52    gcc_jit_block_end_with_void_return (block, NULL);
      53  }
      54  
      55  void
      56  verify_code (gcc_jit_context *ctxt, gcc_jit_result *result)
      57  {
      58    CHECK_VALUE (result, NULL);
      59  
      60    /* Verify that the correct error message was emitted.  */
      61    CHECK_STRING_VALUE (gcc_jit_context_get_first_error (ctxt),
      62  		      ("gcc_jit_context_new_call_through_ptr:"
      63  		       " fn_ptr is not a function ptr: some_ptr type: void *"));
      64  }
      65