mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* include/ruby/ruby.h (NUM2INT, NUM2LL, INT2NUM, UINT2NUM),
(LONG2NUM, ULONG2NUM, NUM2CHR): get rid of backward references of macros. the code couldn't compile by VC. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@24917 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
b09845fa70
commit
d8e8849e35
2 changed files with 68 additions and 62 deletions
|
@ -1,3 +1,9 @@
|
||||||
|
Mon Sep 14 09:59:03 2009 NAKAMURA Usaku <usa@ruby-lang.org>
|
||||||
|
|
||||||
|
* include/ruby/ruby.h (NUM2INT, NUM2LL, INT2NUM, UINT2NUM),
|
||||||
|
(LONG2NUM, ULONG2NUM, NUM2CHR): get rid of backward references of
|
||||||
|
macros. the code couldn't compile by VC.
|
||||||
|
|
||||||
Mon Sep 14 08:33:11 2009 Marc-Andre Lafortune <ruby-core@marc-andre.ca>
|
Mon Sep 14 08:33:11 2009 Marc-Andre Lafortune <ruby-core@marc-andre.ca>
|
||||||
|
|
||||||
* lib/net/http.rb (each_*): return enumerator if no block present.
|
* lib/net/http.rb (each_*): return enumerator if no block present.
|
||||||
|
|
|
@ -509,68 +509,6 @@ double rb_num2dbl(VALUE);
|
||||||
VALUE rb_uint2big(VALUE);
|
VALUE rb_uint2big(VALUE);
|
||||||
VALUE rb_int2big(SIGNED_VALUE);
|
VALUE rb_int2big(SIGNED_VALUE);
|
||||||
|
|
||||||
#if SIZEOF_INT < SIZEOF_VALUE
|
|
||||||
# define INT2NUM(v) INT2FIX((int)(v))
|
|
||||||
# define UINT2NUM(v) LONG2FIX((unsigned int)(v))
|
|
||||||
#else
|
|
||||||
# define INT2NUM_internal(v) (FIXABLE(v) ? INT2FIX(v) : rb_int2big(v))
|
|
||||||
# ifdef __GNUC__
|
|
||||||
# define INT2NUM(v) __extension__ ({int int2num_v = (v); INT2NUM_internal(int2num_v);})
|
|
||||||
# else
|
|
||||||
static inline VALUE
|
|
||||||
INT2NUM(int v)
|
|
||||||
{
|
|
||||||
return INT2NUM_internal(v);
|
|
||||||
}
|
|
||||||
# endif
|
|
||||||
|
|
||||||
# define UINT2NUM_internal(v) (POSFIXABLE(v) ? LONG2FIX(v) : rb_uint2big(v))
|
|
||||||
# ifdef __GNUC__
|
|
||||||
# define UINT2NUM(v) __extension__ ({unsigned int uint2num_v = (v); UINT2NUM_internal(uint2num_v);})
|
|
||||||
# else
|
|
||||||
static inline VALUE
|
|
||||||
UINT2NUM(unsigned int v)
|
|
||||||
{
|
|
||||||
return UINT2NUM_internal(v);
|
|
||||||
}
|
|
||||||
# endif
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#define LONG2NUM_internal(v) (FIXABLE(v) ? LONG2FIX(v) : rb_int2big(v))
|
|
||||||
#ifdef __GNUC__
|
|
||||||
# define LONG2NUM(v) __extension__ ({long long2num_v = (v); LONG2NUM_internal(long2num_v);})
|
|
||||||
#else
|
|
||||||
static inline VALUE
|
|
||||||
LONG2NUM(long v)
|
|
||||||
{
|
|
||||||
return LONG2NUM_internal(v);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#define ULONG2NUM_internal(v) (POSFIXABLE(v) ? LONG2FIX(v) : rb_uint2big(v))
|
|
||||||
#ifdef __GNUC__
|
|
||||||
# define ULONG2NUM(v) __extension__ ({unsigned long ulong2num_v = (v); ULONG2NUM_internal(ulong2num_v);})
|
|
||||||
#else
|
|
||||||
static inline VALUE
|
|
||||||
ULONG2NUM(unsigned long v)
|
|
||||||
{
|
|
||||||
return ULONG2NUM_internal(v);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#define NUM2CHR_internal(x) (((TYPE(x) == T_STRING)&&(RSTRING_LEN(x)>=1))?\
|
|
||||||
RSTRING_PTR(x)[0]:(char)(NUM2INT(x)&0xff))
|
|
||||||
#ifdef __GNUC__
|
|
||||||
# define NUM2CHR(x) ({VALUE num2chr_x = (x); NUM2CHR_internal(num2chr_x);})
|
|
||||||
#else
|
|
||||||
static inline char
|
|
||||||
NUM2CHR(VALUE x)
|
|
||||||
{
|
|
||||||
return NUM2CHR_internal(x);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
#define CHR2FIX(x) INT2FIX((long)((x)&0xff))
|
|
||||||
|
|
||||||
VALUE rb_newobj(void);
|
VALUE rb_newobj(void);
|
||||||
#define NEWOBJ(obj,type) type *obj = (type*)rb_newobj()
|
#define NEWOBJ(obj,type) type *obj = (type*)rb_newobj()
|
||||||
#define OBJSETUP(obj,c,t) do {\
|
#define OBJSETUP(obj,c,t) do {\
|
||||||
|
@ -960,6 +898,68 @@ struct RBignum {
|
||||||
#define OBJ_FROZEN(x) (!!FL_TEST((x), FL_FREEZE))
|
#define OBJ_FROZEN(x) (!!FL_TEST((x), FL_FREEZE))
|
||||||
#define OBJ_FREEZE(x) FL_SET((x), FL_FREEZE)
|
#define OBJ_FREEZE(x) FL_SET((x), FL_FREEZE)
|
||||||
|
|
||||||
|
#if SIZEOF_INT < SIZEOF_VALUE
|
||||||
|
# define INT2NUM(v) INT2FIX((int)(v))
|
||||||
|
# define UINT2NUM(v) LONG2FIX((unsigned int)(v))
|
||||||
|
#else
|
||||||
|
# define INT2NUM_internal(v) (FIXABLE(v) ? INT2FIX(v) : rb_int2big(v))
|
||||||
|
# ifdef __GNUC__
|
||||||
|
# define INT2NUM(v) __extension__ ({int int2num_v = (v); INT2NUM_internal(int2num_v);})
|
||||||
|
# else
|
||||||
|
static inline VALUE
|
||||||
|
INT2NUM(int v)
|
||||||
|
{
|
||||||
|
return INT2NUM_internal(v);
|
||||||
|
}
|
||||||
|
# endif
|
||||||
|
|
||||||
|
# define UINT2NUM_internal(v) (POSFIXABLE(v) ? LONG2FIX(v) : rb_uint2big(v))
|
||||||
|
# ifdef __GNUC__
|
||||||
|
# define UINT2NUM(v) __extension__ ({unsigned int uint2num_v = (v); UINT2NUM_internal(uint2num_v);})
|
||||||
|
# else
|
||||||
|
static inline VALUE
|
||||||
|
UINT2NUM(unsigned int v)
|
||||||
|
{
|
||||||
|
return UINT2NUM_internal(v);
|
||||||
|
}
|
||||||
|
# endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define LONG2NUM_internal(v) (FIXABLE(v) ? LONG2FIX(v) : rb_int2big(v))
|
||||||
|
#ifdef __GNUC__
|
||||||
|
# define LONG2NUM(v) __extension__ ({long long2num_v = (v); LONG2NUM_internal(long2num_v);})
|
||||||
|
#else
|
||||||
|
static inline VALUE
|
||||||
|
LONG2NUM(long v)
|
||||||
|
{
|
||||||
|
return LONG2NUM_internal(v);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define ULONG2NUM_internal(v) (POSFIXABLE(v) ? LONG2FIX(v) : rb_uint2big(v))
|
||||||
|
#ifdef __GNUC__
|
||||||
|
# define ULONG2NUM(v) __extension__ ({unsigned long ulong2num_v = (v); ULONG2NUM_internal(ulong2num_v);})
|
||||||
|
#else
|
||||||
|
static inline VALUE
|
||||||
|
ULONG2NUM(unsigned long v)
|
||||||
|
{
|
||||||
|
return ULONG2NUM_internal(v);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define NUM2CHR_internal(x) (((TYPE(x) == T_STRING)&&(RSTRING_LEN(x)>=1))?\
|
||||||
|
RSTRING_PTR(x)[0]:(char)(NUM2INT(x)&0xff))
|
||||||
|
#ifdef __GNUC__
|
||||||
|
# define NUM2CHR(x) ({VALUE num2chr_x = (x); NUM2CHR_internal(num2chr_x);})
|
||||||
|
#else
|
||||||
|
static inline char
|
||||||
|
NUM2CHR(VALUE x)
|
||||||
|
{
|
||||||
|
return NUM2CHR_internal(x);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#define CHR2FIX(x) INT2FIX((long)((x)&0xff))
|
||||||
|
|
||||||
#define ALLOC_N(type,n) (type*)xmalloc2((n),sizeof(type))
|
#define ALLOC_N(type,n) (type*)xmalloc2((n),sizeof(type))
|
||||||
#define ALLOC(type) (type*)xmalloc(sizeof(type))
|
#define ALLOC(type) (type*)xmalloc(sizeof(type))
|
||||||
#define REALLOC_N(var,type,n) (var)=(type*)xrealloc2((char*)(var),(n),sizeof(type))
|
#define REALLOC_N(var,type,n) (var)=(type*)xrealloc2((char*)(var),(n),sizeof(type))
|
||||||
|
|
Loading…
Add table
Reference in a new issue