static initialization

structure set up - no change yet

R=r
OCL=28966
CL=28966

src/cmd/6g/cgen.c

@@ -23,11 +23,15 @@ cgen(Node *n, Node *res)
 		dump("cgen-res", res);
 	}
 	if(n == N || n->type == T)
-		return;
+		goto ret;
 
 	if(res == N || res->type == T)
 		fatal("cgen: res nil");
 
+	// static initializations
+	if(gen_as_init(n, res))
+		goto ret;
+
 	if(n->ullman >= UINF) {
 		if(n->op == OINDREG)
 			fatal("cgen: this is going to misscompile");

src/cmd/6g/gen.c

@@ -697,3 +697,9 @@ clearfat(Node *nl)
 		c--;
 	}
 }
+
+int
+gen_as_init(Node *nr, Node *nl)
+{
+	return 0;
+}

src/cmd/6g/gg.h

@@ -77,6 +77,7 @@ void	genconv(Type*, Type*);
 void	allocparams(void);
 void	checklabels();
 void	ginscall(Node*, int);
+int	gen_as_init(Node*, Node*);
 
 /*
  * cgen

src/cmd/6g/obj.c

@@ -185,6 +185,7 @@ dumpfuncs(void)
 	for(pl=plist; pl!=nil; pl=pl->link) {
 		for(p=pl->firstpc; p!=P; p=p->link) {
 			p->loc = pcloc;
+			if(p->as != ADATA && p->as != AGLOBL)
 				pcloc++;
 		}
 	}

src/cmd/gc/dcl.c

@@ -1411,7 +1411,9 @@ fninit(Node *n)
 //dump("r", fn->nbody);
 
 	popdcl();
+	initflag = 1;	// flag for loader static initialization
 	compile(fn);
+	initflag = 0;
 }
 
 

src/cmd/gc/go.h

@@ -228,7 +228,6 @@ struct	Node
 	int32	vargen;		// unique name for OTYPE/ONAME
 	int32	lineno;
 	vlong	xoffset;
-	int32	ostk;
 };
 #define	N	((Node*)0)
 
@@ -569,6 +568,7 @@ EXTERN	Dcl*	typelist;
 EXTERN	int	dclcontext;	// PEXTERN/PAUTO
 EXTERN	int	importflag;
 EXTERN	int	inimportsys;
+EXTERN	int	initflag;		// compiling the init fn
 
 EXTERN	uint32	iota;
 EXTERN	Node*	lastconst;