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

fedora-39-4.14_opam-2.2

Logs

Show full logs
2024-08-21 14:34.21: New job: test ocaml-ppx/ppxlib https://github.com/ocaml-ppx/ppxlib.git#refs/pull/514/head (6871aaca920b080603dfe773cc3ab79c206635b7) (linux-x86_64:fedora-39-4.14_opam-2.2)
Base: ocaml/opam:fedora-39-ocaml-4.14@sha256:d63f7fe0b21b374fca702d7d3bb33ca7567b283ca6497e559fc531c6a89070cd
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 6871aaca
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:fedora-39-ocaml-4.14@sha256:d63f7fe0b21b374fca702d7d3bb33ca7567b283ca6497e559fc531c6a89070cd
# 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 819a70d602ee91b14bcfae0c1f4652e655e1a4a6 || git fetch origin master) && git reset -q --hard 819a70d602ee91b14bcfae0c1f4652e655e1a4a6 && git log --no-decorate -n1 --oneline && opam update -u
RUN mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'
COPY --chown=1000:1000 ppxlib.opam ppxlib-bench.opam ./
COPY --chown=1000:1000 bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam bench/vendored/ppx_sexp_conv.v0.15.1/
RUN opam pin add -yn ppxlib.dev './' && \
    opam pin add -yn ppxlib-bench.dev './' && \
    opam pin add -yn ppx_sexp_conv 'bench/vendored/ppx_sexp_conv.v0.15.1/'
ENV DEPS="base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.11.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2"
ENV CI="true"
ENV OCAMLCI="true"
RUN opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS
RUN opam install $DEPS
COPY --chown=1000:1000 . /src
RUN opam exec -- dune build @install @check @runtest && rm -rf _build

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

2024-08-21 14:34.21: Using cache hint "ocaml-ppx/ppxlib-ocaml/opam:fedora-39-ocaml-4.14@sha256:d63f7fe0b21b374fca702d7d3bb33ca7567b283ca6497e559fc531c6a89070cd-fedora-39-4.14_opam-2.2-ae926360e03da1e3da2c26b98e572641"
2024-08-21 14:34.21: Using OBuilder spec:
((from ocaml/opam:fedora-39-ocaml-4.14@sha256:d63f7fe0b21b374fca702d7d3bb33ca7567b283ca6497e559fc531c6a89070cd)
 (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 819a70d602ee91b14bcfae0c1f4652e655e1a4a6 || git fetch origin master) && git reset -q --hard 819a70d602ee91b14bcfae0c1f4652e655e1a4a6 && git log --no-decorate -n1 --oneline && opam update -u"))
 (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
 (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./))
 (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam)
       (dst bench/vendored/ppx_sexp_conv.v0.15.1/))
 (run (network host)
      (shell  "opam pin add -yn ppxlib.dev './' && \
             \nopam pin add -yn ppxlib-bench.dev './' && \
             \nopam pin add -yn ppx_sexp_conv 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
 (env DEPS "base.v0.16.3 base-bigarray.base base-threads.base base-unix.base cinaps.v0.15.1 conf-bash.1 csexp.1.5.2 dune.3.16.0 dune-configurator.3.16.0 host-arch-x86_64.1 host-system-other.1 ocaml.4.14.2 ocaml-base-compiler.4.14.2 ocaml-compiler-libs.v0.12.4 ocaml-config.2 ocaml-options-vanilla.1 ocamlfind.1.9.6 ppx_derivers.1.2.1 re.1.11.0 seq.base sexplib0.v0.16.0 stdlib-shims.0.3.0 yojson.2.2.2")
 (env CI true)
 (env OCAMLCI true)
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell "opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS"))
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell "opam install $DEPS"))
 (copy (src .) (dst /src))
 (run (shell "opam exec -- dune build @install @check @runtest && rm -rf _build"))
)

2024-08-21 14:34.21: Waiting for resource in pool OCluster
2024-08-21 16:29.36: Waiting for worker…
2024-08-21 17:19.50: Got resource from pool OCluster
Building on x86-bm-c3.sw.ocaml.org
All commits already cached
HEAD is now at 6871aaca Deprecate Exp.function_ in favour of Exp.function_cases going forward

(from ocaml/opam:fedora-39-ocaml-4.14@sha256:d63f7fe0b21b374fca702d7d3bb33ca7567b283ca6497e559fc531c6a89070cd)
2024-08-21 17:19.51 ---> using "0a113fd82d423e1f81ee310914060d34f228f6307b8a26e846336305d25964ad" 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                              363 kB/s |  30 kB     00:00    
Fedora 39 openh264 (From Cisco) - x86_64         12 kB/s | 989  B     00:00    
Fedora 39 - x86_64 - Updates                    302 kB/s |  28 kB     00:00    
Fedora 39 - x86_64 - Updates                    9.2 MB/s |  18 MB     00:01    
Package findutils-1:4.9.0-6.fc39.x86_64 is already installed.
Dependencies resolved.
Nothing to do.
Complete!
2024-08-21 17:19.51 ---> using "cee693c39270dc80c2c6fd604edebc6b050bb10917ad0f00a91cb7ce996f0ae1" from cache

/src: (run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam"))
2024-08-21 17:19.51 ---> using "c46c12f53a1651e8cafb13346d6032b358732e23ec50388f631eaee0513689da" 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
[NOTE] The 'jobs' option was reset, its value was 31 and its new value will vary according to the current number of cores on your machine. You can restore the fixed value using:
           opam option jobs=31 --global
Format upgrade done.

<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository
2024-08-21 17:20.57 ---> saved as "9a1d613677fb9cd58767c03124d79c1be93c75fd4544ca3f78ea87cb1336b386"

/src: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
Linux 5.15.0-117-generic
The OCaml toplevel, version 4.14.2
2.2.0
2024-08-21 17:20.57 ---> saved as "80e72a5dabf9ff20a55558f8109e2e4e0643e2ac8d387e16e24163b39b0b228c"

/src: (workdir /src)

/src: (run (shell "sudo chown opam /src"))
2024-08-21 17:20.58 ---> saved as "8b496b9371fa19ec43086d49e505805026c0ec47ec937fcd77323b13233d7e29"

/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
           (network host)
           (shell "cd ~/opam-repository && (git cat-file -e 819a70d602ee91b14bcfae0c1f4652e655e1a4a6 || git fetch origin master) && git reset -q --hard 819a70d602ee91b14bcfae0c1f4652e655e1a4a6 && git log --no-decorate -n1 --oneline && opam update -u"))
819a70d602 Merge pull request #26158 from Leonidas-from-XIV/release-yojson-2.2.2

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

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

/src: (run (shell "mkdir -p 'bench/vendored/ppx_sexp_conv.v0.15.1/'"))
2024-08-21 17:21.59 ---> saved as "94e56ed5274b28454578162f45023c353638cb437304e2a491083288a594e83e"

/src: (copy (src ppxlib.opam ppxlib-bench.opam) (dst ./))
2024-08-21 17:21.59 ---> saved as "967693d0a6ad02bb69882eca6e64f9d1e69799868111909ad5b47fa1de09a215"

/src: (copy (src bench/vendored/ppx_sexp_conv.v0.15.1/ppx_sexp_conv.opam)
            (dst bench/vendored/ppx_sexp_conv.v0.15.1/))
2024-08-21 17:21.59 ---> saved as "df29788e9e89a40b15fbbdd0ac1eddbafee624c9e2b7237e96887641d0ec968a"

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

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

/src: (env CI true)

/src: (env OCAMLCI true)

/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
           (network host)
           (shell "opam update --depexts && opam install --cli=2.2 --depext-only -y ppxlib.dev ppxlib-bench.dev $DEPS"))
+ /usr/bin/sudo "yum" "makecache"
- Fedora 39 - x86_64                              356 kB/s |  30 kB     00:00    
- Fedora 39 openh264 (From Cisco) - x86_64         15 kB/s | 989  B     00:00    
- Fedora 39 - x86_64 - Updates                    349 kB/s |  28 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-08-21 17:22.17 ---> saved as "3b2940b59cdb6d0cf6272549ad954ea333d3989a0c184eec3219324a512ac7da"

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

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

/src: (copy (src .) (dst /src))
2024-08-21 17:23.06 ---> saved as "4f44cfbd7f213035c86a9d5b9f1c5846c6828b71ea3cb59b54c84762754dc978"

/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-08-21 17:23.31: Job failed: Failed: Build failed