

  TYPE
    tmt$new_ptl_lock = RECORD
     CASE boolean OF
    = true =
      locked: aligned [0 MOD 8]   boolean,
      count: 0 .. 0ffffff(16),
      id: 0 .. 0ffffffff(16),
    = false =
      clear: aligned [0 mod 8] integer,
     CASEND,
    RECEND;
