gonzui: t2ex/bsd_source/lib/libc/src

    1: /*      $OpenBSD: erand48.c,v 1.3 2005/08/08 08:05:36 espie Exp $ */
    2: /*
    3:  * Copyright (c) 1993 Martin Birgmeier
    4:  * All rights reserved.
    5:  *
    6:  * You may redistribute unmodified or modified versions of this source
    7:  * code provided that the above copyright notice and this and the
    8:  * following conditions are retained.
    9:  *
   10:  * This software is provided ``as is'', and comes with no warranties
   11:  * of any kind. I shall in no event be liable for anything that happens
   12:  * to anyone/anything when using this software.
   13:  */
   14: 
   15: #include "rand48.h"
   16: 
   17: double
   18: erand48_r(unsigned short xseed[3], struct rand48_data *buffer)
   19: {
   20:         __dorand48_r(xseed, buffer);
   21:         return ldexp((double) xseed[0], -48) +
   22:                ldexp((double) xseed[1], -32) +
   23:                ldexp((double) xseed[2], -16);
   24: }