* eval.c (rb_exc_raise): ANSI style.

(rb_exc_fatal): ditto.
  (rb_raise_jump): ditto.
  (rb_jump_tag): ditto.
  (rb_block_given_p): ditto.

* variable.c (original_module): ditto.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@14596 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akr 2007-12-24 09:25:27 +00:00
parent e2e23e688f
commit 96438d2bd8
3 changed files with 16 additions and 11 deletions

View File

@ -1,3 +1,13 @@
Mon Dec 24 18:23:32 2007 Tanaka Akira <akr@fsij.org>
* eval.c (rb_exc_raise): ANSI style.
(rb_exc_fatal): ditto.
(rb_raise_jump): ditto.
(rb_jump_tag): ditto.
(rb_block_given_p): ditto.
* variable.c (original_module): ditto.
Mon Dec 24 18:05:09 2007 Koichi Sasada <ko1@atdot.net> Mon Dec 24 18:05:09 2007 Koichi Sasada <ko1@atdot.net>
* iseq.c (Init_ISeq): disable ISeq.load() because there is no verifier. * iseq.c (Init_ISeq): disable ISeq.load() because there is no verifier.

14
eval.c
View File

@ -721,15 +721,13 @@ rb_longjmp(int tag, VALUE mesg)
} }
void void
rb_exc_raise(mesg) rb_exc_raise(VALUE mesg)
VALUE mesg;
{ {
rb_longjmp(TAG_RAISE, mesg); rb_longjmp(TAG_RAISE, mesg);
} }
void void
rb_exc_fatal(mesg) rb_exc_fatal(VALUE mesg)
VALUE mesg;
{ {
rb_longjmp(TAG_FATAL, mesg); rb_longjmp(TAG_FATAL, mesg);
} }
@ -829,22 +827,20 @@ rb_make_exception(int argc, VALUE *argv)
} }
void void
rb_raise_jump(mesg) rb_raise_jump(VALUE mesg)
VALUE mesg;
{ {
/* TODO: fix me */ /* TODO: fix me */
rb_longjmp(TAG_RAISE, mesg); rb_longjmp(TAG_RAISE, mesg);
} }
void void
rb_jump_tag(tag) rb_jump_tag(int tag)
int tag;
{ {
JUMP_TAG(tag); JUMP_TAG(tag);
} }
int int
rb_block_given_p() rb_block_given_p(void)
{ {
rb_thread_t *th = GET_THREAD(); rb_thread_t *th = GET_THREAD();
if (GC_GUARDED_PTR_REF(th->cfp->lfp[0])) { if (GC_GUARDED_PTR_REF(th->cfp->lfp[0])) {

View File

@ -1710,8 +1710,7 @@ rb_define_global_const(const char *name, VALUE val)
} }
static VALUE static VALUE
original_module(c) original_module(VALUE c)
VALUE c;
{ {
if (TYPE(c) == T_ICLASS) if (TYPE(c) == T_ICLASS)
return RBASIC(c)->klass; return RBASIC(c)->klass;