===================================================================
RCS file: /cvs/djgpp/djgpp/src/mkdoc/mkdoc.cc,v
retrieving revision 1.20
retrieving revision 1.21
diff -p -u -r1.20 -r1.21
--- djgpp/src/mkdoc/mkdoc.cc	2008/08/16 17:16:19	1.20
+++ /cvs/djgpp/djgpp/src/mkdoc/mkdoc.cc	2008/08/16 17:22:56	1.21
@@ -26,6 +26,15 @@ char *dj_strlwr(char *s)
   return p;
 }
 
+char *make_sname(char *name)
+{
+  char *sname;
+  for (sname = name; *sname == '_'; sname++);
+  sname = strdup(sname);
+  dj_strlwr(sname);
+  return sname;
+}
+
 template <typename N>
 struct TreeNode;
 struct Node;
@@ -619,10 +628,7 @@ TreeNode<N>::TreeNode(char *Pname, N *n)
 {
   before = after = prev = next = NULL;
   name = strdup(Pname);
-  char *cp;
-  for (cp=name; *cp == '_'; cp++);
-  sname = strdup(cp);
-  dj_strlwr(sname);
+  sname = make_sname(name);
   node = n;
 }
 
@@ -679,11 +685,7 @@ template <typename N>
 TreeNode<N> *
 Tree<N>::find(char *name)
 {
-  char *sname;
-  for (sname = name; *sname == '_'; sname++);
-  sname = strdup(sname);
-  dj_strlwr(sname);
-
+  char *sname = make_sname(name);
   TreeNode<N> *tn = nodes;
   while (tn)
   {