LRijkstra produces verbose output only if -la 2 is set.

src/LRijkstra.ml

@@ -1138,5 +1138,7 @@ let () =
       (stat.Gc.top_heap_words * (Sys.word_size / 8) / 1024 / 1024)
   end
 
+(* ------------------------------------------------------------------------ *)
+
 end
 

src/back.ml

@@ -7,7 +7,8 @@ module I = Interpret (* artificial dependency; ensures that [Interpret] runs fir
 let () =
   if Settings.list_errors then begin
     let module L = LRijkstra.Run(struct
-      let verbose = true
+      (* Undocumented: if [--log-automaton 2] is set, be verbose. *)
+      let verbose = Settings.logA >= 2
     end) in
     exit 0
   end

src/compare.sh

@@ -27,7 +27,7 @@ sleep 1
 for FILE in "$@"
 do
   echo "Running ($FILE.mly)..."
-  { time $MENHIR --list-errors $BASE $OPT $BENCH/$FILE.mly ; } &>$FILE.new
+  { time $MENHIR --list-errors -la 2 $BASE $OPT $BENCH/$FILE.mly ; } &>$FILE.new
 done
 
 # Try the last committed version.
@@ -38,7 +38,7 @@ sleep 1
 for FILE in "$@"
 do
  echo "Running ($FILE.mly)..."
- { time $MENHIR --list-errors $BASE $OPT $BENCH/$FILE.mly ; } &>$FILE.old
+ { time $MENHIR --list-errors -la 2 $BASE $OPT $BENCH/$FILE.mly ; } &>$FILE.old
 done
 git stash pop
 

src/coverage.sh

@@ -11,7 +11,7 @@ make bootstrap || exit 1
 rm -f log
 for f in ../bench/good/*.mly ; do
   echo $f | tee -a log
-  (timeout $TIMEOUT time _stage2/menhir.native -v -lg 1 -la 1 --list-errors $f) 2>> log
+  (timeout $TIMEOUT time _stage2/menhir.native -v -lg 1 -la 2 --list-errors $f) 2>> log
 done
 echo "Number of grammars that could not be handled in $TIMEOUT seconds:"
 grep aborting log | wc -l