This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Need a cast to avoid a compiler warning.
authorNicholas Clark <nick@ccl4.org>
Mon, 30 May 2005 07:43:05 +0000 (07:43 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 30 May 2005 07:43:05 +0000 (07:43 +0000)
p4raw-id: //depot/perl@24621

ext/ByteLoader/bytecode.h

index a503627..70a7238 100644 (file)
@@ -347,7 +347,7 @@ typedef char *pvindex;
        mg_set(*hv_store(GvHV(gv_fetchpv("SIG", TRUE, SVt_PVHV)),       \
                name, strlen(name), cv, 0))
 
-#define BSET_xhv_name(hv, name)        Perl_hv_name_set(aTHX_ hv, name, strlen(name), 0)
+#define BSET_xhv_name(hv, name)        Perl_hv_name_set(aTHX_ (HV*)hv, name, strlen(name), 0)
 
 /* NOTE: the bytecode header only sanity-checks the bytecode. If a script cares about
  * what version of Perl it's being called under, it should do a 'use 5.006_001' or