
  PROCEDURE [INLINE] dmp$increment_class_activity
    (    fde_p: gft$file_desc_entry_p);

?? PUSH (LISTEXT := ON) ??

    VAR
      actual_class_count: integer,
      avt_index: dmt$active_volume_table_index,
      class: dmt$class_member,
      dfd_p: ^dmt$disk_file_descriptor,
      fmd_p: ^dmt$file_medium_descriptor,
      system_class: dmt$system_class,
      value_p: ^integer;

    IF (fde_p <> NIL) AND (fde_p^.media = gfc$fm_mass_storage_file) THEN
      dmp$get_disk_file_descriptor_p (fde_p, dfd_p);
      class := dfd_p^.requested_class;
      IF class IN dmv$system_class THEN
        dmp$get_fmd_by_index (dfd_p, 1, fmd_p);
        avt_index := fmd_p^.avt_index;
        system_class := dmv$system_class_conversion [class];
        value_p := ^dmv$active_volume_table.table_p^ [avt_index].mass_storage.
              system_class_activity [system_class];
        osp$increment_locked_variable (value_p^, value_p^, actual_class_count);
      IFEND;
    IFEND;

  PROCEND dmp$increment_class_activity;

*copyc gft$file_desc_entry_p
*copyc dmp$get_disk_file_descriptor_p
*copyc dmp$get_fmd_by_index
*copyc osp$increment_locked_variable
*copyc dmv$active_volume_table
*copyc dmv$system_class
?? POP ??
