Return to malloc_.c CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / libU77

Annotation of 43BSD/usr.lib/libU77/malloc_.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Copyright (c) 1980 Regents of the University of California.
        !             3:  * All rights reserved.  The Berkeley software License Agreement
        !             4:  * specifies the terms and conditions for redistribution.
        !             5:  *
        !             6:  *     @(#)malloc_.c   5.1     6/7/85
        !             7:  */
        !             8: 
        !             9: /*
        !            10:  *     allows f77 programs to dynamicly allocate space
        !            11:  *     three routines:
        !            12:  *             call malloc(need, addr)
        !            13:  *             integer need, addr
        !            14:  *
        !            15:  *             call free(addr)
        !            16:  *             integer addr
        !            17:  *
        !            18:  *             call falloc( nelem, elsize, clean, basevec, addr, offset )
        !            19:  *             integer nelem, elsize, clean, addr, offset
        !            20:  *             dimension basevec(1)
        !            21:  *
        !            22:  *     malloc() & falloc() alloc space and put address in 'addr', 0 if can't
        !            23:  *     do it.  free() frees a block.  malloc() gets a block of at least
        !            24:  *     'need' bytes; falloc() gets at least nelem*elsize bytes, zeros
        !            25:  *     the block if clean=1, and returns an offset so that the block
        !            26:  *     can be referenced as basevec(offset+1)...basevec(offset+nelem)
        !            27:  *     in the calling program.  falloc() gets an extra element so that
        !            28:  *     all the elements will be in the block even if address arithmetic
        !            29:  *     involves truncation.
        !            30:  */
        !            31: 
        !            32: char *calloc(), *malloc();
        !            33: 
        !            34: malloc_( need, addr )
        !            35: int *need; char **addr;
        !            36: {
        !            37:        *addr = malloc( *need );
        !            38: }
        !            39: 
        !            40: free_( addr )
        !            41: char **addr;
        !            42: {
        !            43:        free( *addr );
        !            44: }
        !            45: 
        !            46: falloc_( nelem, elsize, clean, basevec, addr, offset )
        !            47: int *nelem, *elsize, *clean, *offset;
        !            48: char **addr, *basevec;
        !            49: {
        !            50:        if( *clean == 1 )
        !            51:                *addr = calloc( *nelem + 1, *elsize );
        !            52:        else
        !            53:                *addr = malloc( (*nelem + 1) * *elsize );
        !            54:                
        !            55:        if( *addr != 0 )
        !            56:                *offset = ((*addr - basevec) / *elsize) + 1;
        !            57:        else
        !            58:                *offset = 0;
        !            59: 
        !            60: }

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