Floating docstrings are also extra text

git-svn-id: http://caml.inria.fr/svn/ocaml/version/4.02@16161 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Author: lpw25

parsing/lexer.mll

@@ -708,13 +708,17 @@ and skip_sharp_bang = parse
             set_pre_extra_docstrings pre_pos (List.rev a)
         | Before(a, f, b), (NoLine | NewLine) ->
             set_post_docstrings post_pos (List.rev a);
-            set_post_extra_docstrings post_pos (List.rev b);
+            set_post_extra_docstrings post_pos
+              (List.rev_append f (List.rev b));
             set_floating_docstrings pre_pos (List.rev f);
             set_pre_extra_docstrings pre_pos (List.rev a);
             set_pre_docstrings pre_pos b
         | Before(a, f, b), BlankLine ->
             set_post_docstrings post_pos (List.rev a);
-            set_floating_docstrings pre_pos (List.rev_append f (List.rev b));
+            set_post_extra_docstrings post_pos
+              (List.rev_append f (List.rev b));
+            set_floating_docstrings pre_pos
+              (List.rev_append f (List.rev b));
             set_pre_extra_docstrings pre_pos (List.rev a)
     in
     let rec loop lines docs lexbuf =