* eval.c (rb_mod_freeze): prepare string representation before

matz · matz · commit 36eb46078053 · 2004-06-16T14:21:34.000Z
freezing. [ruby-talk:103646]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6469 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jun 16 23:05:57 2004  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* object.c (rb_mod_freeze): prepare string representation before
+	  freezing. [ruby-talk:103646]
+
 Wed Jun 16 16:04:40 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* object.c (rb_mod_le): singleton class inherits Class rather than its
diff --git a/eval.c b/eval.c
@@ -8031,8 +8031,6 @@ static int
 block_orphan(data)
     struct BLOCK *data;
 {
-    struct tag *tt;
-
     if (data->scope->flags & SCOPE_NOSTACK) {
 	return 1;
     }
diff --git a/numeric.c b/numeric.c
@@ -12,6 +12,7 @@
 
 #include "ruby.h"
 #include "env.h"
+#include <ctype.h>
 #include <math.h>
 #include <stdio.h>
 
diff --git a/object.c b/object.c
@@ -1239,6 +1239,21 @@ rb_mod_to_s(klass)
     return rb_str_dup(rb_class_path(klass));
 }
 
+/*
+ *  call-seq:
+ *     mod.freeze
+ *  
+ *  Prevents further modifications to <i>mod</i>.
+ */
+
+static VALUE
+rb_mod_freeze(mod)
+    VALUE mod;
+{
+    rb_mod_to_s(mod);
+    return rb_obj_freeze(mod);
+}
+
 /*
  *  call-seq:
  *     mod === obj    => true or false
@@ -2570,6 +2585,7 @@ Init_Object()
     rb_define_method(rb_cSymbol, "id2name", sym_to_s, 0);
     rb_define_method(rb_cSymbol, "to_sym", sym_to_sym, 0);
 
+    rb_define_method(rb_cModule, "freeze", rb_mod_freeze, 0);
     rb_define_method(rb_cModule, "===", rb_mod_eqq, 1);
     rb_define_method(rb_cModule, "==", rb_obj_equal, 1);
     rb_define_method(rb_cModule, "<=>",  rb_mod_cmp, 1);

Original file line number	Diff line number	Diff line change
`@@ -8031,8 +8031,6 @@ static int`
`8031`	`8031`	`block_orphan(data)`
`8032`	`8032`	`struct BLOCK *data;`
`8033`	`8033`	`{`
`8034`		`- struct tag *tt;`
`8035`		`-`
`8036`	`8034`	`if (data->scope->flags & SCOPE_NOSTACK) {`
`8037`	`8035`	`return 1;`
`8038`	`8036`	`}`