===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2018/builtin/array.c,v
retrieving revision 1.4
retrieving revision 1.7
diff -u -p -r1.4 -r1.7
--- OpenXM_contrib2/asir2018/builtin/array.c	2018/10/19 23:27:38	1.4
+++ OpenXM_contrib2/asir2018/builtin/array.c	2020/01/09 01:47:40	1.7
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2018/builtin/array.c,v 1.3 2018/10/01 05:49:06 noro Exp $
+ * $OpenXM: OpenXM_contrib2/asir2018/builtin/array.c,v 1.6 2019/12/13 14:40:49 fujimoto Exp $
 */
 #include "ca.h"
 #include "base.h"
@@ -170,6 +170,13 @@ void solve_u(int *,ent **,int,int *,int);
 static int *ul,*ll;
 static ent **u,**l;
 static int modulus;
+#if defined(ANDROID)
+int getw(FILE *fp)
+{
+	int x;
+	return (fread((void *)&x, sizeof(x), 1, fp) == 1 ? x : EOF);
+}
+#endif
 
 void Plusolve_prep(NODE arg,Q *rp)
 {
@@ -1164,7 +1171,7 @@ void Pgeneric_gauss_elim(NODE arg,LIST *rp)
   if ( is_hensel )
     rank = generic_gauss_elim_hensel(m,&nm,&dn,&ri,&ci);
   else
-    rank = generic_gauss_elim64(m,&nm,&dn,&ri,&ci);
+    rank = generic_gauss_elim(m,&nm,&dn,&ri,&ci);
   t = col-rank;
   MKVECT(rind,rank);
   MKVECT(cind,t);
@@ -1423,7 +1430,7 @@ int gauss_elim_mod(int **mat,int row,int col,int md)
     return -1;
 }
 
-struct oEGT eg_mod,eg_elim,eg_elim1,eg_elim2,eg_chrem,eg_gschk,eg_intrat,eg_symb;
+struct oEGT eg_mod,eg_elim,eg_elim1,eg_elim2,eg_chrem,eg_gschk,eg_intrat,eg_symb,eg_back,eg_fore;
 struct oEGT eg_conv;
 
 #if 0