Permalink
Cannot retrieve contributors at this time
| #ifndef RUBY_INTERNAL_H /*-*-C-*-vi:se ft=c:*/ | |
| #define RUBY_INTERNAL_H 1 | |
| /** | |
| * @file | |
| * @author $Author$ | |
| * @date Tue May 17 11:42:20 JST 2011 | |
| * @copyright Copyright (C) 2011 Yukihiro Matsumoto | |
| * @copyright This file is a part of the programming language Ruby. | |
| * Permission is hereby granted, to either redistribute and/or | |
| * modify this file, provided that the conditions mentioned in the | |
| * file COPYING are met. Consult the file for details. | |
| */ | |
| #include "ruby/internal/config.h" | |
| #ifdef __cplusplus | |
| # error not for C++ | |
| #endif | |
| #define LIKELY(x) RB_LIKELY(x) | |
| #define UNLIKELY(x) RB_UNLIKELY(x) | |
| #define numberof(array) ((int)(sizeof(array) / sizeof((array)[0]))) | |
| #define roomof(x, y) (((x) + (y) - 1) / (y)) | |
| #define type_roomof(x, y) roomof(sizeof(x), sizeof(y)) | |
| /* Prevent compiler from reordering access */ | |
| #define ACCESS_ONCE(type,x) (*((volatile type *)&(x))) | |
| #include "ruby/ruby.h" | |
| /* Following macros were formerly defined in this header but moved to somewhere | |
| * else. In order to detect them we undef here. */ | |
| /* internal/array.h */ | |
| #undef RARRAY_AREF | |
| /* internal/class.h */ | |
| #undef RClass | |
| #undef RCLASS_SUPER | |
| /* internal/gc.h */ | |
| #undef NEWOBJ_OF | |
| #undef RB_NEWOBJ_OF | |
| #undef RB_OBJ_WRITE | |
| /* internal/hash.h */ | |
| #undef RHASH_IFNONE | |
| #undef RHASH_SIZE | |
| #undef RHASH_TBL | |
| #undef RHASH_EMPTY_P | |
| /* internal/object.h */ | |
| #undef ROBJECT_IV_INDEX_TBL | |
| /* internal/struct.h */ | |
| #undef RSTRUCT_LEN | |
| #undef RSTRUCT_PTR | |
| #undef RSTRUCT_SET | |
| #undef RSTRUCT_GET | |
| /* Also, we keep the following macros here. They are expected to be | |
| * overridden in each headers. */ | |
| /* internal/array.h */ | |
| #define rb_ary_new_from_args(...) rb_nonexistent_symbol(__VA_ARGS__) | |
| /* internal/io.h */ | |
| #define rb_io_fptr_finalize(...) rb_nonexistent_symbol(__VA_ARGS__) | |
| /* internal/string.h */ | |
| #define rb_fstring_cstr(...) rb_nonexistent_symbol(__VA_ARGS__) | |
| /* internal/symbol.h */ | |
| #define rb_sym_intern_ascii_cstr(...) rb_nonexistent_symbol(__VA_ARGS__) | |
| /* internal/vm.h */ | |
| #define rb_funcallv(...) rb_nonexistent_symbol(__VA_ARGS__) | |
| #define rb_method_basic_definition_p(...) rb_nonexistent_symbol(__VA_ARGS__) | |
| /* MRI debug support */ | |
| /* gc.c */ | |
| void rb_obj_info_dump(VALUE obj); | |
| void rb_obj_info_dump_loc(VALUE obj, const char *file, int line, const char *func); | |
| /* debug.c */ | |
| RUBY_SYMBOL_EXPORT_BEGIN | |
| void ruby_debug_breakpoint(void); | |
| PRINTF_ARGS(void ruby_debug_printf(const char*, ...), 1, 2); | |
| RUBY_SYMBOL_EXPORT_END | |
| // show obj data structure without any side-effect | |
| #define rp(obj) rb_obj_info_dump_loc((VALUE)(obj), __FILE__, __LINE__, RUBY_FUNCTION_NAME_STRING) | |
| // same as rp, but add message header | |
| #define rp_m(msg, obj) do { \ | |
| fprintf(stderr, "%s", (msg)); \ | |
| rb_obj_info_dump((VALUE)obj); \ | |
| } while (0) | |
| // `ruby_debug_breakpoint()` does nothing, | |
| // but breakpoint is set in run.gdb, so `make gdb` can stop here. | |
| #define bp() ruby_debug_breakpoint() | |
| #endif /* RUBY_INTERNAL_H */ |