Add some "is raw" to AT-POS methods

They seem to need it.
rakudo · Oct 21, 2015 · 26617f9 · 26617f9
1 parent 5e8e234
commit 26617f9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/Buf.pm b/src/core/Buf.pm
@@ -251,12 +251,12 @@ my class utf32 does Blob[uint32] is repr('VMArray') {
 }
 
 my role Buf[::T = uint8] does Blob[T] is repr('VMArray') is array_type(T) {
-    multi method AT-POS(Buf:D: int \pos) {
+    multi method AT-POS(Buf:D: int \pos) is raw {
         fail X::OutOfRange.new(:what<Index>,:got(pos),:range<0..Inf>)
           if nqp::islt_i(pos,0);
         nqp::atposref_i(self, pos);
     }
-    multi method AT-POS(Buf:D: Int:D \pos) {
+    multi method AT-POS(Buf:D: Int:D \pos) is raw {
         my int $pos = nqp::unbox_i(pos);
         fail X::OutOfRange.new(:what<Index>,:got(pos),:range<0..Inf>)
           if nqp::islt_i($pos,0);

diff --git a/src/core/IterationBuffer.pm b/src/core/IterationBuffer.pm
@@ -23,10 +23,10 @@ my class IterationBuffer {
         nqp::push(self, value)
     }
 
-    multi method AT-POS(IterationBuffer:D: int $pos) {
+    multi method AT-POS(IterationBuffer:D: int $pos) is raw {
         nqp::atpos(self, $pos)
     }
-    multi method AT-POS(IterationBuffer:D: Int $pos) {
+    multi method AT-POS(IterationBuffer:D: Int $pos) is raw {
         nqp::atpos(self, $pos)
     }