nobu	2011-01-27 08:32:22 +0900 (Thu, 27 Jan 2011)

  New Revision: 30661

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=30661

  Log:
    * include/ruby/ruby.h (ALLOCV): new API for exception-safe
      temporary buffer.  [ruby-core:34844]
    * string.c (rb_alloc_tmp_buffer, rb_free_tmp_buffer):
      implementation of the API.

  Modified files:
    trunk/ChangeLog
    trunk/include/ruby/ruby.h
    trunk/string.c

Index: include/ruby/ruby.h
===================================================================
--- include/ruby/ruby.h	(revision 30660)
+++ include/ruby/ruby.h	(revision 30661)
@@ -1028,6 +1028,18 @@
 
 #define ALLOCA_N(type,n) (type*)alloca(sizeof(type)*(n))
 
+void *rb_alloc_tmp_buffer(volatile VALUE *store, long len);
+void rb_free_tmp_buffer(volatile VALUE *store);
+/* allocates _n_ bytes temporary buffer and stores VALUE including it
+ * in _v_.  _n_ may be evaluated twice. */
+#ifdef C_ALLOCA
+# define ALLOCV(v, n) rb_alloc_tmp_buffer(&(v), (n))
+#else
+# define ALLOCV(v, n) ((n) < 1024 ? (RB_GC_GUARD(v) = 0, alloca(n)) : rb_alloc_tmp_buffer(&(v), (n)))
+#endif
+#define ALLOCV_N(type, v, n) (type*)ALLOCV((v), sizeof(type)*(n))
+#define ALLOCV_END(v) rb_free_tmp_buffer(&(v))
+
 #define MEMZERO(p,type,n) memset((p), 0, sizeof(type)*(n))
 #define MEMCPY(p1,p2,type,n) memcpy((p1), (p2), sizeof(type)*(n))
 #define MEMMOVE(p1,p2,type,n) memmove((p1), (p2), sizeof(type)*(n))
Index: ChangeLog
===================================================================
--- ChangeLog	(revision 30660)
+++ ChangeLog	(revision 30661)
@@ -1,3 +1,11 @@
+Thu Jan 27 08:32:17 2011  Nobuyoshi Nakada  <nobu@r...>
+
+	* include/ruby/ruby.h (ALLOCV): new API for exception-safe
+	  temporary buffer.  [ruby-core:34844]
+
+	* string.c (rb_alloc_tmp_buffer, rb_free_tmp_buffer):
+	  implementation of the API.
+
 Thu Jan 27 08:22:49 2011  Nobuyoshi Nakada  <nobu@r...>
 
 	* dln_find.c (dln_find_1): use rb_warning and return immediately
Index: string.c
===================================================================
--- string.c	(revision 30660)
+++ string.c	(revision 30661)
@@ -45,6 +45,8 @@
 #undef rb_str_buf_cat2
 #undef rb_str_cat2
 
+static VALUE rb_str_clear(VALUE str);
+
 VALUE rb_cString;
 VALUE rb_cSymbol;
 
@@ -765,7 +767,23 @@
     return str_new(0, 0, len);
 }
 
+void *
+rb_alloc_tmp_buffer(volatile VALUE *store, long len)
+{
+    VALUE s = rb_str_tmp_new(len);
+    *store = s;
+    return RSTRING_PTR(s);
+}
+
 void
+rb_free_tmp_buffer(volatile VALUE *store)
+{
+    VALUE s = *store;
+    *store = 0;
+    if (s) rb_str_clear(s);
+}
+
+void
 rb_str_free(VALUE str)
 {
     if (!STR_EMBED_P(str) && !STR_SHARED_P(str)) {

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/