@ -17,7 +17,6 @@ type t =
; cf_injected_destructor : bool
; cf_injected_destructor : bool
; cf_interface : bool
; cf_interface : bool
; cf_is_objc_block : bool
; cf_is_objc_block : bool
; cf_noreturn : bool
; cf_virtual : bool
; cf_virtual : bool
; cf_with_block_parameters : bool }
; cf_with_block_parameters : bool }
[ @@ deriving compare ]
[ @@ deriving compare ]
@ -27,14 +26,12 @@ let pp f
; cf_injected_destructor
; cf_injected_destructor
; cf_interface
; cf_interface
; cf_is_objc_block
; cf_is_objc_block
; cf_noreturn
; cf_with_block_parameters
; cf_with_block_parameters
; cf_virtual } [ @ warning " +9 " ] ) =
; cf_virtual } [ @ warning " +9 " ] ) =
if cf_assign_last_arg then F . pp_print_string f " assign_last " ;
if cf_assign_last_arg then F . pp_print_string f " assign_last " ;
if cf_injected_destructor then F . pp_print_string f " injected " ;
if cf_injected_destructor then F . pp_print_string f " injected " ;
if cf_interface then F . pp_print_string f " interface " ;
if cf_interface then F . pp_print_string f " interface " ;
if cf_is_objc_block then F . pp_print_string f " objc_block " ;
if cf_is_objc_block then F . pp_print_string f " objc_block " ;
if cf_noreturn then F . pp_print_string f " noreturn " ;
if cf_with_block_parameters then F . pp_print_string f " block_params " ;
if cf_with_block_parameters then F . pp_print_string f " block_params " ;
if cf_virtual then F . pp_print_string f " virtual " ;
if cf_virtual then F . pp_print_string f " virtual " ;
()
()
@ -45,6 +42,5 @@ let default =
; cf_injected_destructor = false
; cf_injected_destructor = false
; cf_interface = false
; cf_interface = false
; cf_is_objc_block = false
; cf_is_objc_block = false
; cf_noreturn = false
; cf_with_block_parameters = false
; cf_with_block_parameters = false
; cf_virtual = false }
; cf_virtual = false }