File tree 2 files changed +5
-5
lines changed
2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -12,22 +12,22 @@ let ptr_to_fresh n ty = do {
12
12
13
13
let set_spec = do {
14
14
(x, px) <- ptr_to_fresh "x" (llvm_array 2 (llvm_int 32));
15
- po <- alloc_init (llvm_struct "struct.s") (llvm_struct [px]);
15
+ po <- alloc_init (llvm_struct "struct.s") (llvm_struct_value [px]);
16
16
llvm_execute_func [po];
17
- llvm_points_to po (llvm_struct [px]);
17
+ llvm_points_to po (llvm_struct_value [px]);
18
18
llvm_points_to px (llvm_term {{ [0, 0] : [2][32] }});
19
19
};
20
20
21
21
let add_spec = do {
22
22
(x, px) <- ptr_to_fresh "x" (llvm_array 2 (llvm_int 32));
23
- po <- alloc_init (llvm_struct "struct.s") (llvm_struct [px]);
23
+ po <- alloc_init (llvm_struct "struct.s") (llvm_struct_value [px]);
24
24
llvm_execute_func [po];
25
25
llvm_return (llvm_term {{ x@0 + x@1 }});
26
26
};
27
27
28
28
let id_spec = do {
29
29
(x, px) <- ptr_to_fresh "x" (llvm_array 2 (llvm_int 32));
30
- po <- alloc_init (llvm_struct "struct.s") (llvm_struct [px]);
30
+ po <- alloc_init (llvm_struct "struct.s") (llvm_struct_value [px]);
31
31
llvm_execute_func [po];
32
32
llvm_return po;
33
33
};
Original file line number Diff line number Diff line change @@ -89,7 +89,7 @@ let s20_encrypt32 n = do {
89
89
};
90
90
91
91
let main : TopLevel () = do {
92
- m <- load_module "salsa20.bc";
92
+ m <- llvm_load_module "salsa20.bc";
93
93
qr <- llvm_verify m "s20_quarterround" [] false quarterround_setup abc;
94
94
rr <- llvm_verify m "s20_rowround" [qr] false rowround_setup abc;
95
95
cr <- llvm_verify m "s20_columnround" [qr] false columnround_setup abc;
You can’t perform that action at this time.
0 commit comments