From e2e88741120332f9e97459852d7361e2d8939881 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 17 Mar 2015 10:21:41 +0100
Subject: Splitting the library representation on disk in two.

The first part only contains the summary of the library, while the second
one contains the effective content of it.
---
 stm/vio_checking.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'stm')

diff --git a/stm/vio_checking.ml b/stm/vio_checking.ml
index b207222117..4df9603dca 100644
--- a/stm/vio_checking.ml
+++ b/stm/vio_checking.ml
@@ -10,7 +10,7 @@ open Util
 
 let check_vio (ts,f) =
   Dumpglob.noglob ();
-  let long_f_dot_v, _, _, _, tasks, _ = Library.load_library_todo f in
+  let long_f_dot_v, _, _, _, _, tasks, _ = Library.load_library_todo f in
   Stm.set_compilation_hints long_f_dot_v;
   List.fold_left (fun acc ids -> Stm.check_task f tasks ids && acc) true ts
 
@@ -30,7 +30,7 @@ let schedule_vio_checking j fs =
     let f =
       if Filename.check_suffix f ".vio" then Filename.chop_extension f
       else f in
-    let long_f_dot_v, _,_,_, tasks, _ = Library.load_library_todo f in
+    let long_f_dot_v, _,_,_,_, tasks, _ = Library.load_library_todo f in
     Stm.set_compilation_hints long_f_dot_v;
     let infos = Stm.info_tasks tasks in
     let eta = List.fold_left (fun a (_,t,_) -> a +. t) 0.0 infos in
-- 
cgit v1.2.3