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 "Retyping Objects" 12 13theory ArchRetype_H 14imports 15 ArchRetypeDecls_H 16 ArchVSpaceDecls_H 17 Hardware_H 18 "../KI_Decls_H" 19begin 20 21context Arch begin global_naming X64_H 22 23#INCLUDE_HASKELL SEL4/Object/ObjectType/X64.lhs CONTEXT X64_H Arch.Types=ArchTypes_H ArchInv=ArchRetypeDecls_H NOT bodies_only 24#INCLUDE_HASKELL SEL4/API/Invocation/X64.lhs CONTEXT X64_H bodies_only 25 26end (* context X64 *) 27end 28