- 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;
+ 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;
+ }