Pristine Ack-5.5
[Ack-5.5.git] / modules / src / em_code / bhpnam.c
1 #include "em_private.h"
2
3 /* $Id: bhpnam.c,v 1.4 1994/06/24 11:09:36 ceriel Exp $ */
4
5 void
6 CC_bhpnam(op, n, p, i)
7         arith n;
8         char *p;
9         int i;
10 {
11         /*      BSS or HOL with size n, initial value a PNAM(p),
12                 and flag i
13         */
14         PS(op);
15         CST(n);
16         COMMA();
17         PNAM(p);
18         COMMA();
19         CST((arith) i);
20         NL();
21 }