Remove some bogus type constraints.

Since we typically calculate with floats in NQP, we can't rely on the
arguments being int here. Somehow we get away with this on Parrot, but
NQP JVM enforces them more Perl 6-ishly. Also, they may have led to
reboxing, so we may be better off without them anyway.

Author: jnthn

src/QRegex/NFA.nqp

@@ -44,7 +44,7 @@ class QRegex::NFA {
         $id;
     }
 
-    method addedge(int $from, int $to, $action, $value, :$newedge = 1) {
+    method addedge($from, $to, $action, $value, :$newedge = 1) {
         $!edges := 1 if $newedge;
         $to := self.addstate() if $to < 0;
         my $st := $!states[$from];
@@ -61,30 +61,30 @@ class QRegex::NFA {
         self;
     }
 
-    method regex_nfa($node, int $from, int $to) {
+    method regex_nfa($node, $from, $to) {
         my $method := ($node.rxtype // 'concat');
         self.HOW.can(self, $method) 
          ?? self."$method"($node, $from, $to)
          !! self.fate($node, $from, $to);
     }
 
-    method fate($node, int $from, int $to) { 
+    method fate($node, $from, $to) { 
         self.addedge($from, 0, $EDGE_FATE, 0, :newedge(0)) 
     }
 
-    method alt($node, int $from, int $to) {
+    method alt($node, $from, $to) {
         for $node.list {
             my int $st := self.regex_nfa($_, $from, $to);
             $to := $st if $to < 0 && $st > 0;
         }
         $to;
     }
 
-    method anchor($node, int $from, int $to) { 
+    method anchor($node, $from, $to) { 
         self.addedge($from, $to, $EDGE_EPSILON, 0);
     }
 
-    method dba($node, int $from, int $to) { 
+    method dba($node, $from, $to) { 
         self.addedge($from, $to, $EDGE_EPSILON, 0);
     }
 
@@ -98,12 +98,12 @@ class QRegex::NFA {
         %cclass_code<nl> := nqp::const::CCLASS_NEWLINE;
     }
 
-    method cclass($node, int $from, int $to) {
+    method cclass($node, $from, $to) {
         self.addedge($from, $to, $EDGE_CHARCLASS + ?$node.negate,
                      %cclass_code{ $node.name });
     }
 
-    method concat($node, int $from, int $to) {
+    method concat($node, $from, $to) {
         my int $i := 0;
         my int $n := +$node.list - 1;
         while $from > 0 && $i < $n {
@@ -113,7 +113,7 @@ class QRegex::NFA {
         $from > 0 && $n >= 0 ?? self.regex_nfa($node[$i], $from, $to) !! $to;
     }
 
-    method enumcharlist($node, int $from, int $to) {
+    method enumcharlist($node, $from, $to) {
         my $charlist := $node[0];
         if $node.subtype eq 'zerowidth' {
             $from := self.addedge($from, -1, $EDGE_CHARLIST + ?$node.negate, $charlist);
@@ -124,7 +124,7 @@ class QRegex::NFA {
         }
     }
 
-    method literal($node, int $from, int $to) {
+    method literal($node, $from, $to) {
         my int $litlen   := nqp::chars($node[0]) - 1;
         my int $i        := 0;
         if $litlen >= 0 {
@@ -153,7 +153,7 @@ class QRegex::NFA {
         }
     }
 
-    method subrule($node, int $from, int $to) {
+    method subrule($node, $from, $to) {
         my $subtype := $node.subtype;
         if $node.name eq 'before' && !$node.negate {
             my int $end := self.addstate();
@@ -191,7 +191,7 @@ class QRegex::NFA {
         }
     }
 
-    method quant($node, int $from, int $to) {
+    method quant($node, $from, $to) {
         my int $min := 0 + ($node.min // 0);
         my int $max := 0 + ($node.max // -1); # -1 means Inf
 
@@ -269,13 +269,13 @@ class QRegex::NFA {
         }
     }
 
-    method qastnode($node, int $from, int $to) {
+    method qastnode($node, $from, $to) {
         $node.subtype eq 'zerowidth' || $node.subtype eq 'declarative' ??
             self.addedge($from, $to, $EDGE_EPSILON, 0) !!
             self.fate($node, $from, $to);
     }
 
-    method subcapture($node, int $from, int $to) {
+    method subcapture($node, $from, $to) {
         self.regex_nfa($node[0], $from, $to);
     }
 
@@ -287,7 +287,7 @@ class QRegex::NFA {
         $!states
     }
 
-    method mergesubrule(int $start, int $to, $fate, $cursor, str $name, %caller_seen?) {
+    method mergesubrule($start, $to, $fate, $cursor, str $name, %caller_seen?) {
         #nqp::say("adding $name");
         my %seen := nqp::clone(%caller_seen);
         my @substates;