Pristine Ack-5.5
[Ack-5.5.git] / util / ceg / defaults / pseudo / C_end.c
1 #define CODE_EXPANDER
2 #include <em.h>
3 #include "back.h"
4
5 extern int B_locals_created;
6 extern int B_procno;
7
8 void
9 C_end( l)
10 arith l;
11 {       
12         char *p;
13
14         swtxt();
15
16         if ( !B_locals_created) {
17                 p = extnd_pro( B_procno);
18
19                 symbol_definition( p);
20                 set_local_visible( p);
21                 C_locals( l);
22                 C_jump( extnd_start( B_procno));
23         }
24 }