53 if (obj1 == obj2)
return Qtrue;
97 if (obj1 == obj2)
return Qtrue;
115 #if SIZEOF_LONG == SIZEOF_VOIDP
117 #elif SIZEOF_LONG_LONG == SIZEOF_VOIDP
120 # error not supported
219 ROBJECT(dest)->as.heap.ivptr = 0;
220 ROBJECT(dest)->as.heap.numiv = 0;
221 ROBJECT(dest)->as.heap.iv_index_tbl = 0;
223 if (
RBASIC(obj)->flags & ROBJECT_EMBED) {
231 ROBJECT(dest)->as.heap.ivptr = ptr;
233 ROBJECT(dest)->as.heap.iv_index_tbl =
ROBJECT(obj)->as.heap.iv_index_tbl;
234 RBASIC(dest)->flags &= ~ROBJECT_EMBED;
333 if (obj == orig)
return obj;
365 str =
rb_sprintf(
"#<%s:%p>", cname, (
void*)obj);
442 for (i = 0; i <
len; i++) {
910 if (!immediate_frozen_tbl) {
935 if (!immediate_frozen_tbl)
return Qfalse;
1243 if (obj1 == obj2 ||
rb_equal(obj1, obj2))
1357 if (mod == arg)
return Qtrue;
1358 switch (
TYPE(arg)) {
1393 if (mod == arg)
return Qfalse;
1413 switch (
TYPE(arg)) {
1438 if (mod == arg)
return Qfalse;
1458 if (mod == arg)
return INT2FIX(0);
1459 switch (
TYPE(arg)) {
1480 RBASIC(mod)->klass = klass;
1707 for (i=0; i<
argc; i++) {
1716 if (argc == 2 && (argv[1] ==
Qtrue || argv[1] ==
Qfalse)) {
1717 rb_warning(
"optional boolean argument is obsoleted");
1737 for (i=0; i<
argc; i++) {
1763 for (i=0; i<
argc; i++) {
2067 NIL_P(val) ?
"nil" :
2068 val ==
Qtrue ?
"true" :
2069 val ==
Qfalse ?
"false" :
2083 if (
TYPE(val) == type)
return val;
2085 if (
TYPE(v) != type) {
2099 if (
TYPE(val) == type && type !=
T_DATA)
return val;
2102 if (
TYPE(v) != type) {
2152 switch (
TYPE(val)) {
2154 if (base != 0)
goto arg_error;
2163 if (base != 0)
goto arg_error;
2171 if (base != 0)
goto arg_error;
2180 if (!
NIL_P(tmp))
goto string_conv;
2245 const char *ellipsis =
"";
2247 enum {max_width = 20};
2248 #define OutOfRange() ((end - p > max_width) ? \
2249 (w = max_width, ellipsis = "...") : \
2250 (w = (int)(end - p), ellipsis = ""))
2256 if (!badcheck && p[0] ==
'0' && (p[1] ==
'x' || p[1] ==
'X')) {
2261 if (
errno == ERANGE) {
2263 rb_warning(
"Float %.*s%s out of range", w, p, ellipsis);
2276 char *e = buf +
sizeof(
buf) - 1;
2279 while (p < end && n < e) prev = *n++ = *p++;
2289 while (*++p ==
'_');
2294 if (n < e) *n++ = prev;
2299 if (!badcheck && p[0] ==
'0' && (p[1] ==
'x' || p[1] ==
'X')) {
2304 if (
errno == ERANGE) {
2306 rb_warning(
"Float %.*s%s out of range", w, p, ellipsis);
2310 if (!end || p == end)
goto bad;
2311 while (*end &&
ISSPACE(*end)) end++;
2315 if (
errno == ERANGE) {
2335 if (badcheck && memchr(s,
'\0', len)) {
2354 switch (
TYPE(val)) {
2400 NIL_P(val) ?
"nil" :
2401 val ==
Qtrue ?
"true" :
2402 val ==
Qfalse ?
"false" :
2421 switch (
TYPE(val)) {
2658 #define rb_intern(str) rb_intern_const(str)