sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

android: fix builds

Browse source
This commit is contained in:
Daniel Kochmański 2016-05-16 09:22:42 +02:00
parent bc3bfb5de0
commit 2e43f8cf03
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
INSTALL
View file

@ -53,7 +53,7 @@ If you do not have access to the online version, follow the following recipies.
#+BEGIN_SRC shell-script
./configure --host=arm-linux-androideabi \
--prefix=`pwd`/ecl-android \
--with-cross-config=`pwd`src/util/android.cross_config \
--with-cross-config=`pwd`/src/util/android.cross_config \
--disable-soname
make -j9
make install

6
src/c/num_rand.d
View file

@ -53,7 +53,8 @@ init_genrand(ulong seed)
cl_object array = ecl_alloc_simple_vector((MT_N + 1), ecl_aet_b64);
ulong *mt = array->vector.self.b64;
mt[0] = seed;
for (int j=1; j<MT_N; j++)
int j;
for (j=1; j<MT_N; j++)
mt[j] = (6364136223846793005ULL * (mt[j-1] ^ (mt[j-1] >> 62)) + j);
mt[MT_N] = MT_N+1;
@ -134,7 +135,8 @@ init_genrand(ulong seed)
cl_object array = ecl_alloc_simple_vector((MT_N + 1), ecl_aet_b32);
ulong *mt = array->vector.self.b32;
mt[0] = seed;
for (int j=1; j < MT_N; j++)
int j;
for (j=1; j < MT_N; j++)
mt[j] = (1812433253UL * (mt[j-1] ^ (mt[j-1] >> 30)) + j);
mt[MT_N] = MT_N+1;