diff options
Diffstat (limited to 'src/gen_lib')
| -rw-r--r-- | src/gen_lib/sail_values.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gen_lib/sail_values.lem b/src/gen_lib/sail_values.lem index e0d60dee..4fded5a1 100644 --- a/src/gen_lib/sail_values.lem +++ b/src/gen_lib/sail_values.lem @@ -776,7 +776,7 @@ let rec register_field_indices_aux register rfield = | RegisterPair r1 r2 -> let m_indices = register_field_indices_aux r1 rfield in if isJust m_indices then m_indices else register_field_indices_aux r2 rfield - | UndefinedRegister -> Nothing + | UndefinedRegister _ -> Nothing end val register_field_indices : register -> register_field -> integer * integer |