code review 223068: Add -r option to 6l/8l/5l.

src/cmd/5l/asm.c

 // Inferno utils/5l/asm.c
 // http://code.google.com/p/inferno-os/source/browse/utils/5l/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 304 matching lines @@
                  */
                 s = dynamic;
                 elfwritedynentsym(s, DT_HASH, lookup(".hash", 0));
                 elfwritedynentsym(s, DT_SYMTAB, lookup(".dynsym", 0));
                 elfwritedynent(s, DT_SYMENT, ELF32SYMSIZE);
                 elfwritedynentsym(s, DT_STRTAB, lookup(".dynstr", 0));
                 elfwritedynentsymsize(s, DT_STRSZ, lookup(".dynstr", 0));
                 elfwritedynentsym(s, DT_REL, lookup(".rel", 0));
                 elfwritedynentsymsize(s, DT_RELSZ, lookup(".rel", 0));
                 elfwritedynent(s, DT_RELENT, ELF32RELSIZE);
+                if(rpath)
+                        elfwritedynent(s, DT_RUNPATH, addstring(dynstr, rpath));
                 elfwritedynent(s, DT_NULL, 0);
         }
 }
 
 vlong
 datoff(vlong addr)
 {
         if(addr >= INITDAT)
                 return addr - INITDAT + rnd(HEADR+textsize, INITRND);
         diag("datoff %#llx", addr);
@@ skipping 2089 matching lines @@
         int n;
 
         for(n = sizeof(chipfloats)/sizeof(chipfloats[0]); --n >= 0;){
                 p = &chipfloats[n];
                 if(p->l == e->l && p->h == e->h)
                         return n;
         }
         return -1;
 }