code review 9223046: cmd/5l, cmd/6l, cmd/8l, cmd/gc, runtime: generate and u...

src/cmd/ld/lib.c

 // Derived from Inferno utils/6l/obj.c and utils/6l/span.c
 // http://code.google.com/p/inferno-os/source/browse/utils/6l/obj.c
 // http://code.google.com/p/inferno-os/source/browse/utils/6l/span.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)
@@ skipping 1832 matching lines @@
         print("%cl version %s\n", thechar, getgoversion());
         errorexit();
 }
 
 void
 genasmsym(void (*put)(Sym*, char*, int, vlong, vlong, int, Sym*))
 {
         Auto *a;
         Sym *s;
         int32 off;
+        int32 i;
 
         // These symbols won't show up in the first loop below because we
         // skip STEXT symbols. Normal STEXT symbols are emitted by walking textp.
         s = lookup("text", 0);
         if(s->type == STEXT)
                 put(s, s->name, 'T', s->value, s->size, s->version, 0);
         s = lookup("etext", 0);
         if(s->type == STEXT)
                 put(s, s->name, 'T', s->value, s->size, s->version, 0);
 
@@ skipping 40 matching lines @@
                 /* filenames first */
                 for(a=s->autom; a; a=a->link)
                         if(a->type == D_FILE)
                                 put(nil, a->asym->name, 'z', a->aoffset, 0, 0, 0);
                         else
                         if(a->type == D_FILE1)
                                 put(nil, a->asym->name, 'Z', a->aoffset, 0, 0, 0);
 
                 put(s, s->name, 'T', s->value, s->size, s->version, s->gotype);
 
-                /* frame, locals, args, auto and param after */
+                /* frame, locals, args, auto, param and pointers after */
                 put(nil, ".frame", 'm', (uint32)s->text->to.offset+PtrSize, 0, 0, 0);
                 put(nil, ".locals", 'm', s->locals, 0, 0, 0);
                 if(s->text->textflag & NOSPLIT)
                         put(nil, ".args", 'm', ArgsSizeUnknown, 0, 0, 0);
                 else
                         put(nil, ".args", 'm', s->args, 0, 0, 0);
+                if(s->nptrs >= 0) {
+                        put(nil, ".nptrs", 'm', s->nptrs, 0, 0, 0);
+                        for(i = 0; i < s->nptrs; i += 32)
+                                put(nil, ".ptrs", 'm', s->ptrs[i / 32], 0, 0, 0);
+                }
 
                 for(a=s->autom; a; a=a->link) {
                         // Emit a or p according to actual offset, even if label is wrong.
                         // This avoids negative offsets, which cannot be encoded.
                         if(a->type != D_AUTO && a->type != D_PARAM)
                                 continue;
 ························
                         // compute offset relative to FP
                         if(a->type == D_PARAM)
                                 off = a->aoffset;
@@ skipping 37 matching lines @@
 erealloc(void *p, long n)
 {
         p = realloc(p, n);
         if(p == nil) {
                 cursym = S;
                 diag("out of memory");
                 errorexit();
         }
         return p;
 }