home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3540 < prev    next >
Encoding:
Text File  |  1991-06-26  |  17.0 KB  |  722 lines
  1. Newsgroups: alt.sources
  2. From: jtkohl@MIT.EDU (John T Kohl)
  3. Subject: mprof: DEC MIPS patches
  4. Message-ID: <JTKOHL.91Jun25103047@soup.MIT.EDU>
  5. Date: Tue, 25 Jun 91 14:30:57 GMT
  6.  
  7. I've gotten a few requests for these patches, so here they are: The
  8. MIPS-specific enhancements and GNU_C frame pointer frobbery are mine
  9. (including the null-pointer avoidance code), the other stuff is from
  10. Marc Horowitz <marc@mit.edu>.
  11.  
  12. shar & enjoy
  13.  
  14. diffs are vs. standard mprof 3.0 distributions.
  15.  
  16. RCS file: RCS/Makefile.mips,v
  17. retrieving revision 1.1
  18. diff -c -r1.1 Makefile.mips
  19. *** /tmp/,RCSt1019637    Tue Jun 25 10:20:37 1991
  20. --- Makefile.mips    Wed Feb 20 13:07:19 1991
  21. ***************
  22. *** 113,119 ****
  23.       $(BIN)/mprof -normal test1 test1.data > test1.mprof
  24.   
  25.   test1.data: test1
  26. !     test1
  27.       cp mprof.data test1.data
  28.   
  29.   test1: test1.o $(MPLIB)
  30. --- 113,119 ----
  31.       $(BIN)/mprof -normal test1 test1.data > test1.mprof
  32.   
  33.   test1.data: test1
  34. !     ./test1
  35.       cp mprof.data test1.data
  36.   
  37.   test1: test1.o $(MPLIB)
  38. ***************
  39. *** 131,137 ****
  40.       $(BIN)/mprof -normal test2 test2.data > test2.mprof
  41.   
  42.   test2.data: test2
  43. !     test2
  44.       cp mprof.data test2.data
  45.   
  46.   test2: test2.o $(MPLIB)
  47. --- 131,137 ----
  48.       $(BIN)/mprof -normal test2 test2.data > test2.mprof
  49.   
  50.   test2.data: test2
  51. !     ./test2
  52.       cp mprof.data test2.data
  53.   
  54.   test2: test2.o $(MPLIB)
  55. ===================================================================
  56. RCS file: RCS/Makefile.vax,v
  57. retrieving revision 1.1
  58. diff -c -r1.1 Makefile.vax
  59. *** /tmp/,RCSt1019637    Tue Jun 25 10:20:39 1991
  60. --- Makefile.vax    Wed Feb 20 13:25:23 1991
  61. ***************
  62. *** 15,20 ****
  63. --- 15,21 ----
  64.   
  65.   CFLAGS = -I. -g
  66.   ASFLAGS =
  67. + CPP = /lib/cpp
  68.   BIN = /mit/watchmaker/vaxbin
  69.   LIB = /mit/watchmaker/vaxlib
  70.   INCLUDE = /mit/watchmaker/include
  71. ***************
  72. *** 21,33 ****
  73.   MPLIB = libc_mp.a
  74.   LINTFLAGS = -bhx
  75.   
  76. ! # sun4,mips         ASM_SRC = md.s
  77. ! # sun4,mips         ASM_OBJ = md.o
  78. ! # vax,sun3         ASM_SRC =
  79. ! # vax,sun3         ASM_SRC =
  80.   
  81. ! ASM_SRC =
  82. ! ASM_OBJ =
  83.   
  84.   MPROF_MON_SRCS = leak.c malloc.c mpattach.c mprof_mon.c mpstruct.c $(ASM_SRC)
  85.   MPROF_MON_OBJS = leak.o malloc.o mpattach.o mprof_mon.o mpstruct.o $(ASM_OBJ)
  86. --- 22,34 ----
  87.   MPLIB = libc_mp.a
  88.   LINTFLAGS = -bhx
  89.   
  90. ! # sun4,mips,vax     ASM_SRC = md.s
  91. ! # sun4,mips,vax        ASM_OBJ = md.o
  92. ! # sun3             ASM_SRC =
  93. ! # sun3             ASM_OBJ =
  94.   
  95. ! ASM_SRC = md.s
  96. ! ASM_OBJ = md.o
  97.   
  98.   MPROF_MON_SRCS = leak.c malloc.c mpattach.c mprof_mon.c mpstruct.c $(ASM_SRC)
  99.   MPROF_MON_OBJS = leak.o malloc.o mpattach.o mprof_mon.o mpstruct.o $(ASM_OBJ)
  100. ***************
  101. *** 62,69 ****
  102.   
  103.   $(MPLIB): $(MPROF_MON_OBJS)
  104.       cp /lib/libc.a $(MPLIB)
  105. !     ar d $(MPLIB) malloc.o valloc.o $(LIB_REPLACE)
  106. !     ar r $(MPLIB) $(MPROF_MON_OBJS)
  107.       ranlib $(MPLIB)
  108.   
  109.   test: $(TEST_OBJS) test1-demo test2-demo
  110. --- 63,70 ----
  111.   
  112.   $(MPLIB): $(MPROF_MON_OBJS)
  113.       cp /lib/libc.a $(MPLIB)
  114. !     ar dv $(MPLIB) malloc.o valloc.o $(LIB_REPLACE)
  115. !     ar rv $(MPLIB) $(MPROF_MON_OBJS)
  116.       ranlib $(MPLIB)
  117.   
  118.   test: $(TEST_OBJS) test1-demo test2-demo
  119. ***************
  120. *** 88,94 ****
  121.   mpgraph.o: mpgraph.c
  122.   mprof.o: mprof.c
  123.   md.o: md.s
  124. !     $(AS) $(ASFLAGS) -o md.o md.s
  125.   
  126.   malloc.o: malloc.c
  127.       $(CC) $(CFLAGS) -Dmalloc=__malloc__ -Dfree=__free__ -Drealloc=__realloc__ malloc.c -c
  128. --- 89,95 ----
  129.   mpgraph.o: mpgraph.c
  130.   mprof.o: mprof.c
  131.   md.o: md.s
  132. !     $(CPP) md.s | $(AS) $(ASFLAGS) -o md.o
  133.   
  134.   malloc.o: malloc.c
  135.       $(CC) $(CFLAGS) -Dmalloc=__malloc__ -Dfree=__free__ -Drealloc=__realloc__ malloc.c -c
  136. ***************
  137. *** 116,122 ****
  138.       $(BIN)/mprof -normal test1 test1.data > test1.mprof
  139.   
  140.   test1.data: test1
  141. !     test1
  142.       cp mprof.data test1.data
  143.   
  144.   test1: test1.o $(MPLIB)
  145. --- 117,123 ----
  146.       $(BIN)/mprof -normal test1 test1.data > test1.mprof
  147.   
  148.   test1.data: test1
  149. !     ./test1
  150.       cp mprof.data test1.data
  151.   
  152.   test1: test1.o $(MPLIB)
  153. ***************
  154. *** 134,140 ****
  155.       $(BIN)/mprof -normal test2 test2.data > test2.mprof
  156.   
  157.   test2.data: test2
  158. !     test2
  159.       cp mprof.data test2.data
  160.   
  161.   test2: test2.o $(MPLIB)
  162. --- 135,141 ----
  163.       $(BIN)/mprof -normal test2 test2.data > test2.mprof
  164.   
  165.   test2.data: test2
  166. !     ./test2
  167.       cp mprof.data test2.data
  168.   
  169.   test2: test2.o $(MPLIB)
  170. ===================================================================
  171. RCS file: RCS/md.s,v
  172. retrieving revision 1.1
  173. diff -c -r1.1 md.s
  174. *** /tmp/,RCSt1019637    Tue Jun 25 10:20:40 1991
  175. --- md.s    Wed Feb 20 13:21:33 1991
  176. ***************
  177. *** 51,53 ****
  178. --- 51,59 ----
  179.       j    $31
  180.       .end    getsp
  181.   #endif
  182. + #ifdef vax
  183. + .globl _startaddr
  184. + .globl start
  185. + _startaddr:
  186. +     .long start
  187. + #endif
  188. ===================================================================
  189. RCS file: RCS/mpgraph.c,v
  190. retrieving revision 1.1
  191. diff -c -r1.1 mpgraph.c
  192. *** /tmp/,RCSt1019637    Tue Jun 25 10:20:41 1991
  193. --- mpgraph.c    Wed Feb 20 15:01:43 1991
  194. ***************
  195. *** 90,95 ****
  196. --- 90,97 ----
  197.   int    *scratch;
  198.   {
  199.       vertex result = (vertex) malloc(sizeof(vertex_item));
  200. +     if (!name)
  201. +     name = "(anonymous)";
  202.       result->name = name;
  203.       result->number = number;
  204.       result->srefs = 0;
  205. ***************
  206. *** 491,497 ****
  207.   char    *key;
  208.   {
  209.       ENTRY    e, *result;
  210. !     e.key = key;
  211.       
  212.       result = hsearch(e, FIND);
  213.       return (vertex) result->data;
  214. --- 493,502 ----
  215.   char    *key;
  216.   {
  217.       ENTRY    e, *result;
  218. !     if (key)
  219. !     e.key = key;
  220. !     else
  221. !     e.key = "(anonymous)";
  222.       
  223.       result = hsearch(e, FIND);
  224.       return (vertex) result->data;
  225. ===================================================================
  226. RCS file: RCS/mprof.h,v
  227. retrieving revision 1.1
  228. diff -c -r1.1 mprof.h
  229. *** /tmp/,RCSt1019637    Tue Jun 25 10:20:43 1991
  230. --- mprof.h    Wed Feb 20 18:11:48 1991
  231. ***************
  232. *** 1,8 ****
  233.   /*    mprof.h 2.5 9/14/90 16:01:19    */
  234.   /*    Copyright (c) 1987, Benjamin G. Zorn */
  235.   
  236. ! /* $Id: mprof.h,v 1.1 90/11/17 02:14:48 marc Exp $ */
  237.   
  238.   typedef    int    bool;
  239.   #define    TRUE    1
  240.   #define    FALSE    0
  241. --- 1,24 ----
  242.   /*    mprof.h 2.5 9/14/90 16:01:19    */
  243.   /*    Copyright (c) 1987, Benjamin G. Zorn */
  244.   
  245. ! /* $Id: mprof.h,v 1.3 91/02/20 10:04:42 jtkohl Exp $ */
  246.   
  247. + /* definitions for programs which modify mprof's default behavior */
  248. + 
  249. + #ifdef __STDC__
  250. + #define ARG(x) x
  251. + #else
  252. + #define ARG(x) ()
  253. + #endif
  254. + 
  255. + void set_mprof_autosave ARG((int));
  256. + void set_mprof_keep_file_open ARG((int));
  257. + void set_mprof_append_pid ARG((int));
  258. + void mprof_stop ARG((void));
  259. + void mprof_restart ARG((char *));
  260. + 
  261. + #undef ARG
  262. + 
  263.   typedef    int    bool;
  264.   #define    TRUE    1
  265.   #define    FALSE    0
  266. ***************
  267. *** 111,119 ****
  268.   
  269.   extern    char    *strdup();
  270.   
  271. ! #if (defined(vax) || (defined(sun) && !defined(sun4)))
  272. ! #define get_current_fp(first_local) ((unsigned)&(first_local) + 4)
  273.   #endif
  274.   
  275.   #if (defined(vax) || defined(sun))
  276.   #include <sys/types.h>
  277. --- 127,143 ----
  278.   
  279.   extern    char    *strdup();
  280.   
  281. ! #if defined(vax) || defined(__vax__)
  282. ! #ifdef __GNUC__
  283. ! #define get_current_fp(fp, first_local) asm("movl fp,%0" : "=g" (fp));
  284. ! #else
  285. ! #define get_current_fp(fp, first_local) fp = ((unsigned)&(first_local) + 4)
  286.   #endif
  287. + #else /* not vax */
  288. + #if (defined(sun) && !defined(sun4))
  289. + #define get_current_fp(fp, first_local) fp = ((unsigned)&(first_local) + 4)
  290. + #endif /* sun */
  291. + #endif /* vax */
  292.   
  293.   #if (defined(vax) || defined(sun))
  294.   #include <sys/types.h>
  295. ===================================================================
  296. RCS file: RCS/mprof_mon.c,v
  297. retrieving revision 1.1
  298. diff -c -r1.1 mprof_mon.c
  299. *** /tmp/,RCSt1019637    Tue Jun 25 10:20:45 1991
  300. --- mprof_mon.c    Thu Feb 21 11:51:53 1991
  301. ***************
  302. *** 1,7 ****
  303.   /*    mprof_mon.c 1.1 9/14/90 11:59:04    */
  304.   /*    Copyright (c) 1987, Benjamin G. Zorn */
  305.   
  306. ! /* $Id: mprof_mon.c,v 1.1 90/11/17 00:34:16 marc Exp $ */
  307.   
  308.   /* mprof_mon -- code that is attached to executing programs.
  309.    */
  310. --- 1,7 ----
  311.   /*    mprof_mon.c 1.1 9/14/90 11:59:04    */
  312.   /*    Copyright (c) 1987, Benjamin G. Zorn */
  313.   
  314. ! /* $Id: mprof_mon.c,v 1.5 91/02/21 11:51:16 jtkohl Exp $ */
  315.   
  316.   /* mprof_mon -- code that is attached to executing programs.
  317.    */
  318. ***************
  319. *** 8,13 ****
  320. --- 8,14 ----
  321.   
  322.   #include    <stdio.h>
  323.   #include    <sys/file.h>
  324. + #include    <sys/param.h>
  325.   #include    "mprof.h"
  326.   
  327.   #ifdef mips
  328. ***************
  329. *** 38,44 ****
  330. --- 39,48 ----
  331.   /* local variables */
  332.     
  333.   char    *mprof_filename = "mprof.data";
  334. + char    mprof_filename_buf[MAXPATHLEN];
  335.   int    mprof_autosave = 0;
  336. + int    mprof_keep_file_open = 1;
  337. + int    mprof_append_pid = 0;
  338.   int    mprof_file;
  339.   bool    mprof_initialized = FALSE;
  340.   bool    mprofing = TRUE;
  341. ***************
  342. *** 249,254 ****
  343. --- 253,259 ----
  344.   
  345.   #ifdef mips
  346.       pPDR pdr;
  347. +     unsigned getretaddr();
  348.   #endif
  349.   
  350.       if (!mprof_initialized) {
  351. ***************
  352. *** 269,275 ****
  353.       /* gather return addresses from the callstack
  354.        */
  355.   #ifndef mips
  356. !     fp = get_current_fp(first_local);
  357.       ret_addr = ret_addr_from_fp(fp);
  358.       
  359.       /* Step back 1 frame (to the caller of malloc)
  360. --- 274,280 ----
  361.       /* gather return addresses from the callstack
  362.        */
  363.   #ifndef mips
  364. !     get_current_fp(fp, first_local);
  365.       ret_addr = ret_addr_from_fp(fp);
  366.       
  367.       /* Step back 1 frame (to the caller of malloc)
  368. ***************
  369. *** 277,282 ****
  370. --- 282,288 ----
  371.       fp = prev_fp_from_fp(fp);
  372.       ret_addr = ret_addr_from_fp(fp);
  373.       
  374. + 
  375.       while (ret_addr > mp_root_address) {
  376.       if (no_call_graph && (fstk_i > SHORT_CALLSTACK_SIZE))
  377.         break;
  378. ***************
  379. *** 408,425 ****
  380.   }
  381.   
  382.   void
  383. ! mprof_startup()
  384.   {
  385. - #ifdef sun
  386. -     on_exit(mprof_exit, NULL);
  387. - #endif    
  388.       if (strcmp(mprof_filename, "") == 0) {
  389.       mprof_file = 1;
  390.       } else {
  391. !     mprof_file = open(mprof_filename,
  392.                 (O_WRONLY | O_CREAT | O_TRUNC),
  393.                 mprof_create_mask);
  394.       }
  395.       mpstruct_init();
  396.       mp_zero_bins();
  397.       mpleak_init();
  398. --- 414,453 ----
  399.   }
  400.   
  401.   void
  402. ! mprof_open_file()
  403.   {
  404.       if (strcmp(mprof_filename, "") == 0) {
  405.       mprof_file = 1;
  406.       } else {
  407. !     char fname[MAXPATHLEN];
  408. ! 
  409. !     if (mprof_append_pid)
  410. !         sprintf(fname,"%s%d",mprof_filename,getpid());
  411. !     else
  412. !         sprintf(fname,"%s",  mprof_filename);
  413. ! 
  414. !     mprof_file = open(fname,
  415.                 (O_WRONLY | O_CREAT | O_TRUNC),
  416.                 mprof_create_mask);
  417.       }
  418. + }
  419. + 
  420. + void
  421. + mprof_startup()
  422. + {
  423. + #if defined(vax) || defined(__vax__)
  424. +     /* if using P0INVALID code, we need to make sure we know the real
  425. +        address of start().  start+CRT0_ADDRESS is the return address
  426. +        of the active start(). see sa_vax.s */
  427. +     extern unsigned long startaddr;
  428. +     mp_root_address += startaddr;
  429. + #endif
  430. + 
  431. + #ifdef sun
  432. +     on_exit(mprof_exit, NULL);
  433. + #endif
  434. +     if (mprof_keep_file_open)
  435. +     mprof_open_file();
  436.       mpstruct_init();
  437.       mp_zero_bins();
  438.       mpleak_init();
  439. ***************
  440. *** 447,452 ****
  441. --- 475,483 ----
  442.       char    stats[256];
  443.       extern    int mprof_fmemC, mprof_dmemC, mprof_lmemC, mprof_smemC;
  444.   
  445. +     if (!mprof_keep_file_open)
  446. +     mprof_open_file();
  447. + 
  448.       ftruncate(mprof_file, 0);
  449.       lseek(mprof_file, 0L, 0);
  450.       
  451. ***************
  452. *** 471,476 ****
  453. --- 502,510 ----
  454.       mp_print_leak_table(mprof_file);
  455.       
  456.       mprof_print(mprof_file);
  457. + 
  458. +     if (!mprof_keep_file_open)
  459. +     close(mprof_file);
  460.   }
  461.   
  462.   void
  463. ***************
  464. *** 478,484 ****
  465.   {
  466.       if (mprof_initialized) {
  467.           mprof_writefile();
  468. !         close(mprof_file);
  469.       }
  470.   }
  471.   
  472. --- 512,519 ----
  473.   {
  474.       if (mprof_initialized) {
  475.           mprof_writefile();
  476. !     if (mprof_keep_file_open)
  477. !         close(mprof_file);
  478.       }
  479.   }
  480.   
  481. ***************
  482. *** 490,499 ****
  483.      int count;               count = 0 (default)  implies no autosave
  484.   
  485.      void
  486.      mprof_stop()            -- stop the memory profile in progress
  487.   
  488.      void
  489. !    mprof_restart(datafile)    -- restart memory profiling
  490.   
  491.   */
  492.      
  493. --- 525,546 ----
  494.      int count;               count = 0 (default)  implies no autosave
  495.   
  496.      void
  497. +    set_mprof_keep_file_open(onoff)
  498. +    int onoff            -- if onoff != 0 (default) keeps the file
  499. +                       open between writes.  Otherwise, closes
  500. +                    and opens each time.  
  501. + 
  502. +    void
  503. +    set_mprof_append_pid(onoff) 
  504. +    int onoff            -- appends pid to datafile name before
  505. +                    reopening it the next time.
  506. + 
  507. +    void
  508.      mprof_stop()            -- stop the memory profile in progress
  509.   
  510.      void
  511. !    mprof_restart(datafile)    -- restart memory profiling.   If datafile ==
  512. !                    NULL, opens old file.
  513.   
  514.   */
  515.      
  516. ***************
  517. *** 504,521 ****
  518.       mprof_autosave = count;
  519.   }
  520.         
  521.   
  522.   void
  523.   mprof_restart(datafile)
  524.   char    *datafile;
  525.   {
  526.       if (mprofing)
  527.       fprintf(stderr,
  528. !     "mprof_restart -- restart ingnored; memory profiling in progress\n");
  529.       else {
  530.       mprof_initialized = FALSE;
  531.       mprofing = TRUE;
  532. !     mprof_filename = datafile;
  533.       }
  534.   }
  535.   
  536. --- 551,582 ----
  537.       mprof_autosave = count;
  538.   }
  539.         
  540. + void
  541. + set_mprof_keep_file_open(onoff)
  542. + int    onoff;
  543. + {
  544. +     mprof_keep_file_open = onoff;
  545. + }
  546.   
  547.   void
  548. + set_mprof_append_pid(onoff)
  549. + int    onoff;
  550. + {
  551. +     mprof_append_pid = onoff;
  552. + }
  553. + 
  554. + void
  555.   mprof_restart(datafile)
  556.   char    *datafile;
  557.   {
  558.       if (mprofing)
  559.       fprintf(stderr,
  560. !     "mprof_restart -- restart ignored; memory profiling in progress\n");
  561.       else {
  562.       mprof_initialized = FALSE;
  563.       mprofing = TRUE;
  564. !     if (datafile)
  565. !        mprof_filename = datafile;
  566.       }
  567.   }
  568.   
  569. ***************
  570. *** 524,530 ****
  571.   {
  572.       if (!mprofing) 
  573.       fprintf(stderr,
  574. !     "mprof_stop -- stop ingnored; memory profiling not in progress\n");
  575.       else {
  576.       mprof_cleanup();
  577.       mprofing = FALSE;
  578. --- 585,591 ----
  579.   {
  580.       if (!mprofing) 
  581.       fprintf(stderr,
  582. !     "mprof_stop -- stop ignored; memory profiling not in progress\n");
  583.       else {
  584.       mprof_cleanup();
  585.       mprofing = FALSE;
  586. ***************
  587. *** 538,544 ****
  588.   
  589.   pdrinit()
  590.   {
  591. !     int i;
  592.       SYMR asym;
  593.       extern char **__Argv;    /* hack */
  594.       pFDR pfd;
  595. --- 599,605 ----
  596.   
  597.   pdrinit()
  598.   {
  599. !     register int i, j;
  600.       SYMR asym;
  601.       extern char **__Argv;    /* hack */
  602.       pFDR pfd;
  603. ***************
  604. *** 576,582 ****
  605. --- 637,702 ----
  606.           }
  607.         }
  608.       }
  609. +     for (i = 0; i < SYMHEADER(ldptr).ipdMax - 1; i++) {
  610. +         if (!pdrarray[i].adr) {
  611. +         /* jtkohl@mit.edu: this (apparently)
  612. +            happens when the symbol name for the referenced function
  613. +            has been stripped out, such as when it's a static function
  614. +            and the .o file had ld -x -r run over it.
  615. +            What we really ought to do is determine where the
  616. +            procedure really starts.
  617. +           
  618. +            we attempt to do so, by starting with the previous address,
  619. +            looking for the SECOND addiu   sp,sp,{neg_size}.
  620.   
  621. +            since the MIPS and GCC compilers only generate one such
  622. +            instruction per C function, the second one should be
  623. +            in the prologue of the desired function.
  624. + 
  625. +            HOWEVER, if we have a static function which is a LEAF (no
  626. +            locals, no function calls) we will actually miss the
  627. +            function and find the next one.  Luckily, such a function
  628. +            can never appear on the call graph leading to a malloc, so
  629. +            if we assign it an address just before the address of the
  630. +            next function, then we should never mistakenly "find"
  631. +            it when doing a binary search for a return address.
  632. + 
  633. +            If we have two or more functions with no args before
  634. +            the next known function, it gets hairier...
  635. + 
  636. +            ADDIU sp,sp, {size} is:
  637. +            0x27bd.... (16-bit offset size)
  638. + 
  639. +          */
  640. +         unsigned long *search;
  641. +         if (i == 0 || i == SYMHEADER(ldptr).ipdMax - 2)
  642. +             punt("can't fix up first/last address in table");
  643. +         search = (unsigned long *)pdrarray[i-1].adr;
  644. +         search++;        /* skip over the adjustment
  645. +                        in the previous procedure */
  646. +         while ((*search & 0xffff8000) != 0x27bd8000)
  647. +             search++;
  648. +         if (pdrarray[i+1].adr) {
  649. +             if (search == (unsigned long *)pdrarray[i+1].adr) {
  650. +             /* found next function...back up */
  651. +             search--;
  652. +             }
  653. +         } else {
  654. +             for (j = i+2; j < SYMHEADER(ldptr).ipdMax - 2; j++) {
  655. +             if (pdrarray[j].adr) {
  656. +                 if (search == (unsigned long *)pdrarray[j].adr) {
  657. +                 search -= (j-1);
  658. +                 }
  659. +                 break;
  660. +             }
  661. +             }
  662. +             if (j == SYMHEADER(ldptr).ipdMax - 2)
  663. +             punt("can't find a new anchor address");
  664. +         }
  665. +         pdrarray[i].adr = (unsigned long) search;
  666. +         }
  667. +     }
  668. + 
  669.       /* This is guaranteed to be between __start and main. */
  670.       mp_root_address = pdrarray[1].adr - 1;
  671.   }
  672. ***************
  673. *** 585,591 ****
  674.   getpdr(loc)
  675.   int loc;
  676.   {
  677. !     int low = 0, high = SYMHEADER(ldptr).ipdMax - 1, mid;
  678.   
  679.       /* do binary search on address */
  680.       while (low <= high) {
  681. --- 705,711 ----
  682.   getpdr(loc)
  683.   int loc;
  684.   {
  685. !     register int low = 0, high = SYMHEADER(ldptr).ipdMax - 1, mid;
  686.   
  687.       /* do binary search on address */
  688.       while (low <= high) {
  689. ***************
  690. *** 603,608 ****
  691. --- 723,729 ----
  692.   
  693.   }
  694.   
  695. + unsigned
  696.   getretaddr(pfp, pdr)
  697.   int *pfp;
  698.   pPDR pdr;
  699. ***************
  700. *** 626,632 ****
  701. --- 747,761 ----
  702.   
  703.       if (!(pdr->regmask & (1 << pdr->pcreg))) {
  704.         /* in a register and register is not saved */
  705. +       /* jtkohl@mit.edu: this probably is indicative of using
  706. +          the wrong pdr somewhere in the stack trace.  see above comments
  707. +          about static functions and ld -x -r. */
  708. +       /* just lie and terminate the search, rather than aborting
  709. +          the program. */
  710. +         return mp_root_address;
  711. + #if 0        
  712.         punt("don't know how to get register");
  713. + #endif
  714.       }
  715.   
  716.       if (pdr->framereg != 29) punt("framereg != 29");
  717. --
  718. John Kohl <jtkohl@MIT.EDU>
  719. Digital Equipment Corporation/Project Athena
  720. (The above opinions are MINE.  Don't put my words in somebody else's mouth!)
  721. ___This signature printed on recycled bits___ [not original; heard 2nd hand]
  722.