kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* include/ruby/ruby.h (NUM2LONG): make it inline function to evaluete

Browse source 
the argument only once.
  `t = Object.new; def t.*(x) p x; 0 end; p Time.at(0, t)' did print x
  twice.
  (NUM2INT): ditto.
  (NUM2LL): ditto.
  (INT2NUM): make it inline function.
  (LONG2NUM): ditto.
  (UINT2NUM): ditto.
  (ULONG2NUM): ditto.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@18762 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akr 2008-08-21 18:49:13 +00:00
parent fbc6ea6c95
commit 9ee7875162
2 changed files with 57 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
ChangeLog
View file

@ -1,3 +1,16 @@
Fri Aug 22 03:19:41 2008 Tanaka Akira <akr@fsij.org>
* include/ruby/ruby.h (NUM2LONG): make it inline function to evaluete
the argument only once.
`t = Object.new; def t.*(x) p x; 0 end; p Time.at(0, t)' did print x
twice.
(NUM2INT): ditto.
(NUM2LL): ditto.
(INT2NUM): make it inline function.
(LONG2NUM): ditto.
(UINT2NUM): ditto.
(ULONG2NUM): ditto.
Fri Aug 22 03:03:22 2008 Tanaka Akira <akr@fsij.org>
* io.c (rb_io_s_sysopen): mode can be a Bignum.

51
include/ruby/ruby.h
View file

@ -185,12 +185,10 @@ typedef unsigned LONG_LONG ID;
#define LONG2FIX(i) INT2FIX(i)
#define rb_fix_new(v) INT2FIX(v)
VALUE rb_int2inum(SIGNED_VALUE);
#define INT2NUM(v) rb_int2inum(v)
#define LONG2NUM(v) INT2NUM(v)
#define rb_int_new(v) rb_int2inum(v)
VALUE rb_uint2inum(VALUE);
#define UINT2NUM(v) rb_uint2inum(v)
#define ULONG2NUM(v) UINT2NUM(v)
#define rb_uint_new(v) rb_uint2inum(v)
#ifdef HAVE_LONG_LONG
@ -397,11 +395,19 @@ void rb_set_errinfo(VALUE);
SIGNED_VALUE rb_num2long(VALUE);
VALUE rb_num2ulong(VALUE);
#define NUM2LONG(x) (FIXNUM_P(x)?FIX2LONG(x):rb_num2long((VALUE)x))
static inline long
NUM2LONG(VALUE x)
{
return FIXNUM_P(x) ? FIX2LONG(x) : rb_num2long(x);
}
#define NUM2ULONG(x) rb_num2ulong((VALUE)x)
#if SIZEOF_INT < SIZEOF_LONG
long rb_num2int(VALUE);
#define NUM2INT(x) ((int)(FIXNUM_P(x)?FIX2INT(x):rb_num2int((VALUE)x)))
static inline int
NUM2INT(VALUE x)
{
return FIXNUM_P(x) ? FIX2INT(x) : rb_num2int(x);
}
long rb_fix2int(VALUE);
#define FIX2INT(x) ((int)rb_fix2int((VALUE)x))
unsigned long rb_num2uint(VALUE);
@ -418,7 +424,11 @@ unsigned long rb_fix2uint(VALUE);
#ifdef HAVE_LONG_LONG
LONG_LONG rb_num2ll(VALUE);
unsigned LONG_LONG rb_num2ull(VALUE);
# define NUM2LL(x) (FIXNUM_P(x)?FIX2LONG(x):rb_num2ll((VALUE)x))
static inline LONG_LONG
NUM2LL(VALUE x)
{
return FIXNUM_P(x) ? FIX2LONG(x) : rb_num2ll(x);
}
# define NUM2ULL(x) rb_num2ull((VALUE)x)
#endif
@ -439,6 +449,33 @@ unsigned LONG_LONG rb_num2ull(VALUE);
double rb_num2dbl(VALUE);
#define NUM2DBL(x) rb_num2dbl((VALUE)(x))
VALUE rb_uint2big(VALUE);
VALUE rb_int2big(SIGNED_VALUE);
static inline VALUE
INT2NUM(int v)
{
if (FIXABLE(v)) return INT2FIX(v);
return rb_int2big(v);
}
static inline VALUE
LONG2NUM(long v)
{
if (FIXABLE(v)) return LONG2FIX(v);
return rb_int2big(v);
}
static inline VALUE
UINT2NUM(unsigned int v)
{
if (POSFIXABLE(v)) return LONG2FIX(v);
return rb_uint2big(v);
}
static inline VALUE
ULONG2NUM(unsigned long v)
{
if (POSFIXABLE(v)) return LONG2FIX(v);
return rb_uint2big(v);
}
/* obsolete API - use StringValue() */
char *rb_str2cstr(VALUE,long*);
/* obsolete API - use StringValuePtr() */