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

riscv SEAR: arch-split SEAR for clz and ctz 

Signed-off-by: Mitchell Buckley <mitchell.buckley@data61.csiro.au>
This commit is contained in:
Mitchell Buckley 2020-11-30 14:54:57 +11:00 committed by Matthew Brecknell
parent f96f7763fd
commit 9cea8ed18b
4 changed files with 45 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
proof/ROOT
View File

@ -206,6 +206,8 @@ session SimplExportAndRefine in "asmrefine" = SimplExport +
"SEL4GraphRefine"
session SimplExport in "asmrefine/export" = CSpec +
directories
"$L4V_ARCH"
theories
"SEL4SimplExport"

31
proof/asmrefine/export/ARM/ArchSEL4SimplExport.thy Normal file
View File

@ -0,0 +1,31 @@
(*
* Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
*
* SPDX-License-Identifier: GPL-2.0-only
*)
theory ArchSEL4SimplExport
imports "AsmRefine.SimplExport" "CSpec.Substitute"
begin
context kernel_all_substitute begin
lemma ctzl_body_refines:
"simple_simpl_refines \<Gamma> (Guard ImpossibleSpec \<lbrace>\<acute>x \<noteq> 0\<rbrace>
(\<acute>ret__long :== ucast (bv_ctz (\<acute>x)))) ctzl_body"
apply (simp add: ctzl_body_def)
apply (rule simple_simpl_refines_guarded_Basic_guarded_spec_body)
apply (clarsimp simp: bv_ctz_def meq_def)
done
lemma clzl_body_refines:
"simple_simpl_refines \<Gamma> (Guard ImpossibleSpec \<lbrace>\<acute>x \<noteq> 0\<rbrace>
(\<acute>ret__long :== ucast (bv_clz (\<acute>x)))) clzl_body"
apply (simp add: clzl_body_def)
apply (rule simple_simpl_refines_guarded_Basic_guarded_spec_body)
apply (clarsimp simp: bv_clz_def meq_def)
done
end
end

11
proof/asmrefine/export/RISCV64/ArchSEL4SimplExport.thy Normal file
View File

@ -0,0 +1,11 @@
(*
* Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
*
* SPDX-License-Identifier: GPL-2.0-only
*)
theory ArchSEL4SimplExport
imports "AsmRefine.SimplExport"
begin
end

19
proof/asmrefine/export/SEL4SimplExport.thy
View File

@ -5,7 +5,7 @@
*)
theory SEL4SimplExport
imports "AsmRefine.SimplExport" "CSpec.Substitute"
imports "ArchSEL4SimplExport" "CSpec.Substitute"
begin
ML \<open>
@ -16,22 +16,6 @@ val csenv = let
context kernel_all_substitute begin
lemma ctzl_body_refines:
"simple_simpl_refines \<Gamma> (Guard ImpossibleSpec \<lbrace>\<acute>x \<noteq> 0\<rbrace>
(\<acute>ret__long :== ucast (bv_ctz (\<acute>x)))) ctzl_body"
apply (simp add: ctzl_body_def)
apply (rule simple_simpl_refines_guarded_Basic_guarded_spec_body)
apply (clarsimp simp: bv_ctz_def meq_def)
done
lemma clzl_body_refines:
"simple_simpl_refines \<Gamma> (Guard ImpossibleSpec \<lbrace>\<acute>x \<noteq> 0\<rbrace>
(\<acute>ret__long :== ucast (bv_clz (\<acute>x)))) clzl_body"
apply (simp add: clzl_body_def)
apply (rule simple_simpl_refines_guarded_Basic_guarded_spec_body)
apply (clarsimp simp: bv_clz_def meq_def)
done
declare ctcb_offset_defs[simp]
ML \<open>
@ -44,4 +28,3 @@ ML \<open>
end
end