1#include <stdlib.h>
2#include <stdio.h>
3#include <stddef.h>
4
5#include "libgccjit.h"
6
7#include "harness.h"
8
9#define BUFFER_SIZE (1024)
10
11char test_buffer[1024];
12
13void
14create_code (gcc_jit_context *ctxt, void *user_data)
15{
16  /* Let's try to inject the equivalent of:
17        void test_of_array_as_pointer (const char *name)
18        {
19            snprintf (test_buffer, sizeof (test_buffer),
20	              "hello %s", name);
21        }
22    */
23  gcc_jit_type *void_type =
24    gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_VOID);
25  gcc_jit_type *const_char_ptr_type =
26    gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_CONST_CHAR_PTR);
27  gcc_jit_type *char_type =
28    gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_CHAR);
29  gcc_jit_type *char_ptr_type =
30    gcc_jit_type_get_pointer (char_type);
31  gcc_jit_type *int_type =
32    gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_INT);
33  gcc_jit_type *size_t_type =
34    gcc_jit_context_get_type (ctxt, GCC_JIT_TYPE_SIZE_T);
35  gcc_jit_type *buf_type =
36    gcc_jit_context_new_array_type (ctxt, NULL, char_type, BUFFER_SIZE);
37
38  /* extern int snprintf(char *str, size_t size, const char *format, ...); */
39  gcc_jit_param *param_s =
40    gcc_jit_context_new_param (ctxt, NULL, char_ptr_type, "s");
41  gcc_jit_param *param_n =
42    gcc_jit_context_new_param (ctxt, NULL, size_t_type, "n");
43  gcc_jit_param *param_format =
44    gcc_jit_context_new_param (ctxt, NULL, const_char_ptr_type, "format");
45  gcc_jit_param *snprintf_params[3] = {param_s, param_n, param_format};
46  gcc_jit_function *snprintf =
47    gcc_jit_context_new_function (ctxt, NULL,
48				  GCC_JIT_FUNCTION_IMPORTED,
49				  int_type,
50				  "snprintf",
51				  3, snprintf_params,
52				  1);
53
54  gcc_jit_param *param_name =
55    gcc_jit_context_new_param (ctxt, NULL, const_char_ptr_type, "name");
56  gcc_jit_function *test_fn =
57    gcc_jit_context_new_function (ctxt, NULL,
58				  GCC_JIT_FUNCTION_EXPORTED,
59				  void_type,
60				  "test_of_array_as_pointer",
61				  1, &param_name,
62				  0);
63
64  gcc_jit_lvalue *buffer =
65    gcc_jit_context_new_global (ctxt, NULL,
66				GCC_JIT_GLOBAL_IMPORTED,
67				buf_type,
68				"test_buffer");
69
70  gcc_jit_block *block = gcc_jit_function_new_block(test_fn, "entry");
71
72  /* snprintf(buffer, sizeof(buffer), "hello %s", name); */
73  gcc_jit_rvalue *args[4];
74  args[0] = gcc_jit_context_new_cast (
75    ctxt, NULL,
76    /* Here's the difference with test-array-as-pointer.c: */
77    gcc_jit_lvalue_as_rvalue (buffer),
78    char_ptr_type);
79  args[1] = gcc_jit_context_new_rvalue_from_int (ctxt,
80						 size_t_type,
81						 BUFFER_SIZE);
82  args[2] = gcc_jit_context_new_string_literal (ctxt, "hello %s");
83  args[3] = gcc_jit_param_as_rvalue (param_name);
84
85  gcc_jit_block_add_eval (
86    block, NULL,
87    gcc_jit_context_new_call (ctxt, NULL, snprintf, 4, args));
88  gcc_jit_block_end_with_void_return (block, NULL);
89}
90
91void
92verify_code (gcc_jit_context *ctxt, gcc_jit_result *result)
93{
94  CHECK_VALUE (result, NULL);
95
96  /* Verify that the correct error message was emitted.  */
97  CHECK_STRING_VALUE (gcc_jit_context_get_first_error (ctxt),
98		      "gcc_jit_context_new_cast:"
99		      " cannot cast test_buffer"
100		      " from type: char[1024]"
101		      " to type: char *");
102}
103