
  PROCEDURE [INLINE] nlp$al_get_data_length
    (    data: nat$data_fragments;
     VAR data_length: nat$data_length);

?? PUSH (LISTEXT := ON) ??
*copy nlh$al_get_data_length

    VAR
      data_p: ^nat$data_fragment,
      i: integer;

    data_length := 0;
    FOR i := LOWERBOUND (data) TO UPPERBOUND (data) DO
      data_p := ^data [i];
      IF ((data_p^.length > 0) AND (data_p^.address <> NIL)) THEN
        data_length := data_length + data_p^.length;
      IFEND;
    FOREND;

  PROCEND nlp$al_get_data_length;

*copyc nat$data_fragments
?? POP ??
