Permalink
Browse files

Toss some now dead code.

  • Loading branch information...
jnthn committed Aug 27, 2012
1 parent b7111e8 commit b4e9e8ae287fe260206ac098116978a50f34653d
Showing with 0 additions and 46 deletions.
  1. +0 −16 src/NQPQ/Actions.pm
  2. +0 −30 src/NQPQ/World.pm
View
@@ -971,22 +971,6 @@ class NQP::Actions is HLL::Actions {
}
$*W.set_routine_signature($code_obj, $types, $definednesses);
}
-
- sub attach_multi_signature_to_parrot_sub($routine) {
- # Use set_sub_multisig op to set up a multi sig. Note that we stick
- # it in the same slot Parrot multis use for their multi signature,
- # this is just a bit more complex than what Parrot needs.
- my $types := nqp::list();
- my $definednesses := nqp::list();
- for @($routine[0]) {
- if nqp::istype($_, QAST::Var) && $_.decl eq 'param' {
- $types.push($_.returns);
- $definednesses.push($_<definedness> eq 'D' ?? 1 !!
- $_<definedness> eq 'U' ?? 2 !! 0);
- }
- }
- $*W.set_routine_signature_on_parrot_sub($routine, $types, $definednesses);
- }
sub wrap_return_handler($past) {
QAST::Op.new(
View
@@ -386,36 +386,6 @@ class NQP::World is HLL::World {
nqp::bindattr($code_obj, $code_type, '$!signature', $sig_obj);
}
- # Associates a signature with a Parrot sub.
- method set_routine_signature_on_parrot_sub($routine, $types, $definednesses) {
- # Build signature object and put it in place now.
- my $sig_type := self.find_sym(['NQPSignature']);
- my $sig_obj := nqp::create($sig_type);
- nqp::bindattr($sig_obj, $sig_type, '$!types', $types);
- nqp::bindattr($sig_obj, $sig_type, '$!definednesses', $definednesses);
- my $slot := self.add_object($sig_obj);
-
- if self.is_precompilation_mode() {
- self.add_fixup_task(:deserialize_past(PAST::Op.new(
- :pirop('set_sub_multisig vPP'),
- PAST::Val.new( :value($routine) ),
- self.get_ref($sig_obj)
- )));
- }
- else {
- # Fixup code depends on if we have the routine in the SC for
- # fixing up.
- my $fixup := PAST::Op.new( :pirop('set_sub_multisig vPP'), self.get_ref($sig_obj) );
- if nqp::defined($routine<compile_time_dummy>) {
- $fixup.unshift(self.get_slot_past_for_object($routine<compile_time_dummy>));
- }
- else {
- $fixup.unshift(PAST::Val.new( :value($routine) ));
- }
- self.add_fixup_task(:fixup_past($fixup));
- }
- }
-
# This handles associating the role body with a role declaration.
method pkg_set_body_block($obj, $body_past) {
# Get a code object for the body block.

0 comments on commit b4e9e8a

Please sign in to comment.