feature/native-comp 6449a05 4/6: * Clean-up unnecessary lisp_X context definition

[Andrea Corallo]

branch: feature/native-comp
commit 6449a058b150edd2a5997d761a284ad6b9b5aa97
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Clean-up unnecessary lisp_X context definition
    
        * src/comp.c (Fcomp__init_ctxt, comp_t): Remove lisp_X
        definition as is used only locally.
---
 src/comp.c | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/src/comp.c b/src/comp.c
index 9171a6a..b2dbfe8 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -489,9 +489,6 @@ typedef struct {
   gcc_jit_type *ptrdiff_type;
   gcc_jit_type *uintptr_type;
   gcc_jit_type *size_t_type;
-#if LISP_WORDS_ARE_POINTERS
-  gcc_jit_type *lisp_X;
-#endif
   gcc_jit_type *lisp_word_type;
   gcc_jit_type *lisp_word_tag_type;
 #ifdef LISP_OBJECT_IS_STRUCT
@@ -3811,11 +3808,12 @@ DEFUN ("comp--init-ctxt", Fcomp__init_ctxt, 
Scomp__init_ctxt,
                                                       sizeof (EMACS_UINT),
                                                       false);
 #if LISP_WORDS_ARE_POINTERS
-  comp.lisp_X =
-    gcc_jit_struct_as_type (gcc_jit_context_new_opaque_struct (comp.ctxt,
-                                                              NULL,
-                                                              "Lisp_X"));
-  comp.lisp_word_type = gcc_jit_type_get_pointer (comp.lisp_X);
+  comp.lisp_word_type =
+    gcc_jit_type_get_pointer (
+      gcc_jit_struct_as_type (
+       gcc_jit_context_new_opaque_struct (comp.ctxt,
+                                          NULL,
+                                          "Lisp_X")));
 #else
   comp.lisp_word_type = comp.emacs_int_type;
 #endif