
  FUNCTION gfp$count_all_fdes_in_image
    (    image_segment_number: ost$segment): integer;

    VAR
      control_p: ^gft$file_descriptor_control,
      count: integer,
      index: integer;

    control_p := #ADDRESS (1, image_segment_number,
          gfc$fde_control_table_base);
    index := UPPERBOUND (control_p^.in_use_words);
    WHILE (control_p^.in_use_words [index] = 0) DO
      index := index - 1;
    WHILEND;
    index := index * 64 + 64;

    count := 0;
    REPEAT
      IF control_p^.in_use_bits [index] THEN
        count := count + 1;
      IFEND;
      index := index - 1;
    UNTIL index < 0;

    gfp$count_all_fdes_in_image := count;

  FUNCEND gfp$count_all_fdes_in_image;

*copyc gfc$constants
*copyc gft$file_descriptor_control
?? POP ??
