diff options
| author | Alasdair Armstrong | 2019-12-18 18:04:25 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2019-12-18 19:04:37 +0000 |
| commit | b11c78ccd90b10a7d8502a63881361c03324c838 (patch) | |
| tree | a356af3680637418b47909cb8bc88fee0c929299 /src | |
| parent | 351867a4bd720469b40e397f61448223e0bf6c41 (diff) | |
Make sure we generate literals of precisely the right length for symbolic execution
Diffstat (limited to 'src')
| -rw-r--r-- | src/jib/jib_compile.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/jib/jib_compile.ml b/src/jib/jib_compile.ml index 52e0865a..996390c6 100644 --- a/src/jib/jib_compile.ml +++ b/src/jib/jib_compile.ml @@ -369,7 +369,7 @@ let rec compile_aval l ctx = function @ cleanup in [idecl ctyp gs; - icopy l (CL_id (gs, ctyp)) (V_lit (VL_bits (Util.list_init 64 (fun _ -> Sail2_values.B0), direction), ctyp))] + icopy l (CL_id (gs, ctyp)) (V_lit (VL_bits (Util.list_init len (fun _ -> Sail2_values.B0), direction), ctyp))] @ List.concat (List.mapi aval_mask (List.rev avals)), V_id (gs, ctyp), [] |