home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3549 < prev    next >
Internet Message Format  |  1991-06-26  |  23KB
  1. From: steve@robobar.co.uk (Steve Bleazard)
  2. Newsgroups: comp.unix.xenix.sco,alt.sources
  3. Subject: mprof patches for SCO XENIX with GCC
  4. Message-ID: <1991Jun26.070843.12908@robobar.co.uk>
  5. Date: 26 Jun 91 07:08:43 GMT
  6.  
  7. Submitted-by: steve@robobar.co.uk (Steve Bleazard)
  8. Archive-name: mprof/xenix.pch01
  9. Environment: SCO XENIX GCC
  10.  
  11. Mprof is a tool for finding memory leaks, etc., which I found languishing
  12. on ucbarpa.berkeley.edu:/pub/mprof-3.0.tar.Z and I needed it, so here's
  13. the port to XENIX which I did in order to be able to use it.
  14.  
  15. This port works best if you have a reasonably up to date version of
  16. my port of GCC to SCO XENIX (any version with GDB support will do).
  17. You can find copies of my XENIX GCC binaries on unix.secs.oakland.edu
  18. for anon FTP, and on the anomaly.sbs.com anon UUCP archive which is
  19. regularly advertised here.  (GCC at version 1.37.1 which is what I
  20. still use)  Of course you need SCO's development system (I use
  21. version 2.3.1b) as well.  I have not tried mprof with any combination
  22. other than GCC with SCO 2.3.1 libraries/include files.
  23.  
  24. I'm not sure if I will be able to help anyone with problems using mprof
  25. since I haven't read the manual yet, although it has helped me plug a
  26. couple of serious leaks already, well justifying the time spent porting it,
  27. in fact.  However, mail will be welcome.
  28.  
  29. diff -c -r -N mprof.orig/Makefile mprof/Makefile
  30. *** mprof.orig/Makefile
  31. --- mprof/Makefile    Wed Jun 26 07:34:57 1991
  32. ***************
  33. *** 0 ****
  34. --- 1,102 ----
  35. + #    %M% %I% %G% %U%    
  36. + #    Copyright (c) 1987, Benjamin G. Zorn
  37. + #
  38. + # Makefile for MPROF data generation
  39. + #
  40. + 
  41. + CC = gcc
  42. + 
  43. + CFLAGS= -I. -Dxenix
  44. + BIN=    /usr/local/bin
  45. + LIB=    /lib/386
  46. + MPLIB=    Slibmp.a
  47. + 
  48. + MPROF_MON_SRCS = leak.c malloc.c mpattach.c mprof_mon.c mpstruct.c pagesz.c
  49. + MPROF_MON_OBJS = leak.o malloc.o mpattach.o mprof_mon.o mpstruct.o pagesz.o
  50. + MPROF_SRCS = mprof.c mpstruct.c mpgraph.c xsym.c
  51. + MPROF_OBJS = mprof.o mpstruct.o mpgraph.o xsym.o
  52. + DOC_SRC = mprof.1
  53. + DOC_OBJS = mprof.man
  54. + 
  55. + DISTNAME = mprof30
  56. + 
  57. + TEST_SRCS = test1.c test2.c
  58. + TEST_OBJS = test1.o test2.o
  59. + 
  60. + all: mprof $(MPROF_MON_OBJS) $(DOC_OBJS) $(MPLIB)
  61. + 
  62. + $(MPLIB): $(MPROF_MON_OBJS)
  63. +     rm -rf $(MPLIB)
  64. +     ar cq $(MPLIB) $(MPROF_MON_OBJS)
  65. +     ranlib $(MPLIB)
  66. + 
  67. + test: $(TEST_OBJS) test1-demo test2-demo
  68. +     
  69. + clean:
  70. +     rm -f *.o mprof.lint mprof-mon.lint \
  71. +     $(DOC_OBJS) \
  72. +     $(TEST_OBJS) \
  73. +     test1 test1.data test1.mprof \
  74. +     test2 test2.data test2.mprof \
  75. +     libc_mp.a mprof mprof.data
  76. + 
  77. + leak.o: leak.c
  78. + mprof_mon.o: mprof_mon.c
  79. + mpstruct.o: mpstruct.c
  80. + mpgraph.o: mpgraph.c
  81. + mprof.o: mprof.c
  82. + 
  83. + malloc.o: malloc.c
  84. +     $(CC) $(CFLAGS) -Dmalloc=__malloc__ -Dfree=__free__ -Drealloc=__realloc__ malloc.c -c
  85. + 
  86. + mprof: $(MPROF_OBJS)
  87. +     $(CC) $(CFLAGS) -o mprof $(MPROF_OBJS)
  88. + 
  89. + mprof.man: mprof.1
  90. +     nroff -man mprof.1 > mprof.man
  91. + 
  92. + dist: MANIFEST
  93. +     tar cvf $(DISTNAME).tar `cat MANIFEST`
  94. +     compress $(DISTNAME).tar
  95. + 
  96. + #
  97. + # Examples to test if MPROF is installed correctly
  98. + #
  99. + 
  100. + # A very simple test (tests calloc and valloc)
  101. + 
  102. + test1-demo: test1.data
  103. +     $(BIN)/mprof -normal test1 test1.data > test1.mprof
  104. + 
  105. + test1.mprof: test1.data
  106. +     $(BIN)/mprof -normal test1 test1.data > test1.mprof
  107. + 
  108. + test1.data: test1
  109. +     test1
  110. +     cp mprof.data test1.data
  111. + 
  112. + # test1: test1.o $(MPLIB)
  113. + #    $(CC) $(CFLAGS) -o test1 test1.o $(MPLIB)
  114. + test1: test1.o $(MPROF_MON_OBJS)
  115. +     $(CC) $(CFLAGS) -g -o test1 test1.o $(MPROF_MON_OBJS)
  116. + 
  117. + test1.o: test1.c
  118. + 
  119. + 
  120. + # test2 program (example from paper)
  121. + 
  122. + test2-demo: test2.data
  123. +     $(BIN)/mprof -normal test2 test2.data > test2.mprof
  124. + 
  125. + test2.mprof: test2.data
  126. +     $(BIN)/mprof -normal test2 test2.data > test2.mprof
  127. + 
  128. + test2.data: test2
  129. +     test2
  130. +     cp mprof.data test2.data
  131. + 
  132. + test2: test2.o $(MPLIB)
  133. +     $(CC) $(CFLAGS) -o test2 test2.o $(MPLIB)
  134. + 
  135. + test2.o: test2.c
  136. + 
  137. diff -c -r -N mprof.orig/gas-nlist.h mprof/gas-nlist.h
  138. *** mprof.orig/gas-nlist.h
  139. --- mprof/gas-nlist.h    Tue Jun 25 10:21:12 1991
  140. ***************
  141. *** 0 ****
  142. --- 1,13 ----
  143. + #define N_STAB 0340
  144. + 
  145. + struct gas_nlist {
  146. +     union {
  147. +         char    *n_name;
  148. +         struct gas_nlist *n_next;
  149. +         long    n_strx;
  150. +     } n_un;
  151. +     char    n_type;
  152. +     char    n_other;
  153. +     short    n_desc;
  154. +     unsigned n_value;
  155. + };
  156. diff -c -r -N mprof.orig/malloc.c mprof/malloc.c
  157. *** mprof.orig/malloc.c    Fri Sep 14 18:19:40 1990
  158. --- mprof/malloc.c    Tue Jun 25 08:08:04 1991
  159. ***************
  160. *** 20,25 ****
  161. --- 20,31 ----
  162.    */
  163.   
  164.   #include <sys/types.h>
  165. + #ifdef xenix
  166. + #include <string.h>
  167. + typedef    unsigned char u_char;
  168. + typedef    unsigned int u_int;
  169. + #define bcopy(s,d,l) memcpy(d,s,l)
  170. + #endif
  171.   
  172.   #define    NULL 0
  173.   
  174. diff -c -r -N mprof.orig/mpattach.c mprof/mpattach.c
  175. *** mprof.orig/mpattach.c    Fri Sep 14 18:19:41 1990
  176. --- mprof/mpattach.c    Tue Jun 25 15:26:16 1991
  177. ***************
  178. *** 181,186 ****
  179. --- 181,201 ----
  180.   
  181.   #endif
  182.   
  183. + #if defined(xenix) && !defined(USE_ATEXIT)
  184. + void exit(int code)
  185. + {
  186. +   void mprof_exit();
  187. +   extern void _cleanup(void);
  188. +   extern void _xcleanup(void);
  189. +   extern int _exit(int);
  190. + 
  191. +   mprof_exit(code, 0);
  192. +   _cleanup();
  193. +   _xcleanup();
  194. +   _exit(code);
  195. + }
  196. + #endif
  197. + 
  198.   void
  199.   mprof_exit(status, dummy)
  200.   int    status;
  201. diff -c -r -N mprof.orig/mpgraph.c mprof/mpgraph.c
  202. *** mprof.orig/mpgraph.c    Fri Sep 14 23:24:55 1990
  203. --- mprof/mpgraph.c    Tue Jun 25 13:04:12 1991
  204. ***************
  205. *** 104,110 ****
  206.       vertex    from, to;
  207.       mpdata    data;
  208.       int        mark;
  209. !     struct edge_struct *save
  210.   } *edge, edge_item;
  211.   
  212.   edge
  213. --- 104,110 ----
  214.       vertex    from, to;
  215.       mpdata    data;
  216.       int        mark;
  217. !     struct edge_struct *save;
  218.   } *edge, edge_item;
  219.   
  220.   edge
  221. diff -c -r -N mprof.orig/mprof.c mprof/mprof.c
  222. *** mprof.orig/mprof.c    Fri Sep 14 22:01:25 1990
  223. --- mprof/mprof.c    Tue Jun 25 13:40:31 1991
  224. ***************
  225. *** 5,15 ****
  226. --- 5,27 ----
  227.    */
  228.       
  229.   
  230. + #ifdef xenix
  231. + #include "xgasstab.h"
  232. + #include "gas-nlist.h"
  233. + #include <sys/types.h>
  234. + #include <fcntl.h>
  235. + #include <sys/relsym.h>
  236. + #include <sys/param.h>
  237. + #define index strchr
  238. + #endif
  239. + 
  240.   #include    <stdio.h>
  241.   #include    <sys/file.h>
  242.   #include    <ctype.h>
  243.   #include    <a.out.h>
  244. + #ifndef xenix
  245.   #include    <stab.h>
  246. + #endif
  247.   #include     "mprof.h"
  248.   
  249.   #ifdef mips
  250. ***************
  251. *** 16,22 ****
  252.   #include <ldfcn.h>
  253.   #endif
  254.   
  255. ! #if defined(mips) || defined(vax)
  256.   char *
  257.   strdup(s)
  258.   char    *s;
  259. --- 28,34 ----
  260.   #include <ldfcn.h>
  261.   #endif
  262.   
  263. ! #if defined(mips) || defined(vax) || defined(xenix)
  264.   char *
  265.   strdup(s)
  266.   char    *s;
  267. ***************
  268. *** 694,699 ****
  269. --- 706,798 ----
  270.   }
  271.   
  272.   #else
  273. + #ifdef xenix
  274. + 
  275. + void
  276. + st_read(exec_name)
  277. + char    *exec_name;
  278. + {
  279. +     int        aout_file = open(exec_name, (O_RDONLY));
  280. +     extern char *index();
  281. +     extern char *malloc();
  282. +     char    *stmp;
  283. +     int        string_size;
  284. +     char    *fname;
  285. +     int        i;
  286. +     struct xseg *cseg;
  287. +     long str_offset, nsyms, address, ntaboff;
  288. +     struct xseg *find_segment();
  289. +     struct gas_nlist nl;
  290. +     
  291. +     process_a_out(aout_file, exec_name);
  292. + 
  293. +     /* read in the global symbol table from the x.out */
  294. + 
  295. +     if (cseg = find_segment(XS_TSYMS, 1))
  296. +     {
  297. +       char *symdata, *p;
  298. +       struct sym symb;
  299. + 
  300. +       symdata = p = malloc(cseg->xs_psize + 1);
  301. +       lseek(aout_file, cseg->xs_filpos, 0);
  302. +       read(aout_file, symdata, cseg->xs_psize);
  303. + 
  304. +       while (p < symdata + cseg->xs_psize)
  305. +       {
  306. +     symb = *((struct sym *)p);
  307. +     p += sizeof(struct sym);
  308. +     if ((symb.s_type & S_TYPE) == S_TEXT)
  309. +     {
  310. +       stab_name(stab_i) = *p == '_' ? p + 1 : p;
  311. +       stab_addr(stab_i) = symb.s_value;
  312. +       stab_incr(stab_i);
  313. +     }
  314. +     p += strlen(p) + 1;
  315. +       }
  316. +     }
  317. + 
  318. +     /* read in the string table
  319. +      */
  320. +     if (cseg = find_segment(XS_TSYMS, 4))
  321. +     {
  322. +       lseek(aout_file, cseg->xs_filpos, 0);
  323. +       st_strings = malloc(cseg->xs_psize);
  324. +       read(aout_file, st_strings, cseg->xs_psize);
  325. +     }
  326. +     else st_strings = 0;
  327. +     
  328. +     /* read in the symbols one at a time
  329. +      */
  330. +     init_fileinfo_processing();
  331. +     while (get_next_fileinfo(&str_offset, &nsyms, &address, &ntaboff))
  332. +     {
  333. +       lseek(aout_file, ntaboff, 0);
  334. +       while (nsyms--)
  335. +       {
  336. +         read(aout_file, &nl, sizeof(nl));
  337. +     if (nl.n_type & N_STAB)
  338. +     {
  339. +       if ((unsigned char)nl.n_type == N_LSYM ||
  340. +           (unsigned char)nl.n_type == N_GSYM)
  341. +       {
  342. +         /* a local symbol that may be a structure definition
  343. +          */
  344. +         st_read_structure(st_strings + str_offset + nl.n_un.n_strx);
  345. +       }
  346. +     }
  347. +       }
  348. +     }
  349. +     stab_name(stab_i) = "unknown";
  350. +     stab_addr(stab_i) = stab_addr(stab_i - 1) + 0x10000;
  351. +     stab_incr(stab_i);
  352. +     stab_name(stab_i) = "end_marker";
  353. +     stab_addr(stab_i) = 0xffffffff;
  354. +     stab_incr(stab_i);
  355. +     qsort(stab, stab_i, sizeof(struct finfo), stab_compare);
  356. + }
  357. + 
  358. + 
  359. + #else /* !xenix */
  360.   
  361.   void
  362.   st_read(exec_name)
  363. ***************
  364. *** 774,779 ****
  365. --- 873,880 ----
  366.       qsort(stab, stab_i, sizeof(struct finfo), stab_compare);
  367.   }
  368.   
  369. + #endif /* xenix */
  370. + 
  371.   void
  372.   st_read_structure(symp)
  373.   char    *symp;
  374. ***************
  375. *** 1376,1379 ****
  376.   
  377.       exit(0);
  378.   }    
  379. - 
  380. --- 1477,1479 ----
  381. diff -c -r -N mprof.orig/mprof.h mprof/mprof.h
  382. *** mprof.orig/mprof.h    Fri Sep 14 22:01:24 1990
  383. --- mprof/mprof.h    Wed Jun 26 07:31:50 1991
  384. ***************
  385. *** 109,115 ****
  386.   
  387.   extern    char    *strdup();
  388.   
  389. ! #if (defined(vax) || (defined(sun) && !defined(sun4)))
  390.   #define get_current_fp(first_local) ((unsigned)&(first_local) + 4)
  391.   #endif
  392.   
  393. --- 109,115 ----
  394.   
  395.   extern    char    *strdup();
  396.   
  397. ! #if (defined(vax) || (defined(sun) && !defined(sun4)) || defined(xenix))
  398.   #define get_current_fp(first_local) ((unsigned)&(first_local) + 4)
  399.   #endif
  400.   
  401. ***************
  402. *** 119,124 ****
  403. --- 119,132 ----
  404.   #define prev_fp_from_fp(fp)    (unsigned)(((struct frame *)(fp))->fr_savfp)
  405.   #define ret_addr_from_fp(fp)    (unsigned)(((struct frame *)(fp))->fr_savpc)
  406.   #endif
  407. + #if (defined(xenix))
  408. + struct frame {
  409. +   unsigned long fr_savfp;
  410. +   unsigned long fr_savpc;
  411. + };
  412. + #define prev_fp_from_fp(fp)    (unsigned)(((struct frame *)(fp))->fr_savfp)
  413. + #define ret_addr_from_fp(fp)    (unsigned)(((struct frame *)(fp))->fr_savpc)
  414. + #endif
  415.   
  416.     
  417.   /* for ultrix 0x38, 4.3 bsd 0x3d, other?
  418. ***************
  419. *** 134,137 ****
  420. --- 142,149 ----
  421.   
  422.   #ifdef mips
  423.   #define CRT0_ADDRESS        0x0  /* to be filled in later */
  424. + #endif
  425. + 
  426. + #ifdef xenix
  427. + #define CRT0_ADDRESS        0x0
  428.   #endif
  429. diff -c -r -N mprof.orig/mprof_mon.c mprof/mprof_mon.c
  430. *** mprof.orig/mprof_mon.c    Fri Sep 14 18:19:47 1990
  431. --- mprof/mprof_mon.c    Tue Jun 25 15:29:49 1991
  432. ***************
  433. *** 5,10 ****
  434. --- 5,14 ----
  435.    */
  436.   
  437.   #include    <stdio.h>
  438. + #ifdef xenix
  439. + #include    <sys/types.h>
  440. + #include    <fcntl.h>
  441. + #endif
  442.   #include    <sys/file.h>
  443.   #include    "mprof.h"
  444.   
  445. ***************
  446. *** 411,416 ****
  447. --- 415,423 ----
  448.   #ifdef sun
  449.       on_exit(mprof_exit, NULL);
  450.   #endif    
  451. + #if defined(xenix) && defined(USE_ATEXIT)
  452. +     atexit(mprof_exit);
  453. + #endif
  454.       if (strcmp(mprof_filename, "") == 0) {
  455.       mprof_file = 1;
  456.       } else {
  457. ***************
  458. *** 445,451 ****
  459. --- 452,460 ----
  460.       char    stats[256];
  461.       extern    int mprof_fmemC, mprof_dmemC, mprof_lmemC, mprof_smemC;
  462.   
  463. + #ifndef xenix
  464.       ftruncate(mprof_file, 0);
  465. + #endif
  466.       lseek(mprof_file, 0L, 0);
  467.       
  468.       sprintf(stats, "alloc=%d free=%d depth=%d same=%d all=%d\n",
  469. diff -c -r -N mprof.orig/pagesz.c mprof/pagesz.c
  470. *** mprof.orig/pagesz.c
  471. --- mprof/pagesz.c    Tue Jun 25 08:04:00 1991
  472. ***************
  473. *** 0 ****
  474. --- 1,4 ----
  475. + int getpagesize()
  476. + {
  477. +   return 4096;
  478. + }
  479. diff -c -r -N mprof.orig/test1.c mprof/test1.c
  480. *** mprof.orig/test1.c    Fri Sep 14 18:19:49 1990
  481. --- mprof/test1.c    Tue Jun 25 08:10:31 1991
  482. ***************
  483. *** 11,17 ****
  484.   extern    char    *realloc();
  485.   extern    char    *calloc();
  486.   extern    char    *memalign();
  487. ! extern  long    random();
  488.   
  489.   int
  490.   main()
  491. --- 11,17 ----
  492.   extern    char    *realloc();
  493.   extern    char    *calloc();
  494.   extern    char    *memalign();
  495. ! extern  int    rand();
  496.   
  497.   int
  498.   main()
  499. ***************
  500. *** 37,45 ****
  501.       c = calloc(1, sizeof(struct tstruct));
  502.       c = realloc(c, sizeof(struct tstruct) / 2);
  503.       free(c);
  504. !     c = malloc(random() % 57);
  505.       free(c);
  506. !     c = calloc(1, random() % 57);
  507.       if (i % 2) {
  508.           free(c);
  509.       }
  510. --- 37,45 ----
  511.       c = calloc(1, sizeof(struct tstruct));
  512.       c = realloc(c, sizeof(struct tstruct) / 2);
  513.       free(c);
  514. !     c = malloc(rand() % 57);
  515.       free(c);
  516. !     c = calloc(1, rand() % 57);
  517.       if (i % 2) {
  518.           free(c);
  519.       }
  520. diff -c -r -N mprof.orig/xgasstab.h mprof/xgasstab.h
  521. *** mprof.orig/xgasstab.h
  522. --- mprof/xgasstab.h    Tue Jun 25 11:30:50 1991
  523. ***************
  524. *** 0 ****
  525. --- 1,28 ----
  526. + #define N_GSYM        0x20 
  527. + #define N_FNAME        0x22 
  528. + #define N_FUN        0x24 
  529. + #define N_STSYM        0x26 
  530. + #define N_LCSYM        0x28 
  531. + #define N_MAIN        0x2a 
  532. + #define N_RSYM        0x40 
  533. + #define N_SSYM        0x60 
  534. + #define N_PSYM        0xa0 
  535. + #define N_LSYM        0x80 
  536. + #define N_ENTRY        0xa4 
  537. + #define N_SO        0x64 
  538. + #define N_SOL        0x84 
  539. + #define N_SLINE        0x44 
  540. + #define N_DSLINE    0x46 
  541. + #define N_BSLINE    0x48 
  542. + #define N_BINCL        0x82 
  543. + #define N_EINCL        0xa2 
  544. + #define N_EXCL        0xc2 
  545. + #define N_LBRAC        0xc0 
  546. + #define N_RBRAC        0xe0 
  547. + #define N_BCOMM        0xe2 
  548. + #define N_ECOMM        0xe4 
  549. + #define N_ECOML        0xe8 
  550. + #define N_LENG        0xfe 
  551. + #define N_PC        0x30 
  552. + #define N_M2C        0x42 
  553. + #define N_SCOPE        0xc4 
  554. diff -c -r -N mprof.orig/xsym.c mprof/xsym.c
  555. *** mprof.orig/xsym.c
  556. --- mprof/xsym.c    Tue Jun 25 12:29:27 1991
  557. ***************
  558. *** 0 ****
  559. --- 1,341 ----
  560. + #include <stdio.h>
  561. + #include <a.out.h>
  562. + #include <fcntl.h>
  563. + #include <sys/types.h>
  564. + #include <sys/relsym.h>
  565. + #include <sys/param.h>
  566. + #include <sys/file.h>
  567. + #include "gas-nlist.h"
  568. + 
  569. + 
  570. + /* XENIX symbol segment shape definitions */
  571. + 
  572. + struct section2 {      /* File info table shape */
  573. +   short    segment;  /* segment number */
  574. +   unsigned long  address;  /* start address for this file */
  575. +   unsigned short  textsize;  /* size of the text for this file */
  576. +   long    type3off;  /* offset to type3 records, psym tab */
  577. +   long    type4off;  /* offset to type4 records, nlist tab */
  578. +   long    type5off;  /* offset to type5 records, str tab */
  579. +   long    type6off;  /* offset to type6 records */
  580. +   unsigned short  type3sz;  /* size of type3 records */
  581. +   unsigned short  type4sz;  /* size of type4 records */
  582. +   unsigned short  type5sz;  /* size of type5 records */
  583. +   unsigned short  type6sz;  /* size of type6 records */
  584. +   char    filelen;  /* length of filename */
  585. + };
  586. + 
  587. + /* psymtable (attribute 3) symbol segment shape */
  588. + 
  589. + struct psymbol_seg {
  590. +   long    address;  /* core address */
  591. +   short    segid;    /* segment number */
  592. +   short    typeid;    /* variable's type */
  593. +   char    varlen;    /* variable's length */
  594. + /*  char    name[0];  trailing name varlen long */
  595. + } record3;
  596. + 
  597. + /*  Info maintenance structures */
  598. + 
  599. + struct fileinfo {    /* per file info */
  600. +   unsigned long  address;  /* start address for this file */
  601. +   unsigned short  textsize;  /* size of text for this file */
  602. +   long    psymoff;  /* psyms table */
  603. +   long    strtaboff;  /* string table aka $$TYPES */
  604. +   long    ntaboff;  /* nlist table aka $$SYMBOLS */
  605. +   unsigned short  psymsz;    /* size of psyms table */
  606. +   unsigned short  strtabsz;  /* size of string table */
  607. +   unsigned short  ntabsz;    /* size of nlist table */
  608. +   int    mscdebuginfo;  /* compiled with cc -g not gcc -g */
  609. +   char    *filename;  /* name of this file */
  610. +   struct fileinfo *next;
  611. + };
  612. + 
  613. + static struct fileinfo *fi_table = 0;
  614. + struct xseg *seg_table;
  615. + long num_seg_table_entries;
  616. + 
  617. + #ifdef __GNUC__
  618. + #define alloca __builtin_alloca
  619. + #endif
  620. + 
  621. + #define IGNORE_ATTR (-1)
  622. + 
  623. + static error (string, arg1, arg2, arg3)
  624. +      char *string;
  625. +      int arg1, arg2, arg3;
  626. + {
  627. +   fflush (stdout);
  628. +   fprintf (stderr, string, arg1, arg2, arg3);
  629. +   fprintf (stderr, "\n");
  630. +   exit(1);
  631. + }
  632. + 
  633. + static char * xmalloc (size)
  634. +      long size;
  635. + {
  636. +   register char *val = (char *) malloc (size);
  637. +   if (!val)
  638. +     error ("virtual memory exhausted.");
  639. +   return val;
  640. + }
  641. + 
  642. + static perror_with_name (string)
  643. +      char *string;
  644. + {
  645. +   extern int sys_nerr;
  646. +   extern char *sys_errlist[];
  647. +   extern int errno;
  648. +   char *err;
  649. +   char *combined;
  650. + 
  651. +   if (errno < sys_nerr)
  652. +     err = sys_errlist[errno];
  653. +   else
  654. +     err = "unknown error";
  655. + 
  656. +   combined = (char *) alloca (strlen (err) + strlen (string) + 3);
  657. +   strcpy (combined, string);
  658. +   strcat (combined, ": ");
  659. +   strcat (combined, err);
  660. + 
  661. +   error ("%s.", combined);
  662. + }
  663. + 
  664. + static char *savestring (ptr, size)
  665. +      char *ptr;
  666. +      int size;
  667. + {
  668. +   register char *p = (char *) xmalloc (size + 1);
  669. +   memcpy(p, ptr, size);
  670. +   p[size] = 0;
  671. +   return p;
  672. + }
  673. + 
  674. + static read_fileinfo_table(fp, segsize, name)
  675. + FILE *fp;
  676. + int segsize;
  677. + char *name;
  678. + {
  679. +   extern char *strrchr(), *xmalloc();
  680. +   char *fi_name;
  681. +   char *filename;
  682. +   struct section2 fi_entry;
  683. +   struct fileinfo *fi;
  684. + 
  685. +   fi_table = fi = (struct fileinfo *)xmalloc(sizeof(struct fileinfo));
  686. +   while (segsize > 0)
  687. +   {
  688. +     if ((fread((char *)&fi_entry.segment, sizeof(short), 1, fp) != 1)
  689. +       || (fread((char *)&fi_entry.address, sizeof(unsigned long), 1, fp) != 1)
  690. +       || (fread((char *)&fi_entry.textsize, sizeof(unsigned short),1,fp) != 1)
  691. +       || (fread((char *)&fi_entry.type3off, sizeof(long), 1, fp) != 1)
  692. +       || (fread((char *)&fi_entry.type4off, sizeof(long), 1, fp) != 1)
  693. +       || (fread((char *)&fi_entry.type5off, sizeof(long), 1, fp) != 1)
  694. +       || (fread((char *)&fi_entry.type6off, sizeof(long), 1, fp) != 1)
  695. +       || (fread((char *)&fi_entry.type3sz, sizeof(unsigned short),1,fp) != 1)
  696. +       || (fread((char *)&fi_entry.type4sz, sizeof(unsigned short),1,fp) != 1)
  697. +       || (fread((char *)&fi_entry.type5sz, sizeof(unsigned short),1,fp) != 1)
  698. +       || (fread((char *)&fi_entry.type6sz, sizeof(unsigned short),1,fp) != 1)
  699. +       || (fread((char *)&fi_entry.filelen, sizeof(char), 1, fp) != 1))
  700. +       perror_with_name(name);
  701. + 
  702. +     segsize -= sizeof(short) + sizeof(unsigned long) + 5*sizeof(unsigned short)
  703. +          + 4 * sizeof(long) + sizeof(char);
  704. + 
  705. +     fi_name = alloca(fi_entry.filelen + 1);
  706. +     if (fread(fi_name, fi_entry.filelen, 1, fp) != 1)
  707. +       perror_with_name(name);
  708. +     fi_name[fi_entry.filelen] = '\0';
  709. +     segsize -= fi_entry.filelen;
  710. + 
  711. +     if ((filename = strrchr(fi_name, '/')) != (char *)0)
  712. +       fi_name = filename + 1;
  713. + 
  714. +     if ((filename = strrchr(fi_name, '(')) != (char *)0)
  715. +       fi_name = filename + 1;
  716. + 
  717. +     if ((filename = strrchr(fi_name, ')')) != (char *)0)
  718. +         *filename = '\0';
  719. +    
  720. +     {
  721. +       int len = strlen(fi_name);
  722. + 
  723. +       if (len > 2 && fi_name[len - 1] == 'o' && fi_name[len - 2] == '.')
  724. +       fi_name[len - 1] = 'c';
  725. +     }
  726. + 
  727. +     fi_name = savestring(fi_name, strlen(fi_name) + 1);
  728. + 
  729. +     fi->next = (struct fileinfo *)xmalloc(sizeof(struct fileinfo));
  730. +     fi = fi->next;
  731. + 
  732. +     fi->address = fi_entry.address;
  733. +     fi->textsize = fi_entry.textsize;
  734. +     fi->psymoff = fi_entry.type3off;
  735. +     fi->psymsz = fi_entry.type3sz;
  736. +     fi->strtaboff = fi_entry.type4off;
  737. +     fi->strtabsz = fi_entry.type4sz;
  738. +     fi->ntaboff = fi_entry.type5off;
  739. +     fi->ntabsz = fi_entry.type5sz;
  740. +     fi->mscdebuginfo = (fi_entry.type6sz != 0);
  741. +     fi->filename = fi_name;
  742. +   }
  743. +   fi->next = 0;  fi = fi_table;  fi_table = fi_table->next;  free(fi);
  744. + 
  745. + #ifdef X_DEBUG
  746. +     printf("\naddress   textsz  symoff   symsz  stroff   strsz  taboff   tabsz  name\n\n");
  747. +   for (fi = fi_table; fi != 0; fi = fi->next)
  748. +   {
  749. +     printf("% 8x  % 6d  % 6d  % 6d  % 6d  % 6d  % 6d  %6d  %s\n", fi->address, fi->textsize, fi->psymoff, fi->psymsz, fi->strtaboff, fi->strtabsz, fi->ntaboff, fi->ntabsz, fi->filename);
  750. +   }
  751. +   printf("\n");
  752. + #endif /* X_DEBUG */
  753. + }
  754. + 
  755. + static read_seg_table(fp, pos, size, name)
  756. + FILE *fp;
  757. + long pos, size;
  758. + {
  759. +   seg_table = (struct xseg *) xmalloc(size);
  760. +   fseek(fp, pos, 0);
  761. +   if (fread((char *)seg_table, size, 1, fp) != 1)
  762. +     perror_with_name(name);
  763. +   num_seg_table_entries = size / sizeof (struct xseg);
  764. + }
  765. + 
  766. + 
  767. + struct xseg *find_segment(type, attr)
  768. + int type, attr;
  769. + {
  770. +   struct xseg *cseg;
  771. + 
  772. +   for (cseg = seg_table; cseg < seg_table + num_seg_table_entries; ++cseg)
  773. +   if (cseg->xs_type == type &&
  774. +     (attr == IGNORE_ATTR || attr == cseg->xs_attr))
  775. +     return cseg;
  776. +   return NULL;
  777. + }
  778. + 
  779. + process_a_out(desc, name)
  780. + int desc;
  781. + char *name;
  782. + {
  783. +   struct xexec exec_aouthdr;
  784. +   struct xext *xext;
  785. +   struct xseg *cseg;
  786. +   FILE *fp;
  787. + 
  788. +   lseek(desc, 0L, 0);
  789. +   if ((fp = fdopen(dup(desc), "r")) == NULL)
  790. +     perror_with_name(name);
  791. + 
  792. +   if (fread((char *)&exec_aouthdr, sizeof(struct xexec), 1, fp) != 1)
  793. +     perror_with_name(name);
  794. +   
  795. +   xext = (struct xext *) alloca(exec_aouthdr.x_ext);
  796. +   if (fread((char *)xext, exec_aouthdr.x_ext, 1, fp) != 1)
  797. +     perror_with_name(name);
  798. +   
  799. +   read_seg_table(fp, xext->xe_segpos, xext->xe_segsize, name);
  800. + 
  801. +   if (cseg = find_segment(XS_TSYMS, 2))
  802. +   {
  803. +     fseek(fp, cseg->xs_filpos, 0);
  804. +     read_fileinfo_table(fp, cseg->xs_psize, name);
  805. +   }
  806. + 
  807. +   fclose(fp);
  808. + }
  809. + 
  810. + static struct fileinfo *current_fi;
  811. + static int first_get_fileinfo_call = 1;
  812. + 
  813. + init_fileinfo_processing()  /* start processing the list of files */
  814. + {
  815. +   first_get_fileinfo_call = 1;
  816. + }
  817. + 
  818. + long get_next_fileinfo(stroff, nsyms, address, symtaboff)
  819. + long *stroff, *nsyms, *address, *symtaboff;
  820. + {
  821. +   struct xseg *cseg;
  822. + 
  823. +   if (first_get_fileinfo_call)
  824. +   {
  825. +     current_fi = fi_table;
  826. +     first_get_fileinfo_call = 0;
  827. +   }
  828. +   else
  829. +     current_fi = current_fi->next;
  830. +   
  831. +   if (current_fi == 0)
  832. +     return 0;
  833. + 
  834. +   if (current_fi->mscdebuginfo)
  835. +   {
  836. +     *stroff = 0;
  837. +     *nsyms = 0;
  838. +     *address = current_fi->address;
  839. +   }
  840. +   else if (cseg = find_segment(XS_TSYMS, 5))
  841. +   {
  842. +     *symtaboff = cseg->xs_filpos + current_fi->ntaboff;
  843. +     *stroff = current_fi->strtaboff;
  844. +     *nsyms = current_fi->ntabsz / sizeof(struct gas_nlist);
  845. +     *address = current_fi->address;
  846. +     return 1;
  847. +   }
  848. +   else
  849. +   {
  850. +     *symtaboff = 0;
  851. +     *stroff = 0;
  852. +     *nsyms = 0;
  853. +     *address = 0;
  854. +   }
  855. + }
  856. + 
  857. + #ifdef TEST
  858. + 
  859. + main()
  860. + {
  861. +   char *stab;
  862. +   long str_offset, nsyms, address, ntaboff;
  863. +   int desc;
  864. +   struct xseg *cseg;
  865. + 
  866. +   process_a_out((desc = open("a.out", O_RDONLY, 0)), "a.out");
  867. + 
  868. +   printf("\n");
  869. + 
  870. +   if (cseg = find_segment(XS_TSYMS, 4))
  871. +   {
  872. +     lseek(desc, cseg->xs_filpos, 0);
  873. +     stab = alloca(cseg->xs_psize);
  874. +     read(desc, stab, cseg->xs_psize);
  875. +   }
  876. +   else
  877. +     stab = 0;
  878. + 
  879. +   init_fileinfo_processing();
  880. +   while (get_next_fileinfo(&str_offset,&nsyms,&address,&ntaboff))
  881. +   {
  882. +     lseek(desc, ntaboff, 0);
  883. +     printf("\n  type    desc     value  stroff  string (%#x)\n", address);
  884. +     while (nsyms--)
  885. +     {
  886. +       struct gas_nlist nl;
  887. + 
  888. +       read(desc, &nl, sizeof(nl));
  889. +       printf("% 6x  % 6x  % 8x  % 6x %s\n",
  890. +        (unsigned char)nl.n_type,
  891. +        (unsigned short)nl.n_desc,
  892. +        (unsigned int)nl.n_value,
  893. +        (unsigned int)nl.n_un.n_strx,
  894. +        nl.n_un.n_strx ? stab + str_offset + nl.n_un.n_strx : "");
  895. +     }
  896. +     lseek(desc, 0L, 0);
  897. +   }
  898. + }
  899. + 
  900. + #endif /* TEST */
  901. -- 
  902. Steve.Bleazard@RoboBar.Co.Uk        | Phone:  +44 81 991 1142 x153
  903. Snr Software Engineer, Robobar Ltd. | Fax:    +44 81 998 8343 (G3)
  904. 22 Wadsworth Road, Perivale.        |
  905. Middx., UB6 7JD ENGLAND.            | ...!ukc!robobar!steve
  906.