Function codegen_message

blakcomp/codegen.c:713–754

/ * codegen_message: Generate code for a single message handler. */

 * codegen_message: Generate code for a single message handler.
 */
void codegen_message(message_handler_type m)
{
   int numlocals, maxtemp, maxlocals;
   list_type s, p = m->header->params;
   long localpos;

   /* Leave space for # of local variables */
   localpos = FileCurPos(outfile); 
   OutputByte(outfile, (BYTE) 0);
   
   /* Write out # of arguments */
   OutputByte(outfile,  (BYTE) list_length(p));
   
   /* Write out arguments themselves */
      for ( ; p != NULL; p = p->next)
	 codegen_parameter( (param_type) p->data);

   /* # of local variables, including parameters.  -1 is to start at 0. */
   numlocals = list_length(m->locals) + list_length(m->header->params) - 1;
   maxlocals = numlocals;

   /* Write out code */
   for (s = m->body; s != NULL; s = s->next)
   {
      maxtemp = codegen_statement( (stmt_type) s->data, numlocals);
      if (maxtemp > maxlocals)
	 maxlocals = maxtemp;

      /* Bomb out if statement had unforseen errors */
      if (!codegen_ok)
	 return;
   }

   /* Backpatch in # of local variables */
   if (maxlocals > MAX_LOCALS)
      codegen_error("More than %d local variables in handler %s.", MAX_LOCALS, 
		    m->header->message_id->name);

   FileGoto(outfile, localpos);
   OutputByte(outfile,  (BYTE) (maxlocals + 1));  /* +1 because we start counting at 0 */
   FileGotoEnd(outfile);
}
/************************************************************************/
/*
 * codegen_class: Generate code for a single class.