From bd6e27dc47a0d4ef1bbd72639dbf3765a282cfaf Mon Sep 17 00:00:00 2001
From: suke <suke@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 16 Aug 2014 10:34:24 +0000
Subject: [PATCH] * ext/win32ole/win32ole_event.c (evs_length): use RARRAY_LEN
 instead   of calling Array#length method.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@47203 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                     |  5 +++++
 ext/win32ole/win32ole_event.c | 11 +++++------
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f397d1c56d..3ac3d129a5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Aug 16 19:32:06 2014  Masaki Suketa <masaki.suketa@nifty.ne.jp>
+
+	* ext/win32ole/win32ole_event.c (evs_length): use RARRAY_LEN instead
+	  of calling Array#length method.
+
 Sat Aug 16 10:20:17 2014  Eric Wong  <e@80x24.org>
 
 	* time.c (time_timespec): fix tv_nsec overflow
diff --git a/ext/win32ole/win32ole_event.c b/ext/win32ole/win32ole_event.c
index 79602eef72..77b362691f 100644
--- a/ext/win32ole/win32ole_event.c
+++ b/ext/win32ole/win32ole_event.c
@@ -51,7 +51,7 @@ typedef struct tagIEVENTSINKOBJ {
     IEventSinkVtbl *lpVtbl;
     DWORD m_cRef;
     IID m_iid;
-    int m_event_id;
+    long  m_event_id;
     ITypeInfo *pTypeInfo;
 }IEVENTSINKOBJ, *PIEVENTSINKOBJ;
 
@@ -102,7 +102,7 @@ static VALUE fev_get_handler(VALUE self);
 static VALUE evs_push(VALUE ev);
 static VALUE evs_delete(long i);
 static VALUE evs_entry(long i);
-static VALUE evs_length(void);
+static long  evs_length(void);
 
 STDMETHODIMP EVENTSINK_Invoke(
     PEVENTSINK pEventSink,
@@ -942,8 +942,7 @@ ev_advise(int argc, VALUE *argv, VALUE self)
     }
 
     Data_Get_Struct(self, struct oleeventdata, poleev);
-    pIEV->m_event_id
-        = NUM2INT(evs_length());
+    pIEV->m_event_id = evs_length();
     pIEV->pTypeInfo = pTypeInfo;
     poleev->dwCookie = dwCookie;
     poleev->pConnectionPoint = pConnectionPoint;
@@ -1171,10 +1170,10 @@ evs_entry(long i)
     return rb_ary_entry(ary_ole_event, i);
 }
 
-static VALUE
+static long
 evs_length(void)
 {
-    return rb_funcall(ary_ole_event, rb_intern("length"), 0);
+    return RARRAY_LEN(ary_ole_event);
 }
 
 /*