mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 05:51:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

random: fix rng type bug

Browse source
This commit is contained in:
Daniel Kochmański 2016-05-05 16:27:04 +02:00
parent 5877e1dfc0
commit c5cfe372f8
1 changed files with 14 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

33
src/c/num_rand.d
View file

@ -1,22 +1,17 @@
/* -*- Mode: C; c-basic-offset: 8; indent-tabs-mode: nil -*- */
/* vim: set filetype=c tabstop=8 shiftwidth=4 expandtab: */
/* -*- Mode: C; c-basic-offset: 2; indent-tabs-mode: nil -*- */
/* vim: set filetype=c tabstop=2 shiftwidth=2 expandtab: */
/*
num_rand.c -- Random numbers.
n*/
/*
Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya.
Copyright (c) 1990, Giuseppe Attardi.
Copyright (c) 2001, Juan Jose Garcia Ripoll.
Copyright (c) 2015, Daniel Kochmański.
ECL is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
See file '../Copyright' for full details.
*/
* num_rand.d - random numbers
*
* Copyright (c) 1984 Taiichi Yuasa and Masami Hagiya
* Copyright (c) 1990 Giuseppe Attardi
* Copyright (c) 2001 Juan Jose Garcia Ripoll
* Copyright (c) 2016 Daniel Kochmański
*
* See file 'LICENSE' for the copyright details.
*
*/
#include <ecl/ecl.h>
#include <time.h>
@ -69,7 +64,7 @@ init_genrand(ulong seed)
static ulong
generate_int64(cl_object state)
{
static mag01[2]={0x0UL, MATRIX_A};
static ulong mag01[2]={0x0UL, MATRIX_A};
ulong y;
ulong *mt = state->vector.self.b64;
@ -151,7 +146,7 @@ init_genrand(ulong seed)
static ulong
generate_int32(cl_object state)
{
static mag01[2]={0x0UL, MATRIX_A};
static ulong mag01[2]={0x0UL, MATRIX_A};
ulong y;
ulong *mt = state->vector.self.b32;
if (mt[MT_N] >= MT_N) {