gdb/guile/scm-breakpoint.c

585 gdbscm_set_breakpoint_enabled_x (SCM self, SCM newvalue)
590   SCM_ASSERT_TYPE (gdbscm_is_bool (newvalue), newvalue, SCM_ARG2, FUNC_NAME,
596       if (gdbscm_is_true (newvalue))
624 gdbscm_set_breakpoint_silent_x (SCM self, SCM newvalue)
629   SCM_ASSERT_TYPE (gdbscm_is_bool (newvalue), newvalue, SCM_ARG2, FUNC_NAME,
635       breakpoint_set_silent (bp_smob->bp, gdbscm_is_true (newvalue));
661 gdbscm_set_breakpoint_ignore_count_x (SCM self, SCM newvalue)
667   SCM_ASSERT_TYPE (scm_is_signed_integer (newvalue, LONG_MIN, LONG_MAX),
668 		   newvalue, SCM_ARG2, FUNC_NAME, _("integer"));
670   value = scm_to_long (newvalue);
702 gdbscm_set_breakpoint_hit_count_x (SCM self, SCM newvalue)
708   SCM_ASSERT_TYPE (scm_is_signed_integer (newvalue, LONG_MIN, LONG_MAX),
709 		   newvalue, SCM_ARG2, FUNC_NAME, _("integer"));
711   value = scm_to_long (newvalue);
717       gdbscm_out_of_range_error (FUNC_NAME, SCM_ARG2, newvalue,
743 gdbscm_set_breakpoint_thread_x (SCM self, SCM newvalue)
749   if (scm_is_signed_integer (newvalue, LONG_MIN, LONG_MAX))
751       id = scm_to_long (newvalue);
754 	  gdbscm_out_of_range_error (FUNC_NAME, SCM_ARG2, newvalue,
758   else if (gdbscm_is_false (newvalue))
761     SCM_ASSERT_TYPE (0, newvalue, SCM_ARG2, FUNC_NAME, _("integer or #f"));
785 gdbscm_set_breakpoint_task_x (SCM self, SCM newvalue)
792   if (scm_is_signed_integer (newvalue, LONG_MIN, LONG_MAX))
794       id = scm_to_long (newvalue);
809 	  gdbscm_out_of_range_error (FUNC_NAME, SCM_ARG2, newvalue,
813   else if (gdbscm_is_false (newvalue))
816     SCM_ASSERT_TYPE (0, newvalue, SCM_ARG2, FUNC_NAME, _("integer or #f"));
894 gdbscm_set_breakpoint_condition_x (SCM self, SCM newvalue)
899   SCM_ASSERT_TYPE (scm_is_string (newvalue) || gdbscm_is_false (newvalue),
900 		   newvalue, SCM_ARG2, FUNC_NAME,
906 	= (gdbscm_is_false (newvalue)
908 	   : gdbscm_scm_to_c_string (newvalue));
931 gdbscm_set_breakpoint_stop_x (SCM self, SCM newvalue)
937   SCM_ASSERT_TYPE (gdbscm_is_procedure (newvalue)
938 		   || gdbscm_is_false (newvalue),
939 		   newvalue, SCM_ARG2, FUNC_NAME,
962   bp_smob->stop = newvalue;