gerdr

Obsolete use of | or \ with sigil on param $arr
Too many positional parameters passed; got 2 but expected 1
  in method catfile at /home/gerdr/.perl6/lib/File/Spec/Cygwin.pm:10
  in method catfile at /home/gerdr/.perl6/lib/File/Spec.pm:23
  in method postcircumfix:<( )> at /home/gerdr/.perl6/lib/Inline/C.pm:117
  in  at src/gen/BOOTSTRAP.pm:852
  in any  at src/gen/BOOTSTRAP.pm:836

gerdr

$ gdb install/bin/perl6
[...]
(gdb) break Parrot_api_run_bytecode
Breakpoint 1 at 0x401778
(gdb) break Parrot_io_readline_s
Function "Parrot_io_readline_s" not defined.
Make breakpoint pending on future shared library load? (y or [n]) y

Breakpoint 2 (Parrot_io_readline_s) pending.
(gdb) run -e 'pir::print__is(pir::getstdin__P.readline)'

gerdr

grammar Syntax {
    token TOP { ^ <list> $ }

    token list { <expression>+ % <.space>+ }

    token expression {
          <match=.atom>
        | <match=.parens>
        | <match=.squares>
    }

gerdr

How many levels of indirection are necessary to implement Perl6 container semantics?

This is based on reading the spec and not looking at implementations.

• lexical environment -> container

Perl6 features custom containers. In principle, the container could be inlined into the environment as its type is known statically. Another way to do this would be to always inline the default container and add a member referencing the custom one.

• container -> container storage

gerdr

sub dirwalk(Str $dir = '.', Mu :$d = none(<. ..>), Mu :$f = *,
    :&dx = -> $ {}, :&fx = -> $ {}) {
    for dir($dir, :test(*)) {
        given "$dir/$_".IO but $_ {
            when .f {
                &fx.(.path) if $f.ACCEPTS($_)
            }
            when .d {
                dirwalk(.path, :$d, :$f, :&dx, :&fx) if $d.ACCEPTS($_)
            }

gerdr

static inline size_t next_greater_pow2(size_t size)
{
	enum { SIZE_BIT = CHAR_BIT * sizeof (size_t) };

	for(unsigned exp = 0; (1 << exp) < SIZE_BIT; ++exp)
		size |= size >> (1 << exp);

	return ++size;
}

gerdr

void foo(void)
{
	static int (*bar)[42];
	static const int (*baz)[42];
	baz = bar;
}

gerdr

use v6;

multi sub foo() {
	say 'here';
	LEAVE say 'not here';
}

foo;

gerdr

#!/usr/bin/env perl6

sub dirwalk($dir = '.', Mu :$d = none(<. ..>), Mu :$f = *,
	:&dx = -> $ {}, :&fx = -> $ {}) {
	for dir($dir, :test(*)) -> $name {
		given "$dir/$name" {
			when .IO.f {
				&fx.($_) if $f.ACCEPTS($name)
			}
			when .IO.d {

gerdr

• implement both signed and unsigned integer division/remainder ops
• make callframes variably-sized
• add hashtable implementation: necessary for CHUNK_MAP/linking stage
• use unions instead of uint64_t as register type
• namespacing cleanup (prefix external symbols)
• add structure for strings
• make integer size configurable or mandate 64-bit integers