static initialization

structure set up - no change yet

R=r
OCL=28966
CL=28966
This commit is contained in:
Ken Thompson 2009-05-16 13:29:08 -07:00
parent 8ee7688af6
commit 52b0f77bf9
6 changed files with 17 additions and 3 deletions

View file

@ -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");

View file

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

View file

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

View file

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

View file

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

View file

@ -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;