home *** CD-ROM | disk | FTP | other *** search
- /*
- (C) 1995-96 AROS - The Amiga Replacement OS
- $Id: fastrand.c,v 1.2 1997/01/27 00:16:36 ldp Exp $
-
- Desc:
- Lang: english
- */
-
- /*****************************************************************************
-
- NAME */
- #include <proto/alib.h>
-
- ULONG FastRand (
-
- /* SYNOPSIS */
- ULONG seed)
-
- /* FUNCTION
-
- INPUTS
-
- RESULT
-
- NOTES
-
- EXAMPLE
-
- BUGS
-
- SEE ALSO
-
- INTERNALS
-
- HISTORY
- 06.12.96 digulla Created after original from libnix
-
- ******************************************************************************/
- {
- ULONG a = seed << 1;
-
- if ((LONG)seed <= 0)
- a ^= 0x1d872b41;
-
- return a;
- } /* FastRand */
-
-