random.c File Reference

#include "f2c.h"

Include dependency graph for random.c:

Go to the source code of this file.

Functions
integer	random_ (struct lpc10_decoder_state *st)

Function Documentation

random_()

integer random_ ( struct lpc10_decoder_state *  st )

extern

Definition at line 93 of file random.c.

{
    /* Initialized data */
 
    integer *j;
    integer *k;
    shortint *y;
 
    /* System generated locals */
    integer ret_val;
 
/*  Parameters/constants */
/*       Local state */
/*   The following is a 16 bit 2's complement addition, */
/*   with overflow checking disabled */
 
    j = &(st->j);
    k = &(st->k);
    y = &(st->y[0]);
 
    y[*k - 1] += y[*j - 1];
    ret_val = y[*k - 1];
    --(*k);
    if (*k <= 0) {
    *k = 5;
    }
    --(*j);
    if (*j <= 0) {
    *j = 5;
    }
    return ret_val;
} /* random_ */

References lpc10_decoder_state::j, lpc10_decoder_state::k, and lpc10_decoder_state::y.

Referenced by bsynz_().