Function codegen_classes

blakcomp/codegen.c:46–90

/ * codegen_classes: Generate code for all classes. */

 * codegen_classes: Generate code for all classes.
 */
void codegen_classes(void)
{
   list_type templist, c = NULL;
   int numclasses, classpos, endpos, i;

   /* Make list of only classes which appeared in current source file */
   for (templist = st.classes; templist != NULL; templist = templist->next)
      if ( ((class_type) (templist->data))->is_new)
        c = list_add_item(c, templist->data);
   
   /* Write out # of classes */
   numclasses = list_length(c);
   OutputInt(outfile, numclasses);

   classpos = FileCurPos(outfile);
   
   /* Write out class table */
   for (i=0; i < numclasses; i++)
   {
      /* Leave space for class id # */
      OutputInt(outfile, 0);
      
      /* Leave space for class offset */
      OutputInt(outfile, 0);
   }
   
   /* Loop through classes found in source code */
   for ( ; c != NULL; c = c->next)
   {
      class_type each_class = (class_type) (c->data);
      
      /* Backpatch in class id # and offset of current class */
      endpos = FileCurPos(outfile);
      FileGoto(outfile, classpos); 
      OutputInt(outfile, each_class->class_id->idnum);
      OutputInt(outfile, endpos);
      classpos = FileCurPos(outfile);  /* Move to next entry */
      FileGotoEnd(outfile);
      
      codegen_class(each_class);

      if (!codegen_ok)
         return;
   }
}
/************************************************************************/
/*
 * codegen_string_table:  Write out string table.