code review 2288041: 6l, 8l: elfsetstring is only for .shstrtab

src/cmd/8l/asm.c

 // Inferno utils/8l/asm.c
 // http://code.google.com/p/inferno-os/source/browse/utils/8l/asm.c
 //
 //      Copyright © 1994-1999 Lucent Technologies Inc.  All rights reserved.
 //      Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
 //      Portions Copyright © 1997-1999 Vita Nuova Limited
 //      Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
 //      Portions Copyright © 2004,2006 Bruce Ellis
 //      Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
 //      Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
@@ skipping 111 matching lines @@
 {
         int n, m;
         vlong r;
         Prog *p;
 
         if(s->type == 0)
                 s->type = SDATA;
         s->reachable = 1;
         r = s->size;
         n = strlen(str)+1;
-        elfsetstring(str, r);
+        if(strcmp(s->name, ".shstrtab") == 0)
+                elfsetstring(str, r);
         while(n > 0) {
                 m = n;
                 if(m > sizeof(p->to.scon))
                         m = sizeof(p->to.scon);
                 p = newdata(s, s->size, m, D_EXTERN);
                 p->to.type = D_SCONST;
                 memmove(p->to.scon, str, m);
                 s->size += m;
                 str += m;
                 n -= m;
@@ skipping 1171 matching lines @@
 
         if(r <= 0)
                 return v;
         v += r - 1;
         c = v % r;
         if(c < 0)
                 c += r;
         v -= c;
         return v;
 }