Return to rand.c CVS log

Up to [CSRG BSD Unix] / 40BSD / libc / gen

Annotation of 40BSD/libc/gen/rand.c, revision 1.1.1.1

1.1       root        1: static long    randx = 1;
                      2: 
                      3: srand(x)
                      4: unsigned x;
                      5: {
                      6:        randx = x;
                      7: }
                      8: 
                      9: rand()
                     10: {
                     11:        return((randx = randx * 1103515245 + 12345) & 0x7fffffff);
                     12: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.