From d05190e895c385f2438b0aa7e624345abdbb6f7b Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 12 Aug 2008 06:39:08 +0000
Subject: * string.c (rb_str_intern): should check symbol table overflow.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@18519 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 string.c | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

(limited to 'string.c')

diff --git a/string.c b/string.c
index e14f298cc..ba2c454df 100644
--- a/string.c
+++ b/string.c
@@ -5840,10 +5840,25 @@ VALUE
 rb_str_intern(VALUE s)
 {
     VALUE str = RB_GC_GUARD(s);
-    ID id;
+    VALUE sym;
+    ID id, id2;
 
     id = rb_intern_str(str);
-    return ID2SYM(id);
+    sym = ID2SYM(id);
+    id2 = SYM2ID(sym);
+    if (id != id2) {
+	char *name = rb_id2name(id2);
+
+	if (name) {
+	    rb_raise(rb_eRuntimeError, "symbol table overflow (%s given for %s)",
+		     name, RSTRING_PTR(str));
+	}
+	else {
+	    rb_raise(rb_eRuntimeError, "symbol table overflow (symbol %s)",
+		     RSTRING_PTR(str));
+	}
+    }
+    return sym;
 }
 
 
-- 
cgit