1(*
2 * Copyright 2014, General Dynamics C4 Systems
3 *
4 * This software may be distributed and modified according to the terms of
5 * the GNU General Public License version 2. Note that NO WARRANTY is provided.
6 * See "LICENSE_GPLv2.txt" for details.
7 *
8 * @TAG(GD_GPL)
9 *)
10
11chapter "Register Set"
12
13theory RegisterSet_H
14imports
15  "Lib.HaskellLib_H"
16  "../../machine/X64/MachineOps"
17begin
18context Arch begin global_naming X64_H
19
20definition
21  newContext :: "user_context"
22where
23 "newContext \<equiv> UserContext FPUNullState ((K 0) aLU initContext)"
24
25end
26end
27