Skip to content

Commit c9f9582

Browse files
Sten22rurban
authored andcommitted
C: Fix lexwarnsym on windows
use sizesize for size_t (STRLEN lexwarn size), no longsize. Fixes #418 Signed-off-by: Reini Urban <[email protected]>
1 parent 7ac946c commit c9f9582

File tree

2 files changed

+5
-4
lines changed

2 files changed

+5
-4
lines changed

Makefile.PL

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -115,8 +115,9 @@ sub write_b_c_config {
115115
# easier hash key/value slices only came with 5.22
116116
for my $s (qw(archname cc ccflags
117117
d_c99_variadic_macros d_dlopen d_isinf d_isnan d_longdbl dlext
118-
i_dlfcn ivdformat ivsize longsize mad nvgformat ptrsize static_ext
119-
usecperl usedl useithreads uselongdouble usemultiplicity usemymalloc uvuformat))
118+
i_dlfcn ivdformat ivsize longsize mad nvgformat ptrsize sizesize
119+
static_ext usecperl usedl useithreads uselongdouble usemultiplicity
120+
usemymalloc uvuformat))
120121
{
121122
if ($CORE) {
122123
my $v = $Config::Config{$s};

lib/B/C.pm

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3414,8 +3414,8 @@ sub lexwarnsym {
34143414
$init->add( sprintf( "%s = newSVpvn(%s, %u);", $sym, $cstring, $cur));
34153415
} else {
34163416
# if 8 use UVSIZE, if 4 use LONGSIZE
3417-
my $t = ($Config{longsize} == 8) ? "J" : "L";
3418-
my ($iv) = unpack($t, $pv); # unsigned longsize
3417+
my $t = ($Config{sizesize} == 8) ? "J" : "L";
3418+
my ($iv) = unpack($t, $pv); # size_t
34193419
if ($iv >= 0 and $iv <= 2) { # specialWARN: single STRLEN
34203420
$decl->add( sprintf( "Static const STRLEN* %s = %d;", $sym, $iv ));
34213421
$isint = 1;

0 commit comments

Comments
 (0)