demo.p6

use lib <libc tinycc>;

use libc;
use TinyCC <tinycc/libtcc>;

my $p = libc::malloc(4).to(libc::int);
$p.lv = 42;

tcc.target(:MEM).set('-Ltinycc');
tcc.declare(x => $p);
tcc.compile(q:to/__END__/);
    extern int printf(const char *, ...);
    extern int x;

    int main(void) {
        printf("%i\n", x);
        return 0;
    }
    __END__

tcc.run; # prints 42