set2.c in numo-narray-0.9.0.7

- old
+ new

@@ -11,17 +11,17 @@
     INIT_PTR_IDX(lp, 0, p1, s1, idx1);
     INIT_PTR_IDX(lp, 1, p2, s2, idx2);
     if (idx1) {
         if (idx2) {
             for (; i--;) {
-                GET_DATA_INDEX(p1,idx1,dtype,x);
+                GET_DATA(p1+*idx1,dtype,x);
                 GET_DATA_INDEX(p2,idx2,<%=dtype%>,y);
                 x = m_<%=name%>(x,y);
                 SET_DATA_INDEX(p1,idx1,dtype,x);
             }
         } else {
             for (; i--;) {
-                GET_DATA_INDEX(p1,idx1,dtype,x);
+                GET_DATA(p1+*idx1,dtype,x);
                 GET_DATA_STRIDE(p2,s2,<%=dtype%>,y);
                 x = m_<%=name%>(x,y);
                 SET_DATA_INDEX(p1,idx1,dtype,x);
             }
         }