Return to alloc.h CVS log

Up to [Research Unix] / researchv10no / cmd / hdr

Annotation of researchv10no/cmd/hdr/alloc.h, revision 1.1.1.1

1.1       root        1: extern char    *alloc_end;
                      2: extern char    *alloc_ptr;
                      3: extern cfrag   *kfree;
                      4: extern cfrag   *ktmp;
                      5: extern cnode   *cfree;
                      6: extern cnode   *ctmp;
                      7: extern token   *tfree;
                      8: extern token   *ttmp;
                      9: extern xnode   *xfree;
                     10: extern xnode   *xtmp;
                     11: 
                     12: extern char    *alloc_fill();
                     13: extern char    *alloc_vector();
                     14: extern char    *chunk();
                     15: extern char    *rechunk();
                     16: extern cfrag   *kreplenish();
                     17: extern cnode   *creplenish();
                     18: extern token   *treplenish();
                     19: extern void    free_chunk();
                     20: extern xnode   *xreplenish();
                     21: 
                     22: #define        alloc(n)        ((alloc_ptr += (n)) > alloc_end ? alloc_fill(n) : (alloc_ptr - (n)))
                     23: #define        talloc(x)       (x *)alloc(sizeof(x))
                     24: #define        vector(p, n, t) (t *)alloc_vector((char *)p, (n) * sizeof (t))
                     25: 
                     26: #if    !defined(ALLOC_CALLS) && !defined(ALLOC_INTRIN)
                     27: #define        new_cnode()     (cfree = (ctmp = cfree == NULL ? creplenish() : cfree)->c_next, ctmp)
                     28: #define        free_cnode(c)   (ctmp = cfree, (cfree = c)->c_next = ctmp)
                     29: 
                     30: #define        new_cfrag()     (kfree = (ktmp = kfree == NULL ? kreplenish() : kfree)->k_next, ktmp)
                     31: #define        free_cfrag(k)   (ktmp = kfree, (kfree = k)->k_next = ktmp)
                     32: 
                     33: #define        new_token()     (tfree = (ttmp = tfree == NULL ? treplenish() : tfree)->t_value.t, ttmp)
                     34: #define        free_token(p)   (ttmp = tfree, (tfree = p)->t_value.t = ttmp)
                     35: 
                     36: #define        new_xnode()     (xfree = (xtmp = xfree == NULL ? xreplenish() : xfree)->x_left, xtmp)
                     37: #define        free_xnode(x)   (xtmp = xfree, (xfree = x)->x_left = xtmp)
                     38: #else
                     39: extern void    free_cnode();
                     40: extern cnode   *new_cnode();
                     41: extern void    free_cfrag();
                     42: extern cfrag   *new_cfrag();
                     43: extern void    free_token();
                     44: extern token   *new_token();
                     45: extern void    free_xnode();
                     46: extern xnode   *new_xnode();
                     47: #endif

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