diff options
| author | Robert Norton | 2017-06-29 17:30:53 +0100 |
|---|---|---|
| committer | Robert Norton | 2017-06-29 17:30:53 +0100 |
| commit | acfa76485c252aa2a6df199aeeaf9af6b4dc4930 (patch) | |
| tree | b827ad442e8a2b93fa844db553de1214e985230e /src/test/lib/run_test_interp.ml | |
| parent | 044403657d09aed9c56a9bca6decc864ed987f69 (diff) | |
beginnings of a sail library test suite.
Diffstat (limited to 'src/test/lib/run_test_interp.ml')
| -rw-r--r-- | src/test/lib/run_test_interp.ml | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/src/test/lib/run_test_interp.ml b/src/test/lib/run_test_interp.ml new file mode 100644 index 00000000..e6a7f00f --- /dev/null +++ b/src/test/lib/run_test_interp.ml @@ -0,0 +1,56 @@ +(**************************************************************************) +(* Sail *) +(* *) +(* Copyright (c) 2013-2017 *) +(* Kathyrn Gray *) +(* Shaked Flur *) +(* Stephen Kell *) +(* Gabriel Kerneis *) +(* Robert Norton-Wright *) +(* Christopher Pulte *) +(* Peter Sewell *) +(* *) +(* All rights reserved. *) +(* *) +(* This software was developed by the University of Cambridge Computer *) +(* Laboratory as part of the Rigorous Engineering of Mainstream Systems *) +(* (REMS) project, funded by EPSRC grant EP/K008528/1. *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in *) +(* the documentation and/or other materials provided with the *) +(* distribution. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' *) +(* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED *) +(* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A *) +(* PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR *) +(* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, *) +(* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT *) +(* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF *) +(* USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND *) +(* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, *) +(* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT *) +(* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF *) +(* SUCH DAMAGE. *) +(**************************************************************************) + +open Printf ;; +open Format ;; +open Big_int ;; +open Interp_ast ;; +open Interp_interface ;; +open Interp_inter_imp ;; +open Sail_impl_base ;; +open Run_interp_model ;; + +let doit () = + let context = build_context Test_lem_ast.defs [] [] [] [] [] [] [] None [] in + translate_address context E_little_endian "run" None (address_of_integer (Nat_big_num.of_int 0));; + +doit () ;; |