diff options
| author | Jon French | 2019-04-15 16:18:18 +0100 |
|---|---|---|
| committer | Jon French | 2019-04-15 16:18:18 +0100 |
| commit | a9f0b829507e9882efdb59cce4d83ea7e87f5f71 (patch) | |
| tree | 11cde6c1918bc15f4dda9a8e40afd4a1fe912a0a /src/toFromInterp_backend.ml | |
| parent | 0f6fd188ca232cb539592801fcbb873d59611d81 (diff) | |
| parent | 57443173923e87f33713c99dbab9eba7e3db0660 (diff) | |
Merge branch 'sail2' into rmem_interpreter
Diffstat (limited to 'src/toFromInterp_backend.ml')
| -rw-r--r-- | src/toFromInterp_backend.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/toFromInterp_backend.ml b/src/toFromInterp_backend.ml index b253791d..d65aaf3b 100644 --- a/src/toFromInterp_backend.ml +++ b/src/toFromInterp_backend.ml @@ -123,7 +123,7 @@ let frominterp_typedef (TD_aux (td_aux, (l, _))) = | Id_aux ((Id "diafps"),_) -> empty (* | Id_aux ((Id "option"),_) -> empty *) | Id_aux ((Id id_string), _) - | Id_aux ((DeIid id_string), _) -> + | Id_aux ((Operator id_string), _) -> if !lem_mode && id_string = "option" then empty else let fromInterpValueName = concat [string (maybe_zencode (string_of_id id)); string "FromInterpValue"] in let fromFallback = separate space [pipe; underscore; arrow; string "failwith"; @@ -265,7 +265,7 @@ let tointerp_typedef (TD_aux (td_aux, (l, _))) = | Id_aux ((Id "diafps"),_) -> empty (* | Id_aux ((Id "option"),_) -> empty *) | Id_aux ((Id id_string), _) - | Id_aux ((DeIid id_string), _) -> + | Id_aux ((Operator id_string), _) -> if !lem_mode && id_string = "option" then empty else let toInterpValueName = concat [string (maybe_zencode (string_of_id id)); string "ToInterpValue"] in let toInterpValue = |