summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-11-18 20:20:54 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2014-11-18 20:20:54 -0500
commit3ef6b8e9a9da2a3d97ef32e4df629373ca2ab5f9 (patch)
treeb52ee9712850370832e231c0b15d8d96f7b1c2fd /util.c
parentd9c672b1f02c5ff634d77faf243344343bb4aaea (diff)
downloadperl-3ef6b8e9a9da2a3d97ef32e4df629373ca2ab5f9.tar.gz
Try making gcc happy about casting U32 to void*.
util.c: In function ‘I32 Perl_xs_handshake(U32, void*, const char*, ...)’: util.c:5389:39: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
Diffstat (limited to 'util.c')
-rw-r--r--util.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/util.c b/util.c
index 35ab0876bb..d1a13a22e5 100644
--- a/util.c
+++ b/util.c
@@ -5386,9 +5386,9 @@ Perl_xs_handshake(const U32 key, void * v_my_perl, const char * file, ...)
PERL_ARGS_ASSERT_XS_HANDSHAKE;
va_start(args, file);
- got = (void *)(key & HSm_KEY_MATCH);
+ got = INT2PTR(void*, (UV)(key & HSm_KEY_MATCH));
need = (void *)(HS_KEY(FALSE, FALSE, "", "") & HSm_KEY_MATCH);
- if(UNLIKELY(got != need))
+ if (UNLIKELY(got != need))
goto bad_handshake;
/* try to catch where a 2nd threaded perl interp DLL is loaded into a process
by a XS DLL compiled against the wrong interl DLL b/c of bad @INC, and the