From 4595d9a3c98bfc759f4c3361adb20a9213ec610c Mon Sep 17 00:00:00 2001
From: glass <glass@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 18 Jul 2013 12:21:51 +0000
Subject: [PATCH] * array.c (rb_ary_equal): compare RARRAY_PTR() for
 performance   improvement in case of that self and other are shared.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@42043 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog | 5 +++++
 array.c   | 1 +
 2 files changed, 6 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 3ed5462fd3..33b8af84d5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Thu Jul 18 21:15:41 2013  Masaki Matsushita  <glass.saga@gmail.com>
+
+	* array.c (rb_ary_equal): compare RARRAY_PTR() for performance
+	  improvement in case of that self and other are shared.
+
 Thu Jul 18 20:44:51 2013  Masaki Matsushita  <glass.saga@gmail.com>
 
 	* array.c (rb_ary_fill): use memfill().
diff --git a/array.c b/array.c
index d2b45d9312..f145bc8d8d 100644
--- a/array.c
+++ b/array.c
@@ -3637,6 +3637,7 @@ rb_ary_equal(VALUE ary1, VALUE ary2)
 	return rb_equal(ary2, ary1);
     }
     if (RARRAY_LEN(ary1) != RARRAY_LEN(ary2)) return Qfalse;
+    if (RARRAY_PTR(ary1) == RARRAY_PTR(ary2)) return Qtrue;
     return rb_exec_recursive_paired(recursive_equal, ary1, ary2, ary2);
 }