d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

more porting to pdp 11

Browse source
This commit is contained in:
ceriel 1987-03-23 23:27:03 +00:00
parent e67b672727
commit 43c55159d6
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lang/occam/comp/occam.g
View file

@ -348,7 +348,7 @@ const_def { register char *name; struct expr *e; }:
'=' expression(&e)
{ if (!constant(e) && !arr_constant(e))
nonconst("expression in constant definition");
info.const=e;
info.t_const=e;
insert(name, T_CONST|T_USED, 0, &info);
}
;
@ -457,7 +457,7 @@ item(register struct expr **e;)
var=searchall(token.t_sval);
if (var_constant(var))
*e=copy_const(var->s_info.const);
*e=copy_const(var->s_info.t_const);
else {
if (var_proc(var))
pars=var->s_info.proc.pars;

2
lang/occam/comp/symtab.c
View file

@ -121,7 +121,7 @@ static void sym_destroy(ps) register struct symbol *ps;
}
} else
if ((ps->s_type&T_TYPE)==T_CONST)
destroy(ps->s_info.const);
destroy(ps->s_info.t_const);
free(ps->s_name);
free(ps);
}

2
lang/occam/comp/symtab.h
View file

@ -54,7 +54,7 @@ union type_info {
int offset; /* from its local level or builtin name */
} vc; /* Variable or channel */
struct expr *const;
struct expr *t_const;
struct {
union storage st;