Potential Label bug

[p6rt]

Migrated from rt.perl.org#125264 (status was 'new')

Searchable as RT125264$

[p6rt]

From @drforr

Not easily repeatable, but executing the attached files against libreadline.so.6.3 *can* result in this fairly ugly moarvm stacktrace​:

This is perl6 version 2015.05-47-g802983e built on MoarVM version 2015.05

--cut here-- ok 2 - keymap   ok 1 - rl-bind-key-in-map lives   ok 2 - rl-bind-key-if-unbound-in-map lives   ok 3 - rl-bind-keyseq-in-map lives   ok 4 - rl-bind-keyseq-if-unbound-in-map lives   ok 5 - rl-macro-bind lives   1..5   ok 1 - bind keymaps   ok 2 - rl-bind-key lives Unhandled exception​: Label with no handler passed to newlexotic   at src/gen/m-CORE.setting​:17011
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​:MATCH_SAVE​:0)   from src/gen/m-CORE.setting​:17250
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​:ACCEPTS​:54)   from src/gen/m-CORE.setting​:14928
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​::221)   from src/gen/m-CORE.setting​:14903
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​:EXCEPTION​:42)   from \​:1
(/home/jeffreygoff/.rakudobrew/moar-nom/install/share/perl6/r untime/CORE.setting.moarvm​::20)   from \​:1
(/home/jeffreygoff/.rakudobrew/moar-nom/install/share/perl6/r untime/CORE.setting.moarvm​:MATCH_SAVE​:4294967295)   from src/gen/m-CORE.setting​:17250
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​:ACCEPTS​:54)   from src/gen/m-CORE.setting​:14928
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​::221)   from src/gen/m-CORE.setting​:14903
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​:EXCEPTION​:42)   from src/gen/m-CORE.setting​:14986
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​::31)   from src/gen/m-CORE.setting​:14985
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​:print_exception​:38)   from src/gen/m-CORE.setting​:15042
(/home/jeffreygoff/.rakudobrew/moar-nom/inst all/share/perl6/runtime/CORE.setting.moarvm​:\​:40)   from gen/moar/stage2/NQPHLL.nqp​:1420
(/home/jeffreygoff/.rakudobrew/moar-nom/i nstall/share/nqp/lib/NQPHLL.moarvm​:command_eval​:380)   from src/Perl6/Compiler.nqp​:59
(/home/jeffreygoff/.rakudobrew/moar-nom/install /share/nqp/lib/Perl6/Compiler.moarvm​:command_eval​:93)   from gen/moar/stage2/NQPHLL.nqp​:1360
(/home/jeffreygoff/.rakudobrew/moar-nom/i nstall/share/nqp/lib/NQPHLL.moarvm​:command_line​:116)   from src/gen/m-main.nqp​:39
(/home/jeffreygoff/.rakudobrew/moar-nom/install/sha re/perl6/runtime/perl6.moarvm​:MAIN​:18)   from src/gen/m-main.nqp​:35
(/home/jeffreygoff/.rakudobrew/moar-nom/install/sha re/perl6/runtime/perl6.moarvm​:\​:197)   from \​:1
(/home/jeffreygoff/.rakudobrew/moar-nom/install/share/perl6/r untime/perl6.moarvm​:\

​:8)   from \​:1
(/home/jeffreygoff/.rakudobrew/moar-nom/install/share/perl6/r untime/perl6.moarvm​:\​:9) --cut here--

[p6rt]

From @drforr

Readline.pm

[p6rt]

From @drforr

use v6;

use Readline; use Test;

plan 15;

my $r = Readline.new;

subtest sub {   my $history = 'foo';   my $HISTORY-STATE;   my $timestamp = '2015-01-01 00​:00​:00';   my $index = 0;   my $HIST-ENTRY;   my $line = 'foo';   my $data = 'foo data';   my $dir = 0;   my $filename = 'doesnt-exist.txt';   my ( $from, $to ) = ( 1, 2 );   lives-ok { $r.using-history },   'using-history lives';   lives-ok { $r.add-history( $history ) },   'add-history lives';   lives-ok { $HISTORY-STATE = $r.history-get-history-state },   'history-get-history-state lives';   lives-ok { $r.history-set-history-state( $HISTORY-STATE ) },   'history-set-history-state lives';   lives-ok { $r.add-history-time( $timestamp ) },   'add-history-time lives';   lives-ok { $HIST-ENTRY = $r.remove-history( $index ) };   'remove-history lives';   lives-ok { my $rv = $r.free-history-entry( $HIST-ENTRY ) },   'free-history-entry lives';   lives-ok { my $HIST-ENTRY = $r.replace-history-entry( $index, $line, $data ) },   'replace-history-entry lives';   lives-ok { $r.clear-history };   'clear-history lives';   subtest sub {   lives-ok { $r.history-is-stifled },   'history-is-stifled lives';   lives-ok { $r.stifle-history( 0 ) },   'stifle-history lives';   lives-ok { $r.unstifle-history },   'unstifle-history lives';   }, 'Stifling';

  #   # The next few calls don't like having an empty history list, fill it.   #   $r.add-history( $history );   lives-ok { my @​rv = $r.history-list },   'history-list lives';   lives-ok { my $index = $r.where-history },   'where-history lives';   lives-ok { my $HIST-ENTRY = $r.current-history( $index ) },   'current-history lives';   lives-ok { my $HIST-ENTRY = $r.history-get( $index ) },   'history-get lives';   lives-ok { my $rv = $r.history-get-time( $HIST-ENTRY ) },   'history-get-time lives';   lives-ok { my $size = $r.history-total-bytes },   'history-total-bytes lives';   lives-ok { my $rv = $r.history-set-pos( $index ) },   'history-set-pos lives';   lives-ok { my $HIST-ENTRY = $r.next-history },   'next-history lives';   lives-ok { my $HIST-ENTRY = $r.previous-history },   'previous-history lives'; # lives-ok { my $rv = $r.history-search( $line, $index ) }, # 'history-search lives'; # lives-ok { my $rv = $r.history-search-prefix( $line, $index ) }, # 'history-search-prefix lives'; # lives-ok { my $rv = $r.history-search-pos( $line, $index, $dir ) }, # 'history-search-pos lives'; # lives-ok { my $rv = $r.read-history( $filename ) }, # 'read-history lives'; # lives-ok { my $rv = $r.read-history-range( $filename, $from, $to ) }, # 'read-history-range lives'; ### lives-ok { my $rv = $r.write-history( Str $filename ) }, ### 'write-history lives'; ### lives-ok { my $rv = $r.append-history( $offset, $filename ) }; ### 'append-history lives'; ### lives-ok { my $rv = $r.history-truncate-file( $filename, $nLines ) }, ### 'history-truncate-file lives'; ## lives-ok { my $rv = $r.history-expand( $string, Pointer[Str] $output ) returns Int }; # lives-ok { my $rv = $r.history-arg-extract( $from, $to, $line ) }, # 'history-arg-extract lives'; ## lives-ok { my $rv = $r.get-history-event( Str $string, Pointer[Int] $cIndex, Str $delimiting-quote ) returns Str }; # XXX fix later ## lives-ok { my $rv = $r.history-tokenize( Str $string ) returns CArray[Str] }; # XXX fix later }, 'history';

subtest sub {   my $keymap;   my $name = 'emacs';   lives-ok { $keymap = $r.rl-make-bare-keymap },   'rl-make-bare-keymap lives';   lives-ok { my $copy-keymap = $r.rl-copy-keymap( $keymap ) },   'rl-copy-keymap lives';   lives-ok { my $keymap = $r.rl-make-keymap },   'rl-make-keymap lives';   lives-ok { $r.rl-discard-keymap( $keymap ) },   'rl-discard-keymap lives';   lives-ok { $r.rl-free-keymap( $keymap ) },   'rl-free-keymap lives';   lives-ok { my $keymap = $r.rl-get-keymap-by-name( $name ) },   'rl-get-keymap-by-name lives';   lives-ok { my $keymap = $r.rl-get-keymap },   'rl-get-keymap lives';   lives-ok { my $name = $r.rl-get-keymap-name( $keymap ) },   'rl-get-keymap-name lives';   lives-ok { $r.rl-set-keymap( $keymap ) },   'rl-set-keymap lives'; }, 'keymap';

#subtest sub { # lives-ok { $r.rl-callback-handler-install( Str $prompt, &callback (Str) ) }; # lives-ok { $r.rl-callback-read-char }; # lives-ok { $r.rl-callback-handler-remove }; #}, 'callback';

subtest sub {   my $key = 'x';   sub my-callback( Int $a, Int $b ) returns Int { }   my $keyseq = 'xx';   my $line = 'foo';   subtest sub {   my $keymap = $r.rl-make-bare-keymap;   my $index = 0;   my $macro = 'xx';   lives-ok { my $rv = $r.rl-bind-key-in-map( $key, &my-callback, $keymap ) },   'rl-bind-key-in-map lives';   lives-ok { my $rv = $r.rl-bind-key-if-unbound-in-map(   $key, &my-callback, $keymap ) },   'rl-bind-key-if-unbound-in-map lives';   lives-ok { my $rv = $r.rl-bind-keyseq-in-map(   $keyseq, &my-callback, $keymap ) },   'rl-bind-keyseq-in-map lives';   lives-ok { my $rv = $r.rl-bind-keyseq-if-unbound-in-map(   $keyseq, &my-callback, $keymap ) },   'rl-bind-keyseq-if-unbound-in-map lives'; # lives-ok { my $rv = $r.rl-generic-bind( $index, $keyseq, $line, $keymap ) }, # 'rl-generic-bind lives';   lives-ok { my $rv = $r.rl-macro-bind( $keyseq, $macro, $keymap ) },   'rl-macro-bind lives';   }, 'bind keymaps';   lives-ok { my $rv = $r.rl-bind-key( $key, &my-callback ) },   'rl-bind-key lives';   lives-ok { my $rv = $r.rl-bind-key-if-unbound( $key, &my-callback ) },   'rl-bind-key-if-unbound lives';   lives-ok { my $rv = $r.rl-bind-keyseq( $keyseq, &my-callback ) },   'rl-bind-keyseq lives';   lives-ok { my $rv = $r.rl-bind-keyseq-if-unbound( $keyseq, &my-callback ) },   'rl-bind-keyseq-if-unbound lives';   lives-ok { my $rv = $r.rl-parse-and-bind( $line ) },   'rl-parse-and-bind lives'; }, 'bind';

subtest sub {   my $key = 'x';   my $keymap = $r.rl-make-bare-keymap;   sub my-callback( Int $a, Int $b ) returns Int { }   lives-ok { my $rv = $r.rl-unbind-key( $key ) },   'rl-unbind-key lives'; # lives-ok { my $rv = $r.rl-unbind-key-in-map( $key, $keymap ) }, # XXX segfaults # 'rl-unbind-key-in-map lives';   lives-ok { my $rv = $r.rl-unbind-function-in-map( &my-callback, $keymap ) },   'rl-unbind-function-in-map lives'; ; }, 'unbind';

subtest sub {   my $prompt = 'readline$ ';   lives-ok { my $rv = $r.rl-set-prompt( $prompt ) },   'rl-set-prompt lives';   lives-ok { my $rv = $r.rl-expand-prompt( $prompt ) },   'rl-expand-prompt lives'; # lives-ok { my $rv = $r.rl-on-new-line-with-prompt }; # XXX floating-point   lives-ok { $r.rl-save-prompt },   'rl-save-prompt lives';   lives-ok { $r.rl-restore-prompt },   'rl-restore-prompt lives'; }, 'prompt';

subtest sub {   my $readable = False; # lives-ok { $r.rl-function-dumper( $readable ) }; # XXX segfaults # lives-ok { $r.rl-macro-dumper( $readable ) }; # XXX segfaults # lives-ok { $r.rl-variable-dumper( $readable ) }; # XXX segfaults }, 'dumpers';

subtest sub {   my $username = 'jgoff';   my $filename = 'sample.txt';   my $index = 0; # lives-ok { my $rv = $r.rl-username-completion-function( $username, $index ) }; # XXX doesn't exist? }; # lives-ok { my $rv = $r.rl-filename-completion-function ( $filename, $index ) returns Str # XXX Doesn't exist? }; # lives-ok { my $rv = $r.rl-completion-mode( Pointer[&callback (Int, Int --> Int)] $cfunc ) returns Int }; }, 'completion';

subtest sub {   my $str = 'foo';   my $filename = 'test.txt';   my $src-offset;   my ( $offset, $p-offset ) = ( 0, \$src-offset );   lives-ok { my $rv = $r.tilde-expand( $str ) },   'tilde-expand lives';   lives-ok { my $rv = $r.tilde-expand-word( $filename ) },   'tilde-expand-word lives'; # lives-ok { my $rv = $r.tilde-find-word( $str, $offset, $p-offset ) }; # XXX Wrap the pointer }, 'tilde';

subtest sub {   my $meta-flag = 1; # XXX Fix the type   my $terminal-name = 'vt100';   lives-ok { $r.rl-prep-terminal( $meta-flag ) },   'rl-prep-terminal lives';   lives-ok { $r.rl-deprep-terminal },   'rl-deprep-terminal lives';   lives-ok { my $rv = $r.rl-reset-terminal( $terminal-name ) },   'rl-reset-terminal'; # lives-ok { $r.rl-resize-terminal }; # XXX segfaults }, 'terminal';

subtest sub {   lives-ok { my $rv = $r.rl-reset-line-state },   'rl-reset-line-state lives'; # lives-ok { $r.rl-free-line-state }; # lives-ok { my $rv = $r.rl-save-state( readline_state $sp ) }; # lives-ok { my $rv = $r.rl-restore-state( readline_state $sp ) }; }, 'state';

subtest sub {   lives-ok { $r.rl-free-undo-list },   'rl-free-undo-list lives';   lives-ok { my $rv = $r.rl-do-undo },   'rl-do-undo lives';   lives-ok { my $rv = $r.rl-begin-undo-group },   'rl-begin-undo-group lives';   lives-ok { my $rv = $r.rl-end-undo-group },   'rl-end-undo-group lives'; }, 'undo';

#subtest sub { # lives-ok { my $rv = $r.rl-function-of-keyseq( Str $keyseq, Keymap $map, Pointer[Int] $type ) returns &callback (Int, Int --> Int) }; # lives-ok { my $rv = $r.rl-invoking-keyseqs-in-map( Pointer[&callback (Int, Int --> Int)] $p-cmd, Keymap $map ) returns CArray[Str] }; # lives-ok { my $rv = $r.rl-invoking-keyseqs( Pointer[&callback (Int, Int --> Int)] $p-cmd ) returns CArray[Str] }; #}, 'keyseq';

subtest sub {   my $name = 'foo';   sub my-callback( Int, Int ) returns Int { }; # lives-ok { $r.rl-list-funmap-names }; # XXX segfaults   lives-ok { my $rv = $r.rl-add-funmap-entry( $name, &my-callback ) },   'rl-add-funmap-entry lives';   lives-ok { my @​rv = $r.rl-funmap-names },   'rl-funmap-names lives'; }, 'funmap';

subtest sub {   my ( $rows, $cols ) = ( 80, 24 );   lives-ok { $r.rl-set-screen-size( $rows, $cols ) },   'rl-set-screen-size'; # lives-ok { my $rv = $r.rl-get-screen-size( Pointer[Int] $rows, Pointer[Int] $cols ) }; # XXX Rewrite # lives-ok { $r.rl-reset-screen-size }; # XXX segfaults }, 'screen';

subtest sub {   my $text = 'food';   my ( $start, $end ) = ( 1, 2 );   lives-ok { my $rv = $r.rl-insert-text( $text ) },   'rl-insert-text lives';   lives-ok { my $rv = $r.rl-delete-text( $start, $end ) },   'rl-delete-text lives';   lives-ok { my $rv = $r.rl-kill-text( $start, $end ) },   'rl-kill-text lives';   lives-ok { my $rv = $r.rl-copy-text( $start, $end ) },   'rl-copy-text lives'; }, 'text';

# # These tests apparently mess with terminal settings. They pass, though. # #subtest sub { # lives-ok { my $rv = $r.rl-set-signals }, 'rl-set-signals lives'; # lives-ok { my $rv = $r.rl-clear-signals }, 'rl-clear-signals lives'; # lives-ok { $r.rl-cleanup-after-signal }, 'rl-cleanup-after-signal lives'; # lives-ok { $r.rl-reset-after-signal }, 'rl-reset-after-signal lives'; #}, 'signal';

subtest sub { ### lives-ok { my $rv = $r.readline( Str $prompt ) returns Str }; # lives-ok { my $rv = $r.rl-initialize }; ### lives-ok { my $rv = $r.rl-ding }; # XXX Don't annoy the user. # lives-ok { my $rv = $r.rl-add-defun( Str $str, &callback (Int, Int --> Int), Str $key ) returns Int }; # lives-ok { my $rv = $r.rl-variable-value( Str $variable ) returns Str }; # lives-ok { $r.rl-set-key( Str $str, &callback (Int, Int --> Int), Keymap $map ) }; # lives-ok { my $rv = $r.rl-named-function( Str $s ) returns &callback (Int, Int --> Int) };   my $filename = 'doesnt-exist.txt';   my $macro = 'xx';   my ( $start, $end ) = ( 1, 2 );   lives-ok { $r.rl-read-init-file( $filename ) },   'rl-read-init-file lives';   lives-ok { $r.rl-push-macro-input( $macro ) },   'rl-push-macro-input lives';   lives-ok { my $rv = $r.rl-modifying( $start, $end ) },   'rl-modifying lives'; # lives-ok { $r.rl-redisplay };   lives-ok { my $rv = $r.rl-on-new-line },   'rl-on-new-line lives'; # lives-ok { my $rv = $r.rl-forced-update-display }; # XXX segfaults # lives-ok { my $rv = $r.rl-clear-message }; # XXX segfaults # lives-ok { my $rv = $r.rl-crlf }; # XXX segfaults # my $c = 'x'; # lives-ok { my $rv = $r.rl-show-char( $c ) };   my $line = 'foo';   my $clear-undo = 1;   my $keymap = $r.rl-make-bare-keymap;   my $cap = 'termcap.1';   my $len = 1;   my $c = 'x';   my $timeout = 3;   lives-ok { $r.rl-replace-line( $line, $clear-undo ) },   'rl-replace-line'; # lives-ok { $r.rl-tty-set-default-bindings( $keymap ) };   lives-ok { $r.rl-tty-unset-default-bindings( $keymap ) },   'rl-tty-unset-default-bindings lives';   lives-ok { my $rv = $r.rl-get-termcap( $cap ) },   'rl-get-termcap lives';   lives-ok { my $rv = $r.rl-extend-line-buffer( $len ) },   'rl-extend-line-buffer lives';   lives-ok { my $rv = $r.rl-alphabetic( $c ) },   'rl-alphabetic lives'; ## lives-ok { $r.rl-free( Pointer $mem ) };   lives-ok { my $rv = $r.rl-set-paren-blink-timeout( $timeout ) },   'rl-set-paren-blink-timeout lives'; # my $what-to-do = 1; # lives-ok { my $rv = $r.rl-complete-internal( $what-to-do ) }; }, 'Miscellaneous';