Add pos attribute to X::Syntax

rakudo · Feb 13, 2016 · 6015ce7 · 6015ce7
1 parent 9576596
commit 6015ce7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -3868,6 +3868,7 @@ class Perl6::World is HLL::World {
 
             # Build and throw exception object.
             %opts<line>            := HLL::Compiler.lineof($c.orig, $c.pos, :cache(1));
+            %opts<pos>             := $c.pos;
             %opts<modules>         := p6ize_recursive(@*MODULES // []);
             %opts<pre>             := @locprepost[0];
             %opts<post>            := @locprepost[1];

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -525,6 +525,7 @@ my class X::IO::Chmod does X::IO {
 
 my role X::Comp is Exception {
     has $.filename;
+    has $.pos;
     has $.line;
     has $.column;
     has @.modules;