Null PMC access in invoke

setup.winxed

function load[anon,load]() {
  load_bytecode('distutils.pbc');
}

function main[main](argv) {
  var parrot_gmp = {
    "name"              : 'Parrot-GMP',
    "abstract"          : 'Parrot bindings for the GNU Multi-Precision Library',
    "authority"         : 'http://github.com/bubaflub',
    "copyright_holder"  : 'Bob Kuo',
    "keywords"          : ["parrot", "gmp"],
    "license_type"      : 'Artistic License 2.0',
    "license_uri"       : 'http://www.perlfoundation.org/artistic_license_2_0',
    "checkout_uri"      : 'git://github.com/bubaflub/parrot-gmp.git',
    "browser_uri"       : 'git://github.com/bubaflub/parrot-gmp',
    "project_uri"       : 'git://github.com/bubaflub/parrot-gmp',
    "pir_winxed"        : {},
    "pbc_pir"           : {},
    "inst_lib"          : [],
    "installable_pbc"   : {},
    "include_winxed"    : {},
    "manifest_includes" : ["README.md", "setup.winxed"]
  };

  if (argv[1] == "test")
    do_test();

  setup_stable_libraries(parrot_gmp);

  using setup;

  setup(argv, parrot_gmp);
}

function setup_stable_libraries(var parrot_gmp) {
  var libs = [
    'raw',
    'Common',
    'Random',
    'Integer'
  ];

  string prefix = "src/GMP/";

  for (string source in libs) {
    string winxed_file = prefix + source + ".winxed";
    string pir_file    = prefix + source + ".pir";
    string pbc_file    = prefix + source + ".pbc";
    parrot_gmp["pir_winxed"][pir_file] = winxed_file;
    parrot_gmp["pbc_pir"][pbc_file]    = pir_file;
  }
}

function do_test() {
  int result;
  string cmd = "parrot-nqp t/harness";
  ${ spawnw result, cmd };
  ${ exit result };
}