Casts to pointer from integer of different size?

[Maxime Devos]

Hi guilers,

While debugging a build failure of guile on the core-updates branch
of guix (see https://isues.guix.gnu.org/49368) when build for
i686 (guix build --system=i686-linux), I noticed some following warnings
which look suspicious (plenty of tests are passing though, it is only
the test numbers.test that fails).

If they actually are harmless, can "vm-engine.c" be compiled with
-Wno-int-to-pointer-cast?

Greetings,
Maxime 

vm-engine.c: In function 'vm_regular_engine':
../libguile/scm.h:176:23: warning: cast to pointer from integer of different 
size [-Wint-to-pointer-cast]
  176 | # define SCM_PACK(x) ((SCM) (x))
      |                       ^
../libguile/gc.h:49:72: note: in definition of macro 'SCM_GC_SET_CELL_OBJECT'
   49 | #define SCM_GC_SET_CELL_OBJECT(x, n, v) ((((SCM *)SCM2PTR (x)) [n]) = 
(v))
      |                                                                        ^
../libguile/gc.h:51:38: note: in expansion of macro 'SCM_PACK'
   51 |   (SCM_GC_SET_CELL_OBJECT ((x), (n), SCM_PACK (v)))
      |                                      ^~~~~~~~
../libguile/gc.h:67:36: note: in expansion of macro 'SCM_GC_SET_CELL_WORD'
   67 | #define SCM_SET_CELL_WORD(x, n, v) SCM_GC_SET_CELL_WORD ((x), (n), (v))
      |                                    ^~~~~~~~~~~~~~~~~~~~
vm-engine.c:1964:7: note: in expansion of macro 'SCM_SET_CELL_WORD'
 1964 |       SCM_SET_CELL_WORD (SP_REF (obj), SP_REF_U64 (idx), SP_REF_U64 
(val));
      |       ^~~~~~~~~~~~~~~~~
../libguile/scm.h:176:23: warning: cast to pointer from integer of different 
size [-Wint-to-pointer-cast]
  176 | # define SCM_PACK(x) ((SCM) (x))
      |                       ^
../libguile/gc.h:49:72: note: in definition of macro 'SCM_GC_SET_CELL_OBJECT'
   49 | #define SCM_GC_SET_CELL_OBJECT(x, n, v) ((((SCM *)SCM2PTR (x)) [n]) = 
(v))
      |                                                                        ^
../libguile/gc.h:51:38: note: in expansion of macro 'SCM_PACK'
   51 |   (SCM_GC_SET_CELL_OBJECT ((x), (n), SCM_PACK (v)))
      |                                      ^~~~~~~~
../libguile/gc.h:67:36: note: in expansion of macro 'SCM_GC_SET_CELL_WORD'
   67 | #define SCM_SET_CELL_WORD(x, n, v) SCM_GC_SET_CELL_WORD ((x), (n), (v))
      |                                    ^~~~~~~~~~~~~~~~~~~~
vm-engine.c:1996:7: note: in expansion of macro 'SCM_SET_CELL_WORD'
 1996 |       SCM_SET_CELL_WORD (SP_REF (obj), idx, SP_REF_U64 (val));
      |       ^~~~~~~~~~~~~~~~~
vm-engine.c: In function 'vm_debug_engine':
../libguile/scm.h:176:23: warning: cast to pointer from integer of different 
size [-Wint-to-pointer-cast]
  176 | # define SCM_PACK(x) ((SCM) (x))
      |                       ^
../libguile/gc.h:49:72: note: in definition of macro 'SCM_GC_SET_CELL_OBJECT'
   49 | #define SCM_GC_SET_CELL_OBJECT(x, n, v) ((((SCM *)SCM2PTR (x)) [n]) = 
(v))
      |                                                                        ^
../libguile/gc.h:51:38: note: in expansion of macro 'SCM_PACK'
   51 |   (SCM_GC_SET_CELL_OBJECT ((x), (n), SCM_PACK (v)))
      |                                      ^~~~~~~~
../libguile/gc.h:67:36: note: in expansion of macro 'SCM_GC_SET_CELL_WORD'
   67 | #define SCM_SET_CELL_WORD(x, n, v) SCM_GC_SET_CELL_WORD ((x), (n), (v))
      |                                    ^~~~~~~~~~~~~~~~~~~~
vm-engine.c:1964:7: note: in expansion of macro 'SCM_SET_CELL_WORD'
 1964 |       SCM_SET_CELL_WORD (SP_REF (obj), SP_REF_U64 (idx), SP_REF_U64 
(val));
      |       ^~~~~~~~~~~~~~~~~
../libguile/scm.h:176:23: warning: cast to pointer from integer of different 
size [-Wint-to-pointer-cast]
  176 | # define SCM_PACK(x) ((SCM) (x))
      |                       ^
../libguile/gc.h:49:72: note: in definition of macro 'SCM_GC_SET_CELL_OBJECT'
   49 | #define SCM_GC_SET_CELL_OBJECT(x, n, v) ((((SCM *)SCM2PTR (x)) [n]) = 
(v))
      |                                                                        ^
../libguile/gc.h:51:38: note: in expansion of macro 'SCM_PACK'
   51 |   (SCM_GC_SET_CELL_OBJECT ((x), (n), SCM_PACK (v)))
      |                                      ^~~~~~~~
../libguile/gc.h:67:36: note: in expansion of macro 'SCM_GC_SET_CELL_WORD'
   67 | #define SCM_SET_CELL_WORD(x, n, v) SCM_GC_SET_CELL_WORD ((x), (n), (v))
      |                                    ^~~~~~~~~~~~~~~~~~~~
vm-engine.c:1996:7: note: in expansion of macro 'SCM_SET_CELL_WORD'
 1996 |       SCM_SET_CELL_WORD (SP_REF (obj), idx, SP_REF_U64 (val));

signature.asc
Description: This is a digitally signed message part