[ruby-dev:11265] Re: [Patch] debug.rb -- threads except the interrupted thread does not stop

なひです．

[ruby-dev:11207]でdebug.rbにcatchpoint対策を入れてもらいましたが，
catch off
の場合でも，exception発生時に，いちいちcall stackが表示される
（そして続行する）のが邪魔くさいですよね．表示しなくするpatchです．
さらに，以下の修正を行います．

- debuggeeをinterruptした時に，1つのスレッドしか止まらない．
  check_break_pointを高速化しようとして，enbugしました．m(..m

- 一部表示の修正．

	/	/	/

--- /usr/local/lib/ruby/1.6/debug.rb	Mon Oct 16 19:45:05 2000
+++ ./debug.rb	Wed Oct 18 21:07:00 2000
@@ -457,5 +457,5 @@ class DEBUGGER__
 
 	  when /^\s*p\s+/
-	    stdout.printf "%s\n", debug_eval($', binding)
+	    stdout.printf "%s\n", debug_eval($', binding).inspect
 
 	  when /^\s*h(?:elp)?$/
@@ -464,5 +464,5 @@ class DEBUGGER__
 	  else
 	    v = debug_eval(input, binding)
-	    stdout.printf "%s\n", v unless (v == nil)
+	    stdout.printf "%s\n", v.inspect unless (v == nil)
 	  end
 	end
@@ -475,5 +475,5 @@ Debugger help v.-0.002b
 Commands
   b[reak] [file|method:]<line|method>
-	                     set breakpoint to some position
+                             set breakpoint to some position
   wat[ch] <expression>       set watchpoint to some expression
   cat[ch] <an Exception>     set catchpoint to an exception
@@ -588,6 +588,5 @@ EOHELP
 
     def check_break_points(file, pos, binding, id)
-      return false if break_points.empty?
-      MUTEX.lock
+      MUTEX.lock	# Stop all threads before 'line' and 'call'.
       file = File.basename(file)
       n = 1
@@ -611,5 +610,5 @@ EOHELP
 
     def excn_handle(file, line, id, binding)
-      stdout.printf "Exception `%s': %s\n", $!.type, $!
+      stdout.printf "%s:%d: `%s' (%s)\n", file, line, $!, $!.type
       if $!.type <= SystemExit
 	set_trace_func nil
@@ -617,16 +616,14 @@ EOHELP
       end
 
-      MUTEX.lock
-      fs = @frames.size
-      tb = caller(0)[-fs..-1]
-      if tb
-	for i in tb
-	  stdout.printf "\tfrom %s\n", i
-	end
-      end
       if @catch and ($!.type.ancestors.find { |e| e.to_s == @catch })
+	MUTEX.lock
+	fs = @frames.size
+	tb = caller(0)[-fs..-1]
+	if tb
+	  for i in tb
+	    stdout.printf "\tfrom %s\n", i
+	  end
+	end
 	debug_command(file, line, id, binding)
-      else
-	MUTEX.unlock
       end
     end