dwarf2out: Split CFI construction routines into a new file.
Excepting changing some functions from static to extern, this
patch contains code motion only. The split is not very clean
at this point, but will be refined as CFI construction is turned
into its own proper pass.
* dwarf2cfi.c: New file.
* Makefile.in (OBJS): Add it.
(GTFILES): Add dwarf2cfi.c and dwarf2out.h.
* gengtype.c (open_base_files): Include dwarf2out.h.
* coretypes.h (enum var_init_status): Move from ...
* rtl.h: ... here.
* dwarf2out.c (saved_do_cfi_asm, dwarf2out_do_frame,
dwarf2out_do_cfi_asm, cie_cfi_vec, dwarf2out_cfi_label_num,
expand_builtin_dwarf_sp_column, init_return_column_size,
expand_builtin_init_dwarf_reg_sizes, new_cfi, add_cfi,
dwarf2out_cfi_label, emit_cfa_remember, any_cfis_emitted, add_fde_cfi,
lookup_cfa_1, lookup_cfa, cfa, cfa_store, cfa_remember, args_size,
old_args_size, cfa_equal_p, def_cfa_1, reg_save, initial_return_save,
stack_adjust_offset, barrier_args_size, compute_barrier_args_size_1,
compute_barrier_args_size, dwarf2out_args_size,
dwarf2out_stack_adjust, dwarf2out_notice_stack_adjust,
queued_reg_saves, reg_saved_in_data, regs_saved_in_regs,
compare_reg_or_pc, record_reg_saved_in_reg, last_reg_save_label,
queue_reg_save, dwarf2out_flush_queued_reg_saves,
clobbers_queued_reg_save, reg_saved_in, cfa_temp,
dwarf2out_frame_debug_def_cfa, dwarf2out_frame_debug_adjust_cfa,
dwarf2out_frame_debug_cfa_offset, dwarf2out_frame_debug_cfa_register,
dwarf2out_frame_debug_cfa_expression,
dwarf2out_frame_debug_cfa_restore,
dwarf2out_frame_debug_cfa_window_save, dwarf2out_frame_debug_expr,
dwarf2out_frame_debug, dwarf2out_frame_debug_init,
dwarf2out_cfi_begin_epilogue, dwarf2out_frame_debug_restore_state,
get_cfa_from_loc_descr): Move to dwarf2cfi.c.
(dw_cfi_ref, dw_fde_ref, dw_cfi_oprnd_ref, enum dw_cfi_oprnd_type,
dw_cfi_oprnd, dw_cfi_node, cfi_vec, dw_cfa_location, dw_fde_node,
dw_val_ref, dw_die_ref, const_dw_die_ref, dw_loc_descr_ref,
dw_loc_list_ref, enum dw_val_class, dw_vec_const, dw_val_node,
dw_loc_descr_node): Move to dwarf2out.h.
(current_fde, output_cfi_directive, build_cfa_loc, get_address_mode,
mem_loc_descriptor): Export.
(build_cfa_aligned_loc): Export. Take CFA as a parameter.
(dwarf2out_frame_init): Extract CIE generation code to
dwarf2cfi_frame_init.
From-SVN: r176015
This commit is contained in:
Richard Henderson
Richard Henderson
parent
0771d9d750
commit
647a156710
@ -1,3 +1,44 @@
|
||||
2011-07-07 Richard Henderson <rth@redhat.com>
|
||||
|
||||
* dwarf2cfi.c: New file.
|
||||
* Makefile.in (OBJS): Add it.
|
||||
(GTFILES): Add dwarf2cfi.c and dwarf2out.h.
|
||||
* gengtype.c (open_base_files): Include dwarf2out.h.
|
||||
* coretypes.h (enum var_init_status): Move from ...
|
||||
* rtl.h: ... here.
|
||||
* dwarf2out.c (saved_do_cfi_asm, dwarf2out_do_frame,
|
||||
dwarf2out_do_cfi_asm, cie_cfi_vec, dwarf2out_cfi_label_num,
|
||||
expand_builtin_dwarf_sp_column, init_return_column_size,
|
||||
expand_builtin_init_dwarf_reg_sizes, new_cfi, add_cfi,
|
||||
dwarf2out_cfi_label, emit_cfa_remember, any_cfis_emitted, add_fde_cfi,
|
||||
lookup_cfa_1, lookup_cfa, cfa, cfa_store, cfa_remember, args_size,
|
||||
old_args_size, cfa_equal_p, def_cfa_1, reg_save, initial_return_save,
|
||||
stack_adjust_offset, barrier_args_size, compute_barrier_args_size_1,
|
||||
compute_barrier_args_size, dwarf2out_args_size,
|
||||
dwarf2out_stack_adjust, dwarf2out_notice_stack_adjust,
|
||||
queued_reg_saves, reg_saved_in_data, regs_saved_in_regs,
|
||||
compare_reg_or_pc, record_reg_saved_in_reg, last_reg_save_label,
|
||||
queue_reg_save, dwarf2out_flush_queued_reg_saves,
|
||||
clobbers_queued_reg_save, reg_saved_in, cfa_temp,
|
||||
dwarf2out_frame_debug_def_cfa, dwarf2out_frame_debug_adjust_cfa,
|
||||
dwarf2out_frame_debug_cfa_offset, dwarf2out_frame_debug_cfa_register,
|
||||
dwarf2out_frame_debug_cfa_expression,
|
||||
dwarf2out_frame_debug_cfa_restore,
|
||||
dwarf2out_frame_debug_cfa_window_save, dwarf2out_frame_debug_expr,
|
||||
dwarf2out_frame_debug, dwarf2out_frame_debug_init,
|
||||
dwarf2out_cfi_begin_epilogue, dwarf2out_frame_debug_restore_state,
|
||||
get_cfa_from_loc_descr): Move to dwarf2cfi.c.
|
||||
(dw_cfi_ref, dw_fde_ref, dw_cfi_oprnd_ref, enum dw_cfi_oprnd_type,
|
||||
dw_cfi_oprnd, dw_cfi_node, cfi_vec, dw_cfa_location, dw_fde_node,
|
||||
dw_val_ref, dw_die_ref, const_dw_die_ref, dw_loc_descr_ref,
|
||||
dw_loc_list_ref, enum dw_val_class, dw_vec_const, dw_val_node,
|
||||
dw_loc_descr_node): Move to dwarf2out.h.
|
||||
(current_fde, output_cfi_directive, build_cfa_loc, get_address_mode,
|
||||
mem_loc_descriptor): Export.
|
||||
(build_cfa_aligned_loc): Export. Take CFA as a parameter.
|
||||
(dwarf2out_frame_init): Extract CIE generation code to
|
||||
dwarf2cfi_frame_init.
|
||||
|
||||
2011-07-07 Eric Botcazou <ebotcazou@adacore.com>
|
||||
|
||||
PR target/49660
|
||||
|
||||
@ -1263,6 +1263,7 @@ OBJS = \
|
||||
double-int.o \
|
||||
dse.o \
|
||||
dwarf2asm.o \
|
||||
dwarf2cfi.o \
|
||||
dwarf2out.o \
|
||||
ebitmap.o \
|
||||
emit-rtl.o \
|
||||
@ -3008,6 +3009,9 @@ dwarf2out.o : dwarf2out.c $(CONFIG_H) $(SYSTEM_H) coretypes.h $(TM_H) \
|
||||
gt-dwarf2out.h $(TARGET_H) $(CGRAPH_H) $(MD5_H) $(INPUT_H) $(FUNCTION_H) \
|
||||
$(GIMPLE_H) $(TREE_PASS_H) $(TREE_FLOW_H) $(CFGLAYOUT_H) \
|
||||
tree-pretty-print.h $(COMMON_TARGET_H)
|
||||
dwarf2cfi.o : dwarf2cfi.c $(CONFIG_H) $(SYSTEM_H) coretypes.h $(TM_H) \
|
||||
version.h $(RTL_H) $(FUNCTION_H) $(DWARF2_H) dwarf2asm.h dwarf2out.h \
|
||||
$(GGC_H) $(TM_P_H) $(TARGET_H) $(TREE_PASS_H)
|
||||
dwarf2asm.o : dwarf2asm.c $(CONFIG_H) $(SYSTEM_H) coretypes.h $(TM_H) \
|
||||
$(FLAGS_H) $(RTL_H) $(TREE_H) output.h dwarf2asm.h $(TM_P_H) $(GGC_H) \
|
||||
gt-dwarf2asm.h $(DWARF2_H) $(SPLAY_TREE_H) $(TARGET_H)
|
||||
@ -3828,7 +3832,11 @@ GTFILES = $(CPP_ID_DATA_H) $(srcdir)/input.h $(srcdir)/coretypes.h \
|
||||
$(srcdir)/reload.h $(srcdir)/caller-save.c \
|
||||
$(srcdir)/alias.c $(srcdir)/bitmap.c $(srcdir)/cselib.c $(srcdir)/cgraph.c \
|
||||
$(srcdir)/ipa-prop.c $(srcdir)/ipa-cp.c $(srcdir)/matrix-reorg.c \
|
||||
$(srcdir)/dbxout.c $(srcdir)/dwarf2out.c $(srcdir)/dwarf2asm.c \
|
||||
$(srcdir)/dbxout.c \
|
||||
$(srcdir)/dwarf2out.h \
|
||||
$(srcdir)/dwarf2asm.c \
|
||||
$(srcdir)/dwarf2cfi.c \
|
||||
$(srcdir)/dwarf2out.c \
|
||||
$(srcdir)/tree-vect-generic.c \
|
||||
$(srcdir)/dojump.c \
|
||||
$(srcdir)/emit-rtl.c $(srcdir)/except.h $(srcdir)/explow.c $(srcdir)/expr.c \
|
||||
|
||||
@ -136,6 +136,16 @@ enum node_frequency {
|
||||
NODE_FREQUENCY_HOT
|
||||
};
|
||||
|
||||
/* Possible initialization status of a variable. When requested
|
||||
by the user, this information is tracked and recorded in the DWARF
|
||||
debug information, along with the variable's location. */
|
||||
enum var_init_status
|
||||
{
|
||||
VAR_INIT_STATUS_UNKNOWN,
|
||||
VAR_INIT_STATUS_UNINITIALIZED,
|
||||
VAR_INIT_STATUS_INITIALIZED
|
||||
};
|
||||
|
||||
|
||||
struct edge_def;
|
||||
typedef struct edge_def *edge;
|
||||
|
||||
2656
gcc/dwarf2cfi.c
Normal file
2656
gcc/dwarf2cfi.c
Normal file
File diff suppressed because it is too large
Load Diff
2887
gcc/dwarf2out.c
2887
gcc/dwarf2out.c
File diff suppressed because it is too large
Load Diff
225
gcc/dwarf2out.h
225
gcc/dwarf2out.h
@ -18,6 +18,229 @@ You should have received a copy of the GNU General Public License
|
||||
along with GCC; see the file COPYING3. If not see
|
||||
<http://www.gnu.org/licenses/>. */
|
||||
|
||||
#ifndef GCC_DWARF2OUT_H
|
||||
#define GCC_DWARF2OUT_H 1
|
||||
|
||||
#include "dwarf2.h" /* ??? Remove this once only used by dwarf2foo.c. */
|
||||
|
||||
typedef struct die_struct *dw_die_ref;
|
||||
typedef const struct die_struct *const_dw_die_ref;
|
||||
|
||||
typedef struct dw_val_struct *dw_val_ref;
|
||||
typedef struct dw_cfi_struct *dw_cfi_ref;
|
||||
typedef struct dw_loc_descr_struct *dw_loc_descr_ref;
|
||||
typedef struct dw_loc_list_struct *dw_loc_list_ref;
|
||||
|
||||
|
||||
/* Call frames are described using a sequence of Call Frame
|
||||
Information instructions. The register number, offset
|
||||
and address fields are provided as possible operands;
|
||||
their use is selected by the opcode field. */
|
||||
|
||||
enum dw_cfi_oprnd_type {
|
||||
dw_cfi_oprnd_unused,
|
||||
dw_cfi_oprnd_reg_num,
|
||||
dw_cfi_oprnd_offset,
|
||||
dw_cfi_oprnd_addr,
|
||||
dw_cfi_oprnd_loc
|
||||
};
|
||||
|
||||
typedef union GTY(()) dw_cfi_oprnd_struct {
|
||||
unsigned int GTY ((tag ("dw_cfi_oprnd_reg_num"))) dw_cfi_reg_num;
|
||||
HOST_WIDE_INT GTY ((tag ("dw_cfi_oprnd_offset"))) dw_cfi_offset;
|
||||
const char * GTY ((tag ("dw_cfi_oprnd_addr"))) dw_cfi_addr;
|
||||
struct dw_loc_descr_struct * GTY ((tag ("dw_cfi_oprnd_loc"))) dw_cfi_loc;
|
||||
}
|
||||
dw_cfi_oprnd;
|
||||
|
||||
typedef struct GTY(()) dw_cfi_struct {
|
||||
enum dwarf_call_frame_info dw_cfi_opc;
|
||||
dw_cfi_oprnd GTY ((desc ("dw_cfi_oprnd1_desc (%1.dw_cfi_opc)")))
|
||||
dw_cfi_oprnd1;
|
||||
dw_cfi_oprnd GTY ((desc ("dw_cfi_oprnd2_desc (%1.dw_cfi_opc)")))
|
||||
dw_cfi_oprnd2;
|
||||
}
|
||||
dw_cfi_node;
|
||||
|
||||
DEF_VEC_P (dw_cfi_ref);
|
||||
DEF_VEC_ALLOC_P (dw_cfi_ref, heap);
|
||||
DEF_VEC_ALLOC_P (dw_cfi_ref, gc);
|
||||
|
||||
typedef VEC(dw_cfi_ref, gc) *cfi_vec;
|
||||
|
||||
typedef struct dw_fde_struct *dw_fde_ref;
|
||||
|
||||
/* All call frame descriptions (FDE's) in the GCC generated DWARF
|
||||
refer to a single Common Information Entry (CIE), defined at
|
||||
the beginning of the .debug_frame section. This use of a single
|
||||
CIE obviates the need to keep track of multiple CIE's
|
||||
in the DWARF generation routines below. */
|
||||
|
||||
typedef struct GTY(()) dw_fde_struct {
|
||||
tree decl;
|
||||
const char *dw_fde_begin;
|
||||
const char *dw_fde_current_label;
|
||||
const char *dw_fde_end;
|
||||
const char *dw_fde_vms_end_prologue;
|
||||
const char *dw_fde_vms_begin_epilogue;
|
||||
const char *dw_fde_second_begin;
|
||||
const char *dw_fde_second_end;
|
||||
cfi_vec dw_fde_cfi;
|
||||
int dw_fde_switch_cfi_index; /* Last CFI before switching sections. */
|
||||
HOST_WIDE_INT stack_realignment;
|
||||
unsigned funcdef_number;
|
||||
/* Dynamic realign argument pointer register. */
|
||||
unsigned int drap_reg;
|
||||
/* Virtual dynamic realign argument pointer register. */
|
||||
unsigned int vdrap_reg;
|
||||
/* These 3 flags are copied from rtl_data in function.h. */
|
||||
unsigned all_throwers_are_sibcalls : 1;
|
||||
unsigned uses_eh_lsda : 1;
|
||||
unsigned nothrow : 1;
|
||||
/* Whether we did stack realign in this call frame. */
|
||||
unsigned stack_realign : 1;
|
||||
/* Whether dynamic realign argument pointer register has been saved. */
|
||||
unsigned drap_reg_saved: 1;
|
||||
/* True iff dw_fde_begin label is in text_section or cold_text_section. */
|
||||
unsigned in_std_section : 1;
|
||||
/* True iff dw_fde_second_begin label is in text_section or
|
||||
cold_text_section. */
|
||||
unsigned second_in_std_section : 1;
|
||||
}
|
||||
dw_fde_node;
|
||||
|
||||
|
||||
/* This is how we define the location of the CFA. We use to handle it
|
||||
as REG + OFFSET all the time, but now it can be more complex.
|
||||
It can now be either REG + CFA_OFFSET or *(REG + BASE_OFFSET) + CFA_OFFSET.
|
||||
Instead of passing around REG and OFFSET, we pass a copy
|
||||
of this structure. */
|
||||
typedef struct cfa_loc {
|
||||
HOST_WIDE_INT offset;
|
||||
HOST_WIDE_INT base_offset;
|
||||
unsigned int reg;
|
||||
BOOL_BITFIELD indirect : 1; /* 1 if CFA is accessed via a dereference. */
|
||||
BOOL_BITFIELD in_use : 1; /* 1 if a saved cfa is stored here. */
|
||||
} dw_cfa_location;
|
||||
|
||||
|
||||
/* Each DIE may have a series of attribute/value pairs. Values
|
||||
can take on several forms. The forms that are used in this
|
||||
implementation are listed below. */
|
||||
|
||||
enum dw_val_class
|
||||
{
|
||||
dw_val_class_addr,
|
||||
dw_val_class_offset,
|
||||
dw_val_class_loc,
|
||||
dw_val_class_loc_list,
|
||||
dw_val_class_range_list,
|
||||
dw_val_class_const,
|
||||
dw_val_class_unsigned_const,
|
||||
dw_val_class_const_double,
|
||||
dw_val_class_vec,
|
||||
dw_val_class_flag,
|
||||
dw_val_class_die_ref,
|
||||
dw_val_class_fde_ref,
|
||||
dw_val_class_lbl_id,
|
||||
dw_val_class_lineptr,
|
||||
dw_val_class_str,
|
||||
dw_val_class_macptr,
|
||||
dw_val_class_file,
|
||||
dw_val_class_data8,
|
||||
dw_val_class_decl_ref,
|
||||
dw_val_class_vms_delta
|
||||
};
|
||||
|
||||
/* Describe a floating point constant value, or a vector constant value. */
|
||||
|
||||
typedef struct GTY(()) dw_vec_struct {
|
||||
unsigned char * GTY((length ("%h.length"))) array;
|
||||
unsigned length;
|
||||
unsigned elt_size;
|
||||
}
|
||||
dw_vec_const;
|
||||
|
||||
/* The dw_val_node describes an attribute's value, as it is
|
||||
represented internally. */
|
||||
|
||||
typedef struct GTY(()) dw_val_struct {
|
||||
enum dw_val_class val_class;
|
||||
union dw_val_struct_union
|
||||
{
|
||||
rtx GTY ((tag ("dw_val_class_addr"))) val_addr;
|
||||
unsigned HOST_WIDE_INT GTY ((tag ("dw_val_class_offset"))) val_offset;
|
||||
dw_loc_list_ref GTY ((tag ("dw_val_class_loc_list"))) val_loc_list;
|
||||
dw_loc_descr_ref GTY ((tag ("dw_val_class_loc"))) val_loc;
|
||||
HOST_WIDE_INT GTY ((default)) val_int;
|
||||
unsigned HOST_WIDE_INT GTY ((tag ("dw_val_class_unsigned_const"))) val_unsigned;
|
||||
double_int GTY ((tag ("dw_val_class_const_double"))) val_double;
|
||||
dw_vec_const GTY ((tag ("dw_val_class_vec"))) val_vec;
|
||||
struct dw_val_die_union
|
||||
{
|
||||
dw_die_ref die;
|
||||
int external;
|
||||
} GTY ((tag ("dw_val_class_die_ref"))) val_die_ref;
|
||||
unsigned GTY ((tag ("dw_val_class_fde_ref"))) val_fde_index;
|
||||
struct indirect_string_node * GTY ((tag ("dw_val_class_str"))) val_str;
|
||||
char * GTY ((tag ("dw_val_class_lbl_id"))) val_lbl_id;
|
||||
unsigned char GTY ((tag ("dw_val_class_flag"))) val_flag;
|
||||
struct dwarf_file_data * GTY ((tag ("dw_val_class_file"))) val_file;
|
||||
unsigned char GTY ((tag ("dw_val_class_data8"))) val_data8[8];
|
||||
tree GTY ((tag ("dw_val_class_decl_ref"))) val_decl_ref;
|
||||
struct dw_val_vms_delta_union
|
||||
{
|
||||
char * lbl1;
|
||||
char * lbl2;
|
||||
} GTY ((tag ("dw_val_class_vms_delta"))) val_vms_delta;
|
||||
}
|
||||
GTY ((desc ("%1.val_class"))) v;
|
||||
}
|
||||
dw_val_node;
|
||||
|
||||
/* Locations in memory are described using a sequence of stack machine
|
||||
operations. */
|
||||
|
||||
typedef struct GTY(()) dw_loc_descr_struct {
|
||||
dw_loc_descr_ref dw_loc_next;
|
||||
ENUM_BITFIELD (dwarf_location_atom) dw_loc_opc : 8;
|
||||
/* Used to distinguish DW_OP_addr with a direct symbol relocation
|
||||
from DW_OP_addr with a dtp-relative symbol relocation. */
|
||||
unsigned int dtprel : 1;
|
||||
int dw_loc_addr;
|
||||
dw_val_node dw_loc_oprnd1;
|
||||
dw_val_node dw_loc_oprnd2;
|
||||
}
|
||||
dw_loc_descr_node;
|
||||
|
||||
|
||||
/* Interface from dwarf2out.c to dwarf2cfi.c. */
|
||||
extern dw_fde_ref current_fde (void);
|
||||
extern void output_cfi_directive (dw_cfi_ref);
|
||||
extern struct dw_loc_descr_struct *build_cfa_loc
|
||||
(dw_cfa_location *, HOST_WIDE_INT);
|
||||
extern struct dw_loc_descr_struct *build_cfa_aligned_loc
|
||||
(dw_cfa_location *, HOST_WIDE_INT offset, HOST_WIDE_INT alignment);
|
||||
extern struct dw_loc_descr_struct *mem_loc_descriptor
|
||||
(rtx, enum machine_mode mode, enum machine_mode mem_mode,
|
||||
enum var_init_status);
|
||||
extern enum machine_mode get_address_mode (rtx mem);
|
||||
|
||||
/* Interface from dwarf2cfi.c to dwarf2out.c. */
|
||||
extern void dwarf2cfi_frame_init (void);
|
||||
extern void dwarf2cfi_function_init (void);
|
||||
extern void lookup_cfa_1 (dw_cfi_ref cfi, dw_cfa_location *loc,
|
||||
dw_cfa_location *remember);
|
||||
extern bool cfa_equal_p (const dw_cfa_location *, const dw_cfa_location *);
|
||||
|
||||
extern GTY(()) cfi_vec cie_cfi_vec;
|
||||
|
||||
/* Interface from dwarf2*.c to the rest of the compiler. */
|
||||
extern enum dw_cfi_oprnd_type dw_cfi_oprnd1_desc
|
||||
(enum dwarf_call_frame_info cfi);
|
||||
extern enum dw_cfi_oprnd_type dw_cfi_oprnd2_desc
|
||||
(enum dwarf_call_frame_info cfi);
|
||||
|
||||
extern void dwarf2out_decl (tree);
|
||||
extern void dwarf2out_frame_debug (rtx, bool);
|
||||
extern void dwarf2out_frame_debug_init (void);
|
||||
@ -47,3 +270,5 @@ struct array_descr_info
|
||||
tree stride;
|
||||
} dimen[10];
|
||||
};
|
||||
|
||||
#endif /* GCC_DWARF2OUT_H */
|
||||
|
||||
@ -1560,7 +1560,7 @@ open_base_files (void)
|
||||
"tree-flow.h", "reload.h", "cpp-id-data.h", "tree-chrec.h",
|
||||
"cfglayout.h", "except.h", "output.h", "gimple.h", "cfgloop.h",
|
||||
"target.h", "ipa-prop.h", "lto-streamer.h", "target-globals.h",
|
||||
"ipa-inline.h", NULL
|
||||
"ipa-inline.h", "dwarf2out.h", NULL
|
||||
};
|
||||
const char *const *ifp;
|
||||
outf_p gtype_desc_c;
|
||||
|
||||
10
gcc/rtl.h
10
gcc/rtl.h
@ -944,16 +944,6 @@ extern const char * const reg_note_name[];
|
||||
/* PARM_DECL DEBUG_PARAMETER_REF references. */
|
||||
#define DEBUG_PARAMETER_REF_DECL(RTX) XCTREE (RTX, 0, DEBUG_PARAMETER_REF)
|
||||
|
||||
/* Possible initialization status of a variable. When requested
|
||||
by the user, this information is tracked and recorded in the DWARF
|
||||
debug information, along with the variable's location. */
|
||||
enum var_init_status
|
||||
{
|
||||
VAR_INIT_STATUS_UNKNOWN,
|
||||
VAR_INIT_STATUS_UNINITIALIZED,
|
||||
VAR_INIT_STATUS_INITIALIZED
|
||||
};
|
||||
|
||||
/* Codes that appear in the NOTE_KIND field for kinds of notes
|
||||
that are not line numbers. These codes are all negative.
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user