mach/sparc/ce/ce.src/C_pro.c

   1 #define CODE_EXPANDER
   2 #include <em.h>
   3 #include "back.h"
   4 #include <alloc.h>
   5
   6 extern int B_locals_created;
   7 extern int B_procno;
   8 char    *B_procnam;
   9
  10 void
  11 C_pro( s, l)
  12 char *s;
  13 arith l;
  14 {
  15         swtxt();
  16         s = extnd_name(s);
  17 #ifdef __solaris__
  18         fprint(codefile, "\t.type\t%s,#function\n", s);
  19         if (B_procnam) free(B_procnam);
  20         B_procnam = Salloc(s, strlen(s)+1);
  21 #endif
  22
  23         symbol_definition(  s);
  24         B_procno++;
  25         C_prolog();
  26         C_locals(l);
  27         B_locals_created = 1;
  28 }