From fedfa6e5fac9ffc3b1ac7fbbcbaec39ca0cf54a1 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 11 Oct 2006 05:57:19 +0000
Subject: * ext/digest/sha1/sha1ossl.h: libssl 0.9.8c-3 defines no  
 SHA_BLOCK_LENGTH.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11123 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 array.c | 34 +++++++++++++++++++++-------------
 1 file changed, 21 insertions(+), 13 deletions(-)

(limited to 'array.c')

diff --git a/array.c b/array.c
index a833e54157..e488b556d2 100644
--- a/array.c
+++ b/array.c
@@ -1227,6 +1227,24 @@ rb_ary_insert(int argc, VALUE *argv, VALUE ary)
     return ary;
 }
 
+VALUE
+each_internal(VALUE ary)
+{
+    long i;
+
+    for (i=0; i<RARRAY_LEN(ary); i++) {
+	rb_yield(RARRAY_PTR(ary)[i]);
+    }
+    return ary;
+}
+
+static VALUE
+iter_unlock(VALUE ary)
+{
+    FL_UNSET(ary, ARY_TMPLOCK);
+    return ary;
+}
+
 /*
  *  call-seq:
  *     array.each {|item| block }   ->   array
@@ -1245,12 +1263,9 @@ rb_ary_insert(int argc, VALUE *argv, VALUE ary)
 VALUE
 rb_ary_each(VALUE ary)
 {
-    long i;
-
     RETURN_ENUMERATOR(ary, 0, 0);
-    for (i=0; i<RARRAY_LEN(ary); i++) {
-	rb_yield(RARRAY_PTR(ary)[i]);
-    }
+    FL_SET(ary, ARY_TMPLOCK);	/* prohibit modification during each */
+    rb_ensure(each_internal, ary, iter_unlock, ary);
     return ary;
 }
 
@@ -1623,13 +1638,6 @@ sort_internal(VALUE ary)
     return ary;
 }
 
-static VALUE
-sort_unlock(VALUE ary)
-{
-    FL_UNSET(ary, ARY_TMPLOCK);
-    return ary;
-}
-
 /*
  *  call-seq:
  *     array.sort!                   -> array
@@ -1652,7 +1660,7 @@ rb_ary_sort_bang(VALUE ary)
     rb_ary_modify(ary);
     if (RARRAY_LEN(ary) > 1) {
 	FL_SET(ary, ARY_TMPLOCK);	/* prohibit modification during sort */
-	rb_ensure(sort_internal, ary, sort_unlock, ary);
+	rb_ensure(sort_internal, ary, iter_unlock, ary);
     }
     return ary;
 }
-- 
cgit v1.2.3