Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. /*
  2.  * Copyright (c) 1993 Martin Birgmeier
  3.  * All rights reserved.
  4.  *
  5.  * You may redistribute unmodified or modified versions of this source
  6.  * code provided that the above copyright notice and this and the
  7.  * following conditions are retained.
  8.  *
  9.  * This software is provided ``as is'', and comes with no warranties
  10.  * of any kind. I shall in no event be liable for anything that happens
  11.  * to anyone/anything when using this software.
  12.  */
  13.  
  14. #include "rand48.h"
  15.  
  16. _VOID
  17. _DEFUN (_srand48_r, (r, seed),
  18.        struct _reent *r _AND
  19.        long seed)
  20. {
  21.   _REENT_CHECK_RAND48(r);
  22.   __rand48_seed[0] = _RAND48_SEED_0;
  23.   __rand48_seed[1] = (unsigned short) seed;
  24.   __rand48_seed[2] = (unsigned short) ((unsigned long)seed >> 16);
  25.   __rand48_mult[0] = _RAND48_MULT_0;
  26.   __rand48_mult[1] = _RAND48_MULT_1;
  27.   __rand48_mult[2] = _RAND48_MULT_2;
  28.   __rand48_add = _RAND48_ADD;
  29. }
  30.  
  31. #ifndef _REENT_ONLY
  32. _VOID
  33. _DEFUN (srand48, (seed),
  34.        long seed)
  35. {
  36.   _srand48_r (_REENT, seed);
  37. }
  38. #endif /* !_REENT_ONLY */
  39.