godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

redesign of ival, other minor changes

Browse Source
This commit is contained in:
ceriel
1987-03-25 23:14:43 +00:00
parent 45fc1e006f
commit 21e14a6f0a
42 changed files with 1146 additions and 342 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
lang/cem/cemcom/declar.g
View File

@@ -21,6 +21,7 @@
#include "label.h"
#include "expr.h"
#include "sizes.h"
#include "level.h"
extern char options[];
}
@@ -83,22 +84,20 @@ other_specifier(register struct decspecs *ds;):
[ AUTO | STATIC | EXTERN | TYPEDEF | REGISTER ]
{ if (ds->ds_sc_given)
error("repeated storage class specifier");
else {
ds->ds_sc_given = 1;
ds->ds_sc = DOT;
}
ds->ds_sc_given = 1;
ds->ds_sc = DOT;
}
|
[ SHORT | LONG ]
{ if (ds->ds_size)
error("repeated size specifier");
else ds->ds_size = DOT;
ds->ds_size = DOT;
}
|
UNSIGNED
{ if (ds->ds_unsigned)
error("unsigned specified twice");
else ds->ds_unsigned = 1;
ds->ds_unsigned = 1;
}
;
@@ -137,7 +136,6 @@ init_declarator_list(struct decspecs *ds;):
init_declarator(register struct decspecs *ds;)
{
struct declarator Dc;
struct expr *expr = (struct expr *) 0;
}
:
{
@@ -149,14 +147,57 @@ init_declarator(register struct decspecs *ds;)
reject_params(&Dc);
declare_idf(ds, &Dc, level);
}
initializer(Dc.dc_idf, &expr)?
{
code_declaration(Dc.dc_idf, expr, level, ds->ds_sc);
}
[
initializer(Dc.dc_idf, ds->ds_sc)
|
{ code_declaration(Dc.dc_idf, (struct expr *) 0, level, ds->ds_sc); }
]
]
{remove_declarator(&Dc);}
;
/* 8.6: initializer */
initializer(struct idf *idf; int sc;)
{
struct expr *expr = (struct expr *) 0;
int globalflag = level == L_GLOBAL ||
(level == L_LOCAL && sc == STATIC);
}
:
{ if (idf->id_def->df_type->tp_fund == FUNCTION) {
error("illegal initialization of function");
}
}
[
'='
|
empty
{warning("old-fashioned initialization, insert =");}
/* This causes trouble at declarator and at
external_definition, q.v.
*/
]
{ if (globalflag) {
struct expr ex;
code_declaration(idf, &ex, level, sc);
}
}
initial_value(globalflag ? &(idf->id_def->df_type) : (struct type **)0,
&expr)
{ if (! globalflag) {
if (idf->id_def->df_type->tp_fund == FUNCTION) {
free_expression(expr);
expr = 0;
}
code_declaration(idf, expr, level, sc);
#ifdef DEBUG
print_expr("initializer-expression", expr);
#endif DEBUG
}
init_idf(idf);
}
;
/*
Functions yielding pointers to functions must be declared as, e.g.,
int (*hehe(par1, par2))() char *par1, *par2; {}
@@ -398,31 +439,6 @@ bit_expression(struct field **fd;)
}
;
/* 8.6 */
initializer(register struct idf *idf; register struct expr **expp;) :
[
'='
|
empty
{warning("old-fashioned initialization, insert =");}
/* This causes trouble at declarator and at
external_definition, q.v.
*/
]
initial_value(expp)
{
if (idf->id_def->df_type->tp_fund == FUNCTION) {
error("illegal initialization of function");
free_expression(*expp);
*expp = 0;
}
init_idf(idf);
#ifdef DEBUG
print_expr("initializer-expression", *expp);
#endif DEBUG
}
;
/* 8.7 */
cast(struct type **tpp;) {struct declarator Dc;} :
{Dc = null_declarator;}