mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-27 10:21:14 -08:00
Code Issues Projects Releases Wiki Activity

add uintptr_type

Browse source
This commit is contained in:
Andrea Corallo 2019-06-26 22:28:56 +02:00 • committed by Andrea Corallo
parent 0b7ea16547
commit 5e3b3e95a9
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/comp.c
View file

@ -187,6 +187,7 @@ typedef struct {
gcc_jit_type *void_ptr_type;
gcc_jit_type *char_ptr_type;
gcc_jit_type *ptrdiff_type;
gcc_jit_type *uintptr_type;
gcc_jit_type *lisp_obj_type;
gcc_jit_type *lisp_obj_ptr_type;
gcc_jit_field *lisp_obj_as_ptr;
@ -1649,9 +1650,19 @@ init_comp (int opt_level)
ptrdiff_t_gcc = GCC_JIT_TYPE_LONG_LONG;
else
eassert ("ptrdiff_t size not handled.");
comp.ptrdiff_type = gcc_jit_context_get_type (comp.ctxt, ptrdiff_t_gcc);
enum gcc_jit_types uintptr_t_gcc;
if (sizeof (uintptr_t) == sizeof (unsigned))
uintptr_t_gcc = GCC_JIT_TYPE_UNSIGNED_INT;
else if (sizeof (uintptr_t) == sizeof (unsigned long))
uintptr_t_gcc = GCC_JIT_TYPE_UNSIGNED_LONG;
else if (sizeof (uintptr_t) == sizeof (unsigned long long))
uintptr_t_gcc = GCC_JIT_TYPE_UNSIGNED_LONG_LONG;
else
eassert ("uintptr_t size not handled.");
comp.uintptr_type = gcc_jit_context_get_type (comp.ctxt, uintptr_t_gcc);
comp.func_hash = CALLN (Fmake_hash_table, QCtest, Qequal, QCweakness, Qt);
/* Define data structures. */