home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / gnu / gdb / bug / 1360 < prev    next >
Encoding:
Text File  |  1993-01-10  |  5.0 KB  |  228 lines
  1. Newsgroups: gnu.gdb.bug
  2. Path: sparky!uunet!cs.utexas.edu!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!cse.ucsc.EDU!dlong
  3. From: dlong@cse.ucsc.EDU (Dean R. E. Long)
  4. Subject: gdb-4.7 patches
  5. Message-ID: <199301100951.AA22739@oak.ucsc.edu>
  6. Sender: gnulists@ai.mit.edu
  7. Organization: GNUs Not Usenet
  8. Distribution: gnu
  9. Date: Sat, 9 Jan 1993 17:51:05 GMT
  10. Approved: bug-gdb@prep.ai.mit.edu
  11. Lines: 215
  12.  
  13. These patches fix a number of demangling bugs related to templates.
  14.  
  15. dl
  16.  
  17. -------------
  18. *** gdb/symtab.c.orig    Fri Oct  9 09:44:31 1992
  19. --- gdb/symtab.c    Fri Jan  8 22:48:48 1993
  20. ***************
  21. *** 2490,2501 ****
  22.     int newsize;
  23.     int i;
  24.   
  25. -   /* clip symbols that cannot match */
  26. - 
  27. -   if (!cplus_match (symname, text, text_len)) {
  28. -     return;
  29. -   }
  30. - 
  31.     /* matches mangled, may match unmangled.  now clip any symbol names
  32.        that we've already considered.  (This is a time optimization)  */
  33.   
  34. --- 2490,2495 ----
  35. ***************
  36. *** 2516,2521 ****
  37. --- 2510,2521 ----
  38.   
  39.         symname = demangled;
  40.       } else {
  41. +       /* clip symbols that cannot match */
  42. + 
  43. +       if (!cplus_match (symname, text, text_len)) {
  44. +     return;
  45. +       }
  46. + 
  47.         symname = savestring (symname, strlen (symname));
  48.       }
  49.   
  50. *** libiberty/cplus-dem.c.orig    Mon Oct  5 17:42:45 1992
  51. --- libiberty/cplus-dem.c    Sun Jan 10 01:42:17 1993
  52. ***************
  53. *** 276,285 ****
  54.   static void
  55.   forget_types PARAMS ((struct work_stuff *));
  56.   
  57. - #if 0
  58.   static void
  59.   string_prepends PARAMS ((string *, string *));
  60. - #endif
  61.   
  62.   /*  Translate count to integer, consuming tokens in the process.
  63.       Conversion terminates on the first non-digit character. */
  64. --- 276,283 ----
  65. ***************
  66. *** 669,675 ****
  67.       }
  68.     string_appendn (&tname, *mangled, r);
  69.     string_appendn (&trawname, *mangled, r);
  70. -   string_appendn (&trawname, "", 1);
  71.     *mangled += r;
  72.     string_append (&tname, "<");
  73.     /* get size of template parameter list */
  74. --- 667,672 ----
  75. ***************
  76. *** 688,697 ****
  77.       {
  78.         (*mangled)++;
  79.         success = do_type (work, mangled, &temp);
  80. -       string_appendn (&temp, "", 1);
  81.         if (success)
  82.           {
  83. !           string_append (&tname, temp.b);
  84.           }
  85.         string_delete(&temp);
  86.         if (!success)
  87. --- 685,693 ----
  88.       {
  89.         (*mangled)++;
  90.         success = do_type (work, mangled, &temp);
  91.         if (success)
  92.           {
  93. !           string_appends (&tname, temp);
  94.           }
  95.         string_delete(&temp);
  96.         if (!success)
  97. ***************
  98. *** 708,717 ****
  99.         is_integral = 0;
  100.         done = 0;
  101.         success = do_type (work, mangled, &temp);
  102. -       string_appendn (&temp, "", 1);
  103.         if (success)
  104.           {
  105. !           string_append (&tname, temp.b);
  106.           }
  107.         string_delete(&temp);
  108.         if (!success)
  109. --- 704,712 ----
  110.         is_integral = 0;
  111.         done = 0;
  112.         success = do_type (work, mangled, &temp);
  113.         if (success)
  114.           {
  115. !           string_appends (&tname, temp);
  116.           }
  117.         string_delete(&temp);
  118.         if (!success)
  119. ***************
  120. *** 825,832 ****
  121.       }
  122.     if (work -> constructor || work -> destructor)
  123.       {
  124. !       string_append (&tname, trawname.b);
  125.       }
  126.     string_delete(&trawname);
  127.     
  128.     if (!success)
  129. --- 820,833 ----
  130.       }
  131.     if (work -> constructor || work -> destructor)
  132.       {
  133. !       string_appends (&tname, trawname);
  134.       }
  135. +   {
  136. +     char buf[16];
  137. +     sprintf(buf, "%d", trawname.p - trawname.b);
  138. +     string_prepend(&trawname, buf);
  139. +     remember_type(work, trawname.b, trawname.p - trawname.b);
  140. +   }
  141.     string_delete(&trawname);
  142.     
  143.     if (!success)
  144. ***************
  145. *** 835,841 ****
  146.       }
  147.     else
  148.       {
  149. !       string_prepend (declp, tname.b);
  150.         string_delete (&tname);
  151.         
  152.         if (work -> static_type)
  153. --- 836,842 ----
  154.       }
  155.     else
  156.       {
  157. !       string_prepends (declp, tname);
  158.         string_delete (&tname);
  159.         
  160.         if (work -> static_type)
  161. ***************
  162. *** 842,853 ****
  163.       {
  164.         string_append (declp, *mangled + 1);
  165.         *mangled += strlen (*mangled);
  166. -       success = 1;
  167.       }
  168. !       else
  169. !     {
  170. !       success = demangle_args (work, mangled, declp);
  171. !     }
  172.       }
  173.     return (success);
  174.   }
  175. --- 843,850 ----
  176.       {
  177.         string_append (declp, *mangled + 1);
  178.         *mangled += strlen (*mangled);
  179.       }
  180. !       success = 1;
  181.       }
  182.     return (success);
  183.   }
  184. ***************
  185. *** 993,1001 ****
  186.         success = 0;
  187.       }
  188.       }
  189. !   else if ((scan == *mangled) && (isdigit (scan[2]) || (scan[2] == 'Q')))
  190.       {
  191. !       /* A GNU style constructor starts with "__<digit>" or "__Q". */
  192.         work -> constructor = 1;
  193.         *mangled = scan + 2;
  194.       }
  195. --- 990,998 ----
  196.         success = 0;
  197.       }
  198.       }
  199. !   else if ((scan == *mangled) && (isdigit (scan[2]) || (scan[2] == 't')))
  200.       {
  201. !       /* A GNU style constructor starts with "__<digit>" or "__t". */
  202.         work -> constructor = 1;
  203.         *mangled = scan + 2;
  204.       }
  205. ***************
  206. *** 2164,2171 ****
  207.       }
  208.   }
  209.   
  210. - #if 0
  211. - 
  212.   static void
  213.   string_prepends (p, s)
  214.        string *p, *s;
  215. --- 2161,2166 ----
  216. ***************
  217. *** 2175,2182 ****
  218.         string_prependn (p, s->b, s->p - s->b);
  219.       }
  220.   }
  221. - 
  222. - #endif
  223.   
  224.   static void
  225.   string_prependn (p, s, n)
  226. --- 2170,2175 ----
  227.  
  228.