Return to ldtbread.c CVS log

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

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

1.1       root        1: #include       <stdio.h>
                      2: #include       "filehdr.h"
                      3: #include       "syms.h"
                      4: #include       "ldfcn.h"
                      5: 
                      6: int
                      7: ldtbread(ldptr, symnum, symentry)
                      8: 
                      9: LDFILE *ldptr;
                     10: long   symnum;
                     11: SYMENT *symentry;
                     12: 
                     13: {
                     14:     extern int         fseek( );
                     15:     extern int         fread( );
                     16: 
                     17:     extern int         vldldptr( );
                     18: 
                     19:     if (vldldptr(ldptr) == SUCCESS) {
                     20:        if ((symnum >= 0) && (symnum <= (HEADER(ldptr)).f_nsyms)) {
                     21:            if (FSEEK(ldptr,
                     22:                HEADER(ldptr).f_symptr + symnum * SYMESZ, BEGINNING)
                     23:                == OKFSEEK) {
                     24:                if (FREAD(symentry,SYMESZ,1,ldptr) == 1) {
                     25:                    return(SUCCESS);
                     26:                }
                     27:            }
                     28:        }
                     29:     }
                     30: 
                     31:     return(FAILURE);
                     32: }
                     33: 
                     34: static char ID[ ] = "@(#) ldtbread.c: 1.1 1/7/82";

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