Organisationsocaml-ppxppxlib94b912 ()alpine-3.20-4.14_opam-2.2

alpine-3.20-4.14_opam-2.2

Link Copied
Code Copied

Logs

2024-08-18 17:46.53: New job: test ocaml-ppx/ppxlib https://github.com/ocaml-ppx/ppxlib.git#refs/pull/514/head (94b912eab81e63d36daa11d9b0825333317f5cb3) (linux-x86_64:alpine-3.20-4.14_opam-2.2)
Base: ocaml/opam:alpine-3.20-ocaml-4.14@sha256:87cedf15ce5532af4e145b521f1fbf6e0a0d7318f24badcd9bf2321f6edfb171
Opam project build


To reproduce locally:


git clone --recursive "https://github.com/ocaml-ppx/ppxlib.git" && cd "ppxlib" && git fetch origin "refs/pull/514/head" && git reset --hard 94b912ea
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:alpine-3.20-ocaml-4.14@sha256:87cedf15ce5532af4e145b521f1fbf6e0a0d7318f24badcd9bf2321f6edfb171
# alpine-3.20-4.14_opam-2.2
USER 1000:1000
ENV CLICOLOR_FORCE="1"
ENV OPAMCOLOR="always"
WORKDIR /src
RUN sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam
RUN opam init --reinit -ni
RUN uname -rs && opam exec -- ocaml -version && opam --version
WORKDIR /src
RUN sudo chown opam /src
RUN cd ~/opam-repository && (git cat-file -e b6fd252bfb86f03c473aee61b4d7dd8e91bdc8a0 || git fetch origin master) && git reset -q --hard b6fd252bfb86f03c473aee61b4d7dd8e91bdc8a0 && git log --no-decorate -n1 --oneline && opam update -u
RUN mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'
COPY --chown=1000:1000 ppxlib.opam ppxlib-bench.opam ./
COPY --chown=1000:1000 bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam bench/vendored/ppx_sexp_conv.v0.15.1/
RUN opam pin add -yn ppxlib.dev './' && \
    opam pin add -yn ppxlib-bench.dev './' && \
    opam pin add -yn ppx_sexp_conv 'bench/vendored/ppx_sexp_conv.v0.15.1/'
ENV DEPS="base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.11.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2"
ENV CI="true"
ENV OCAMLCI="true"
RUN opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS
RUN opam install $DEPS
COPY --chown=1000:1000 . /src
RUN opam exec -- dune build @install @check @runtest && rm -rf _build


END-OF-DOCKERFILE
docker build .
END-REPRO-BLOCK


2024-08-18 17:46.53: Using cache hint "ocaml-ppx/ppxlib-ocaml/opam:alpine-3.20-ocaml-4.14@sha256:87cedf15ce5532af4e145b521f1fbf6e0a0d7318f24badcd9bf2321f6edfb171-alpine-3.20-4.14_opam-2.2-ae926360e03da1e3da2c26b98e572641"
2024-08-18 17:46.53: Using OBuilder spec:
((from ocaml/opam:alpine-3.20-ocaml-4.14@sha256:87cedf15ce5532af4e145b521f1fbf6e0a0d7318f24badcd9bf2321f6edfb171)
 (comment alpine-3.20-4.14_opam-2.2)
 (user (uid 1000) (gid 1000))
 (env CLICOLOR_FORCE 1)
 (env OPAMCOLOR always)
 (workdir /src)
 (run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam"))
 (run (shell "opam init --reinit -ni"))
 (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
 (workdir /src)
 (run (shell "sudo chown opam /src"))
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell "cd ~/opam-repository && (git cat-file -e b6fd252bfb86f03c473aee61b4d7dd8e91bdc8a0 || git fetch origin master) && git reset -q --hard b6fd252bfb86f03c473aee61b4d7dd8e91bdc8a0 && git log --no-decorate -n1 --oneline && opam update -u"))
 (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
 (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./))
 (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam)
       (dst bench/vendored/ppx_sexp_conv.v0.15.1/))
 (run (network host)
      (shell  "opam pin add -yn ppxlib.dev './' && \
             \nopam pin add -yn ppxlib-bench.dev './' && \
             \nopam pin add -yn ppx_sexp_conv 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
 (env DEPS "base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.11.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2")
 (env CI true)
 (env OCAMLCI true)
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell "opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS"))
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell "opam install $DEPS"))
 (copy (src .) (dst /src))
 (run (shell "opam exec -- dune build @install @check @runtest && rm -rf _build"))
)


2024-08-18 17:46.53: Waiting for resource in pool OCluster
2024-08-18 17:46.53: Waiting for worker…
2024-08-18 17:46.53: Got resource from pool OCluster
Building on x86-bm-c15.sw.ocaml.org
All commits already cached
HEAD is now at 94b912ea Restore implementation of Exp.function_


(from ocaml/opam:alpine-3.20-ocaml-4.14@sha256:87cedf15ce5532af4e145b521f1fbf6e0a0d7318f24badcd9bf2321f6edfb171)
2024-08-18 17:47.50 ---> saved as "966476daa6def7d2e62d8619ae60fbf2bb96cc2af37117d4e85c9bef8d91f312"


/: (comment alpine-3.20-4.14_opam-2.2)


/: (user (uid 1000) (gid 1000))


/: (env CLICOLOR_FORCE 1)


/: (env OPAMCOLOR always)


/: (workdir /src)


/src: (run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam"))
2024-08-18 17:47.50 ---> saved as "16ebaa98ba3f6ceb846c0c82e9538f6f9d06f48fae0d3248cfeac249423e5398"


/src: (run (shell "opam init --reinit -ni"))
Configuring from /home/opam/.opamrc and then from built-in defaults.
Checking for available remotes: rsync and local, git.
  - you won't be able to use mercurial repositories unless you install the hg command on your system.
  - you won't be able to use darcs repositories unless you install the darcs command on your system.


This development version of opam requires an update to the layout of /home/opam/.opam from version 2.0 to version 2.2, which can't be reverted.
You may want to back it up before going further.


Continue? [y/n] y
[NOTE] The 'jobs' option was reset, its value was 255 and its new value will vary according to the current number of cores on your machine. You can restore the fixed value using:
           opam option jobs=255 --global
Format upgrade done.


<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository
2024-08-18 17:49.15 ---> saved as "03b0c5b76b28f1b19e61a05b2572ed303fdc37fd8d80843a33770bdae4586862"


/src: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
Linux 5.15.0-116-generic
The OCaml toplevel, version 4.14.2
2.2.0
2024-08-18 17:49.16 ---> saved as "1cd868a4f3ed5d2b97ce0566aae4ddbcfc35be447b639e46d1910eb370272473"


/src: (workdir /src)


/src: (run (shell "sudo chown opam /src"))
2024-08-18 17:49.16 ---> saved as "060cc6d783b28568c9e2ec0e42471ea1135b0f9d3f1b13be69fb5181c42b0f5c"


/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
           (network host)
           (shell "cd ~/opam-repository && (git cat-file -e b6fd252bfb86f03c473aee61b4d7dd8e91bdc8a0 || git fetch origin master) && git reset -q --hard b6fd252bfb86f03c473aee61b4d7dd8e91bdc8a0 && git log --no-decorate -n1 --oneline && opam update -u"))
b6fd252bfb [new release] yojson and yojson-five (2.2.2)


<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository


Everything as up-to-date as possible (run with --verbose to show unavailable upgrades).
However, you may "opam upgrade" these packages explicitly, which will ask permission to downgrade or uninstall the conflicting packages.
Nothing to do.
# Run eval $(opam env) to update the current shell environment
2024-08-18 17:50.16 ---> saved as "facaf77792fbd52c3d221f090f207aa0cfc728c1ef5945250bcc513c3a394c17"


/src: (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
2024-08-18 17:50.16 ---> saved as "46c6f67dc8a292cdedf2c8d7e7223d57182b1806c22dc4af4477fa3e673b6d40"


/src: (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./))
2024-08-18 17:50.16 ---> saved as "a7b6b10cc98d588665bc221f3e334d7f17644c4a2663ef6662dff3485f8e1c99"


/src: (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam)
            (dst bench/vendored/ppx_sexp_conv.v0.15.1/))
2024-08-18 17:50.16 ---> saved as "ab65b0fa25fb91b66d7fc3a3146bdd332e8b967de5cdc2518476d088608cd02f"


/src: (run (network host)
           (shell  "opam pin add -yn ppxlib.dev './' && \
                  \nopam pin add -yn ppxlib-bench.dev './' && \
                  \nopam pin add -yn ppx_sexp_conv 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
[ppxlib.dev] synchronised (file:///src)
ppxlib is now pinned to file:///src (version dev)
Package ppxlib-bench does not exist, create as a NEW package? [y/n] y
[ppxlib-bench.dev] synchronised (file:///src)
ppxlib-bench is now pinned to file:///src (version dev)
[ppx_sexp_conv.v0.17.0] synchronised (file:///src/bench/vendored/ppx_sexp_conv.v0.15.1)
ppx_sexp_conv is now pinned to file:///src/bench/vendored/ppx_sexp_conv.v0.15.1 (version v0.15.0)
2024-08-18 17:50.23 ---> saved as "0041bb4c442a679d8f3bb0f9eb81b4f71eb6d35e1f3ff7dd353bb4bd8630ab0d"


/src: (env DEPS "base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.11.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2")


/src: (env CI true)


/src: (env OCAMLCI true)


/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
           (network host)
           (shell "opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS"))
+ /usr/bin/sudo "apk" "update"
- fetch https://dl-cdn.alpinelinux.org/alpine/v3.20/main/x86_64/APKINDEX.tar.gz
- fetch https://dl-cdn.alpinelinux.org/alpine/v3.20/community/x86_64/APKINDEX.tar.gz
- fetch https://dl-cdn.alpinelinux.org/alpine/edge/main/x86_64/APKINDEX.tar.gz
- fetch https://dl-cdn.alpinelinux.org/alpine/edge/community/x86_64/APKINDEX.tar.gz
- fetch https://dl-cdn.alpinelinux.org/alpine/edge/testing/x86_64/APKINDEX.tar.gz
- v3.20.2-147-g22539ebaa9b [https://dl-cdn.alpinelinux.org/alpine/v3.20/main]
- v3.20.2-151-g6b74271f866 [https://dl-cdn.alpinelinux.org/alpine/v3.20/community]
- v20240807-577-g2b05e061e27 [https://dl-cdn.alpinelinux.org/alpine/edge/main]
- v20240807-578-g75d5bffc56e [https://dl-cdn.alpinelinux.org/alpine/edge/community]
- v20240807-577-g2b05e061e27 [https://dl-cdn.alpinelinux.org/alpine/edge/testing]
- OK: 54764 distinct packages available


<><> Synchronising pinned packages ><><><><><><><><><><><><><><><><><><><><><><>
[ppxlib.dev] synchronised (no changes)
[ppxlib-bench.dev] synchronised (no changes)


[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 2).
[NOTE] Package ocaml-base-compiler is already installed (current version is 4.14.2).
[NOTE] Package ocaml is already installed (current version is 4.14.2).
[NOTE] Package host-system-other is already installed (current version is 1).
[NOTE] Package host-arch-x86_64 is already installed (current version is 1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
2024-08-18 17:50.39 ---> saved as "449cb99e5e0315aaf727e3f74f6f66379435fecea2f220c714f07e369ecccd62"


/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
           (network host)
           (shell "opam install $DEPS"))
[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 2).
[NOTE] Package ocaml-base-compiler is already installed (current version is 4.14.2).
[NOTE] Package ocaml is already installed (current version is 4.14.2).
[NOTE] Package host-system-other is already installed (current version is 1).
[NOTE] Package host-arch-x86_64 is already installed (current version is 1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
The following actions will be performed:
=== install 14 packages
  - install base                v0.16.3
  - install cinaps              v0.15.1
  - install conf-bash           1
  - install csexp               1.5.2
  - install dune                3.16.0
  - install dune-configurator   3.16.0
  - install ocaml-compiler-libs v0.12.4
  - install ocamlfind           1.9.6
  - install ppx_derivers        1.2.1
  - install re                  1.11.0
  - install seq                 base
  - install sexplib0            v0.16.0
  - install stdlib-shims        0.3.0
  - install yojson              2.2.2


<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> installed conf-bash.1
-> retrieved cinaps.v0.15.1  (cached)
-> retrieved base.v0.16.3  (cached)
-> retrieved csexp.1.5.2  (cached)
-> retrieved ocaml-compiler-libs.v0.12.4  (cached)
-> retrieved ppx_derivers.1.2.1  (cached)
-> retrieved ocamlfind.1.9.6  (cached)
-> retrieved seq.base  (cached)
-> installed seq.base
-> retrieved re.1.11.0  (cached)
-> retrieved sexplib0.v0.16.0  (cached)
-> retrieved stdlib-shims.0.3.0  (cached)
-> retrieved yojson.2.2.2  (cached)
-> retrieved dune.3.16.0, dune-configurator.3.16.0  (cached)
-> installed ocamlfind.1.9.6
-> installed dune.3.16.0
-> installed ppx_derivers.1.2.1
-> installed csexp.1.5.2
-> installed ocaml-compiler-libs.v0.12.4
-> installed re.1.11.0
-> installed sexplib0.v0.16.0
-> installed stdlib-shims.0.3.0
-> installed yojson.2.2.2
-> installed cinaps.v0.15.1
-> installed dune-configurator.3.16.0
-> installed base.v0.16.3
Done.
# Run eval $(opam env) to update the current shell environment
2024-08-18 17:51.31 ---> saved as "0a1ef5abcaba4f2b005b4418dea690ef3b6628db665584c7313ec2674b19c6e2"


/src: (copy (src .) (dst /src))
2024-08-18 17:51.31 ---> saved as "0d2747e3c8eefc28b49c52cb8e18de5213496d499f0264dc9e17794f6a490ba2"


/src: (run (shell "opam exec -- dune build @install @check @runtest && rm -rf _build"))
(cd _build/default && .ppx/3134a5298fb2c80808cc94dd434856cb/ppx.exe -deriving-keep-w32=impl --cookie 'library-name="ppxlib_ast"' --impl ast/ast.ml -corrected-suffix .lint-corrected -diff-cmd - -null)
File "ast/ast.ml", lines 1086-2416, characters 0-5:
1086 | class virtual map =
1087 |   object (self)
1088 |     method virtual bool : bool -> bool
1089 |     method virtual char : char -> char
1090 |     method virtual int : int -> int
...
2413 |             Pdir_bool a
2414 | 
2415 |     method cases : cases -> cases = self#list self#case
2416 |   end
Error: ppxlib: the corrected code doesn't round-trip.
This is probably a bug in the OCaml printer:
--- generated
+++ generated->printed->parsed
@@ -2389,24 +2389,118 @@
                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
                                 (pos_cnum -1)))
                               (loc_ghost true)))
+                            (ppat_loc_stack ()) (ppat_attributes ())))))
+                        ((pparam_loc
+                          ((loc_start
+                            ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                             (pos_cnum -1)))
+                           (loc_end
+                            ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                             (pos_cnum -1)))
+                           (loc_ghost true)))
+                         (pparam_desc
+                          (Pparam_val Nolabel ()
+                           ((ppat_desc
+                             (Ppat_record
+                              ((((txt (Lident txt))
+                                 (loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true))))
+                                ((ppat_desc
+                                  (Ppat_var
+                                   ((txt txt)
+                                    (loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true))))))
+                                 (ppat_loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true)))
+                                 (ppat_loc_stack ()) (ppat_attributes ())))
+                               (((txt (Lident loc))
+                                 (loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true))))
+                                ((ppat_desc
+                                  (Ppat_var
+                                   ((txt loc)
+                                    (loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true))))))
+                                 (ppat_loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true)))
+                                 (ppat_loc_stack ()) (ppat_attributes ()))))
+                              Closed))
+                            (ppat_loc
+                             ((loc_start
+                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                                (pos_cnum -1)))
+                              (loc_end
+                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                                (pos_cnum -1)))
+                              (loc_ghost true)))
                             (ppat_loc_stack ()) (ppat_attributes ()))))))
                        ()
                        (Pfunction_body
                         ((pexp_desc
-                          (Pexp_function
-                           (((pparam_loc
-                              ((loc_start
-                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
-                                 (pos_cnum -1)))
-                               (loc_end
-                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
-                                 (pos_cnum -1)))
-                               (loc_ghost true)))
-                             (pparam_desc
-                              (Pparam_val Nolabel ()
-                               ((ppat_desc
-                                 (Ppat_record
-                                  ((((txt (Lident txt))
+                          (Pexp_let Nonrecursive
+                           (((pvb_pat
+                              ((ppat_desc
+                                (Ppat_var
+                                 ((txt txt)
+                                  (loc
+                                   ((loc_start
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_end
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_ghost true))))))
+                               (ppat_loc
+                                ((loc_start
+                                  ((pos_fname _none_) (pos_lnum 1)
+                                   (pos_bol 0) (pos_cnum -1)))
+                                 (loc_end
+                                  ((pos_fname _none_) (pos_lnum 1)
+                                   (pos_bol 0) (pos_cnum -1)))
+                                 (loc_ghost true)))
+                               (ppat_loc_stack ()) (ppat_attributes ())))
+                             (pvb_expr
+                              ((pexp_desc
+                                (Pexp_apply
+                                 ((pexp_desc
+                                   (Pexp_ident
+                                    ((txt (Lident _a))
                                      (loc
                                       ((loc_start
                                         ((pos_fname _none_) (pos_lnum 1)
@@ -2414,29 +2508,61 @@
                                        (loc_end
                                         ((pos_fname _none_) (pos_lnum 1)
                                          (pos_bol 0) (pos_cnum -1)))
-                                       (loc_ghost true))))
-                                    ((ppat_desc
-                                      (Ppat_var
-                                       ((txt txt)
-                                        (loc
-                                         ((loc_start
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_end
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_ghost true))))))
-                                     (ppat_loc
-                                      ((loc_start
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_end
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_ghost true)))
-                                     (ppat_loc_stack ())
-                                     (ppat_attributes ())))
-                                   (((txt (Lident loc))
+                                       (loc_ghost true))))))
+                                  (pexp_loc
+                                   ((loc_start
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_end
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_ghost true)))
+                                  (pexp_loc_stack ()) (pexp_attributes ()))
+                                 ((Nolabel
+                                   ((pexp_desc
+                                     (Pexp_ident
+                                      ((txt (Lident txt))
+                                       (loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true))))))
+                                    (pexp_loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true)))
+                                    (pexp_loc_stack ()) (pexp_attributes ()))))))
+                               (pexp_loc
+                                ((loc_start
+                                  ((pos_fname _none_) (pos_lnum 1)
+                                   (pos_bol 0) (pos_cnum -1)))
+                                 (loc_end
+                                  ((pos_fname _none_) (pos_lnum 1)
+                                   (pos_bol 0) (pos_cnum -1)))
+                                 (loc_ghost true)))
+                               (pexp_loc_stack ()) (pexp_attributes ())))
+                             (pvb_constraint ()) (pvb_attributes ())
+                             (pvb_loc
+                              ((loc_start
+                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                                 (pos_cnum -1)))
+                               (loc_end
+                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                                 (pos_cnum -1)))
+                               (loc_ghost true)))))
+                           ((pexp_desc
+                             (Pexp_let Nonrecursive
+                              (((pvb_pat
+                                 ((ppat_desc
+                                   (Ppat_var
+                                    ((txt loc)
                                      (loc
                                       ((loc_start
                                         ((pos_fname _none_) (pos_lnum 1)
@@ -2444,91 +2570,24 @@
                                        (loc_end
                                         ((pos_fname _none_) (pos_lnum 1)
                                          (pos_bol 0) (pos_cnum -1)))
-                                       (loc_ghost true))))
-                                    ((ppat_desc
-                                      (Ppat_var
-                                       ((txt loc)
-                                        (loc
-                                         ((loc_start
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_end
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_ghost true))))))
-                                     (ppat_loc
-                                      ((loc_start
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_end
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_ghost true)))
-                                     (ppat_loc_stack ())
-                                     (ppat_attributes ()))))
-                                  Closed))
-                                (ppat_loc
-                                 ((loc_start
-                                   ((pos_fname _none_) (pos_lnum 1)
-                                    (pos_bol 0) (pos_cnum -1)))
-                                  (loc_end
-                                   ((pos_fname _none_) (pos_lnum 1)
-                                    (pos_bol 0) (pos_cnum -1)))
-                                  (loc_ghost true)))
-                                (ppat_loc_stack ()) (ppat_attributes ()))))))
-                           ()
-                           (Pfunction_body
-                            ((pexp_desc
-                              (Pexp_let Nonrecursive
-                               (((pvb_pat
-                                  ((ppat_desc
-                                    (Ppat_var
-                                     ((txt txt)
-                                      (loc
-                                       ((loc_start
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_end
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_ghost true))))))
-                                   (ppat_loc
-                                    ((loc_start
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_end
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_ghost true)))
-                                   (ppat_loc_stack ()) (ppat_attributes ())))
-                                 (pvb_expr
-                                  ((pexp_desc
-                                    (Pexp_apply
-                                     ((pexp_desc
-                                       (Pexp_ident
-                                        ((txt (Lident _a))
-                                         (loc
-                                          ((loc_start
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_end
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_ghost true))))))
-                                      (pexp_loc
-                                       ((loc_start
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_end
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_ghost true)))
-                                      (pexp_loc_stack ())
-                                      (pexp_attributes ()))
-                                     ((Nolabel
+                                       (loc_ghost true))))))
+                                  (ppat_loc
+                                   ((loc_start
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_end
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_ghost true)))
+                                  (ppat_loc_stack ()) (ppat_attributes ())))
+                                (pvb_expr
+                                 ((pexp_desc
+                                   (Pexp_apply
+                                    ((pexp_desc
+                                      (Pexp_send
                                        ((pexp_desc
                                          (Pexp_ident
-                                          ((txt (Lident txt))
+                                          ((txt (Lident self))
                                            (loc
                                             ((loc_start
                                               ((pos_fname _none_)
@@ -2548,148 +2607,8 @@
                                             (pos_bol 0) (pos_cnum -1)))
                                           (loc_ghost true)))
                                         (pexp_loc_stack ())
-                                        (pexp_attributes ()))))))
-                                   (pexp_loc
-                                    ((loc_start
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_end
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_ghost true)))
-                                   (pexp_loc_stack ()) (pexp_attributes ())))
-                                 (pvb_constraint ()) (pvb_attributes ())
-                                 (pvb_loc
-                                  ((loc_start
-                                    ((pos_fname _none_) (pos_lnum 1)
-                                     (pos_bol 0) (pos_cnum -1)))
-                                   (loc_end
-                                    ((pos_fname _none_) (pos_lnum 1)
-                                     (pos_bol 0) (pos_cnum -1)))
-                                   (loc_ghost true)))))
-                               ((pexp_desc
-                                 (Pexp_let Nonrecursive
-                                  (((pvb_pat
-                                     ((ppat_desc
-                                       (Ppat_var
-                                        ((txt loc)
-                                         (loc
-                                          ((loc_start
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_end
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_ghost true))))))
-                                      (ppat_loc
-                                       ((loc_start
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_end
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_ghost true)))
-                                      (ppat_loc_stack ())
-                                      (ppat_attributes ())))
-                                    (pvb_expr
-                                     ((pexp_desc
-                                       (Pexp_apply
-                                        ((pexp_desc
-                                          (Pexp_send
-                                           ((pexp_desc
-                                             (Pexp_ident
-                                              ((txt (Lident self))
-                                               (loc
-                                                ((loc_start
-                                                  ((pos_fname _none_)
-                                                   (pos_lnum 1) (pos_bol 0)
-                                                   (pos_cnum -1)))
-                                                 (loc_end
-                                                  ((pos_fname _none_)
-                                                   (pos_lnum 1) (pos_bol 0)
-                                                   (pos_cnum -1)))
-                                                 (loc_ghost true))))))
-                                            (pexp_loc
-                                             ((loc_start
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_end
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_ghost true)))
-                                            (pexp_loc_stack ())
-                                            (pexp_attributes ()))
-                                           ((txt location)
-                                            (loc
-                                             ((loc_start
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_end
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_ghost true))))))
-                                         (pexp_loc
-                                          ((loc_start
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_end
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_ghost true)))
-                                         (pexp_loc_stack ())
-                                         (pexp_attributes ()))
-                                        ((Nolabel
-                                          ((pexp_desc
-                                            (Pexp_ident
-                                             ((txt (Lident loc))
-                                              (loc
-                                               ((loc_start
-                                                 ((pos_fname _none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_end
-                                                 ((pos_fname _none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_ghost true))))))
-                                           (pexp_loc
-                                            ((loc_start
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_end
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_ghost true)))
-                                           (pexp_loc_stack ())
-                                           (pexp_attributes ()))))))
-                                      (pexp_loc
-                                       ((loc_start
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_end
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_ghost true)))
-                                      (pexp_loc_stack ())
-                                      (pexp_attributes ())))
-                                    (pvb_constraint ()) (pvb_attributes ())
-                                    (pvb_loc
-                                     ((loc_start
-                                       ((pos_fname _none_) (pos_lnum 1)
-                                        (pos_bol 0) (pos_cnum -1)))
-                                      (loc_end
-                                       ((pos_fname _none_) (pos_lnum 1)
-                                        (pos_bol 0) (pos_cnum -1)))
-                                      (loc_ghost true)))))
-                                  ((pexp_desc
-                                    (Pexp_record
-                                     ((((txt (Lident txt))
+                                        (pexp_attributes ()))
+                                       ((txt location)
                                         (loc
                                          ((loc_start
                                            ((pos_fname _none_) (pos_lnum 1)
@@ -2697,90 +2616,136 @@
                                           (loc_end
                                            ((pos_fname _none_) (pos_lnum 1)
                                             (pos_bol 0) (pos_cnum -1)))
-                                          (loc_ghost true))))
-                                       ((pexp_desc
-                                         (Pexp_ident
-                                          ((txt (Lident txt))
-                                           (loc
-                                            ((loc_start
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_end
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_ghost true))))))
-                                        (pexp_loc
-                                         ((loc_start
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_end
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_ghost true)))
-                                        (pexp_loc_stack ())
-                                        (pexp_attributes ())))
-                                      (((txt (Lident loc))
-                                        (loc
-                                         ((loc_start
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_end
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_ghost true))))
-                                       ((pexp_desc
-                                         (Pexp_ident
-                                          ((txt (Lident loc))
-                                           (loc
-                                            ((loc_start
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_end
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_ghost true))))))
-                                        (pexp_loc
-                                         ((loc_start
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_end
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_ghost true)))
-                                        (pexp_loc_stack ())
-                                        (pexp_attributes ()))))
-                                     ()))
-                                   (pexp_loc
-                                    ((loc_start
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_end
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_ghost true)))
-                                   (pexp_loc_stack ()) (pexp_attributes ()))))
-                                (pexp_loc
+                                          (loc_ghost true))))))
+                                     (pexp_loc
+                                      ((loc_start
+                                        ((pos_fname _none_) (pos_lnum 1)
+                                         (pos_bol 0) (pos_cnum -1)))
+                                       (loc_end
+                                        ((pos_fname _none_) (pos_lnum 1)
+                                         (pos_bol 0) (pos_cnum -1)))
+                                       (loc_ghost true)))
+                                     (pexp_loc_stack ())
+                                     (pexp_attributes ()))
+                                    ((Nolabel
+                                      ((pexp_desc
+                                        (Pexp_ident
+                                         ((txt (Lident loc))
+                                          (loc
+                                           ((loc_start
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_end
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_ghost true))))))
+                                       (pexp_loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true)))
+                                       (pexp_loc_stack ())
+                                       (pexp_attributes ()))))))
+                                  (pexp_loc
+                                   ((loc_start
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_end
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_ghost true)))
+                                  (pexp_loc_stack ()) (pexp_attributes ())))
+                                (pvb_constraint ()) (pvb_attributes ())
+                                (pvb_loc
                                  ((loc_start
                                    ((pos_fname _none_) (pos_lnum 1)
                                     (pos_bol 0) (pos_cnum -1)))
                                   (loc_end
                                    ((pos_fname _none_) (pos_lnum 1)
                                     (pos_bol 0) (pos_cnum -1)))
-                                  (loc_ghost true)))
-                                (pexp_loc_stack ()) (pexp_attributes ()))))
-                             (pexp_loc
-                              ((loc_start
-                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
-                                 (pos_cnum -1)))
-                               (loc_end
-                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
-                                 (pos_cnum -1)))
-                               (loc_ghost true)))
-                             (pexp_loc_stack ()) (pexp_attributes ())))))
+                                  (loc_ghost true)))))
+                              ((pexp_desc
+                                (Pexp_record
+                                 ((((txt (Lident txt))
+                                    (loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true))))
+                                   ((pexp_desc
+                                     (Pexp_ident
+                                      ((txt (Lident txt))
+                                       (loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true))))))
+                                    (pexp_loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true)))
+                                    (pexp_loc_stack ()) (pexp_attributes ())))
+                                  (((txt (Lident loc))
+                                    (loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true))))
+                                   ((pexp_desc
+                                     (Pexp_ident
+                                      ((txt (Lident loc))
+                                       (loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true))))))
+                                    (pexp_loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true)))
+                                    (pexp_loc_stack ()) (pexp_attributes ()))))
+                                 ()))
+                               (pexp_loc
+                                ((loc_start
+                                  ((pos_fname _none_) (pos_lnum 1)
+                                   (pos_bol 0) (pos_cnum -1)))
+                                 (loc_end
+                                  ((pos_fname _none_) (pos_lnum 1)
+                                   (pos_bol 0) (pos_cnum -1)))
+                                 (loc_ghost true)))
+                               (pexp_loc_stack ()) (pexp_attributes ()))))
+                            (pexp_loc
+                             ((loc_start
+                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                                (pos_cnum -1)))
+                              (loc_end
+                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                                (pos_cnum -1)))
+                              (loc_ghost true)))
+                            (pexp_loc_stack ()) (pexp_attributes ()))))
                          (pexp_loc
                           ((loc_start
                             ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
@@ -77664,35 +77629,236 @@
                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
                                 (pos_cnum -1)))
                               (loc_ghost true)))
+                            (ppat_loc_stack ()) (ppat_attributes ())))))
+                        ((pparam_loc
+                          ((loc_start
+                            ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                             (pos_cnum -1)))
+                           (loc_end
+                            ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                             (pos_cnum -1)))
+                           (loc_ghost true)))
+                         (pparam_desc
+                          (Pparam_val Nolabel ()
+                           ((ppat_desc
+                             (Ppat_record
+                              ((((txt (Lident pci_virt))
+                                 (loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true))))
+                                ((ppat_desc
+                                  (Ppat_var
+                                   ((txt pci_virt)
+                                    (loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true))))))
+                                 (ppat_loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true)))
+                                 (ppat_loc_stack ()) (ppat_attributes ())))
+                               (((txt (Lident pci_params))
+                                 (loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true))))
+                                ((ppat_desc
+                                  (Ppat_var
+                                   ((txt pci_params)
+                                    (loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true))))))
+                                 (ppat_loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true)))
+                                 (ppat_loc_stack ()) (ppat_attributes ())))
+                               (((txt (Lident pci_name))
+                                 (loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true))))
+                                ((ppat_desc
+                                  (Ppat_var
+                                   ((txt pci_name)
+                                    (loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true))))))
+                                 (ppat_loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true)))
+                                 (ppat_loc_stack ()) (ppat_attributes ())))
+                               (((txt (Lident pci_expr))
+                                 (loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true))))
+                                ((ppat_desc
+                                  (Ppat_var
+                                   ((txt pci_expr)
+                                    (loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_ghost true))))))
+                                 (ppat_loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true)))
+                                 (ppat_loc_stack ()) (ppat_attributes ())))
+                               (((txt (Lident pci_loc))
+                                 (loc
+                                  ((loc_start
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_end
+                                    ((pos_fname _none_) (pos_lnum 1)
+                                     (pos_bol 0) (pos_cnum -1)))
+                                   (loc_ghost true))))
+                                ((ppat_desc
+                                  (Ppat_var
+                                   ((txt pci_loc)
+                                    (loc
+                                     ((loc_start
+                                       ((pos_fname _none_) (pos_lnum 1)
+                                        (pos_bol 0) (pos_cnum -1)))
+                                      (loc_end
+                                       ((pos_fname _none_) (pos_lnum 1)
...TRUNCATED BY DUNE...
-                                      (Ppat_var
-                                       ((txt pincl_mod)
-                                        (loc
+                                       (loc_ghost true))))))
+                                  (ppat_loc
+                                   ((loc_start
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_end
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_ghost true)))
+                                  (ppat_loc_stack ()) (ppat_attributes ())))
+                                (pvb_expr
+                                 ((pexp_desc
+                                   (Pexp_apply
+                                    ((pexp_desc
+                                      (Pexp_send
+                                       ((pexp_desc
+                                         (Pexp_ident
+                                          ((txt (Lident self))
+                                           (loc
+                                            ((loc_start
+                                              ((pos_fname _none_)
+                                               (pos_lnum 1) (pos_bol 0)
+                                               (pos_cnum -1)))
+                                             (loc_end
+                                              ((pos_fname _none_)
+                                               (pos_lnum 1) (pos_bol 0)
+                                               (pos_cnum -1)))
+                                             (loc_ghost true))))))
+                                        (pexp_loc
                                          ((loc_start
                                            ((pos_fname _none_) (pos_lnum 1)
                                             (pos_bol 0) (pos_cnum -1)))
                                           (loc_end
                                            ((pos_fname _none_) (pos_lnum 1)
                                             (pos_bol 0) (pos_cnum -1)))
-                                          (loc_ghost true))))))
-                                     (ppat_loc
-                                      ((loc_start
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_end
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_ghost true)))
-                                     (ppat_loc_stack ())
-                                     (ppat_attributes ())))
-                                   (((txt (Lident pincl_loc))
-                                     (loc
-                                      ((loc_start
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_end
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_ghost true))))
-                                    ((ppat_desc
-                                      (Ppat_var
-                                       ((txt pincl_loc)
+                                          (loc_ghost true)))
+                                        (pexp_loc_stack ())
+                                        (pexp_attributes ()))
+                                       ((txt location)
                                         (loc
                                          ((loc_start
                                            ((pos_fname _none_) (pos_lnum 1)
@@ -105693,7 +105568,7 @@
                                            ((pos_fname _none_) (pos_lnum 1)
                                             (pos_bol 0) (pos_cnum -1)))
                                           (loc_ghost true))))))
-                                     (ppat_loc
+                                     (pexp_loc
                                       ((loc_start
                                         ((pos_fname _none_) (pos_lnum 1)
                                          (pos_bol 0) (pos_cnum -1)))
@@ -105701,17 +105576,51 @@
                                         ((pos_fname _none_) (pos_lnum 1)
                                          (pos_bol 0) (pos_cnum -1)))
                                        (loc_ghost true)))
-                                     (ppat_loc_stack ())
-                                     (ppat_attributes ())))
-                                   (((txt (Lident pincl_attributes))
-                                     (loc
-                                      ((loc_start
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_end
-                                        ((pos_fname _none_) (pos_lnum 1)
-                                         (pos_bol 0) (pos_cnum -1)))
-                                       (loc_ghost true))))
+                                     (pexp_loc_stack ())
+                                     (pexp_attributes ()))
+                                    ((Nolabel
+                                      ((pexp_desc
+                                        (Pexp_ident
+                                         ((txt (Lident pincl_loc))
+                                          (loc
+                                           ((loc_start
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_end
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_ghost true))))))
+                                       (pexp_loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true)))
+                                       (pexp_loc_stack ())
+                                       (pexp_attributes ()))))))
+                                  (pexp_loc
+                                   ((loc_start
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_end
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_ghost true)))
+                                  (pexp_loc_stack ()) (pexp_attributes ())))
+                                (pvb_constraint ()) (pvb_attributes ())
+                                (pvb_loc
+                                 ((loc_start
+                                   ((pos_fname _none_) (pos_lnum 1)
+                                    (pos_bol 0) (pos_cnum -1)))
+                                  (loc_end
+                                   ((pos_fname _none_) (pos_lnum 1)
+                                    (pos_bol 0) (pos_cnum -1)))
+                                  (loc_ghost true)))))
+                              ((pexp_desc
+                                (Pexp_let Nonrecursive
+                                 (((pvb_pat
                                     ((ppat_desc
                                       (Ppat_var
                                        ((txt pincl_attributes)
@@ -105732,187 +105641,15 @@
                                          (pos_bol 0) (pos_cnum -1)))
                                        (loc_ghost true)))
                                      (ppat_loc_stack ())
-                                     (ppat_attributes ()))))
-                                  Closed))
-                                (ppat_loc
-                                 ((loc_start
-                                   ((pos_fname _none_) (pos_lnum 1)
-                                    (pos_bol 0) (pos_cnum -1)))
-                                  (loc_end
-                                   ((pos_fname _none_) (pos_lnum 1)
-                                    (pos_bol 0) (pos_cnum -1)))
-                                  (loc_ghost true)))
-                                (ppat_loc_stack ()) (ppat_attributes ()))))))
-                           ()
-                           (Pfunction_body
-                            ((pexp_desc
-                              (Pexp_let Nonrecursive
-                               (((pvb_pat
-                                  ((ppat_desc
-                                    (Ppat_var
-                                     ((txt pincl_mod)
-                                      (loc
-                                       ((loc_start
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_end
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_ghost true))))))
-                                   (ppat_loc
-                                    ((loc_start
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_end
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_ghost true)))
-                                   (ppat_loc_stack ()) (ppat_attributes ())))
-                                 (pvb_expr
-                                  ((pexp_desc
-                                    (Pexp_apply
-                                     ((pexp_desc
-                                       (Pexp_ident
-                                        ((txt (Lident _a))
-                                         (loc
-                                          ((loc_start
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_end
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_ghost true))))))
-                                      (pexp_loc
-                                       ((loc_start
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_end
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_ghost true)))
-                                      (pexp_loc_stack ())
-                                      (pexp_attributes ()))
-                                     ((Nolabel
+                                     (ppat_attributes ())))
+                                   (pvb_expr
+                                    ((pexp_desc
+                                      (Pexp_apply
                                        ((pexp_desc
-                                         (Pexp_ident
-                                          ((txt (Lident pincl_mod))
-                                           (loc
-                                            ((loc_start
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_end
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_ghost true))))))
-                                        (pexp_loc
-                                         ((loc_start
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_end
-                                           ((pos_fname _none_) (pos_lnum 1)
-                                            (pos_bol 0) (pos_cnum -1)))
-                                          (loc_ghost true)))
-                                        (pexp_loc_stack ())
-                                        (pexp_attributes ()))))))
-                                   (pexp_loc
-                                    ((loc_start
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_end
-                                      ((pos_fname _none_) (pos_lnum 1)
-                                       (pos_bol 0) (pos_cnum -1)))
-                                     (loc_ghost true)))
-                                   (pexp_loc_stack ()) (pexp_attributes ())))
-                                 (pvb_constraint ()) (pvb_attributes ())
-                                 (pvb_loc
-                                  ((loc_start
-                                    ((pos_fname _none_) (pos_lnum 1)
-                                     (pos_bol 0) (pos_cnum -1)))
-                                   (loc_end
-                                    ((pos_fname _none_) (pos_lnum 1)
-                                     (pos_bol 0) (pos_cnum -1)))
-                                   (loc_ghost true)))))
-                               ((pexp_desc
-                                 (Pexp_let Nonrecursive
-                                  (((pvb_pat
-                                     ((ppat_desc
-                                       (Ppat_var
-                                        ((txt pincl_loc)
-                                         (loc
-                                          ((loc_start
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_end
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_ghost true))))))
-                                      (ppat_loc
-                                       ((loc_start
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_end
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_ghost true)))
-                                      (ppat_loc_stack ())
-                                      (ppat_attributes ())))
-                                    (pvb_expr
-                                     ((pexp_desc
-                                       (Pexp_apply
-                                        ((pexp_desc
-                                          (Pexp_send
-                                           ((pexp_desc
-                                             (Pexp_ident
-                                              ((txt (Lident self))
-                                               (loc
-                                                ((loc_start
-                                                  ((pos_fname _none_)
-                                                   (pos_lnum 1) (pos_bol 0)
-                                                   (pos_cnum -1)))
-                                                 (loc_end
-                                                  ((pos_fname _none_)
-                                                   (pos_lnum 1) (pos_bol 0)
-                                                   (pos_cnum -1)))
-                                                 (loc_ghost true))))))
-                                            (pexp_loc
-                                             ((loc_start
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_end
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_ghost true)))
-                                            (pexp_loc_stack ())
-                                            (pexp_attributes ()))
-                                           ((txt location)
-                                            (loc
-                                             ((loc_start
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_end
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_ghost true))))))
-                                         (pexp_loc
-                                          ((loc_start
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_end
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_ghost true)))
-                                         (pexp_loc_stack ())
-                                         (pexp_attributes ()))
-                                        ((Nolabel
+                                         (Pexp_send
                                           ((pexp_desc
                                             (Pexp_ident
-                                             ((txt (Lident pincl_loc))
+                                             ((txt (Lident self))
                                               (loc
                                                ((loc_start
                                                  ((pos_fname _none_)
@@ -105934,157 +105671,8 @@
                                                (pos_cnum -1)))
                                              (loc_ghost true)))
                                            (pexp_loc_stack ())
-                                           (pexp_attributes ()))))))
-                                      (pexp_loc
-                                       ((loc_start
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_end
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_ghost true)))
-                                      (pexp_loc_stack ())
-                                      (pexp_attributes ())))
-                                    (pvb_constraint ()) (pvb_attributes ())
-                                    (pvb_loc
-                                     ((loc_start
-                                       ((pos_fname _none_) (pos_lnum 1)
-                                        (pos_bol 0) (pos_cnum -1)))
-                                      (loc_end
-                                       ((pos_fname _none_) (pos_lnum 1)
-                                        (pos_bol 0) (pos_cnum -1)))
-                                      (loc_ghost true)))))
-                                  ((pexp_desc
-                                    (Pexp_let Nonrecursive
-                                     (((pvb_pat
-                                        ((ppat_desc
-                                          (Ppat_var
-                                           ((txt pincl_attributes)
-                                            (loc
-                                             ((loc_start
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_end
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_ghost true))))))
-                                         (ppat_loc
-                                          ((loc_start
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_end
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_ghost true)))
-                                         (ppat_loc_stack ())
-                                         (ppat_attributes ())))
-                                       (pvb_expr
-                                        ((pexp_desc
-                                          (Pexp_apply
-                                           ((pexp_desc
-                                             (Pexp_send
-                                              ((pexp_desc
-                                                (Pexp_ident
-                                                 ((txt (Lident self))
-                                                  (loc
-                                                   ((loc_start
-                                                     ((pos_fname _none_)
-                                                      (pos_lnum 1)
-                                                      (pos_bol 0)
-                                                      (pos_cnum -1)))
-                                                    (loc_end
-                                                     ((pos_fname _none_)
-                                                      (pos_lnum 1)
-                                                      (pos_bol 0)
-                                                      (pos_cnum -1)))
-                                                    (loc_ghost true))))))
-                                               (pexp_loc
-                                                ((loc_start
-                                                  ((pos_fname _none_)
-                                                   (pos_lnum 1) (pos_bol 0)
-                                                   (pos_cnum -1)))
-                                                 (loc_end
-                                                  ((pos_fname _none_)
-                                                   (pos_lnum 1) (pos_bol 0)
-                                                   (pos_cnum -1)))
-                                                 (loc_ghost true)))
-                                               (pexp_loc_stack ())
-                                               (pexp_attributes ()))
-                                              ((txt attributes)
-                                               (loc
-                                                ((loc_start
-                                                  ((pos_fname _none_)
-                                                   (pos_lnum 1) (pos_bol 0)
-                                                   (pos_cnum -1)))
-                                                 (loc_end
-                                                  ((pos_fname _none_)
-                                                   (pos_lnum 1) (pos_bol 0)
-                                                   (pos_cnum -1)))
-                                                 (loc_ghost true))))))
-                                            (pexp_loc
-                                             ((loc_start
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_end
-                                               ((pos_fname _none_)
-                                                (pos_lnum 1) (pos_bol 0)
-                                                (pos_cnum -1)))
-                                              (loc_ghost true)))
-                                            (pexp_loc_stack ())
-                                            (pexp_attributes ()))
-                                           ((Nolabel
-                                             ((pexp_desc
-                                               (Pexp_ident
-                                                ((txt
-                                                  (Lident pincl_attributes))
-                                                 (loc
-                                                  ((loc_start
-                                                    ((pos_fname _none_)
-                                                     (pos_lnum 1) (pos_bol 0)
-                                                     (pos_cnum -1)))
-                                                   (loc_end
-                                                    ((pos_fname _none_)
-                                                     (pos_lnum 1) (pos_bol 0)
-                                                     (pos_cnum -1)))
-                                                   (loc_ghost true))))))
-                                              (pexp_loc
-                                               ((loc_start
-                                                 ((pos_fname _none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_end
-                                                 ((pos_fname _none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_ghost true)))
-                                              (pexp_loc_stack ())
-                                              (pexp_attributes ()))))))
-                                         (pexp_loc
-                                          ((loc_start
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_end
-                                            ((pos_fname _none_) (pos_lnum 1)
-                                             (pos_bol 0) (pos_cnum -1)))
-                                           (loc_ghost true)))
-                                         (pexp_loc_stack ())
-                                         (pexp_attributes ())))
-                                       (pvb_constraint ())
-                                       (pvb_attributes ())
-                                       (pvb_loc
-                                        ((loc_start
-                                          ((pos_fname _none_) (pos_lnum 1)
-                                           (pos_bol 0) (pos_cnum -1)))
-                                         (loc_end
-                                          ((pos_fname _none_) (pos_lnum 1)
-                                           (pos_bol 0) (pos_cnum -1)))
-                                         (loc_ghost true)))))
-                                     ((pexp_desc
-                                       (Pexp_record
-                                        ((((txt (Lident pincl_mod))
+                                           (pexp_attributes ()))
+                                          ((txt attributes)
                                            (loc
                                             ((loc_start
                                               ((pos_fname _none_)
@@ -106094,142 +105682,180 @@
                                               ((pos_fname _none_)
                                                (pos_lnum 1) (pos_bol 0)
                                                (pos_cnum -1)))
-                                             (loc_ghost true))))
-                                          ((pexp_desc
-                                            (Pexp_ident
-                                             ((txt (Lident pincl_mod))
-                                              (loc
-                                               ((loc_start
-                                                 ((pos_fname _none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_end
-                                                 ((pos_fname _none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_ghost true))))))
-                                           (pexp_loc
-                                            ((loc_start
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_end
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_ghost true)))
-                                           (pexp_loc_stack ())
-                                           (pexp_attributes ())))
-                                         (((txt (Lident pincl_loc))
-                                           (loc
-                                            ((loc_start
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_end
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_ghost true))))
-                                          ((pexp_desc
-                                            (Pexp_ident
-                                             ((txt (Lident pincl_loc))
-                                              (loc
-                                               ((loc_start
-                                                 ((pos_fname _none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_end
-                                                 ((pos_fname _none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_ghost true))))))
-                                           (pexp_loc
-                                            ((loc_start
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_end
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_ghost true)))
-                                           (pexp_loc_stack ())
-                                           (pexp_attributes ())))
-                                         (((txt (Lident pincl_attributes))
-                                           (loc
-                                            ((loc_start
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_end
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_ghost true))))
-                                          ((pexp_desc
-                                            (Pexp_ident
-                                             ((txt (Lident pincl_attributes))
-                                              (loc
-                                               ((loc_start
-                                                 ((pos_fname none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_end
-                                                 ((pos_fname _none_)
-                                                  (pos_lnum 1) (pos_bol 0)
-                                                  (pos_cnum -1)))
-                                                (loc_ghost true))))))
-                                           (pexp_loc
-                                            ((loc_start
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_end
-                                              ((pos_fname _none_)
-                                               (pos_lnum 1) (pos_bol 0)
-                                               (pos_cnum -1)))
-                                             (loc_ghost true)))
-                                           (pexp_loc_stack ())
-                                           (pexp_attributes ()))))
-                                        ()))
-                                      (pexp_loc
-                                       ((loc_start
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_end
-                                         ((pos_fname _none_) (pos_lnum 1)
-                                          (pos_bol 0) (pos_cnum -1)))
-                                        (loc_ghost true)))
-                                      (pexp_loc_stack ())
-                                      (pexp_attributes ()))))
-                                   (pexp_loc
+                                             (loc_ghost true))))))
+                                        (pexp_loc
+                                         ((loc_start
+                                           ((pos_fname _none_) (pos_lnum 1)
+                                            (pos_bol 0) (pos_cnum -1)))
+                                          (loc_end
+                                           ((pos_fname _none_) (pos_lnum 1)
+                                            (pos_bol 0) (pos_cnum -1)))
+                                          (loc_ghost true)))
+                                        (pexp_loc_stack ())
+                                        (pexp_attributes ()))
+                                       ((Nolabel
+                                         ((pexp_desc
+                                           (Pexp_ident
+                                            ((txt (Lident pincl_attributes))
+                                             (loc
+                                              ((loc_start
+                                                ((pos_fname _none_)
+                                                 (pos_lnum 1) (pos_bol 0)
+                                                 (pos_cnum -1)))
+                                               (loc_end
+                                                ((pos_fname _none_)
+                                                 (pos_lnum 1) (pos_bol 0)
+                                                 (pos_cnum -1)))
+                                               (loc_ghost true))))))
+                                          (pexp_loc
+                                           ((loc_start
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_end
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_ghost true)))
+                                          (pexp_loc_stack ())
+                                          (pexp_attributes ()))))))
+                                     (pexp_loc
+                                      ((loc_start
+                                        ((pos_fname _none_) (pos_lnum 1)
+                                         (pos_bol 0) (pos_cnum -1)))
+                                       (loc_end
+                                        ((pos_fname _none_) (pos_lnum 1)
+                                         (pos_bol 0) (pos_cnum -1)))
+                                       (loc_ghost true)))
+                                     (pexp_loc_stack ())
+                                     (pexp_attributes ())))
+                                   (pvb_constraint ()) (pvb_attributes ())
+                                   (pvb_loc
                                     ((loc_start
                                       ((pos_fname _none_) (pos_lnum 1)
                                        (pos_bol 0) (pos_cnum -1)))
                                      (loc_end
                                       ((pos_fname _none_) (pos_lnum 1)
                                        (pos_bol 0) (pos_cnum -1)))
-                                     (loc_ghost true)))
-                                   (pexp_loc_stack ()) (pexp_attributes ()))))
-                                (pexp_loc
-                                 ((loc_start
-                                   ((pos_fname _none_) (pos_lnum 1)
-                                    (pos_bol 0) (pos_cnum -1)))
-                                  (loc_end
-                                   ((pos_fname _none_) (pos_lnum 1)
-                                    (pos_bol 0) (pos_cnum -1)))
-                                  (loc_ghost true)))
-                                (pexp_loc_stack ()) (pexp_attributes ()))))
-                             (pexp_loc
-                              ((loc_start
-                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
-                                 (pos_cnum -1)))
-                               (loc_end
-                                ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
-                                 (pos_cnum -1)))
-                               (loc_ghost true)))
-                             (pexp_loc_stack ()) (pexp_attributes ())))))
+                                     (loc_ghost true)))))
+                                 ((pexp_desc
+                                   (Pexp_record
+                                    ((((txt (Lident pincl_mod))
+                                       (loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true))))
+                                      ((pexp_desc
+                                        (Pexp_ident
+                                         ((txt (Lident pincl_mod))
+                                          (loc
+                                           ((loc_start
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_end
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_ghost true))))))
+                                       (pexp_loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true)))
+                                       (pexp_loc_stack ())
+                                       (pexp_attributes ())))
+                                     (((txt (Lident pincl_loc))
+                                       (loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true))))
+                                      ((pexp_desc
+                                        (Pexp_ident
+                                         ((txt (Lident pincl_loc))
+                                          (loc
+                                           ((loc_start
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_end
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_ghost true))))))
+                                       (pexp_loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true)))
+                                       (pexp_loc_stack ())
+                                       (pexp_attributes ())))
+                                     (((txt (Lident pincl_attributes))
+                                       (loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true))))
+                                      ((pexp_desc
+                                        (Pexp_ident
+                                         ((txt (Lident pincl_attributes))
+                                          (loc
+                                           ((loc_start
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_end
+                                             ((pos_fname _none_) (pos_lnum 1)
+                                              (pos_bol 0) (pos_cnum -1)))
+                                            (loc_ghost true))))))
+                                       (pexp_loc
+                                        ((loc_start
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_end
+                                          ((pos_fname _none_) (pos_lnum 1)
+                                           (pos_bol 0) (pos_cnum -1)))
+                                         (loc_ghost true)))
+                                       (pexp_loc_stack ())
+                                       (pexp_attributes ()))))
+                                    ()))
+                                  (pexp_loc
+                                   ((loc_start
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_end
+                                     ((pos_fname _none_) (pos_lnum 1)
+                                      (pos_bol 0) (pos_cnum -1)))
+                                    (loc_ghost true)))
+                                  (pexp_loc_stack ()) (pexp_attributes ()))))
+                               (pexp_loc
+                                ((loc_start
+                                  ((pos_fname _none_) (pos_lnum 1)
+                                   (pos_bol 0) (pos_cnum -1)))
+                                 (loc_end
+                                  ((pos_fname _none_) (pos_lnum 1)
+                                   (pos_bol 0) (pos_cnum -1)))
+                                 (loc_ghost true)))
+                               (pexp_loc_stack ()) (pexp_attributes ()))))
+                            (pexp_loc
+                             ((loc_start
+                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                                (pos_cnum -1)))
+                              (loc_end
+                               ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)
+                                (pos_cnum -1)))
+                              (loc_ghost true)))
+                            (pexp_loc_stack ()) (pexp_attributes ()))))
                          (pexp_loc
                           ((loc_start
                             ((pos_fname _none_) (pos_lnum 1) (pos_bol 0)


"/usr/bin/env" "bash" "-c" "opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1
2024-08-18 17:51.58: Job failed: Failed: Build failed