
{ The following definition is used to manage the file descriptor entry array.

  TYPE
    gft$file_descriptor_control = RECORD
      lock: ost$signature_lock,
      index1: bool64,
      index2: array [0 .. gfc$max_level_1_index] of bool64,
      CASE 0 .. 2 OF
      = 0 =
        in_use: array [0 .. gfc$max_level_2_index] of bool64,
      = 1 =
        in_use_bits: packed array [0 .. gfc$max_level_2_bit_index] of boolean,
      = 2 =
        in_use_words: array [0 .. gfc$max_level_2_index] of integer,
      CASEND,
    RECEND,

    bool64 = packed array [0 .. 63] of boolean;

  CONST
    gfc$max_level_1_index = 15,
    gfc$max_level_2_index = 1023,
    gfc$max_level_2_bit_index = 65535;



*copyc ost$signature_lock
