code review 6962043: cmd/dist, cmd/8g: implement GO386=387/sse to choose FPU...

src/cmd/gc/lex.c

 // Copyright 2009 The Go Authors. All rights reserved.
 // Use of this source code is governed by a BSD-style
 // license that can be found in the LICENSE file.
 
 #include        <u.h>
 #include        <libc.h>
 #include        "go.h"
 #include        "y.tab.h"
 #include        <ar.h>
 
@@ skipping 11 matching lines @@
 static void     lexinit1(void);
 static void     lexfini(void);
 static void     yytinit(void);
 static int      getc(void);
 static void     ungetc(int);
 static int32    getr(void);
 static int      escchar(int, int*, vlong*);
 static void     addidir(char*);
 static int      getlinepragma(void);
 static char *goos, *goarch, *goroot;
-char* the386;
 
 #define BOM     0xFEFF
 
 // Compiler experiments.
 // These are controlled by the GOEXPERIMENT environment
 // variable recorded when the compiler is built.
 static struct {
         char *name;
         int *val;
 } exper[] = {
 //      {"rune32", &rune32},
         {"fieldtrack", &fieldtrack_enabled},
-        {"zerostack", &zerostack_enabled},
         {nil, nil},
 };
 
 static void
 addexp(char *s)
 {
         int i;
 ········
         for(i=0; exper[i].name != nil; i++) {
                 if(strcmp(exper[i].name, s) == 0) {
@@ skipping 178 matching lines @@
         trackpkg = mkpkg(strlit("go.track"));
         trackpkg->name = "go.track";
         trackpkg->prefix = "go.track";  // not go%2etrack
 
         typepkg = mkpkg(strlit("type"));
         typepkg->name = "type";
 
         goroot = getgoroot();
         goos = getgoos();
         goarch = thestring;
-  the386 = getgo386();
+        use_sse = strcmp(getgo386(), "sse") == 0;
 ········
         setexp();
 
         outfile = nil;
         ARGBEGIN {
         default:
                 c = ARGC();
                 if(c >= 0 && c < sizeof(debug))
                         debug[c]++;
                 break;
@@ skipping 34 matching lines @@
         // enable inlining.  for now:
         //      default: inlining on.  (debug['l'] == 1)
         //      -l: inlining off  (debug['l'] == 0)
         //      -ll, -lll: inlining on again, with extra debugging (debug['l'] > 1)
         if(debug['l'] <= 1)
                 debug['l'] = 1 - debug['l'];
 
         if(argc < 1)
                 usage();
 
-        // special flag to detect compilation of package runtime
-        compiling_runtime = debug['+'];
+        // special flags used during build.
+        compiling_runtime = debug['+']; // detect compilation of package runtime
+        pure_go = debug['=']; // package is completely go (no C or assembly)
 
         pathname = mal(1000);
         if(getwd(pathname, 999) == 0)
                 strcpy(pathname, "/???");
 
         if(yy_isalpha(pathname[0]) && pathname[1] == ':') {
                 // On Windows.
                 windows = 1;
 
                 // Canonicalize path by converting \ to / (Windows accepts both).
@@ skipping 1980 matching lines @@
                         p = infile;
                 else
                         p = p+1;
                 snprint(namebuf, sizeof(namebuf), "%s", p);
                 p = strrchr(namebuf, '.');
                 if(p != nil)
                         *p = 0;
                 outfile = smprint("%s.%c", namebuf, thechar);
         }
 }