Return to maps.c CVS log

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

Annotation of researchv9/jerq/sgs/ld/maps.c, revision 1.1.1.1

1.1       root        1: static char ID[] = "@(#) maps.c: 1.4 3/2/83";
                      2: 
                      3: #include "system.h"
                      4: #include <stdio.h>
                      5: #include "structs.h"
                      6: #include "attributes.h"
                      7: #include "extrns.h"
                      8: #include "sgsmacros.h"
                      9: 
                     10: 
                     11: /*
                     12:  * This version of maps.c, for m80ld, does NOT have:
                     13:  *     1. REGION directives
                     14:  *     2. physical addresses
                     15:  */
                     16: /*eject*/
                     17: ldmap()
                     18: {
                     19: 
                     20: /*
                     21:  * Generate the output map requested through the "-m" flag
                     22:  */
                     23: 
                     24:        register ANODE *a;
                     25: 
                     26: /*
                     27:  * Step 1: Output any non-default description of memory
                     28:  */
                     29: 
                     30:        if (memlist.head != memlist.tail) {
                     31:                register MEMTYPE *p;
                     32:                printf("\n\n\n\t\t\tMEMORY CONFIGURATION\n");
                     33:                printf("\nname\t\torigin\t\tlength\t\tattributes\n\n");
                     34:                for( p = (MEMTYPE *) memlist.head; p; p = p->mtnext ) {
                     35:                        printf("%-8.8s\t%08.2lx\t%08.2lx\t  ",
                     36:                                p->mtname, p->mtorig, p->mtlength);
                     37:                        if (p->mtattr & att_R) printf("R");
                     38:                        if (p->mtattr & att_W) printf("W");
                     39:                        if (p->mtattr & att_I) printf("I");
                     40:                        if (p->mtattr & att_X) printf("X");
                     41:                        printf("\n");
                     42:                        }
                     43:                printf("\n\n");
                     44:                }
                     45: 
                     46: /*
                     47:  * Step 2: Output the virtual memory map
                     48:  */
                     49: 
                     50:        printf("\t\tLINK EDITOR MEMORY MAP\n\n");
                     51:        printf("\noutput\t\tinput\t\tvirtual");
                     52:        printf("\nsection\t\tsection\t\taddress\t\tsize\n");
                     53: 
                     54:        for (a = (ANODE *) avlist.head; a; a = a->adnext) {
                     55:                long disp, ndx, vaddr;
                     56:                unsigned fill;
                     57:                register INSECT *isp;
                     58:                register OUTSECT *osp;
                     59: 
                     60:                if (a->adtype == ADPAD)
                     61:                        continue;
                     62: 
                     63:                vaddr = a->adpaddr;
                     64: 
                     65:                if (a->adtype == ADAVAIL) {
                     66:                        printf("\n*avail*\t\t\t\t%08.2lx\t%08.2lx\n",
                     67:                                vaddr, a->adsize);
                     68:                        continue;
                     69:                        }
                     70: 
                     71:                osp = a->adscnptr;
                     72:                printf("\n%-8.8s\t\t\t%08.2lx\t%08.2lx",
                     73:                        osp->oshdr.s_name, vaddr, a->adsize);
                     74:                if (osp->oshdr.s_flags & STYP_DSECT)
                     75:                        printf("\tDSECT");
                     76:                else if (osp->oshdr.s_flags & STYP_NOLOAD)
                     77:                        printf("\tNOLOAD");
                     78:                else if (osp->oshdr.s_scnptr == 0L)
                     79:                        printf("\tuninitialized");
                     80:                printf("\n");
                     81: 
                     82:                ndx = 0;
                     83:                isp = osp->osinclhd;
                     84:                if( (osp->oshdr.s_scnptr != 0L || isp)  &&
                     85:                    (! equal(_TV,osp->oshdr.s_name,8)) )
                     86:                        while (ndx < osp->oshdr.s_size) {
                     87:                                if (isp)
                     88:                                        disp = isp->isdispl;
                     89:                                else
                     90:                                        disp = osp->oshdr.s_size;
                     91:                                if (ndx < disp) {
                     92:                                        if (osp->osflags & FILL)
                     93:                                                fill = osp->osfill;
                     94:                                        else
                     95:                                                fill = globfill;
                     96:                                        printf("\t\t*fill*\t\t%08.2lx\t%08.2lx\t%06.2x\n",
                     97:                                                vaddr + ndx,
                     98:                                                disp - ndx, fill);
                     99:                                        ndx = disp;
                    100:                                        }
                    101:                                if (isp) {
                    102:                                        if (isp->ishdr.s_size > 0) {
                    103:                                                printf( "\t\t%-8.8s\t%08.2lx\t%08.2lx %s",
                    104:                                                        isp->ishdr.s_name,
                    105:                                                        vaddr + ndx,
                    106:                                                        isp->ishdr.s_size,
                    107:                                                        sname(isp->isfilptr->flname));
                    108:                                                if( isp->isfilptr->flfilndx != -1 )
                    109:                                                        printf( " (%d)", isp->isfilptr->flfilndx);
                    110:                                                printf( "\n" );
                    111:                                                ndx += isp->ishdr.s_size;
                    112:                                                }
                    113:                                        isp = isp->isincnxt;
                    114:                                        }
                    115:                                }
                    116:                }
                    117: }

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