-{
- my $bits = $unit->{bits};
- push @DEFINES, '-DBV_UNIT="' . ($Config{"u${bits}type"} || "U$bits") . '"';
- push @DEFINES, "-DSVU_SIZE=$bits";
+if (defined $cc and defined $ld) {
+ $PARAMS{C} = [ 'Util.c' ];
+ $PARAMS{XS} = { 'Util.xs' => 'Util.c' };
+ $PARAMS{CC} = $cc;
+ $PARAMS{LD} = $ld;
+
+ my $type = filter_argv UNIT => sub { return $_[0] };
+ if (defined $type) {
+ print "Forcing '$type' as the unit.\n";
+ push @DEFINES, '-DBV_UNIT="' . $type . '"';
+ } else {
+ my $bits = 8;
+ if (not is_little_endian()) {
+ print "Forcing unit size of 8 on non-little-endian systems.\n";
+ } else {
+ print "Checking unit size in bits... ";
+ my $size = 1;
+ my $align = $Config{alignbytes} || 1;
+ my @units = (8, 16, 32, 64);
+ for my $unit (@units) {
+ my $unit_size = $Config{"u${unit}size"};
+ if ($unit_size and $unit_size <= $align) {
+ $bits = $unit;
+ $size = $unit_size;
+ }
+ }
+ print "$bits (actually $size bytes for $align bytes alignment).\n";
+ }
+ push @DEFINES, '-DBV_UNIT="' . ($Config{"u${bits}type"} || "U$bits") . '"';
+ push @DEFINES, "-DSVU_SIZE=$bits";
+ }
+} else {
+ $PARAMS{C} = [ ];
+ $PARAMS{XS} = { };
+ $PARAMS{OBJECT} = '';
+ print "Falling back to the pure-Perl implementation.\n";