modules/src/em_code/pro.c

   1 #include "em_private.h"
   2
   3 /* $Id: pro.c,v 1.4 1994/06/24 11:11:58 ceriel Exp $ */
   4
   5 void
   6 CC_pro(pnam, l)
   7         char *pnam;
   8         arith l;
   9 {
  10         /*      PRO pseudo with procedure name pnam and # of locals l
  11         */
  12         PS(ps_pro);
  13         PNAM(pnam);
  14         COMMA();
  15         CST(l);
  16         NL();
  17 }