Message ID | 4B1EA309.7050106@scarlet.be (mailing list archive) |
---|---|
State | Mainlined, archived |
Headers | show |
--- cgcc.orig 2009-11-28 17:41:28.000000000 +0000 +++ cgcc 2009-12-06 11:55:32.000000000 +0000 @@ -133,7 +133,7 @@ my @types = (['SCHAR',''], ['SHRT',''], ['INT',''], ['LONG','L'], ['LONG_LONG','LL'], ['LONG_LONG_LONG','LLL']); my $result = " -D__CHAR_BIT__=$char"; - while (@types) { + while (@types && @_) { my $bits = shift @_; my ($name,$suffix) = @{ shift @types }; die "$0: weird number of bits." unless exists $pow2m1{$bits};