
{  common deck DST$SYSTEM_MESSAGE_TYPES
{ These type declarations are used in the process of placing
{ system messages onto the System Message buffer and removing
{ system messages from the System Messages buffer.

  CONST
    { The original System Messages buffer is 1024 words long.
    dsc$sys_msg_buffer_size = 1024 * 8;

  TYPE
    { A system message header is placed on the System Message buffer
    { before each message placed on the buffer.  The header describes
    { the following message.

    dst$system_message_header = record
      size_name: string (4),
      message_size: 0 .. 0ffffffff(16),
      type_name: string (4),
      message_type: dst$system_logging_types,
      level_name: string (4),
      message_level: dst$system_message_levels,
    recend,

    { The following type declaration contains the pointers to
    { the system message buffer.

    dst$sys_msg_buffer_ptrs = record
      add_data_seq_p: ^SEQ ( * ),
      remove_data_seq_p: ^SEQ ( * ),
    recend,

    { The following type declaration describes various
    { parts of the system message buffer.

    dst$sys_msg_buffer_desc = record
      cm_start_of_buffer_p: ^SEQ ( * ),
      boot_start_of_buffer_p: REL (SEQ ( * )) ^SEQ ( * ),
      add_data_ptr_offset: integer,
      remove_data_ptr_offset: integer,
      sys_msg_buffer_size: integer,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc dst$system_logging_types
*copyc dst$system_message_levels
?? POP ??
