lh-l4v/spec/abstract/RISCV64/ArchTcb_A.thy

(*
 * Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
 *
 * SPDX-License-Identifier: GPL-2.0-only
 *)

chapter "Architecture-specific TCB functions"

theory ArchTcb_A
imports KHeap_A
begin

context Arch begin global_naming RISCV64_A

definition sanitise_register :: "bool \<Rightarrow> register \<Rightarrow> machine_word \<Rightarrow> machine_word"
  where
  "sanitise_register t r v \<equiv> v"

definition arch_get_sanitise_register_info :: "obj_ref \<Rightarrow> (bool, 'a::state_ext) s_monad"
  where
  "arch_get_sanitise_register_info t \<equiv> return False"

definition arch_post_modify_registers :: "obj_ref \<Rightarrow> obj_ref \<Rightarrow> (unit, 'a::state_ext) s_monad"
  where
  "arch_post_modify_registers cur t \<equiv> return ()"

end
end
riscv aspec: implement abstract spec for RISCV64 2018-09-05 07:22:55 +00:00			`(*`
licenses: convert license tags to SPDX 2020-03-09 06:18:30 +00:00			`* Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)`
riscv aspec: implement abstract spec for RISCV64 2018-09-05 07:22:55 +00:00			`*`
licenses: convert license tags to SPDX 2020-03-09 06:18:30 +00:00			`* SPDX-License-Identifier: GPL-2.0-only`
riscv aspec: implement abstract spec for RISCV64 2018-09-05 07:22:55 +00:00			`*)`

			`chapter "Architecture-specific TCB functions"`

			`theory ArchTcb_A`
all: remove theory import path references In Isabelle2020, when isabelle jedit is started without a session context, e.g. `isabelle jedit -l ASpec`, theory imports with path references cause the isabelle process to hang. Since sessions now declare directories, Isabelle can find those files without path reference and we therefore remove all such path references from import statements. With this, `jedit` and `build` should work with and without explicit session context as before. Signed-off-by: Gerwin Klein <gerwin.klein@data61.csiro.au> 2020-10-31 06:30:58 +00:00			`imports KHeap_A`
riscv aspec: implement abstract spec for RISCV64 2018-09-05 07:22:55 +00:00			`begin`

			`context Arch begin global_naming RISCV64_A`

riscv aspec: style + docs 2018-08-06 09:05:25 +00:00			`definition sanitise_register :: "bool \<Rightarrow> register \<Rightarrow> machine_word \<Rightarrow> machine_word"`
			`where`
riscv aspec: implement abstract spec for RISCV64 2018-09-05 07:22:55 +00:00			`"sanitise_register t r v \<equiv> v"`

riscv aspec: style + docs 2018-08-06 09:05:25 +00:00			`definition arch_get_sanitise_register_info :: "obj_ref \<Rightarrow> (bool, 'a::state_ext) s_monad"`
			`where`
riscv aspec: implement abstract spec for RISCV64 2018-09-05 07:22:55 +00:00			`"arch_get_sanitise_register_info t \<equiv> return False"`

riscv aspec: style + docs 2018-08-06 09:05:25 +00:00			`definition arch_post_modify_registers :: "obj_ref \<Rightarrow> obj_ref \<Rightarrow> (unit, 'a::state_ext) s_monad"`
			`where`
riscv aspec: implement abstract spec for RISCV64 2018-09-05 07:22:55 +00:00			`"arch_post_modify_registers cur t \<equiv> return ()"`

			`end`
			`end`