[dev.power64] code review 152570049: all: merge default into dev.power64

src/cmd/5g/gsubr.c

 // Derived from 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 188 matching lines @@
         p->to.sym = nil;
         p->to.type = D_CONST;
         p->to.offset = nam->type->width;
         if(nam->readonly)
                 p->reg = RODATA;
         if(nam->type != T && !haspointers(nam->type))
                 p->reg |= NOPTR;
 }
 
 void
-gargsize(int32 size)
-{
-        Node n1, n2;
-········
-        nodconst(&n1, types[TINT32], PCDATA_ArgSize);
-        nodconst(&n2, types[TINT32], size);
-        gins(APCDATA, &n1, &n2);
-}
-
-void
 ggloblsym(Sym *s, int32 width, int8 flags)
 {
         Prog *p;
 
         p = gins(AGLOBL, N, N);
         p->from.type = D_OREG;
         p->from.name = D_EXTERN;
         p->from.sym = linksym(s);
         p->to.type = D_CONST;
         p->to.name = D_NONE;
@@ skipping 135 matching lines @@
                                 goto out;
                 }
                 for(i=REGALLOC_R0; i<=REGALLOC_RMAX; i++)
                         if(reg[i] == 0) {
                                 regpc[i] = (uintptr)getcallerpc(&n);
                                 goto out;
                         }
                 print("registers allocated at\n");
                 for(i=REGALLOC_R0; i<=REGALLOC_RMAX; i++)
                         print("%d %p\n", i, regpc[i]);
-                yyerror("out of fixed registers");
+                fatal("out of fixed registers");
                 goto err;
 
         case TFLOAT32:
         case TFLOAT64:
                 if(o != N && o->op == OREGISTER) {
                         i = o->val.u.reg;
                         if(i >= REGALLOC_F0 && i <= REGALLOC_FMAX)
                                 goto out;
                 }
                 for(i=REGALLOC_F0; i<=REGALLOC_FMAX; i++)
                         if(reg[i] == 0)
                                 goto out;
-                yyerror("out of floating point registers");
+                fatal("out of floating point registers");
                 goto err;
 
         case TCOMPLEX64:
         case TCOMPLEX128:
                 tempname(n, t);
                 return;
         }
         yyerror("regalloc: unknown type %T", t);
 
 err:
@@ skipping 1685 matching lines @@
         naddr(&n2, a, 1);
         goto yes;
 
 yes:
         return 1;
 
 no:
         sudoclean();
         return 0;
 }