initialize correctly the stuctures

SVN revision: 34243
This commit is contained in:
doursse 2008-04-11 05:29:33 +00:00 committed by doursse
parent 80c1db4f0c
commit 5b899a19e3
3 changed files with 14 additions and 15 deletions

View File

@ -1176,7 +1176,7 @@ declloc(int fstatic)
symbol *sym; symbol *sym;
cell val, size; cell val, size;
char *str; char *str;
value lval = { 0 }; value lval = { NULL, 0, 0, 0, 0, NULL };
int cur_lit = 0; int cur_lit = 0;
int dim[sDIMEN_MAX]; int dim[sDIMEN_MAX];
int numdim, level; int numdim, level;
@ -3422,7 +3422,7 @@ test(int label, int parens, int invert)
{ {
int index, tok; int index, tok;
cell cidx; cell cidx;
value lval = { 0 }; value lval = { NULL, 0, 0, 0, 0, NULL };
int localstaging = FALSE; int localstaging = FALSE;
if (!staging) if (!staging)
@ -3835,7 +3835,7 @@ doassert(void)
{ {
int flab1, index; int flab1, index;
cell cidx; cell cidx;
value lval = { 0 }; value lval = { NULL, 0, 0, 0, 0, NULL };
if ((sc_debug & sCHKBOUNDS) != 0) if ((sc_debug & sCHKBOUNDS) != 0)
{ {

View File

@ -515,7 +515,7 @@ plnge(int *opstr, int opoff, int (*hier) (value * lval), value * lval,
{ {
int lvalue, opidx; int lvalue, opidx;
int count; int count;
value lval2 = { 0 }; value lval2 = { NULL, 0, 0, 0, 0, NULL };
lvalue = plnge1(hier, lval); lvalue = plnge1(hier, lval);
if (nextop(&opidx, opstr) == 0) if (nextop(&opidx, opstr) == 0)
@ -547,7 +547,7 @@ static int
plnge_rel(int *opstr, int opoff, int (*hier) (value * lval), value * lval) plnge_rel(int *opstr, int opoff, int (*hier) (value * lval), value * lval)
{ {
int lvalue, opidx; int lvalue, opidx;
value lval2 = { 0 }; /* intialize, to avoid a compiler warning */ value lval2 = { NULL, 0, 0, 0, 0, NULL };
int count; int count;
/* this function should only be called for relational operators */ /* this function should only be called for relational operators */
@ -630,7 +630,7 @@ plnge2(void (*oper) (void),
{ /* constant on right side */ { /* constant on right side */
if (commutative(oper)) if (commutative(oper))
{ /* test for commutative operators */ { /* test for commutative operators */
value lvaltmp = { 0 }; value lvaltmp = { NULL, 0, 0, 0, 0, NULL };
stgdel(index, cidx); /* scratch push1() and constant fetch (then stgdel(index, cidx); /* scratch push1() and constant fetch (then
* fetch the constant again */ * fetch the constant again */
const2(lval2->constval << dbltest(oper, lval1, lval2)); const2(lval2->constval << dbltest(oper, lval1, lval2));
@ -760,7 +760,7 @@ calc(cell left, void (*oper) (), cell right, char *boolresult)
int int
expression(int *constant, cell * val, int *tag, int chkfuncresult) expression(int *constant, cell * val, int *tag, int chkfuncresult)
{ {
value lval = { 0 }; value lval = { NULL, 0, 0, 0, 0, NULL };
if (hier14(&lval)) if (hier14(&lval))
rvalue(&lval); rvalue(&lval);
@ -824,9 +824,8 @@ int
hier14(value * lval1) hier14(value * lval1)
{ {
int lvalue; int lvalue;
value lval2 = { 0 }, lval3 = value lval2 = { NULL, 0, 0, 0, 0, NULL };
{ value lval3 = { NULL, 0, 0, 0, 0, NULL };
0};
void (*oper) (void); void (*oper) (void);
int tok, level, i; int tok, level, i;
cell val; cell val;
@ -1064,7 +1063,7 @@ static int
hier13(value * lval) hier13(value * lval)
{ {
int lvalue, flab1, flab2; int lvalue, flab1, flab2;
value lval2 = { 0 }; value lval2 = { NULL, 0, 0, 0, 0, NULL };
int array1, array2; int array1, array2;
lvalue = plnge1(hier12, lval); lvalue = plnge1(hier12, lval);
@ -1484,7 +1483,7 @@ hier1(value * lval1)
{ {
int lvalue, index, tok, symtok; int lvalue, index, tok, symtok;
cell val, cidx; cell val, cidx;
value lval2 = { 0 }; value lval2 = { NULL, 0, 0, 0, 0, NULL };
char *st; char *st;
char close; char close;
symbol *sym; symbol *sym;
@ -1901,7 +1900,7 @@ callfunction(symbol * sym)
int nargs = 0; /* number of arguments */ int nargs = 0; /* number of arguments */
int heapalloc = 0; int heapalloc = 0;
int namedparams = FALSE; int namedparams = FALSE;
value lval = { 0 }; value lval = { NULL, 0, 0, 0, 0, NULL };
arginfo *arg; arginfo *arg;
char arglist[sMAXARGS]; char arglist[sMAXARGS];
constvalue arrayszlst = { NULL, "", 0, 0 }; /* array size list starts empty */ constvalue arrayszlst = { NULL, "", 0, 0 }; /* array size list starts empty */

View File

@ -131,7 +131,7 @@ delete_stringpair(stringpair * root, stringpair * item)
} }
/* ----- alias table --------------------------------------------- */ /* ----- alias table --------------------------------------------- */
static stringpair alias_tab = { NULL, NULL, NULL }; /* alias table */ static stringpair alias_tab = { NULL, NULL, NULL, 0 }; /* alias table */
stringpair * stringpair *
insert_alias(char *name, char *alias) insert_alias(char *name, char *alias)
@ -217,7 +217,7 @@ delete_pathtable(void)
/* ----- text substitution patterns ------------------------------ */ /* ----- text substitution patterns ------------------------------ */
static stringpair substpair = { NULL, NULL, NULL }; /* list of substitution pairs */ static stringpair substpair = { NULL, NULL, NULL, 0 }; /* list of substitution pairs */
static stringpair *substindex['z' - 'A' + 1]; /* quick index to first character */ static stringpair *substindex['z' - 'A' + 1]; /* quick index to first character */
static void static void