d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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) '=' expression(&e)
{ if (!constant(e) && !arr_constant(e)) { if (!constant(e) && !arr_constant(e))
nonconst("expression in constant definition"); nonconst("expression in constant definition");
info.const=e; info.t_const=e;
insert(name, T_CONST|T_USED, 0, &info); insert(name, T_CONST|T_USED, 0, &info);
} }
; ;
@ -457,7 +457,7 @@ item(register struct expr **e;)
var=searchall(token.t_sval); var=searchall(token.t_sval);
if (var_constant(var)) if (var_constant(var))
*e=copy_const(var->s_info.const); *e=copy_const(var->s_info.t_const);
else { else {
if (var_proc(var)) if (var_proc(var))
pars=var->s_info.proc.pars; 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 } else
if ((ps->s_type&T_TYPE)==T_CONST) 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->s_name);
free(ps); 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 */ int offset; /* from its local level or builtin name */
} vc; /* Variable or channel */ } vc; /* Variable or channel */
struct expr *const; struct expr *t_const;
struct { struct {
union storage st; union storage st;