1/* Copyright (C) 1995, 1997 Free Software Foundation, Inc.
2   This file is part of the GNU C Library.
3   Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, August 1995.
4
5   The GNU C Library is free software; you can redistribute it and/or
6   modify it under the terms of the GNU Lesser General Public
7   License as published by the Free Software Foundation; either
8   version 2.1 of the License, or (at your option) any later version.
9
10   The GNU C Library is distributed in the hope that it will be useful,
11   but WITHOUT ANY WARRANTY; without even the implied warranty of
12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13   Lesser General Public License for more details.
14
15   You should have received a copy of the GNU Lesser General Public
16   License along with the GNU C Library; if not, write to the Free
17   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18   02111-1307 USA.  */
19
20#include <stdlib.h>
21
22int
23__nrand48_r (xsubi, buffer, result)
24     unsigned short int xsubi[3];
25     struct drand48_data *buffer;
26     long int *result;
27{
28  /* Compute next state.  */
29  if (__drand48_iterate (xsubi, buffer) < 0)
30    return -1;
31
32  /* Store the result.  */
33  if (sizeof (unsigned short int) == 2)
34    *result = xsubi[2] << 15 | xsubi[1] >> 1;
35  else
36    *result = xsubi[2] >> 1;
37
38  return 0;
39}
40weak_alias (__nrand48_r, nrand48_r)
41