[perl #57088] Tcl's [lsort] failure (aka inferior runloop problem)

[Will Coleda via RT]

On Tue Nov 11 05:33:51 2008, coke wrote:
> On Fri Jul 18 15:29:16 2008, coke wrote:
> > In trunk, partcl fails this way:
>
> partcl is no longer in trunk, but this still fails in the same way.
>
> http://code.google.com/p/partcl

This error is reproducible with the following command line:

$ ./tclsh -e 'lsort -integer {10 10.2}'
expected integer but got "10.2"
attempt to access code outside of current code segment

--
Will "Coke" Coleda
_______________________________________________
http://lists.parrot.org/mailman/listinfo/parrot-dev

[Will Coleda via RT]

On Thu Nov 20 06:51:59 2008, coke wrote:
> On Tue Nov 11 05:33:51 2008, coke wrote:
> > On Fri Jul 18 15:29:16 2008, coke wrote:
> > > In trunk, partcl fails this way:
> >
> > partcl is no longer in trunk, but this still fails in the same way.
> >
> > http://code.google.com/p/partcl
>
> This error is reproducible with the following command line:
>
> $ ./tclsh -e 'lsort -integer {10 10.2}'
> expected integer but got "10.2"
> attempt to access code outside of current code segment
>

Here is a sample that shows the problem with no actual tcl involved:

$ cat tclsh.pir
.sub _main :main
.param pmc argv

load_bytecode 'tcllib.pir'

push_eh file_error
$P1 = find_name '&lsort'
$P1()
file_error:
pop_eh
.end
$ cat tcllib.pir
.sub '&lsort'
.local pmc compare
compare = find_name 'intlike'

$P0 = new 'ResizablePMCArray'
$P0[0] = 1
$P0[1] = 1

$P0.'sort'(compare)
.end

.sub 'intlike'
die 'expected foo'
.end
$ ../../parrot tclsh.pir

[Will Coleda via RT]

On Wed Aug 12 21:15:22 2009, coke wrote:
> With recent commits to partcl, six test files are now exhibiting this
> behavior.

NotFound++ just pointed out that if you replace the 'end' with 'exit 0',
the error goes away.

Partcl has updated to explicitly use exit instead of end, "All tests
successful.".

NotFound++

Leaving this ticket open as the original issue (leaving parrot via
'end') still exhibits the old behavior.

[Will Coleda via RT]

On Sun Aug 30 16:32:42 2009, coke wrote:
> On Wed Aug 12 21:15:22 2009, coke wrote:
> > With recent commits to partcl, six test files are now exhibiting this
> > behavior.
>
> NotFound++ just pointed out that if you replace the 'end' with 'exit 0',
> the error goes away.
>
> Partcl has updated to explicitly use exit instead of end, "All tests
> successful.".
>
> NotFound++
>
> Leaving this ticket open as the original issue (leaving parrot via
> 'end') still exhibits the old behavior.

This issue is now being tracked at
https://trac.parrot.org/parrot/ticket/1034