diff options
author | naruse <naruse@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2010-10-18 04:12:35 +0000 |
---|---|---|
committer | naruse <naruse@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2010-10-18 04:12:35 +0000 |
commit | 0a8d8b8a684dc66669c6b2add3637c78673a97fe (patch) | |
tree | fa17f1f7a71fac9a5fe7e08109fba48645237aa3 /pack.c | |
parent | b2556b548104edc594b10af20982fa23bc3ce928 (diff) |
* pack.c (pack_pack): Add native size option ! to q and Q.
[ruby-dev:42375]
* pack.c (pack_unpack): ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@29527 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'pack.c')
-rw-r--r-- | pack.c | 26 |
1 files changed, 15 insertions, 11 deletions
@@ -20,10 +20,6 @@ ((__GNUC__ > (major)) || \ (__GNUC__ == (major) && __GNUC_MINOR__ > (minor)) || \ (__GNUC__ == (major) && __GNUC_MINOR__ == (minor) && __GNUC_PATCHLEVEL__ >= (patchlevel)))) - -#define SIZE16 2 -#define SIZE32 4 - #if SIZEOF_SHORT != 2 || SIZEOF_LONG != 4 # define NATINT_PACK #endif @@ -52,8 +48,15 @@ #ifdef NATINT_PACK # define NATINT_LEN(type,len) (natint?(int)sizeof(type):(int)(len)) +# ifdef LONG_LONG_ +# define NATLL_LEN() NATINT_LEN(LONG_LONG, 8); +# else +# define NATLL_LEN() natint ? \ + rb_raise(rb_eNotImpError,"this machine doesn't have long long"),0 : 8 +# endif #else # define NATINT_LEN(type,len) ((int)sizeof(type)) +# define NATLL_LEN() 8 #endif #if SIZEOF_LONG == 8 @@ -280,7 +283,6 @@ num2i32(VALUE x) return 0; /* not reached */ } -#define QUAD_SIZE 8 #define MAX_INTEGER_PACK_SIZE 8 /* #define FORCE_BIG_PACK */ @@ -333,10 +335,12 @@ static unsigned long utf8_to_uv(const char*,long*); * S_, S! | Integer | unsigned short, native endian * I, I_, I! | Integer | unsigned int, native endian * L_, L! | Integer | unsigned long, native endian + * Q_, Q! | Integer | unsigned long long, native endian * | | * s_, s! | Integer | signed short, native endian * i, i_, i! | Integer | signed int, native endian * l_, l! | Integer | signed long, native endian + * q_, q! | Integer | signed long long, native endian * | | * S> L> Q> | Integer | same as the directives without ">" except * s> l> q> | | big endian @@ -442,7 +446,7 @@ pack_pack(VALUE ary, VALUE fmt) } { - static const char natstr[] = "sSiIlL"; + static const char natstr[] = "sSiIlLqQ"; static const char endstr[] = "sSiIlLqQ"; modifiers: @@ -716,13 +720,13 @@ pack_pack(VALUE ary, VALUE fmt) case 'q': /* signed quad (64bit) int */ signed_p = 1; - integer_size = 8; + integer_size = NATLL_LEN(); bigendian_p = BIGENDIAN_P(); goto pack_integer; case 'Q': /* unsigned quad (64bit) int */ signed_p = 0; - integer_size = 8; + integer_size = NATLL_LEN(); bigendian_p = BIGENDIAN_P(); goto pack_integer; @@ -1397,7 +1401,7 @@ pack_unpack(VALUE str, VALUE fmt) star = 0; { - static const char natstr[] = "sSiIlL"; + static const char natstr[] = "sSiIlLqQ"; static const char endstr[] = "sSiIlLqQ"; modifiers: @@ -1626,13 +1630,13 @@ pack_unpack(VALUE str, VALUE fmt) case 'q': signed_p = 1; - integer_size = QUAD_SIZE; + integer_size = NATLL_LEN(); bigendian_p = BIGENDIAN_P(); goto unpack_integer; case 'Q': signed_p = 0; - integer_size = QUAD_SIZE; + integer_size = NATLL_LEN(); bigendian_p = BIGENDIAN_P(); goto unpack_integer; |