Return to alloc.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack

Annotation of 43BSDTahoe/games/hack/alloc.c, revision 1.1

1.1     ! root        1: /* alloc.c - version 1.0.2 */
        !             2: #ifdef LINT
        !             3: 
        !             4: /*
        !             5:    a ridiculous definition, suppressing
        !             6:        "possible pointer alignment problem" for (long *) malloc()
        !             7:        "enlarg defined but never used"
        !             8:        "ftell defined (in <stdio.h>) but never used"
        !             9:    from lint
        !            10: */
        !            11: #include <stdio.h>
        !            12: long *
        !            13: alloc(n) unsigned n; {
        !            14: long dummy = ftell(stderr);
        !            15:        if(n) dummy = 0;        /* make sure arg is used */
        !            16:        return(&dummy);
        !            17: }
        !            18: 
        !            19: #else
        !            20: 
        !            21: extern char *malloc();
        !            22: extern char *realloc();
        !            23: 
        !            24: long *
        !            25: alloc(lth)
        !            26: register unsigned lth;
        !            27: {
        !            28:        register char *ptr;
        !            29: 
        !            30:        if(!(ptr = malloc(lth)))
        !            31:                panic("Cannot get %d bytes", lth);
        !            32:        return((long *) ptr);
        !            33: }
        !            34: 
        !            35: long *
        !            36: enlarge(ptr,lth)
        !            37: register char *ptr;
        !            38: register unsigned lth;
        !            39: {
        !            40:        register char *nptr;
        !            41: 
        !            42:        if(!(nptr = realloc(ptr,lth)))
        !            43:                panic("Cannot reallocate %d bytes", lth);
        !            44:        return((long *) nptr);
        !            45: }
        !            46: 
        !            47: #endif LINT

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