let value_macro_to_value m = match m with
                                |Faust_Max_int -> 2147483647
                                |Faust_Min_int -> -2147483648
                                |Faust_Bits_int -> 32