SELFOUR-421: fixed Refine after merge with master
This commit is contained in:
parent
78bd770240
commit
765d8aa88e
|
@ -882,7 +882,7 @@ lemma decodeUntyped_wf[wp]:
|
|||
apply (simp add:empty_descendants_range_in')
|
||||
apply (clarsimp simp:image_def isCap_simps nullPointer_def word_size
|
||||
cte_level_bits_def field_simps)
|
||||
apply (rule conjI[rotated], rule conjI[rotated], clarsimp simp: Types_H.isFrameType_def) (* peel of device goal *)
|
||||
apply (rule conjI[rotated], clarsimp simp: Types_H.isFrameType_def) (* peel of device goal *)
|
||||
apply (clarsimp simp: image_def isCap_simps nullPointer_def
|
||||
word_size cte_level_bits_def field_simps)
|
||||
apply (drule_tac x = x in spec)+
|
||||
|
|
|
@ -470,7 +470,7 @@ where
|
|||
new_type \<leftarrow> data_to_obj_type (args!0);
|
||||
|
||||
user_obj_size \<leftarrow> returnOk $ data_to_nat (args!1);
|
||||
unlessE (user_obj_size < word_bits - 1)
|
||||
unlessE (user_obj_size < word_bits - 2)
|
||||
$ throwError (RangeError 0 (of_nat word_bits - 3)); (* max size of untyped = 2^30 *)
|
||||
whenE (new_type = CapTableObject \<and> user_obj_size = 0)
|
||||
$ throwError (InvalidArgument 1);
|
||||
|
|
Loading…
Reference in New Issue