* eval_*.h: rename to eval_*.ci.

* common.mk: ditto.
* eval_error.ci: remove ruby_set_current_source().
* error.c, eval.c, ruby.c: ditto.
* eval_safe.c, proc.c: remove unused macros.



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12607 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,15 @@
+Mon Jun 25 04:20:14 2007  Koichi Sasada  <ko1@atdot.net>
+
+	* eval_*.h: rename to eval_*.ci.
+
+	* common.mk: ditto.
+
+	* eval_error.ci: remove ruby_set_current_source().
+
+	* error.c, eval.c, ruby.c: ditto.
+
+	* eval_safe.c, proc.c: remove unused macros.
+
 Mon Jun 25 03:37:20 2007  Koichi Sasada  <ko1@atdot.net>
 
 	* insnhelper.ci (caller_setup_args): add need_block_check option.

common.mk

@@ -407,8 +407,8 @@ error.$(OBJEXT): {$(VPATH)}error.c {$(VPATH)}ruby.h {$(VPATH)}config.h \
   {$(VPATH)}thread_$(THREAD_MODEL).h
 euc_jp.$(OBJEXT): {$(VPATH)}euc_jp.c {$(VPATH)}regenc.h \
   {$(VPATH)}oniguruma.h {$(VPATH)}config.h
-eval.$(OBJEXT): {$(VPATH)}eval.c {$(VPATH)}eval_error.h {$(VPATH)}eval_intern.h \
+eval.$(OBJEXT): {$(VPATH)}eval.c {$(VPATH)}eval_error.ci {$(VPATH)}eval_intern.h \
-  {$(VPATH)}eval_method.h {$(VPATH)}eval_safe.h {$(VPATH)}eval_jump.h \
+  {$(VPATH)}eval_method.ci {$(VPATH)}eval_safe.ci {$(VPATH)}eval_jump.ci \
   {$(VPATH)}ruby.h {$(VPATH)}config.h {$(VPATH)}yarvcore.h \
   {$(VPATH)}defines.h {$(VPATH)}intern.h {$(VPATH)}missing.h \
   {$(VPATH)}node.h {$(VPATH)}util.h {$(VPATH)}signal.h \

error.c

@@ -52,7 +52,6 @@ err_position(char *buf, long len)
 static int
 compile_position(char *buf, long len)
 {
-    ruby_set_current_source();
     return err_position_0(buf, len, ruby_sourcefile, ruby_sourceline);
 }
 

eval.c

@@ -40,10 +40,10 @@ static VALUE eval(VALUE, VALUE, VALUE, char *, int);
 static inline VALUE rb_yield_0(int argc, VALUE *argv);
 static VALUE rb_call(VALUE, VALUE, ID, int, const VALUE *, int);
 
-#include "eval_error.h"
+#include "eval_error.ci"
-#include "eval_method.h"
+#include "eval_method.ci"
-#include "eval_safe.h"
+#include "eval_safe.ci"
-#include "eval_jump.h"
+#include "eval_jump.ci"
 
 /* initialize ruby */
 
@@ -691,7 +691,6 @@ rb_longjmp(int tag, VALUE mesg)
 	mesg = rb_exc_new(rb_eRuntimeError, 0, 0);
     }
 
-    ruby_set_current_source();
     if (ruby_sourcefile && !NIL_P(mesg)) {
 	at = get_backtrace(mesg);
 	if (NIL_P(at)) {
@@ -1708,7 +1707,6 @@ eval(VALUE self, VALUE src, VALUE scope, char *file, int line)
     NODE *stored_cref_stack = 0;
 
     if (file == 0) {
-	ruby_set_current_source();
 	file = ruby_sourcefile;
 	line = ruby_sourceline;
     }

eval_error.ci

@@ -2,17 +2,6 @@
  * included by eval.c
  */
 
-#define SET_CURRENT_SOURCE() ((void)0)
-
-void
-ruby_set_current_source(void)
-{
-    if (ruby_current_node) {
-	ruby_sourcefile = ruby_current_node->nd_file;
-	ruby_sourceline = nd_line(ruby_current_node);
-    }
-}
-
 static void
 warn_printf(const char *fmt, ...)
 {
@@ -31,7 +20,6 @@ warn_printf(const char *fmt, ...)
 static void
 error_pos(void)
 {
-    ruby_set_current_source();
     if (ruby_sourcefile) {
 	if (ruby_sourceline == 0) {
 	    warn_printf("%s", ruby_sourcefile);
@@ -84,7 +72,6 @@ error_print(void)
     if (EXEC_TAG())
 	goto error;
     if (NIL_P(errat)) {
-	ruby_set_current_source();
 	if (ruby_sourcefile)
 	    warn_printf("%s:%d", ruby_sourcefile, ruby_sourceline);
 	else

eval_safe.ci

@@ -10,6 +10,8 @@
    4 - no global (non-tainted) variable modification/no direct output
 */
 
+#define SAFE_LEVEL_MAX 4
+
 int
 rb_safe_level(void)
 {
@@ -22,16 +24,6 @@ rb_set_safe_level_force(int safe)
     GET_THREAD()->safe_level = safe;
 }
 
-static VALUE safe_getter _((void));
-static void safe_setter _((VALUE val));
-
-#define PROC_TSHIFT (FL_USHIFT+1)
-#define PROC_TMASK  (FL_USER1|FL_USER2|FL_USER3)
-#define PROC_TMAX   (PROC_TMASK >> PROC_TSHIFT)
-#define PROC_NOSAFE FL_USER4
-
-#define SAFE_LEVEL_MAX PROC_TMASK
-
 /* $SAFE accessor */
 void
 rb_set_safe_level(int level)

proc.c

@@ -240,13 +240,6 @@ bind_eval(int argc, VALUE *argv, VALUE bindval)
     return rb_f_eval(argc+1, args, Qnil /* self will be searched in eval */);
 }
 
-#define PROC_TSHIFT (FL_USHIFT+1)
-#define PROC_TMASK  (FL_USER1|FL_USER2|FL_USER3)
-#define PROC_TMAX   (PROC_TMASK >> PROC_TSHIFT)
-#define PROC_NOSAFE FL_USER4
-
-#define SAFE_LEVEL_MAX PROC_TMASK
-
 static VALUE
 proc_new(VALUE klass, int is_lambda)
 {

ruby.c

@@ -376,7 +376,6 @@ require_libraries(void)
     ruby_current_node = 0;
     Init_ext();		/* should be called here for some reason :-( */
     ruby_current_node = save[1];
-    ruby_set_current_source();
     req_list_last = 0;
     while (list) {
 	int state;
@@ -390,7 +389,6 @@ require_libraries(void)
 	free(list);
 	list = tmp;
 	ruby_current_node = save[1];
-	ruby_set_current_source();
     }
     req_list_head.next = 0;
     ruby_eval_tree = save[0];