Return to allocldptr.c CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / libld

Annotation of researchv9/jerq/sgs/libld/allocldptr.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include "filehdr.h"
                      3: #include "ldfcn.h"
                      4: #include "lddef.h"
                      5: 
                      6: LDLIST *_ldhead = NULL;
                      7: 
                      8: 
                      9: LDFILE *
                     10: allocldptr()
                     11: {
                     12:        extern char *calloc();
                     13:        extern LDLIST *_ldhead;
                     14:        LDLIST *ldptr, *ldindx;
                     15:        static int last_fnum_ = 0;
                     16: 
                     17:        if ((ldptr = (LDLIST *)calloc(1, LDLSZ)) == NULL)
                     18:                return (NULL);
                     19:        ldptr->ld_next = NULL;
                     20:        if (_ldhead == NULL)
                     21:                _ldhead = ldptr;
                     22:        else
                     23:        {
                     24:                for (ldindx = _ldhead;
                     25:                        ldindx->ld_next != NULL; ldindx = ldindx->ld_next)
                     26:                {
                     27:                }
                     28:                ldindx->ld_next = ldptr;
                     29:        }
                     30:        ldptr->ld_item._fnum_ = ++last_fnum_;
                     31:        return ((LDFILE *)ldptr);
                     32: }
                     33: 
                     34: static char ID[] = "@(#) allocldptr.c: 1.2 2/16/83";

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