Hi Stef,
I think it is because forContext:priority: does not schedule the
process, just creates it. The debugger code steps the process but after
stepping the process is still not runnable. So the process terminate is
unnecessary; the process should not have been added to the run queue and
should juts be GCed. Since it is not the question is what refers to the
process after the test has run.
To debug, I would rewrite the test as such:
testBasic
| process debugger printedString |
process := Process
forContext: [ 20 factorial ] asContext
priority: Processor activePriority.
debugger := Smalltalk tools debugger new
process: process
controller: nil
context: context.
debugger stack expand.
self assert: debugger stack selectedIndex = 1.
printedString := OpalCompiler isActive
ifTrue: [ '[ 20 factorial ] in
DebuggerTest>>testBasic']
ifFalse: [ '[...] in DebuggerTest>>testBasic' ].
self assert: debugger stack selectedItem printString =
printedString.
debugger send.
debugger send.
self assert: debugger code getText = (Integer>>#factorial)
sourceCode.
self assert: debugger stack selectedItem printString =
'SmallInteger(Integer)>>factorial'.
^process
and then chase pointers on the result to see what is holding onto the
process. Sicne the process is never runnable there's no need to set its
priority to anything special.
However, one should also be able to replace the "process terminate" with
"process resume" to get it to run to termination (provided its priority
stays at Processor userInterruptPriority).
HTH
On Thu, Apr 3, 2014 at 10:41 AM, Pharo4Stef <pharo4s...@free.fr> wrote:
> Hi guys
>
> I need your brain cells.
>
> When I execute the test
>
> testBasic
> | context process debugger printedString |
> context := [ 20 factorial ] asContext.
>
> process := Process
> forContext: context
> priority: Processor userInterruptPriority.
>
> debugger := Smalltalk tools debugger new
> process: process
> controller: nil
> context: context.
> debugger stack expand.
>
> self assert: debugger stack selectedIndex = 1.
> printedString := OpalCompiler isActive
> ifTrue: [ '[ 20 factorial ] in
> DebuggerTest>>testBasic']
> ifFalse: [ '[...] in DebuggerTest>>testBasic' ].
> self assert: debugger stack selectedItem printString =
> printedString.
>
> debugger send.
> debugger send.
> self assert: debugger code getText = (Integer>>#factorial)
> sourceCode.
> self assert: debugger stack selectedItem printString =
> 'SmallInteger(Integer)>>factorial'.
>
> two times my image (latest get totally unusable).
> I thought that may be the process should be terminated
> so I added
>
> process terminate
>
> But nothing changes. I tried to debug the code but not chance.
> I tried self halt after [ 20 factorial ] asContext.
>
> I tried to execute the beginning in a workspace and not as a test to
> eliminate problem.
> But again no chance.
>
>
> So did I miss something obvious?
>
> Stef
>
>
>
>
>
>
--
best,
Eliot
