N 54 ext/mt-random/mt-lib.c ScmObj v = Scm_MakeU32Vector(N+1, 0); N 56 ext/mt-random/mt-lib.c for (i=0; i<N; i++) SCM_U32VECTOR_ELEMENTS(v)[i] = mt->mt[i]; N 57 ext/mt-random/mt-lib.c SCM_U32VECTOR_ELEMENTS(v)[N] = mt->mti; N 81 ext/mt-random/mt-lib.c if (SCM_U32VECTOR_SIZE(state) != N+1) { N 82 ext/mt-random/mt-lib.c Scm_Error("u32vector of length %d is required, but got length %d", N+1, SCM_U32VECTOR_SIZE(state)); N 84 ext/mt-random/mt-lib.c for (i=0; i<N; i++) mt->mt[i] = SCM_U32VECTOR_ELEMENTS(state)[i]; N 85 ext/mt-random/mt-lib.c mt->mti = SCM_U32VECTOR_ELEMENTS(state)[N]; N 74 ext/mt-random/mt-random.c for (mti=1; mti<N; mti++) { N 97 ext/mt-random/mt-random.c k = (N>key_length ? N : key_length); N 103 ext/mt-random/mt-random.c if (i>=N) { mt->mt[0] = mt->mt[N-1]; i=1; } N 106 ext/mt-random/mt-random.c for (k=N-1; k; k--) { N 111 ext/mt-random/mt-random.c if (i>=N) { mt->mt[0] = mt->mt[N-1]; i=1; } N 125 ext/mt-random/mt-random.c if (mti >= N) { /* generate N words at one time */ N 128 ext/mt-random/mt-random.c if (mti == N+1) /* if Scm_MTInitByUI() has not been called, */ N 131 ext/mt-random/mt-random.c for (kk=0;kk<N-M;kk++) { N 135 ext/mt-random/mt-random.c for (;kk<N-1;kk++) { N 137 ext/mt-random/mt-random.c mt->mt[kk] = mt->mt[kk+(M-N)] ^ (y >> 1) ^ mag01[y & 0x1UL]; N 139 ext/mt-random/mt-random.c y = (mt->mt[N-1]&UPPER_MASK)|(mt->mt[0]&LOWER_MASK); N 140 ext/mt-random/mt-random.c mt->mt[N-1] = mt->mt[M-1] ^ (y >> 1) ^ mag01[y & 0x1UL]; N 286 ext/mt-random/mt-random.c mt->mti = N+1; N 59 ext/mt-random/mt-random.h unsigned long mt[N]; /* the array for the state vector */