diff options
author | 2012-03-12 09:22:17 +0000 | |
---|---|---|
committer | 2012-03-12 09:22:17 +0000 | |
commit | b29622518ed431bd18f44d728bb2f0e4b7c56ca9 (patch) | |
tree | 754f9947f0d5d7e72d0dff77d3aa778dca1c31b9 | |
parent | e2fb435c257cf6aac24e7b30f902bede694100c5 (diff) |
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
-rw-r--r-- | driver/Driver.ml | 2 |
1 files changed, 2 insertions, 0 deletions
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); |