Re: [Help-smalltalk] Display context state in debugger

[Holger Hans Peter Freyther]

On Sun, Aug 25, 2013 at 08:42:10PM +0200, Holger Hans Peter Freyther wrote:
> On Wed, Aug 21, 2013 at 03:00:04PM +0200, Gwenaël Casaccio wrote:
> > Hi,
> > 
> > I've added a new command 'J' that print the context state using
> > the debug informations.

and I broke it. Can you take another look? I think numArgs/numTemproaries
and method temporaries/arguments can disagree. :}

 st> [3 halt. 'String' select: [:each | false] ] value

String(SequenceableCollection)>>do: (SeqCollect.st:822)
      1 do: aBlock [
(debug) s
(debug) s
      5         1 to: self size do: [:i | aBlock value: (self at: i)]
(debug) J
  args:
    aBlock -> a BlockClosure
  temps:
    Object: Array new: 0 "<0x404651e0>" error: Invalid index 1: index out of 
range
SystemExceptions.IndexOutOfRange(Exception)>>signal (ExcHandling.st:254)
SystemExceptions.IndexOutOfRange class>>signalOn:withIndex: (SysExcept.st:665)
Array(Object)>>checkIndexableBounds: (Object.st:798)
Array(Object)>>at: (Object.st:858)
[] in MethodContext(ContextPart)>>printVariable:at:do:on:spaces: 
(ContextPart.st:102)
Array(Object)>>ifNil:ifNotNil: (Object.st:146)
MethodContext(ContextPart)>>printVariable:at:do:on:spaces: (ContextPart.st:102)
MethodContext(ContextPart)>>printTemporariesOn:spaces: (ContextPart.st:120)
MethodContext(ContextPart)>>printContextStateOn:spaces: (ContextPart.st:138)
MethodContext(ContextPart)>>printContextState (ContextPart.st:84)
MiniDebugger>>printContextState (Debugger.star#VFS.ZipFile/MiniDebugger.st:341)
MiniDebugger>>doCommand (Debugger.star#VFS.ZipFile/MiniDebugger.st:281)
MiniDebugger(MiniTool)>>getCommand (Debugger.star#VFS.ZipFile/MiniTool.st:76)
MiniDebugger>>commandLoop (Debugger.star#VFS.ZipFile/MiniDebugger.st:107)
[] in MiniDebugger class>>open: (Debugger.star#VFS.ZipFile/MiniDebugger.st:56)
BlockClosure>>on:do: (BlkClosure.st:193)
[] in MiniDebugger class>>open: (Debugger.star#VFS.ZipFile/MiniDebugger.st:57)
[] in BlockClosure>>forkDebugger (DebugTools.star#VFS.ZipFile/Extensions.st:75)
[] in Process>>onBlock:at:suspend: (Process.st:412)
BlockClosure>>on:do: (BlkClosure.st:193)
[] in Process>>onBlock:at:suspend: (Process.st:413)
BlockClosure>>ensure: (BlkClosure.st:268)
[] in Process>>onBlock:at:suspend: (Process.st:391)
[] in BlockClosure>>asContext: (BlkClosure.st:179)
BlockContext class>>fromClosure:parent: (BlkContext.st:68)