Cleanups
This commit is contained in:
@@ -22,10 +22,10 @@ let verify_encrypt A_len P_len = do {
|
||||
do {
|
||||
// Inputs
|
||||
|
||||
let CT_len = eval_size {| P_len + T_len |};
|
||||
|
||||
let A_type = llvm_array A_len i8;
|
||||
let P_type = llvm_array P_len i8;
|
||||
|
||||
let CT_len = eval_size {| P_len + T_len |};
|
||||
let CT_type = llvm_array CT_len i8;
|
||||
|
||||
(P, P_ptr) <- fresh_alloc_readonly "P" P_type;
|
||||
@@ -62,15 +62,14 @@ let verify_decrypt A_len P_len = do {
|
||||
do {
|
||||
let CT_len = eval_size {| P_len + T_len |};
|
||||
|
||||
let C_type = llvm_array P_len i8;
|
||||
let CT_type = llvm_array CT_len i8;
|
||||
let A_type = llvm_array A_len i8;
|
||||
let P_type = llvm_array P_len i8;
|
||||
|
||||
let C_type = llvm_array P_len i8;
|
||||
let CT_type = llvm_array CT_len i8;
|
||||
|
||||
// Inputs
|
||||
C <- llvm_fresh_var "C" C_type;
|
||||
T <- llvm_fresh_var "T" T_type;
|
||||
|
||||
CT_ptr <- llvm_alloc_readonly CT_type;
|
||||
llvm_points_to CT_ptr (llvm_term {{ C # T }});
|
||||
|
||||
|
Reference in New Issue
Block a user