compiler/alib/fastrand.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /*****************************************************************************
   7
   8     NAME */
   9 #include <proto/alib.h>
  10
  11         ULONG FastRand (
  12
  13 /*  SYNOPSIS */
  14         ULONG seed)
  15
  16 /*  FUNCTION
  17
  18     INPUTS
  19
  20     RESULT
  21
  22     NOTES
  23
  24     EXAMPLE
  25
  26     BUGS
  27
  28     SEE ALSO
  29
  30     INTERNALS
  31
  32     HISTORY
  33         06.12.96 digulla Created after original from libnix
  34
  35 ******************************************************************************/
  36 {
  37     ULONG a = seed << 1;
  38
  39     if ((LONG)seed <= 0)
  40         a ^= 0x1d872b41;
  41
  42     return a;
  43 } /* FastRand */
  44