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