util/ceg/defaults/pseudo/C_pro_narg.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_pro_narg( s)
  10 char*s;
  11
  12 /* The number of locals is unknown, but the stackframe must be made anyway.
  13  * Solution: jump to end of procedure, where C_end() will generate code to
  14  * create the stackframe, and also will generate code to jump back.
  15  */
  16 {
  17         char *ss;
  18         swtxt();
  19
  20         symbol_definition( extnd_name( s));
  21         B_procno++;
  22         C_prolog();
  23         B_locals_created = 0;
  24         C_jump( extnd_pro( B_procno));
  25         symbol_definition( ss = extnd_start( B_procno));
  26         set_local_visible( ss);
  27 }