[dev.power64] code review 160200044: build: merge default into dev.power64

src/cmd/5c/txt.c

 // Inferno utils/5c/txt.c
 // http://code.google.com/p/inferno-os/source/browse/utils/5c/txt.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 256 matching lines @@
 void
 nodreg(Node *n, Node *nn, int reg)
 {
         *n = regnode;
         n->reg = reg;
         n->type = nn->type;
         n->lineno = nn->lineno;
 }
 
 void
-regret(Node *n, Node *nn)
+regret(Node *n, Node *nn, Type *t, int mode)
 {
         int r;
 
-        r = REGRET;
-        if(typefd[nn->type->etype])
-                r = FREGRET+NREG;
-        nodreg(n, nn, r);
-        reg[r]++;
+        if(mode == 0 || hasdotdotdot(t) || nn->type->width == 0) {
+                r = REGRET;
+                if(typefd[nn->type->etype])
+                        r = FREGRET+NREG;
+                nodreg(n, nn, r);
+                reg[r]++;
+                return;
+        }
+ ·······
+        if(mode == 1) {
+                // fetch returned value after call.
+                // already called gargs, so curarg is set.
+                curarg = (curarg+3) & ~3;
+                regaalloc(n, nn);
+                return;
+        }
+ ·······
+        if(mode == 2) {
+                // store value to be returned.
+                // must compute arg offset.
+                if(t->etype != TFUNC)
+                        fatal(Z, "bad regret func %T", t);
+                *n = *nn;
+                n->op = ONAME;
+                n->class = CPARAM;
+                n->sym = slookup(".ret");
+                n->complex = nodret->complex;
+                n->xoffset = argsize(0);
+                n->addable = 20;
+                return;
+        }
+ ·······
+        fatal(Z, "bad regret");
 }
 
 int
 tmpreg(void)
 {
         int i;
 
         for(i=REGRET+1; i<NREG; i++)
                 if(reg[i] == 0)
                         return i;
@@ skipping 1028 matching lines @@
         BFLOAT,                         /* [TFLOAT] */
         BDOUBLE,                        /* [TDOUBLE] */
         BLONG|BULONG|BIND,              /* [TIND] */
         0,                              /* [TFUNC] */
         0,                              /* [TARRAY] */
         0,                              /* [TVOID] */
         BSTRUCT,                        /* [TSTRUCT] */
         BUNION,                         /* [TUNION] */
         0,                              /* [TENUM] */
 };