rbx-trepanning 0.0.8-universal-rubinius-1.2 → 0.1.0-universal-rubinius-1.2

data/processor/disassemble.rb

@@ -1,46 +1,59 @@
 # Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../app/iseq'
+require_relative 'virtual'
 
-class Trepan
-  class CmdProcessor
+class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
 
-    def show_bytecode(line=@frame.vm_location.line)
-      meth = @frame.method
+  def show_bytecode(line=@frame.vm_location.line, ip=@frame.next_ip)
+    meth = @frame.method
+    if 0 == line 
+      start, fin = Trepan::ISeq::ip_ranges_for_ip(@frame.method.lines, ip)[0]
+    else
       start = meth.first_ip_on_line(line)
-      fin = meth.first_ip_on_line(line+1)
-
-      if !fin || fin == -1
-        fin = meth.iseq.size
-      end
-
-      start += 1 if start == -1
-      section "Bytecode between #{start} and #{fin-1} for line #{line}"
-
-      iseq_decoder = Rubinius::InstructionDecoder.new(meth.iseq)
-      partial = iseq_decoder.decode_between(start, fin)
-
-      ip = start
-
-      prefixes = []
-      disasm = partial.inject('') do |result, ins|
-        inst = Rubinius::CompiledMethod::Instruction.new(ins, meth, ip)
-        prefixes << ISeq::disasm_prefix(ip, frame.next_ip, meth)
-        ip += ins.size
-        result += "#{inst}\n"
+      unless start
+        errmsg "Can't find bytecode for line #{line}"
+        return
       end
-
-      # FIXME DRY with command/disassemble.rb
-      if @settings[:highlight]
-        require_relative '../app/rbx-llvm'
-        @llvm_highlighter = CodeRay::Duo[:llvm, :term]
-        # llvm_scanner = CodeRay.scanner :llvm
-        # p llvm_scanner.tokenize(disasm)
-        disasm = @llvm_highlighter.encode(disasm)
-      end
-      disasm.split("\n").each_with_index do |inst, i|
-        msg "#{prefixes[i]} #{inst}", :unlimited => true
+      fin = meth.first_ip_on_line(line+1)
+    end
+    
+    if !fin || fin == -1
+      fin = meth.iseq.size
+    end
+    
+    start += 1 if start == -1
+    suffix = 
+      if 0 == line 
+        "tail code before line #{Trepan::ISeq::tail_code_line(meth, ip)}"
+      else
+        "line #{line}"
       end
+    section "Bytecode between #{start} and #{fin-1} for line #{suffix}"
+    
+    iseq_decoder = Rubinius::InstructionDecoder.new(meth.iseq)
+    partial = iseq_decoder.decode_between(start, fin)
+    
+    ip = start
+    
+    prefixes = []
+    disasm = partial.inject('') do |result, ins|
+      inst = Rubinius::CompiledMethod::Instruction.new(ins, meth, ip)
+      prefixes << Trepan::ISeq::disasm_prefix(ip, frame.next_ip, meth)
+      ip += ins.size
+      result += "#{inst}\n"
+    end
+    
+    # FIXME DRY with command/disassemble.rb
+    if @settings[:highlight]
+      require_relative '../app/rbx-llvm'
+      @llvm_highlighter = CodeRay::Duo[:llvm, :term]
+      # llvm_scanner = CodeRay.scanner :llvm
+      # p llvm_scanner.tokenize(disasm)
+      disasm = @llvm_highlighter.encode(disasm)
+    end
+    disasm.split("\n").each_with_index do |inst, i|
+      msg "#{prefixes[i]} #{inst}", :unlimited => true
     end
   end
 end

data/processor/display.rb

@@ -1,14 +1,49 @@
 # Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../app/display'
+require_relative 'virtual'
 class Trepan
-  class CmdProcessor
+  class CmdProcessor < VirtualCmdProcessor
     attr_reader   :displays
-
+    
     def display_initialize
       @displays = DisplayMgr.new
     end
-
+    
+    def display_find(num, show_errmsg = true)
+      if 0 == @displays.size 
+        errmsg('No display expressions set.') if show_errmsg
+        return nil
+      elsif num > @displays.max || num < 1
+        errmsg('Display number %d is out of range 1..%d' %
+               [num, @displays.max]) if show_errmsg
+        return nil
+      end
+      disp = @displays[num]
+      if disp
+        return disp
+      else
+        errmsg('Display number %d previously deleted.' %
+               num) if show_errmsg
+        return nil
+      end
+    end
+    
+    # Enable or disable a breakpoint given its breakpoint number.
+    def en_disable_display_by_number(num, do_enable=true)
+      disp = display_find(num)
+      return false unless disp
+      
+      enable_disable = do_enable ? 'en' : 'dis'
+      if disp.enabled? == do_enable
+        errmsg('Display %d previously %sabled.' % 
+               [num, enable_disable])
+        return false
+      end
+      disp.enabled = do_enable
+      return true
+    end
+    
     def run_eval_display(args={})
       for line in @displays.display(@frame) do 
         msg(line)

data/processor/eval.rb

@@ -1,66 +1,67 @@
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
-class Trepan
-  class CmdProcessor
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'
+require 'require_relative'
+require_relative 'virtual'
+class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
 
-    def debug_eval(str, max_fake_filename=15)
-      begin
-        debug_eval_with_exception(str, max_fake_filename)
-      rescue SyntaxError, StandardError, ScriptError => e
-        exception_dump(e, @settings[:stack_trace_on_error], $!.backtrace)
-        nil
-      end
-    end
-
-    def debug_eval_with_exception(str, max_fake_filename=15)
-      @frame.run(str, fake_eval_filename(str, max_fake_filename))
+  def debug_eval(str, max_fake_filename=15)
+    begin
+      debug_eval_with_exception(str, max_fake_filename)
+    rescue SyntaxError, StandardError, ScriptError => e
+      exception_dump(e, @settings[:stack_trace_on_error], $!.backtrace)
+      nil
     end
-
-    def debug_eval_no_errmsg(str, max_fake_filename=15)
-      begin
-        debug_eval_with_exception(str, max_fake_filename)
-      rescue SyntaxError, StandardError, ScriptError => e
-        nil
-      end
+  end
+  
+  def debug_eval_with_exception(str, max_fake_filename=15)
+    @frame.run(str, fake_eval_filename(str, max_fake_filename))
+  end
+  
+  def debug_eval_no_errmsg(str, max_fake_filename=15)
+    begin
+      debug_eval_with_exception(str, max_fake_filename)
+    rescue SyntaxError, StandardError, ScriptError => e
+      nil
     end
-
-    def eval_code(str, max_fake_filename)
-      obj = debug_eval(str, max_fake_filename)
-      
-      idx = @user_variables
-      @user_variables += 1
-      
-      str = "$d#{idx}"
-      Rubinius::Globals[str.to_sym] = obj
-      msg "#{str} = #{obj.inspect}"
-      obj
+  end
+  
+  def eval_code(str, max_fake_filename)
+    obj = debug_eval(str, max_fake_filename)
+    
+    idx = @user_variables
+    @user_variables += 1
+    
+    str = "$d#{idx}"
+    Rubinius::Globals[str.to_sym] = obj
+    msg "#{str} = #{obj.inspect}"
+    obj
+  end
+  
+  def exception_dump(e, stack_trace, backtrace)
+    str = "#{e.class} Exception:\n\t#{e.message}"
+    if stack_trace
+      str += "\n" + backtrace.map{|l| "\t#{l}"}.join("\n") rescue nil
     end
-
-    def exception_dump(e, stack_trace, backtrace)
-      str = "#{e.class} Exception:\n\t#{e.message}"
-      if stack_trace
-        str += "\n" + backtrace.map{|l| "\t#{l}"}.join("\n") rescue nil
+    msg str
+    # throw :debug_error
+  end
+  
+  def fake_eval_filename(str, maxlen = 15)
+    fake_filename = 
+      if maxlen < str.size
+        # FIXME: Guard against \" in positions 13..15?
+        str.inspect[0..maxlen-1] + '"...'
+      else
+        str.inspect
       end
-      msg str
-      # throw :debug_error
-    end
-
-    def fake_eval_filename(str, maxlen = 15)
-      fake_filename = 
-        if maxlen < str.size
-          # FIXME: Guard against \" in positions 13..15?
-          str.inspect[0..maxlen-1] + '"...'
-        else
-          str.inspect
-        end
-      "(eval #{fake_filename})"
-    end
-    
+    "(eval #{fake_filename})"
   end
+  
 end
 
 if __FILE__ == $0
   # Demo it.
-  cmdp = Trepan::CmdProcessor.new
+  cmdp = Trepan::CmdProcessor.new([])
   puts cmdp.fake_eval_filename('x = 1; y = 2')
   puts cmdp.fake_eval_filename('x = 1; y = 2', 7)
   def cmdp.errmsg(msg)

data/processor/eventbuf.rb

@@ -5,86 +5,86 @@
 require 'rubygems'; require 'require_relative'
 require 'linecache'
 require_relative '../app/eventbuffer'
+require_relative 'virtual'
 
-class Trepan
-  class CmdProcessor
+class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
 
-    attr_reader :eventbuf
-    attr_reader :event_tracefilter
-
-    def eventbuf_initialize(size=100)
-      @eventbuf = Trace::EventBuffer.new(size)
-      # @event_tracefilter = Trace::Filter.new
-    end
-    
-    # def event_processor(event, frame, arg=nil)
-    #   @eventbuf.append(event, frame, arg)
-    # end
-
-    # Print event buffer entries from FROM up to TO try to stay within
-    # WIDTH. We show source lines only the first time they are
-    # encountered. Also we use separators to indicate points that the
-    # debugger has stopped at.
-    def eventbuf_print(from=nil, to=nil, width=80)
-      sep = '-' * ((width - 7) / 2)
-      last_container, last_location = nil, nil
-      if from == nil || !@eventbuf.marks[-1] 
-        mark_index = 0
-      else
-        mark_index = @eventbuf.marks.size-1
-        translated_from = @eventbuf.zero_pos + from
-        @eventbuf.marks.each_with_index do
-          |m, i|
-          if m > translated_from
-            mark_index = [0, i-1].max
-            break
-          elsif m == translated_from
-            mark_index = i
-            break
-          end
+  attr_reader :eventbuf
+  attr_reader :event_tracefilter
+  
+  def eventbuf_initialize(size=100)
+    @eventbuf = Trace::EventBuffer.new(size)
+    # @event_tracefilter = Trace::Filter.new
+  end
+  
+  # def event_processor(event, frame, arg=nil)
+  #   @eventbuf.append(event, frame, arg)
+  # end
+  
+  # Print event buffer entries from FROM up to TO try to stay within
+  # WIDTH. We show source lines only the first time they are
+  # encountered. Also we use separators to indicate points that the
+  # debugger has stopped at.
+  def eventbuf_print(from=nil, to=nil, width=80)
+    sep = '-' * ((width - 7) / 2)
+    last_container, last_location = nil, nil
+    if from == nil || !@eventbuf.marks[-1] 
+      mark_index = 0
+    else
+      mark_index = @eventbuf.marks.size-1
+      translated_from = @eventbuf.zero_pos + from
+      @eventbuf.marks.each_with_index do
+        |m, i|
+        if m > translated_from
+          mark_index = [0, i-1].max
+          break
+        elsif m == translated_from
+          mark_index = i
+          break
         end
       end
-
-      nextmark = @eventbuf.marks[mark_index]
-      @eventbuf.each_with_index(from, to) do |e, i| 
-        if nextmark 
-          if nextmark == i
-            msg "#{sep} %5d #{sep}" % (mark_index - @eventbuf.marks.size)
-            mark_index += 1 if mark_index < @eventbuf.marks.size - 1
-            nextmark = @eventbuf.marks[mark_index]
-          elsif nextmark < i
-            mark_index += 1 if mark_index < @eventbuf.marks.size - 1
-            nextmark = @eventbuf.marks[mark_index]
-          end
+    end
+    
+    nextmark = @eventbuf.marks[mark_index]
+    @eventbuf.each_with_index(from, to) do |e, i| 
+      if nextmark 
+        if nextmark == i
+          msg "#{sep} %5d #{sep}" % (mark_index - @eventbuf.marks.size)
+          mark_index += 1 if mark_index < @eventbuf.marks.size - 1
+          nextmark = @eventbuf.marks[mark_index]
+        elsif nextmark < i
+          mark_index += 1 if mark_index < @eventbuf.marks.size - 1
+          nextmark = @eventbuf.marks[mark_index]
         end
-        last_container, last_location, mess = 
-          format_eventbuf_entry(e, last_container, last_location) if e
-        msg mess
       end
+      last_container, last_location, mess = 
+        format_eventbuf_entry(e, last_container, last_location) if e
+      msg mess
     end
-
-    # Show event buffer entry. If the location is the same as the previous
-    # location we don't show the duplicated location information.
-    def format_eventbuf_entry(item, last_container, last_location)
-      mess = format_location(item.event, item.frame, 0)
-      return nil, nil, mess
-    end
-      
-    # FIXME: multiple hook mechanism needs work. 
-    # def start_capture
-    #   @event_tracefilter.add_trace_func(method(:event_processor).to_proc,
-    #                                     Trace::DEFAULT_EVENT_MASK)
-    # end
-
-    # def stop_capture
-    #   @event_tracefilter.set_trace_func(nil)
-    # end
-
   end
+  
+  # Show event buffer entry. If the location is the same as the previous
+  # location we don't show the duplicated location information.
+  def format_eventbuf_entry(item, last_container, last_location)
+    mess = format_location(item.event, item.frame, 0)
+    return nil, nil, mess
+  end
+  
+  # FIXME: multiple hook mechanism needs work. 
+  # def start_capture
+  #   @event_tracefilter.add_trace_func(method(:event_processor).to_proc,
+  #                                     Trace::DEFAULT_EVENT_MASK)
+  # end
+  
+  # def stop_capture
+  #   @event_tracefilter.set_trace_func(nil)
+  # end
+  
 end
+
 if __FILE__ == $0
   # Demo it.
-  cmdproc = Trepan::CmdProcessor.new
+  cmdproc = Trepan::CmdProcessor.new([])
   cmdproc.eventbuf_initialize(5)
 
   def cmdproc.msg(mess)

data/processor/frame.rb

@@ -3,209 +3,208 @@ require 'rubygems'; require 'require_relative'
 require_relative '../app/complete'
 require_relative '../app/frame'
 require_relative '../app/util'
-class Trepan
-  class CmdProcessor
-
-    include Util
-    attr_reader   :current_thread
-
-    # ThreadFrame, current frame
-    attr_accessor :frame
-
-    # frame index in a "backtrace" command
-    attr_accessor :frame_index
-    attr_reader   :hide_level
-
-    # Hash[thread_id] -> FixNum, the level of the last frame to
-    # show. If we called the debugger directly, then there is
-    # generally a portion of a backtrace we don't want to show. We
-    # don't need to store this for all threads, just those we want to
-    # hide frame on. A value of 1 means to hide just the oldest
-    # level. The default or showing all levels is 0.
-    attr_accessor :hidelevels
-
-    # Hash[container] -> file container. This gives us a way to map non-file
-    # container objects to a file container for display.
-    attr_accessor :remap_container
+require_relative 'virtual'
+class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
+
+  include Trepan::Util
+  attr_reader   :current_thread
+
+  # ThreadFrame, current frame
+  attr_accessor :frame
+  
+  # frame index in a "backtrace" command
+  attr_accessor :frame_index
+  attr_reader   :hide_level
+
+  # Hash[thread_id] -> FixNum, the level of the last frame to
+  # show. If we called the debugger directly, then there is
+  # generally a portion of a backtrace we don't want to show. We
+  # don't need to store this for all threads, just those we want to
+  # hide frame on. A value of 1 means to hide just the oldest
+  # level. The default or showing all levels is 0.
+  attr_accessor :hidelevels
+
+  # Hash[container] -> file container. This gives us a way to map non-file
+  # container objects to a file container for display.
+  attr_accessor :remap_container
+  
+  attr_accessor :stack_size
+  
+  # top frame of current thread.
+  attr_accessor :top_frame       
+  # attr_reader   :threads2frames  # Hash[thread_id] -> top_frame
     
-    attr_accessor :stack_size
-
-    # top frame of current thread.
-    attr_accessor :top_frame       
-    # attr_reader   :threads2frames  # Hash[thread_id] -> top_frame
-    
-
-    def adjust_frame(frame_num, absolute_pos)
-      frame, frame_num = get_frame(frame_num, absolute_pos)
-      if frame 
-        @frame = @dbgr.frame(frame_num)
-        @frame_index = frame_num
-        print_location unless @settings[:traceprint]
-        @line_no = @frame.line
-        @frame
-      else
-        nil
-      end
-    end
 
-    def frame_low_high(direction)
-      if direction
-        low, high = [ @frame_index * -direction, 
-                      (@stack_size - 1 - @frame_index) * direction ]
-        low, high = [high, low] if direction < 0
-        [low, high]
-      else
-        [-@stack_size, @stack_size-1]
+  def adjust_frame(frame_num, absolute_pos)
+    frame, frame_num = get_frame(frame_num, absolute_pos)
+    if frame 
+      @frame = @dbgr.frame(frame_num)
+      @frame_index = frame_num
+      unless @settings[:traceprint]
+        msg "--> #%d %s" % [frame_num, 
+                            @frame.describe(:show_ip => false,
+                                            :basename =>settings[:basename])]
+        print_location 
       end
+      @line_no = @frame.line
+      @frame
+    else
+      nil
     end
-
-    def frame_complete(prefix, direction)
-      low, high = frame_low_high(direction)
-      ary = (low..high).map{|i| i.to_s}
-      Trepan::Complete.complete_token(ary, prefix)
+  end
+  
+  def frame_low_high(direction)
+    if direction
+      low, high = [ @frame_index * -direction, 
+                    (@stack_size - 1 - @frame_index) * direction ]
+      low, high = [high, low] if direction < 0
+      [low, high]
+    else
+      [-@stack_size, @stack_size-1]
     end
-
-    # def frame_container(frame, canonicalize=true)
-    #   container = 
-    #     if @remap_container.member?(frame.source_container)
-    #       @remap_container[frame.source_container]
-    #     elsif frame.iseq && @remap_iseq.member?(frame.iseq.sha1)
-    #       @remap_iseq[frame.iseq.sha1]
-    #     else
-    #       frame.source_container
-    #     end
-
-    #   container[1] = canonic_file(container[1]) if canonicalize
-    #   container
-    # end
-
-    # Initializes the thread and frame variables: @frame, @top_frame, 
-    # @frame_index, @current_thread, and @threads2frames
-    def frame_setup
-      @frame_index        = 0
-      @frame = @top_frame = @dbgr.current_frame
-      @current_thread     = @dbgr.debugee_thread
-      @line_no            = @frame.line
-
-      @threads2frames   ||= {} 
-      @threads2frames[@current_thread] = @top_frame
-      set_hide_level
+  end
+  
+  def frame_complete(prefix, direction)
+    low, high = frame_low_high(direction)
+    ary = (low..high).map{|i| i.to_s}
+    Trepan::Complete.complete_token(ary, prefix)
+  end
+  
+  # def frame_container(frame, canonicalize=true)
+  #   container = 
+  #     if @remap_container.member?(frame.source_container)
+  #       @remap_container[frame.source_container]
+  #     elsif frame.iseq && @remap_iseq.member?(frame.iseq.sha1)
+  #       @remap_iseq[frame.iseq.sha1]
+  #     else
+  #       frame.source_container
+  #     end
+  
+  #   container[1] = canonic_file(container[1]) if canonicalize
+  #   container
+  # end
+  
+  # Initializes the thread and frame variables: @frame, @top_frame, 
+  # @frame_index, @current_thread, and @threads2frames
+  def frame_setup
+    @frame_index        = 0
+    @frame = @top_frame = @dbgr.current_frame
+    @current_thread     = @dbgr.debugee_thread
+    @line_no            = @frame.line
+    
+    @threads2frames   ||= {} 
+    @threads2frames[@current_thread] = @top_frame
+    set_hide_level
+  end
+  
+  # Remove access to thread and frame variables
+  def frame_teardown
+    @top_frame = @frame = @frame_index = @current_thread = nil 
+    @threads2frames = {}
+  end
+  
+  def frame_initialize
+    @remap_container = {}
+    @remap_iseq      = {}
+    @hidelevels      = Hash.new(nil) 
+    @hide_level      = 0
+  end
+  
+  def get_frame(frame_num, absolute_pos)
+    if absolute_pos
+      frame_num += @stack_size if frame_num < 0
+    else
+      frame_num += @frame_index
     end
-
-    # Remove access to thread and frame variables
-    def frame_teardown
-      @top_frame = @frame = @frame_index = @current_thread = nil 
-      @threads2frames = {}
+    
+    if frame_num < 0
+      errmsg('Adjusting would put us beyond the newest frame.')
+      return [nil, nil]
+    elsif frame_num >= @stack_size
+      errmsg('Adjusting would put us beyond the oldest frame.')
+      return [nil, nil]
     end
-
-    def frame_initialize
-      @remap_container = {}
-      @remap_iseq      = {}
-      @hidelevels      = Hash.new(nil) 
-      @hide_level      = 0
+    
+    [frame, frame_num]
+  end
+  
+  def parent_frame
+    frame = @dbgr.frame(@frame.number + 1)
+    unless frame
+      errmsg "Unable to find parent frame at level #{@frame.number+1}"
+      return nil
     end
-
-    def get_frame(frame_num, absolute_pos)
-      if absolute_pos
-        frame_num += @stack_size if frame_num < 0
+    frame
+  end
+  
+  def set_hide_level
+    max_stack_size = @dbgr.vm_locations.size
+    @hide_level = 
+      if !@settings[:hidelevel] || @settings[:hidelevel] < 0
+        @settings[:hidelevel] = @hidelevels[@current_thread] =  
+          find_main_script(@dbgr.vm_locations) || max_stack_size
       else
-        frame_num += @frame_index
-      end
-
-      if frame_num < 0
-        errmsg('Adjusting would put us beyond the newest frame.')
-        return [nil, nil]
-      elsif frame_num >= @stack_size
-        errmsg('Adjusting would put us beyond the oldest frame.')
-        return [nil, nil]
+        @settings[:hidelevel]
       end
-
-      [frame, frame_num]
-    end
-
-    def parent_frame
-      frame = @dbgr.frame(@frame.number + 1)
-      unless frame
-        errmsg "Unable to find parent frame at level #{@frame.number+1}"
-        return nil
-      end
-      frame
-    end
-
-    def set_hide_level
-      @hide_level = 
-        if !@settings[:hidelevel] || @settings[:hidelevel] < 0
-          @settings[:hidelevel] = @hidelevels[@current_thread] =  
-            find_main_script(@dbgr.vm_locations) || max_stack_size
-        else
-          @settings[:hidelevel]
-        end
-      max_stack_size = @dbgr.vm_locations.size
-      @stack_size = if @hide_level >= max_stack_size  
-                      max_stack_size else max_stack_size - @hide_level
-                    end
-    end
-      
-    # def get_nonsync_frame(tf)
-    #   if (tf.stack_size > 10)
-    #     check_frames = (0..5).map{|i| tf.prev(i).method}
-    #     if check_frames == 
-    #         %w(synchronize event_processor IFUNC call trace_hook IFUNC)
-    #       return tf.prev(6)
-    #     end
-    #   end
-    #   tf
-    # end
-
-    # def get_frame_from_thread(th)
-    #   if th == Thread.current
-    #     @threads2frames[th]
-    #   else
-    #     # FIXME: Check to see if we are blocked on entry to debugger.
-    #     # If so, walk back frames.
-    #     tf = get_nonsync_frame(th.threadframe)
-    #     @threads2frames = tf
-    #   end
-    # end
-
-    # # The dance we have to do to set debugger frame state to
-    # #    `frame', which is in the thread with id `thread_id'. We may
-    # #    need to the hide initial debugger frames.
-    # def find_and_set_debugged_frame(th, position)
-      
-    #   thread = threading._active[thread_id]
-    #   thread_name = thread.getName()
-    #   if (!@settings['dbg_pydbgr'] &&
-    #       thread_name == Mthread.current_thread_name())
-    #     # The frame we came in on ('current_thread_name') is
-    #     # the same as the one we want to switch to. In this case
-    #     # we need to some debugger frames are in this stack so 
-    #     # we need to remove them.
-    #     newframe = Mthread.find_debugged_frame(frame)
-    #     frame = newframe unless newframe
-    #   end
-    #   ## FIXME: else: we might be blocked on other threads which are
-    #   # about to go into the debugger it not for the fact this one got there
-    #   # first. Possibly in the future we want
-    #   # to hide the blocks into threading of that locking code as well. 
-      
-    #   # Set stack to new frame
-    #   @frame, @curindex = Mcmdproc.get_stack(frame, nil, self.proc)
-    #   @proc.stack, @proc.curindex = self.stack, self.curindex
-      
-    #   # @frame_thread_name = thread_name
-    # end
+    @stack_size = if @hide_level >= max_stack_size  
+                    max_stack_size else max_stack_size - @hide_level
+                  end
   end
+  
+  # def get_nonsync_frame(tf)
+  #   if (tf.stack_size > 10)
+  #     check_frames = (0..5).map{|i| tf.prev(i).method}
+  #     if check_frames == 
+  #         %w(synchronize event_processor IFUNC call trace_hook IFUNC)
+  #       return tf.prev(6)
+  #     end
+  #   end
+  #   tf
+  # end
+  
+  # def get_frame_from_thread(th)
+  #   if th == Thread.current
+  #     @threads2frames[th]
+  #   else
+  #     # FIXME: Check to see if we are blocked on entry to debugger.
+  #     # If so, walk back frames.
+  #     tf = get_nonsync_frame(th.threadframe)
+  #     @threads2frames = tf
+  #   end
+  # end
+  
+  # # The dance we have to do to set debugger frame state to
+  # #    `frame', which is in the thread with id `thread_id'. We may
+  # #    need to the hide initial debugger frames.
+  # def find_and_set_debugged_frame(th, position)
+  
+  #   thread = threading._active[thread_id]
+  #   thread_name = thread.getName()
+  #   if (!@settings['dbg_pydbgr'] &&
+  #       thread_name == Mthread.current_thread_name())
+  #     # The frame we came in on ('current_thread_name') is
+  #     # the same as the one we want to switch to. In this case
+  #     # we need to some debugger frames are in this stack so 
+  #     # we need to remove them.
+  #     newframe = Mthread.find_debugged_frame(frame)
+  #     frame = newframe unless newframe
+  #   end
+  #   ## FIXME: else: we might be blocked on other threads which are
+  #   # about to go into the debugger it not for the fact this one got there
+  #   # first. Possibly in the future we want
+  #   # to hide the blocks into threading of that locking code as well. 
+  
+  #   # Set stack to new frame
+  #   @frame, @curindex = Mcmdproc.get_stack(frame, nil, self.proc)
+  #   @proc.stack, @proc.curindex = self.stack, self.curindex
+  
+  #   # @frame_thread_name = thread_name
+  # end
 end
 
 if __FILE__ == $0
   # Demo it.
-  require_relative 'main'   # Have to include before defining CmdProcessor!
-                            # FIXME
   class Trepan::CmdProcessor
-    def errmsg(msg)
-      puts msg
-    end
     def print_location
       puts "frame location: #{frame.file} #{frame.line}"
     end