This commit is contained in:
2025-09-30 20:39:30 -07:00
parent 1a52dd9b2d
commit 8732e75271
2 changed files with 15 additions and 16 deletions

View File

@@ -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 }});