gcc/testsuite/jit.dg/test-error-local-used-from-other-function.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      fn_one ()
  15      {
  16        int i;
  17      }
  18
  19      int
  20      fn_two ()
  21      {
  22        return i;
  23      }
  24
  25      and verify that the API complains about the use of the local
  26      from the other function.  */
  27   gcc_jit_type *void_type =
  28     gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_VOID);
  29   gcc_jit_type *int_type =
  30     gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_INT);
  31
  32   gcc_jit_function *fn_one =
  33     gcc_jit_context_new_function (ctxt, NULL,
  34                                   GCC_JIT_FUNCTION_EXPORTED,
  35                                   void_type,
  36                                   "fn_one",
  37                                   0, NULL,
  38                                   0);
  39   gcc_jit_lvalue *local =
  40     gcc_jit_function_new_local (fn_one, NULL, int_type, "i");
  41
  42   gcc_jit_function *fn_two =
  43     gcc_jit_context_new_function (ctxt, NULL,
  44                                   GCC_JIT_FUNCTION_EXPORTED,
  45                                   int_type,
  46                                   "fn_two",
  47                                   0, NULL,
  48                                   0);
  49
  50   gcc_jit_block *block = gcc_jit_function_new_block (fn_two, NULL);
  51   /* "return i;", using local i from the wrong function.  */
  52   gcc_jit_block_end_with_return (block,
  53                                  NULL,
  54                                  gcc_jit_lvalue_as_rvalue (local));
  55 }
  56
  57 void
  58 verify_code (gcc_jit_context *ctxt, gcc_jit_result *result)
  59 {
  60   CHECK_VALUE (result, NULL);
  61
  62   /* Verify that the correct error message was emitted.  */
  63   CHECK_STRING_VALUE (gcc_jit_context_get_first_error (ctxt),
  64                       ("gcc_jit_block_end_with_return:"
  65                        " rvalue i (type: int)"
  66                        " has scope limited to function fn_one"
  67                        " but was used within function fn_two"
  68                        " (in statement: return i;)"));
  69 }
  70