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"
|
|
|
|
|
|
1989-01-26 13:24:23 +00:00
|
|
|
extern int B_locals_created;
|
|
|
|
|
extern int B_procno;
|
1987-11-20 10:41:03 +00:00
|
|
|
|
|
|
|
|
C_end( l)
|
|
|
|
|
arith l;
|
|
|
|
|
{
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
swtxt();
|
|
|
|
|
|
1989-01-26 13:24:23 +00:00
|
|
|
if ( !B_locals_created) {
|
|
|
|
|
p = extnd_pro( B_procno);
|
1987-11-20 10:41:03 +00:00
|
|
|
|
|
|
|
|
symbol_definition( p);
|
|
|
|
|
set_local_visible( p);
|
|
|
|
|
locals( l);
|
1989-01-26 13:24:23 +00:00
|
|
|
jump( extnd_start( B_procno));
|
1987-11-20 10:41:03 +00:00
|
|
|
}
|
|
|
|
|
}
|
