adbrucker
/
lh-l4v
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cspec/crefine: make ctcb_offset available to AUXUPD

This commit is contained in:
Gerwin Klein 2018-03-22 13:39:06 +11:00
parent 0f38e20094
commit 62bee91f12
6 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
proof/crefine/ARM/Wellformed_C.thy
View File

@ -116,18 +116,6 @@ definition
where
"cte_at_C' p h \<equiv> Ptr p \<in> dom (clift h :: cte_C typ_heap)"
definition
ctcb_size_bits :: nat
where
"ctcb_size_bits \<equiv> 8"
definition
ctcb_offset :: word32
where
"ctcb_offset \<equiv> 2 ^ ctcb_size_bits"
lemmas ctcb_offset_defs = ctcb_offset_def ctcb_size_bits_def
definition
ctcb_ptr_to_tcb_ptr :: "tcb_C ptr \<Rightarrow> word32"
where

12
proof/crefine/ARM_HYP/Wellformed_C.thy
View File

@ -131,18 +131,6 @@ definition
where
"cte_at_C' p h \<equiv> Ptr p \<in> dom (clift h :: cte_C typ_heap)"
definition
ctcb_size_bits :: nat
where
"ctcb_size_bits \<equiv> 8"
definition
ctcb_offset :: word32
where
"ctcb_offset \<equiv> 2 ^ ctcb_size_bits"
lemmas ctcb_offset_defs = ctcb_offset_def ctcb_size_bits_def
definition
ctcb_ptr_to_tcb_ptr :: "tcb_C ptr \<Rightarrow> word32"
where

12
proof/crefine/X64/Wellformed_C.thy
View File

@ -122,18 +122,6 @@ definition
where
"cte_at_C' p h \<equiv> Ptr p \<in> dom (clift h :: cte_C typ_heap)"
definition
ctcb_size_bits :: nat
where
"ctcb_size_bits \<equiv> 10"
definition
ctcb_offset :: machine_word
where
"ctcb_offset \<equiv> 2 ^ ctcb_size_bits"
lemmas ctcb_offset_defs = ctcb_offset_def ctcb_size_bits_def
definition
ctcb_ptr_to_tcb_ptr :: "tcb_C ptr \<Rightarrow> word64"
where

12
spec/cspec/ARM/Kernel_C.thy
View File

@ -77,6 +77,18 @@ requalify_consts ARMSmallPage ARMLargePage ARMSection ARMSuperSection
end
definition
ctcb_size_bits :: nat
where
"ctcb_size_bits \<equiv> 8"
definition
ctcb_offset :: "32 word"
where
"ctcb_offset \<equiv> 2 ^ ctcb_size_bits"
lemmas ctcb_offset_defs = ctcb_offset_def ctcb_size_bits_def
install_C_file "../c/build/$L4V_ARCH/kernel_all.c_pp"
[machinety=machine_state, ghostty=cghost_state]

12
spec/cspec/ARM_HYP/Kernel_C.thy
View File

@ -77,6 +77,18 @@ requalify_consts ARMSmallPage ARMLargePage ARMSection ARMSuperSection
end
definition
ctcb_size_bits :: nat
where
"ctcb_size_bits \<equiv> 8"
definition
ctcb_offset :: "32 word"
where
"ctcb_offset \<equiv> 2 ^ ctcb_size_bits"
lemmas ctcb_offset_defs = ctcb_offset_def ctcb_size_bits_def
install_C_file "../c/build/$L4V_ARCH/kernel_all.c_pp"
[machinety=machine_state, ghostty=cghost_state]

12
spec/cspec/X64/Kernel_C.thy
View File

@ -75,6 +75,18 @@ context begin interpretation Arch . global_naming vmpage_size
requalify_consts X64SmallPage X64LargePage X64HugePage
end
definition
ctcb_size_bits :: nat
where
"ctcb_size_bits \<equiv> 10"
definition
ctcb_offset :: "64 word"
where
"ctcb_offset \<equiv> 2 ^ ctcb_size_bits"
lemmas ctcb_offset_defs = ctcb_offset_def ctcb_size_bits_def
install_C_file "../c/build/$L4V_ARCH/kernel_all.c_pp"
[machinety=machine_state, ghostty=cghost_state]