Mantis Bug Tracker

View Issue Details Jump to Notes ] Issue History ] Print ]
IDProjectCategoryView StatusDate SubmittedLast Update
0004991OCamlcompiler driverpublic2010-03-04 19:362017-08-29 17:17
Assigned To 
PlatformOSOS Version
Product Version3.11.2 
Target VersionFixed in Version 
Summary0004991: ocaml{c,opt} may truncate and recreate a .cmi, leading to (rare) failures of make -j
DescriptionWhen a .ml file has no corresponding .mli file, ocamlc and ocamlopt
create both the same .cmi file. During a parallel build that mixes
the byte and opt phases, this could lead to failure: imagine for instance
a process trying to read the .cmi (made earlier by ocamlc) at the precise
moment ocamlopt is recreating the .cmi, resulting in a "corrupted .cmi" error.
We have from time to time this kind of issue when building Coq
via make -j (unlimited number of process) on a quad-core.

Btw, a strace on ocamlc or ocamlopt shows that the .cmi is
first opened with O_WRONLY|O_CREAT|O_TRUNC, then a second time
with RDONLY. Is it done for some kind of verification ?

Would it be possible to modify ocaml{c,opt} in order to make them check
for an existing .cmi even if no .mli exists, and modify this .cmi only
if it differs from what the compiler intend to write ?

If this isn't easily doable, an option preventing the creation of
the .cmi would be great. In fact, there already exists a
Clflags.dont_write_files option, which is used precisely at the right
spot of Typemod. Could this flag be toggle someday by the user ?

For the moment, I'm circumventing this issue in our makefile by making sure
that ocamlc comes first and then doing something like
 ocamlopt -c -o foo.tmp.cmx && \
 rm foo.tmp.cmi && mv foo.tmp.o foo.o && mv foo.tmp.cmx foo.cmx
It works, but this isn't exactly pretty.

Thanks in advance,

Pierre Letouzey
TagsNo tags attached.
Attached Files

- Relationships
related to 0005000closed ocamldep misses dependencies 
related to 0007472resolved Please replace cmi files atomically when writing new versions 
related to 0005282resolved .cmo files are generated even for native compilation 

-  Notes
frisch (developer)
2010-03-04 20:20

OMake's approach is to force ocamlopt to use the .cmi file produced by ocamlc. This is done by creatin a dependency on this .cmi file (when then .mli file does not exist) for the ocamlopt rule, and to use "-intf-suffix .cmi" to let ocamlopt believe that the interface does exist.

That said, we also observe random and rare cases of "corrupted compiled interface" during parallel builds under Windows. Maybe there is something wrong with the approach above, or it's just Windows that decides to do random errors.
letouzey (reporter)
2010-03-04 20:39


Thanks Alain, I actually though of this -intf-suffix, but I was so
sure this kind of trick would simply not work that I didn't even take
the time to try. Guess what, I'll go and test that now.

And indeed, I've also made .cmx depend on .cmi...

Concerning the windows build, I played recently with mingw32 cross-compilation
(more precisely, the debianisation of the work of R. Jones for fedora). And
It's so cool to be able to build .exe (even coqide) for a decent dev platform.

letouzey (reporter)
2010-03-08 11:25

Ok, after testing Alain's tip I can confirm that "-intf-suffix .cmi" is
exactly what I was looking for. Thanks. I think this bug report can be
closed. My only remaining suggestion would be to document more properly
this trick: as I told in my first comment above, after reading man pages for
ocaml{c,opt}, I was (wrongly) conviced that files indicated via -intf-suffix
would have to be _source_ interface file, while they actually are only
checked for existence and never looked into.

Best regards,
doligez (administrator)
2010-03-25 11:25

The way I see it, the best solution is to have a .mli for each .ml file. (For rather
obscure reasons, it also makes the GC very slightly more efficient.)

The next best thing would be to make the compiler output the compiled interface
to a temporary file, then move it atomically to the .cmi (although I'm not sure
if that's possible under Windows).
frisch (developer)
2010-04-06 23:14

Damien: what's wrong with the -intf-suffix solution?
xleroy (administrator)
2010-04-18 14:31

Re: atomic file rename: it's unclear this can be done under Windows. The rename() function from the C standard library, interfaced in Caml as Sys.rename, fails if the destination file exists. The MoveFileEx Win32 system call can be cajoled into replacing an existing file, but it is not specified that this happens atomically. (Google "MoveFileEx atomic".)

Re: opening the .cmi twice: the second open-for-reading is done to compute the MD5 digest of the data just written. OCaml's I/O channels don't support opening for reading and writing at the same time.

Re: the -intf-suffix trick: I'm happy that it provides a workaround. Still, I have the feeling that something is slightly wrong here, so I'll leave this PR as a feature wish.
doligez (administrator)
2010-04-26 13:21

I have no reason to believe there is currently something wrong with the -intf-suffix trick, but it still feels like a hack.
gasche (developer)
2014-04-10 18:49

I'm hitting a new instance of this problem that I thought I would document here for posterity. The race condition happens not between ocamlc and ocamlopt, but two instances of ocamlopt invoking -pack to produce the same packed module, which does not have a corresponding .mli.

The problem is the following: if the two runs try to produce the same .cmi file at precisely the same time, then one of them may make a mistake when computing the control sum (CRC) of the .cmi (which happens in between the beginning of writing the .cmi and before finishing the write), with some parts written or truncated by the other process taken into account. Both runs will then include the CRC they computed in the final .cmo, so it is likely that an incorrect CRC gets written in the .cmo file -- and that the .cmi produced is incorrect.

It seems to me that, in that case, the workaround presented are not effective:
- I don't think we can expect every user of -pack to write a .mli file for the pack, especially when the individual packed modules already have a .mli
- Passing -intf-suffix doesn't work (not quite sure why, I tried and it fails with a Syntax Error on the signature)

Reproductibility information: The race occurs about one times over three (so it's actually quite common) when running "make -j7" from the ocamlbuild subdirectory of the compiler (trunk@14532), after I first added a couple missing dependencies in the .depend that also broke compilation (ocamlbuild{_plugin,_unix_plugin,light} should depend on ocamlbuild_pack.cmi).
gasche (developer)
2014-04-11 20:43

I fixed this instance of the problem by adding more dependencies (from the pack .cmo to the pack .cmi). I still think that, long-term, it would be nice to change the way we produce side-files (.cmi and .cmx) to a more atomic replace operation or, even better, replace_if_changed (we can look at the checksum of the existing file).
bobot (reporter)
2014-04-17 09:01

Re: atomic file rename: why the atomicity guaranty of the rename is needed? It seems that the worse that can happen is to lose the compiled file .cm* during a power outage, but it is just a compiled file and discrepancy between .cm* will be detected.

The second problem with non-atomicity is that the destination file can be missing during a period of time. But here the acceptable use case is when the destination file is the same than the temporary file .cmi. So we can test that the checksum is identical and just "touch" the destination file.

In the other case, when the destination file is different, nobody should be opening the .cm* since they are not yet updated, it is an error of the build system.
gasche (developer)
2014-04-17 09:51

Sorry for being unclear: a plain (not particularily atomic) "rename" would already be much more atomic than the way cmi files are currently generated, which is as follow:

- write the signature in the target file
- read the target file to compute the checksum of the signature
- write the checksum in the target file

Races between two processes writing partial information to the file happens quite often in this setting. A rename from an assumed-private temporary would not allow one compilation process to checksum a file that's been partially written by another, as it is currently possible.
bobot (reporter)
2014-04-17 11:41

So even if, as Xavier remarked, "it's unclear [atomicity] can be done under Windows.", patches are welcomed for using an intermediary file during generation of files?

Or patch that computes the checksum directly on the in memory data?
gasche (developer)
2014-04-17 11:54

I would be interested in such patches, in any case. But be careful before investing your time: any downside of a new approach (eg. increased compilation time, or too-invasive change┬╣) would be a sufficient argument to maintain the statu quo, that works for most users (with high probability).

┬╣: eg. you do *not* want to re-implement part of the marshalling logic to compute checksum, as this would probably be quite fragile. Marshalling to a string instead of directly to a file would be a possible approach, but then we'd have to make sure that memory consumption isn't a problem (how large can .cmi files be? I heard that core.cmi is quite large; would we apply the same strategy on .cmo?).

I think that write-in-temp than move is probably the easiest way forward in this case, but I'll let you decide if you're interested in working on this.
bobot (reporter)
2014-04-26 23:42

The write-in-temp inside the compiler is a nice solution, but there is some choice to make. For example, when the cmi is identical should we still "touch" it?

Another possibility can be to let the build system do the choice of the temporary file and do the test. The build system just need to be able to set the output filename for the cmi file using a command line option of ocamlc or ocamlopt, e.g. --outfile-cmi. This interface is simple and lets a lot of freedom to the user. One drawback is that Makefile/build tool must be modified for solving the problem of this bugreport.

With a more general point of view, the possibility to set the filename of all the output file of the compiler (.cmt, .annot, ...) is a very nice feature to have.
bobot (reporter)
2014-06-30 09:30

In fact -o does already the job, since every produced file filename as the same prefix than it (only the extension change)
bobot (reporter)
2014-06-30 09:59 [^] will try to work on this possible solution:
- instead of creating* create them in a new temporary directory $rnd.tmp
- test if it is different than the* previously or concurrently produced
- replace it if it is the case
- remove the temporary directory
xleroy (administrator)
2017-08-29 17:17

Work in progress at [^]

- Issue History
Date Modified Username Field Change
2010-03-04 19:36 letouzey New Issue
2010-03-04 20:20 frisch Note Added: 0005257
2010-03-04 20:39 letouzey Note Added: 0005258
2010-03-08 11:25 letouzey Note Added: 0005260
2010-03-25 11:25 doligez Note Added: 0005272
2010-04-06 23:14 frisch Note Added: 0005302
2010-04-18 14:31 xleroy Note Added: 0005324
2010-04-18 14:31 xleroy Severity minor => feature
2010-04-18 14:31 xleroy Status new => acknowledged
2010-04-18 14:31 xleroy Description Updated
2010-04-26 13:21 doligez Note Added: 0005372
2013-09-04 21:16 doligez Relationship added related to 0005000
2014-04-10 18:49 gasche Note Added: 0011259
2014-04-11 20:43 gasche Note Added: 0011264
2014-04-17 09:01 bobot Note Added: 0011293
2014-04-17 09:51 gasche Note Added: 0011294
2014-04-17 11:41 bobot Note Added: 0011299
2014-04-17 11:54 gasche Note Added: 0011301
2014-04-26 23:42 bobot Note Added: 0011329
2014-06-30 09:30 bobot Note Added: 0011782
2014-06-30 09:59 bobot Note Added: 0011783
2017-01-31 16:45 xleroy Relationship added related to 0007472
2017-02-23 16:36 doligez Category OCaml general => -OCaml general
2017-02-27 13:57 doligez Relationship added related to 0005282
2017-03-03 16:43 doligez Category -OCaml general => compiler driver
2017-08-29 17:17 xleroy Note Added: 0018202

Copyright © 2000 - 2011 MantisBT Group
Powered by Mantis Bugtracker