  FUNCTION [INLINE] fip#array_upper_bound_in_seq
    (    seq_beg_p: ^SEQ ( * );
         seq_end_p: ^SEQ ( * );
         element_size: integer): integer;

?? PUSH (LISTEXT := ON) ??

    VAR
      fwa_p: fit#sequence_converter,
      lwa_p: fit#sequence_converter;

    fwa_p.s_p := seq_beg_p;
    lwa_p.s_p := seq_end_p;
    fip#array_upper_bound_in_seq := (lwa_p.s.nextt - fwa_p.s.nextt) DIV
          element_size;

  FUNCEND fip#array_upper_bound_in_seq;
*copyc fit#sequence_converter
?? POP ??
