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;
|
|
|
|
|
|
|
|
|
|
C_pro_narg( s)
|
|
|
|
|
char*s;
|
|
|
|
|
|
|
|
|
|
/* Het aantal locale variabelen is nog niet bekend, maar het stack-frame moet
|
|
|
|
|
* nu wel gemaakt worden! Oplossing : Pas bij bij C_end() is het aantal locale
|
|
|
|
|
* variabelen bekend dus nu een "jump" genereren en bij C_end() prolog() aan-
|
|
|
|
|
* roepen en daarna terug-jump-en naar het begin van de EM-procedure.
|
|
|
|
|
*/
|
|
|
|
|
{
|
1988-10-31 16:03:44 +00:00
|
|
|
char *ss;
|
1987-11-20 10:41:03 +00:00
|
|
|
swtxt();
|
|
|
|
|
|
|
|
|
|
symbol_definition( extnd_name( s));
|
|
|
|
|
procno++;
|
|
|
|
|
prolog();
|
|
|
|
|
locals_created = 0;
|
|
|
|
|
jump( extnd_pro( procno));
|
1988-10-31 16:03:44 +00:00
|
|
|
symbol_definition( ss = extnd_start( procno));
|
|
|
|
|
set_local_visible( ss);
|
1987-11-20 10:41:03 +00:00
|
|
|
}
|
