Added automatic detection of system libraries to 5l.

R=rsc
APPROVED=rsc
DELTA=83  (73 added, 3 deleted, 7 changed)
OCL=29276
CL=29382

diff --git a/src/cmd/5l/obj.c b/src/cmd/5l/obj.c
index 990c3597e194c6f93769f5e046ff11a8dce57ed9..b3cf056a3e36fde2becb213631ff6e50790e33e5 100644 (file)
--- a/src/cmd/5l/obj.c
+++ b/src/cmd/5l/obj.c
@@ -30,6 +30,7 @@
 
 #define        EXTERN
 #include       "l.h"
+#include       "compat.h"
 #include       <ar.h>
 
 #ifndef        DEFAULT
@@ -144,6 +145,10 @@ main(int argc, char *argv[])
                diag("usage: 5l [-options] objects");
                errorexit();
        }
+       mywhatsys();    // get goroot, goarch, goos
+       if(strcmp(goarch, thestring) != 0)
+               print("goarch is not known: %s\n", goarch);
+
        if(!debug['9'] && !debug['U'] && !debug['B'])
                debug[DEFAULT] = 1;
        if(HEADTYPE == -1) {
@@ -259,19 +264,20 @@ main(int argc, char *argv[])
        firstp = prg();
        lastp = firstp;
 
-       if(INITENTRY == 0) {
-               INITENTRY = "_main";
-               if(debug['p'])
-                       INITENTRY = "_mainp";
-               if(!debug['l'])
-                       lookup(INITENTRY, 0)->type = SXREF;
-       } else
-               lookup(INITENTRY, 0)->type = SXREF;
+       if(INITENTRY == nil) {
+               INITENTRY = mal(strlen(goarch)+strlen(goos)+10);
+               sprint(INITENTRY, "_rt0_%s_%s", goarch, goos);
+       }
+       lookup(INITENTRY, 0)->type = SXREF;
 
        while(*argv)
                objfile(*argv++);
-       if(!debug['l'])
+       if(!debug['l']) {
                loadlib();
+               a = mal(strlen(goroot)+strlen(goarch)+strlen(goos)+20);
+               sprint(a, "%s/lib/lib_%s_%s.a", goroot, goarch, goos);
+               objfile(a);
+       }
        firstp = firstp->link;
        if(firstp == P)
                goto out;