Organisationsocaml-ppxppxlibf16b0d ()fedora-39-4.14_opam-2.2

fedora-39-4.14_opam-2.2

Link Copied
Code Copied

Logs

2024-09-03 19:29.52: New job: test ocaml-ppx/ppxlib https://github.com/ocaml-ppx/ppxlib.git#refs/pull/514/head (f16b0d3d7e97cea557a5dce83016bb5b4b662123) (linux-x86_64:fedora-39-4.14_opam-2.2)
Base: ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e
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 f16b0d3d
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e
# fedora-39-4.14_opam-2.2
USER 1000:1000
ENV CLICOLOR_FORCE="1"
ENV OPAMCOLOR="always"
WORKDIR /src
RUN sudo dnf install -y findutils
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 b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 || git fetch origin master) && git reset -q --hard b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 && 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.12.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-09-03 19:29.52: Using cache hint "ocaml-ppx/ppxlib-ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e-fedora-39-4.14_opam-2.2-4f1820867029e02e156b9f528a626911"
2024-09-03 19:29.52: Using OBuilder spec:
((from ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e)
 (comment fedora-39-4.14_opam-2.2)
 (user (uid 1000) (gid 1000))
 (env CLICOLOR_FORCE 1)
 (env OPAMCOLOR always)
 (workdir /src)
 (run (network host)
      (shell "sudo dnf install -y findutils"))
 (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 b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 || git fetch origin master) && git reset -q --hard b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 && 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.12.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-09-03 19:29.52: Waiting for resource in pool OCluster
2024-09-03 20:01.27: Waiting for worker…
2024-09-03 20:07.12: Got resource from pool OCluster
Building on x86-bm-c18.sw.ocaml.org
All commits already cached
HEAD is now at f16b0d3d Add comment about type_is_recursive being an approx.


(from ocaml/opam:fedora-39-ocaml-4.14@sha256:1eb0044f55fe265dfd6b825466cbe882fbd4e223648aa172ce0f1df9540fea4e)
2024-09-03 20:07.12 ---> using "39e5ddc8fc616b8b4893dbc0062d91989319c294efe60e75830cba3f336be183" from cache


/: (comment fedora-39-4.14_opam-2.2)


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


/: (env CLICOLOR_FORCE 1)


/: (env OPAMCOLOR always)


/: (workdir /src)


/src: (run (network host)
           (shell "sudo dnf install -y findutils"))
Fedora 39 - x86_64                              340 kB/s |  29 kB     00:00    
Fedora 39 - x86_64 - Updates                    315 kB/s |  26 kB     00:00    
Fedora 39 - x86_64 - Updates                    3.3 MB/s | 5.5 MB     00:01    
Package findutils-1:4.9.0-6.fc39.x86_64 is already installed.
Dependencies resolved.
Nothing to do.
Complete!
2024-09-03 20:07.12 ---> using "899ad86fb03d0933c8fe5c57a4478c21ed3f822ce9f935a5d4d24f8f20878e19" from cache


/src: (run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam"))
2024-09-03 20:07.12 ---> using "d3553587ce888158864badd7738b6991d0b226af08a789c18ed598b1f136022d" from cache


/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
Format upgrade done.


<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository
2024-09-03 20:07.12 ---> using "d40ec543ec1860e6f151eaea1e98cd4fcc2fb6cb5465908b83f29575116f7ded" from cache


/src: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
Linux 5.15.0-119-generic
The OCaml toplevel, version 4.14.2
2.2.1
2024-09-03 20:07.12 ---> using "8b4548afcfaa39afc61a6920b7eefcebd8abcf30cee27a99f958e74225563b81" from cache


/src: (workdir /src)


/src: (run (shell "sudo chown opam /src"))
2024-09-03 20:07.12 ---> using "f1d07aa64b4d22c1c6279690d2d9d4ea2586cdbd81ee4cfdbd730b84085623d4" from cache


/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
           (network host)
           (shell "cd ~/opam-repository && (git cat-file -e b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 || git fetch origin master) && git reset -q --hard b92ae980c0437e8cdeac9f8f2c24a7800f1ed171 && git log --no-decorate -n1 --oneline && opam update -u"))
From https://github.com/ocaml/opam-repository
 * branch                  master     -> FETCH_HEAD
   e89899ac28..5ced20d683  master     -> origin/master
b92ae980c0 Merge pull request #26439 from rgrinberg/release-re-1.12.0


<><> 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-09-03 20:07.12 ---> using "e10bb76af20cbea419571e5f2d79bd7a5b7d36574ea18c011995ef2b3ed791d2" from cache


/src: (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
2024-09-03 20:07.12 ---> using "f40bc06af3cdd45d152deb37802257ea8dd8d466ba4b07aaf39a3de3e504c385" from cache


/src: (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./))
2024-09-03 20:07.12 ---> saved as "d48ad04a192eb6bb860c65f5ec0bf53e6ea1f5d9f606c93c78bc0b4117d537ba"


/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-09-03 20:07.12 ---> saved as "e45b568148f51af92c04559accd6052a718f3d3a5b29982fd49d867919d15d07"


/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-09-03 20:07.17 ---> saved as "595fb6c5f4c76dcff8fd8ed01d4309318332a4dbb627247f769815f5d79e9278"


/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.12.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 "yum" "makecache"
- Fedora 39 - x86_64                              342 kB/s |  29 kB     00:00    
- Fedora 39 openh264 (From Cisco) - x86_64         13 kB/s | 989  B     00:00    
- Fedora 39 - x86_64 - Updates                    276 kB/s |  26 kB     00:00    
- Metadata cache created.


<><> 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-09-03 20:07.40 ---> saved as "58c1b4cdbcd024ee36380dc61307b5a5cace18a1dc517f4a370072c60bce6235"


/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.12.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.12.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 sexplib0.v0.16.0
-> installed stdlib-shims.0.3.0
-> installed ocaml-compiler-libs.v0.12.4
-> installed re.1.12.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-09-03 20:08.51 ---> saved as "96c8f64d724654671094401d22b4fd34a4fbbed42198215112fa5ca90f9fff59"


/src: (copy (src .) (dst /src))
2024-09-03 20:08.52 ---> saved as "4f4d3848da7915504abbdf77d0582eb7965992b726c9a8301b4a2631723eb134"


/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:
2391a2392,2471
>                             (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)))
2396,2409c2476,2503
<                           (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))
2417,2439c2511,2565
<                                        (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)
2447,2700c2573,2587
<                                        (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
<                                        ((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)
<                                              (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))
<                                         (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))))
---
>                                        (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
2703c2590
<                                           ((txt (Lident txt))
---
>                                           ((txt (Lident self))
2723,2724c2610,2611
<                                         (pexp_attributes ())))
<                                       (((txt (Lident loc))
---
>                                         (pexp_attributes ()))
>                                        ((txt location)
2732,2766c2619,2662
<                                           (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
2773,2783c2669,2748
<                                   (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 ()))))
77666a77632,77827
>                             (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)
>                                         (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_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_desc
>                                   (Ppat_var
>                                    ((txt pci_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)))
...TRUNCATED BY DUNE...
>                                          (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
105641,105646c105510,105516
<                                (loc_ghost true)))
<                              (pparam_desc
<                               (Pparam_val Nolabel ()
<                                ((ppat_desc
<                                  (Ppat_record
<                                   ((((txt (Lident pincl_mod))
---
>                                (loc_ghost true)))))
>                            ((pexp_desc
>                              (Pexp_let Nonrecursive
>                               (((pvb_pat
>                                  ((ppat_desc
>                                    (Ppat_var
>                                     ((txt pincl_loc)
105654,105658c105524,105552
<                                        (loc_ghost true))))
<                                     ((ppat_desc
<                                       (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
105665,105687c105559,105562
<                                           (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)
105696c105571
<                                      (ppat_loc
---
>                                      (pexp_loc
105704,105714c105579,105623
<                                      (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
105735,105795c105644,105647
<                                      (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
105797,106133c105649
<                                          (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_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)
<                                             (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))
<                                            (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_send
106136c105652
<                                              ((txt (Lident pincl_loc))
---
>                                              ((txt (Lident self))
106158,106159c105674,105675
<                                            (pexp_attributes ())))
<                                          (((txt (Lident pincl_attributes))
---
>                                            (pexp_attributes ()))
>                                           ((txt attributes)
106169,106206c105685,105731
<                                              (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
106213,106232c105738,105858
<                                      (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 ()))))


"/usr/bin/env" "bash" "-c" "opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1
2024-09-03 20:09.46: Job failed: Failed: Build failed