1988-02-03 12:48:58 +00:00
|
|
|
#define CODE_EXPANDER
|
1987-11-20 10:41:03 +00:00
|
|
|
#include <em.h>
|
|
|
|
#include "back.h"
|
|
|
|
|
|
|
|
extern int locals_created;
|
1988-11-18 17:57:28 +00:00
|
|
|
extern int procno;
|
1987-11-20 10:41:03 +00:00
|
|
|
|
|
|
|
C_pro( s, l)
|
|
|
|
char *s;
|
|
|
|
arith l;
|
|
|
|
{
|
|
|
|
swtxt();
|
|
|
|
|
|
|
|
symbol_definition( extnd_name( s));
|
|
|
|
procno++;
|
|
|
|
prolog();
|
|
|
|
locals(l);
|
|
|
|
locals_created = 1;
|
|
|
|
}
|