Source rendering: Anchor counter should increase

So that adding some content at the end of the file does not modify
anchors that are above.

Signed-off-by: Paul-Elliot <peada@free.fr>

Author: panglesd

src/loader/implementation.ml

@@ -463,6 +463,11 @@ let of_cmt (source_id : Odoc_model.Paths.Identifier.SourcePage.t)
     Analysis.structure (env, uid_to_loc)
       (id :> Odoc_model.Paths.Identifier.Signature.t)
       [] structure
+    |> List.rev
+    (* Information are accumulated in a list. We need to have the
+       first info first in the list, to assign anchors with increasing
+       numbers, so that adding some content at the end of a file does
+       not modify the anchors for existing anchors. *)
   in
   let uid_to_loc_map = Shape.Uid.Tbl.to_map uid_to_loc in
   let uid_to_id : Odoc_model.Paths.Identifier.SourceLocation.t Shape.Uid.Map.t =

test/sources/source.t/a.ml

@@ -13,6 +13,7 @@ let segr = Yoyo.Aa
 let x = 2
 let y = x + 1
 let z a = if x = 1 || true then x + y else a
+let z' a = if x = 1 || true then x + y else a
 
 module A = struct end
 module B = A

test/sources/source.t/run.t

@@ -16,6 +16,7 @@ Files containing some values:
   let x = 2
   let y = x + 1
   let z a = if x = 1 || true then x + y else a
+  let z' a = if x = 1 || true then x + y else a
 
   module A = struct end
   module B = A
@@ -128,6 +129,10 @@ Source links generated in the documentation:
       <div class="spec value anchored" id="val-z">
        <a href="#val-z" class="anchor"></a>
        <a href="../root/source/a.ml.html#val-z" class="source_link">Source</a>
+  --
+      <div class="spec value anchored" id="val-z'">
+       <a href="#val-z'" class="anchor"></a>
+       <a href="../root/source/a.ml.html#val-z'" class="source_link">Source</a>
   --
       <div class="spec module anchored" id="module-A">
        <a href="#module-A" class="anchor"></a>
@@ -264,6 +269,7 @@ Ids generated in the source code:
   id="L58"
   id="L59"
   id="L60"
+  id="L61"
   id="type-t"
   id="type-truc"
   id="val-xazaz"
@@ -274,6 +280,8 @@ Ids generated in the source code:
   id="val-y"
   id="val-z"
   id="local_a_2"
+  id="val-z'"
+  id="local_a_3"
   id="module-A"
   id="module-B"
   id="module-type-T"