From b29622518ed431bd18f44d728bb2f0e4b7c56ca9 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Mon, 12 Mar 2012 09:22:17 +0000
Subject: Option -randvol to expose randomization of volatiles in Interp.ml

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1849 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 driver/Driver.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'driver')

diff --git a/driver/Driver.ml b/driver/Driver.ml
index 0523feb..c4274da 100644
--- a/driver/Driver.ml
+++ b/driver/Driver.ml
@@ -383,6 +383,7 @@ Interpreter mode:
   -trace         Have the interpreter produce a detailed trace of reductions
   -random        Randomize execution order
   -all           Simulate all possible execution orders
+  -randvol       Return random results for reading volatile variables
 "
 
 let language_support_options = [
@@ -422,6 +423,7 @@ let cmdline_actions =
   "-trace$", Self (fun _ -> Interp.trace := 2);
   "-random$", Self (fun _ -> Interp.mode := Interp.Random);
   "-all$", Self (fun _ -> Interp.mode := Interp.All);
+  "-randvol$", Self (fun _ -> Interp.random_volatiles := true);
   ".*\\.c$", Self (fun s ->
       let objfile = process_c_file s in
       linker_options := objfile :: !linker_options);
-- 
cgit v1.2.3