Function codegen

blakcomp/codegen.c:857–942

/ * codegen: Generate code for all the classes in the symbol table. */

 * codegen: Generate code for all the classes in the symbol table.
 */
void codegen(char *kod_fname, char *bof_fname)
{
   list_type c = NULL;
   long endpos, stringpos, debugpos, namepos;

   codegen_ok = true;
   debug_lines = NULL;

   outfile = fopen(bof_fname, "w+b");

   if (outfile == nullptr)
   {
      simple_error("Unable to open bof file %s!", bof_fname);
      return;
   }

   /* Write out header info */
   codegen_header();

   /* Remember position for backpatching location of kod filename, and leave room */
   namepos = FileCurPos(outfile);
   OutputInt(outfile, 0);

   /* Remember position for backpatching location of string table, and leave room */
   stringpos = FileCurPos(outfile);
   OutputInt(outfile, 0);

   /* Remember position for backpatching location of debugging info, and leave room */
   debugpos = FileCurPos(outfile);
   OutputInt(outfile, 0);
   
   codegen_classes();
   
   if (codegen_ok)
   {
      /* Backpatch location of string table */
      endpos = FileCurPos(outfile);
      FileGoto(outfile, stringpos); 
      OutputInt(outfile, endpos);

      FileGotoEnd(outfile);
      codegen_string_table();

      /* Backpatch location of debug info */
      endpos = FileCurPos(outfile);
      FileGoto(outfile, debugpos); 
      if (debug_bof)
         OutputInt(outfile, endpos);
      else OutputInt(outfile, 0);
      
      FileGotoEnd(outfile);
      if (debug_bof)
         codegen_debug_info();
      
      /* Backpatch location of kod filename */
      endpos = FileCurPos(outfile);
      FileGoto(outfile, namepos); 
      OutputInt(outfile, endpos);