diff options
Diffstat (limited to 'backend/Constprop.v')
-rw-r--r-- | backend/Constprop.v | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/backend/Constprop.v b/backend/Constprop.v index d2c4d44..bdfc4b1 100644 --- a/backend/Constprop.v +++ b/backend/Constprop.v @@ -75,6 +75,7 @@ Definition const_for_result (a: aval) : option operation := match a with | I n => Some(Ointconst n) | F n => if Compopts.generate_float_constants tt then Some(Ofloatconst n) else None + | FS n => if Compopts.generate_float_constants tt then Some(Osingleconst n) else None | Ptr(Gl symb ofs) => Some(Oaddrsymbol symb ofs) | Ptr(Stk ofs) => Some(Oaddrstack ofs) | _ => None |