
  TYPE
    llt$obsolete_line_address_table = record
      original_name: pmt$program_name,
      optimized_code: boolean,
      language: llt$module_generator,
      number_of_items: llt$line_address_table_size,
      item: array [1 .. * ] of llt$obsolete_line_address_item,
    recend,

    llt$obsolete_line_address_item = record
      line_number: llt$obsolete_source_line_number,
      section_ordinal: llt$section_ordinal,
      offset: llt$section_offset,
      extent: llt$section_offset,
      statement_labeled: boolean,
      breakpoint_permitted: boolean,
      case llt$module_generator of
      = llc$cybil =
        cybil_line_kind: llt$cybil_line_kind,
        { Only support CYBIL currently. }
      casend,
    recend,

    llt$cybil_line_kind = (cyc$cybil_procedure, cyc$cybil_assignment,
      cyc$cybil_begin, cyc$cybil_end, cyc$cybil_while, cyc$cybil_whilend,
      cyc$cybil_repeat, cyc$cybil_until, cyc$cybil_for, cyc$cybil_forend,
      cyc$cybil_procedure_call, cyc$cybil_if, cyc$cybil_elseif, cyc$cybil_else,
      cyc$cybil_ifend, cyc$cybil_case, cyc$cybil_case_selector,
      cyc$cybil_casend, cyc$cybil_cycle, cyc$cybil_exit, cyc$cybil_return,
      cyc$cybil_push, cyc$cybil_next, cyc$cybil_reset, cyc$cybil_allocate,
      cyc$cybil_free),

    llt$obsolete_source_line_number = string (llc$obsolete_source_line_length);

  CONST
    llc$obsolete_source_line_length = 6;

*copyc PMT$PROGRAM_NAME
*copyc LLT$MODULE_GENERATOR
*copyc llt$section_address
*copyc LLT$OBJECT_TEXT_DESCRIPTOR
*copyc LLT$OBJECT_RECORD_KIND
*copyc LLT$LINE_ADDRESS_TABLE_SIZE
*copyc PMD$PPU_CHARACTERISTICS
*copyc OSD$VIRTUAL_ADDRESS
*copyc LLT$SOURCE_LINE_NUMBER
