(*****************************************************************************)
(*                                                                           *)
(*       class module table                                                  *)
(*                                                                           *)
(*****************************************************************************)


VAR
   object_file_table: ARRAY(.object_file_index_type.) OF object_file_type;
   module_table: ARRAY(.object_module_index_type.) OF module_table_entry_type;
   target_module: module_table_entry_type;
   object_module_count: object_module_index_type; (* count of modules registered sofar *)
   object_file_count: object_file_index_type; (*count of files registered sofar*)


PROCEDURE allocate_object_file_entry(VAR status: status_type;
                                     VAR index: object_file_index_type;
                                     VAR object_file: object_file_type
                                    );

  BEGIN (* allocate_object_file_entry *)
  END;  (* allocate_object_file_entry *)

PROCEDURE allocate_object_module_entry(VAR status: status_type;
                                       VAR index: object_module_index_type
                                      );

  BEGIN (* allocate_object_module_entry *)
  END;  (* allocate_object_module_entry *)