Author: ko1
Date: 2005-08-15 10:49:17 +0900 (Mon, 15 Aug 2005)
New Revision: 232

Modified:
   trunk/ChangeLog
   trunk/eval.c
   trunk/test.rb
Log:
	* eval.c : support rb_laod



Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog	2005-08-15 00:55:30 UTC (rev 231)
+++ trunk/ChangeLog	2005-08-15 01:49:17 UTC (rev 232)
@@ -4,6 +4,11 @@
 #  from Mon, 03 May 2004 01:24:19 +0900
 #
 
+2005-08-15(Mon) 10:48:53 +0900  Koichi Sasada  <ko1 atdot.net>
+
+	* eval.c : support rb_laod
+
+
 2005-08-15(Mon) 09:42:01 +0900  Koichi Sasada  <ko1 atdot.net>
 
 	* yarvcore.h : define SDR()

Modified: trunk/eval.c
===================================================================
--- trunk/eval.c	2005-08-15 00:55:30 UTC (rev 231)
+++ trunk/eval.c	2005-08-15 01:49:17 UTC (rev 232)
@@ -4235,21 +4235,7 @@
     }
     ruby_current_node = 0;
     if (state == 0) {
-	NODE * volatile node;
-	volatile int critical;
-
-	DEFER_INTS;
-	ruby_in_eval++;
-	critical = rb_thread_critical;
-	rb_thread_critical = Qtrue;
-	rb_load_file(RSTRING(fname)->ptr);
-	ruby_in_eval--;
-	node = ruby_eval_tree;
-	rb_thread_critical = critical;
-	ALLOW_INTS;
-	if (ruby_nerrs == 0) {
-          rb_bug("load");
-	}
+      yarv_load(RSTRING(fname)->ptr);
     }
     ruby_frame->callee = callee;
     ruby_frame->this_func = this_func;

Modified: trunk/test.rb
===================================================================
--- trunk/test.rb	2005-08-15 00:55:30 UTC (rev 231)
+++ trunk/test.rb	2005-08-15 01:49:17 UTC (rev 232)
@@ -1,11 +1,13 @@
-
 $prog = <<'__EOP__'
+##################################################################
+# write your test program
 
-p 1
-100
+require 'r'
 
+##################################################################
 __EOP__
 
+
 $prog = <<__EOP__
 p eval(%q{
 #{$prog}})


--
ML: yarv-diff quickml.atdot.net
Info: http://www.atdot.net/~ko1/quickml