Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Remove useless pirop signatures. PAST::Compiler knows them anyway.

  • Loading branch information...
commit e4b6eff95ea31576a4dab102ceab7467a8444c05 1 parent 5f8dedf
Vasily Chekalkin bacek authored

Showing 1 changed file with 6 additions and 6 deletions. Show diff stats Hide diff stats

  1. +6 6 src/POST/Compiler.pm
12 src/POST/Compiler.pm
@@ -117,7 +117,7 @@ our multi method to_pbc(POST::Sub $sub, %context) {
117 117
118 118 if defined($sub.namespace) {
119 119 my $nskey := $sub.namespace.to_pmc(%context)[0];
120   - if pir::typeof__sp($nskey) eq 'Key' {
  120 + if pir::typeof($nskey) eq 'Key' {
121 121 %sub<namespace_name> := $nskey;
122 122 }
123 123 }
@@ -448,7 +448,7 @@ our method build_pcc_call($opname, @args, %context) {
448 448
449 449 for @args -> $arg {
450 450 # Handle :named params
451   - if pir::isa__ips($arg.modifier, "Hash") {
  451 + if pir::isa($arg.modifier, "Hash") {
452 452 my $name := $arg.modifier<named> // $arg.name;
453 453 @op.push(
454 454 %context<constants>.get_or_create_string($name)
@@ -465,7 +465,7 @@ our method build_args_signature(@args, %context) {
465 465 for @args -> $arg {
466 466 # build_single_arg can return 2 values, but @a.push can't handle it
467 467 my $s := self.build_single_arg($arg, %context);
468   - if pir::isa__ips($s, 'Integer') {
  468 + if pir::isa($s, 'Integer') {
469 469 @sig.push($s);
470 470 }
471 471 else {
@@ -513,7 +513,7 @@ our method build_single_arg($arg, %context) {
513 513
514 514 my $mod := $arg.modifier;
515 515 if $mod {
516   - if pir::isa__ips($mod, "Hash") {
  516 + if pir::isa($mod, "Hash") {
517 517 # named
518 518 # First is string constant with :named flag
519 519 $res := list(0x1 + 0x10 + 0x200, $res + 0x200)
@@ -645,10 +645,10 @@ our method create_context($past, %adverbs) {
645 645
646 646 # TODO pbc_disassemble crashes without proper debug.
647 647 # Add a debug segment.
648   - # %context<DEBUG> := new('PackfileDebug');
  648 + %context<DEBUG_hello.pir> := new('PackfileDebug');
649 649
650 650 # Store the debug segment in bytecode
651   - #$pfdir<BYTECODE_hello.pir_DB> := %context<DEBUG>;
  651 + $pfdir<BYTECODE_hello.pir_DB> := %context<DEBUG_hello.pir>;
652 652
653 653 %context<regalloc> := POST::VanillaAllocator.new;
654 654

0 comments on commit e4b6eff

Please sign in to comment.
Something went wrong with that request. Please try again.