Permalink
Browse files

add P5chr and fix pragma bytes

  • Loading branch information...
1 parent 0297471 commit 64717b51d03d94eb1f2fd5d0576ed4b56b2ce5f2 @FROGGS FROGGS committed Apr 20, 2014
Showing with 80 additions and 78 deletions.
  1. +59 −74 STATUS-m.md
  2. +1 −1 lib/Perl5/Actions.nqp
  3. +0 −1 lib/Perl5/Grammar.nqp
  4. +18 −0 lib/Perl5/Terms.pm
  5. +2 −2 lib/Perl5/bytes.pm
View
133 STATUS-m.md
@@ -3,7 +3,7 @@
<tr><th></th><th>pass</th><th>fail</th><th>todo</th><th>skip</th><th>spec</th></tr>
</thead>
<tbody>
- <tr align='center'><td align='left'>summary</td><td>7967</td><td>33724</td><td>5</td><td>1809</td><td>42906</td></tr>
+ <tr align='center'><td align='left'>summary</td><td>7983</td><td>33708</td><td>5</td><td>1809</td><td>42906</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/read.v5</td><td>2436</td><td>640</td><td>0</td><td>0</td><td>2564</td></tr>
<tr><td colspan='5'> 512 tests more than planned were run<br />
</td></tr>
@@ -86,7 +86,7 @@ Index out of range. Is: 1, should be in 0..0<br />
<tr align='center'><td align='left'>op/negate.v5</td><td>31</td><td>14</td><td>0</td><td>0</td><td>45</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/splice.v5</td><td>28</td><td>1</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td colspan='5'>No such method 'splice' for invocant of type 'Any'<br />
- in sub P5splice at lib/Perl5/Terms.pm:1074<br />
+ in sub P5splice at lib/Perl5/Terms.pm:1092<br />
in block at t/spec/op/splice.v5:82<br />
<br /> 29 tests more than planned were run<br />
</td></tr>
@@ -104,6 +104,7 @@ Index out of range. Is: 1, should be in 0..0<br />
<tr align='center'><td align='left' rowspan='2'>op/ord.v5</td><td>22</td><td>0</td><td>0</td><td>13</td><td>35</td></tr>
<tr><td colspan='5'> 13 skipped: Invalid character for UTF-8 encoding<br />
</td></tr>
+ <tr align='center'><td align='left'>op/chr.v5</td><td>21</td><td>21</td><td>0</td><td>0</td><td>42</td></tr>
<tr align='center'><td align='left' rowspan='2'>comp/fold.v5</td><td>19</td><td>7</td><td>0</td><td>0</td><td>26</td></tr>
<tr><td colspan='5'>Potential difficulties:<br />
Redeclaration of symbol $SIG<br />
@@ -134,8 +135,8 @@ to preserve list context inside function call<br />
<tr><td colspan='5'>Cannot call 'match'; none of these signatures match:<br />
:(Cool:D: Any $target, *%adverbs)<br />
in method Bool at src/gen/m-CORE.setting:13045<br />
- in sub P5Bool at lib/Perl5/Terms.pm:374<br />
- in sub P5Bool at lib/Perl5/Terms.pm:374<br />
+ in sub P5Bool at lib/Perl5/Terms.pm:392<br />
+ in sub P5Bool at lib/Perl5/Terms.pm:392<br />
in sub isnt at t/spec/comp/opsubs.v5:66<br />
in block at t/spec/comp/opsubs.v5:1<br />
</td></tr>
@@ -161,6 +162,7 @@ to preserve list context inside function call<br />
in method sink at src/gen/m-CORE.setting:8404<br />
in block at t/spec/op/append.v5:1<br />
</td></tr>
+ <tr align='center'><td align='left'>uni/chr.v5</td><td>8</td><td>0</td><td>0</td><td>0</td><td>8</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/push.v5</td><td>8</td><td>50</td><td>0</td><td>2</td><td>60</td></tr>
<tr><td colspan='5'>WARNINGS:<br />
Useless use of constant integer 1 in sink context (line 117)<br />
@@ -173,7 +175,12 @@ Type of arg 1 to push must be array (not constant item)<br />
in block at t/spec/op/push.v5:1<br />
<br /> 2 skipped: implicit @-sigil on a barename in push/pop is rediculous<br />
</td></tr>
- <tr align='center'><td align='left' rowspan='2'>op/length.v5</td><td>8</td><td>33</td><td>0</td><td>0</td><td>41</td></tr>
+ <tr align='center'><td align='left'>comp/bproto.v5</td><td>8</td><td>8</td><td>0</td><td>0</td><td>16</td></tr>
+ <tr align='center'><td align='left' rowspan='2'>t/v5/17-hash-autovivify.v5</td><td>7</td><td>0</td><td>1</td><td>0</td><td>8</td></tr>
+ <tr><td colspan='5'> 1 todo : <br />
+</td></tr>
+ <tr align='center'><td align='left'>op/rand.v5</td><td>7</td><td>1</td><td>0</td><td>0</td><td>8</td></tr>
+ <tr align='center'><td align='left' rowspan='2'>op/length.v5</td><td>7</td><td>34</td><td>0</td><td>0</td><td>41</td></tr>
<tr><td colspan='5'>Potential difficulties:<br />
Redeclaration of symbol $u<br />
at t/spec/op/length.v5:176<br />
@@ -186,28 +193,7 @@ Undefined subroutine &amp;main::tie called<br />
in method sink at src/gen/m-CORE.setting:8404<br />
in block at t/spec/op/length.v5:15<br />
</td></tr>
- <tr align='center'><td align='left'>comp/bproto.v5</td><td>8</td><td>8</td><td>0</td><td>0</td><td>16</td></tr>
- <tr align='center'><td align='left' rowspan='2'>t/v5/17-hash-autovivify.v5</td><td>7</td><td>0</td><td>1</td><td>0</td><td>8</td></tr>
- <tr><td colspan='5'> 1 todo : <br />
-</td></tr>
- <tr align='center'><td align='left'>op/rand.v5</td><td>7</td><td>1</td><td>0</td><td>0</td><td>8</td></tr>
<tr align='center'><td align='left'>t/v5/18-array-autovivify.v5</td><td>6</td><td>0</td><td>0</td><td>0</td><td>6</td></tr>
- <tr align='center'><td align='left' rowspan='2'>uni/chr.v5</td><td>6</td><td>2</td><td>0</td><td>0</td><td>8</td></tr>
- <tr><td colspan='5'>Unhandled exception: chr codepoint cannot be negative<br />
- at src/gen/m-CORE.setting:4464 (/home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm:chr:34)<br />
- from t/spec/uni/chr.v5:24 (&lt;ephemeral file&gt;::77)<br />
- from t/spec/uni/chr.v5:24 (&lt;ephemeral file&gt;::16)<br />
- from src/gen/m-CORE.setting:7686 (/home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm::555)<br />
- from src/gen/m-CORE.setting:7637 (/home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm:reify:69)<br />
- from src/gen/m-CORE.setting:7549 (/home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm::346)<br />
- from src/gen/m-CORE.setting:7521 (/home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm:reify:69)<br />
- from src/gen/m-CORE.setting:8001 (/home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm:gimme:214)<br />
- from src/gen/m-CORE.setting:8404 (/home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm:sink:4294967295)<br />
- from src/gen/m-main.nqp:47 (/home/froggs/dev/nqp/install/languages/perl6/runtime/perl6.moarvm:MAIN:37)<br />
- from src/gen/m-main.nqp:41 (/home/froggs/dev/nqp/install/languages/perl6/runtime/perl6.moarvm::195)<br />
- from &lt;unknown&gt;:1 (/home/froggs/dev/nqp/install/languages/perl6/runtime/perl6.moarvm::8)<br />
- from &lt;unknown&gt;:1 (/home/froggs/dev/nqp/install/languages/perl6/runtime/perl6.moarvm::9)<br />
-</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/die.v5</td><td>6</td><td>13</td><td>0</td><td>0</td><td>19</td></tr>
<tr><td colspan='5'>Potential difficulties:<br />
Redeclaration of symbol $SIG<br />
@@ -219,7 +205,6 @@ Undefined subroutine &amp;main::tie called<br />
ce Âii tu, bã ?<br />
</td></tr>
<tr align='center'><td align='left'>op/context.v5</td><td>6</td><td>1</td><td>0</td><td>0</td><td>7</td></tr>
- <tr align='center'><td align='left'>op/chr.v5</td><td>6</td><td>36</td><td>0</td><td>0</td><td>42</td></tr>
<tr align='center'><td align='left'>cmd/mod.v5</td><td>6</td><td>7</td><td>0</td><td>0</td><td>13</td></tr>
<tr align='center'><td align='left'>mro/isa_aliases_utf8.v5</td><td>6</td><td>6</td><td>0</td><td>0</td><td>12</td></tr>
<tr align='center'><td align='left' rowspan='2'>mro/isa_aliases.v5</td><td>6</td><td>7</td><td>0</td><td>0</td><td>13</td></tr>
@@ -229,7 +214,7 @@ Can't locate object method "ook" via package "Baro" (perhaps you forgot to load
<tr align='center'><td align='left'>t/v5/05-while.v5</td><td>5</td><td>0</td><td>0</td><td>0</td><td>5</td></tr>
<tr align='center'><td align='left' rowspan='2'>run/switcht.v5</td><td>5</td><td>8</td><td>0</td><td>0</td><td>13</td></tr>
<tr><td colspan='5'>===SORRY!===<br />
-Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏/home/froggs/dev/v5/t/tmp2103B' (indicated by ⏏)<br />
+Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏/home/froggs/dev/v5/t/tmp16801B' (indicated by ⏏)<br />
</td></tr>
<tr align='center'><td align='left'>re/pos.v5</td><td>5</td><td>3</td><td>0</td><td>0</td><td>8</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/defined.v5</td><td>5</td><td>0</td><td>0</td><td>0</td><td>5</td></tr>
@@ -248,7 +233,7 @@ Useless use of constant integer 42 in sink context (line 15)<br />
<tr align='center'><td align='left'>t/v5/03-num.v5</td><td>4</td><td>4</td><td>0</td><td>0</td><td>8</td></tr>
<tr align='center'><td align='left' rowspan='2'>re/reg_nc_tie.v5</td><td>4</td><td>33</td><td>0</td><td>0</td><td>37</td></tr>
<tr><td colspan='5'>Too many positional parameters passed; got 2 but expected 1<br />
- in sub exists at lib/Perl5/Terms.pm:244<br />
+ in sub exists at lib/Perl5/Terms.pm:262<br />
in block at t/spec/re/reg_nc_tie.v5:32<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/pos.v5</td><td>4</td><td>8</td><td>0</td><td>0</td><td>12</td></tr>
@@ -270,17 +255,17 @@ Useless use of constant integer 42 in sink context (line 15)<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/heredoc.v5</td><td>4</td><td>5</td><td>0</td><td>0</td><td>9</td></tr>
<tr><td colspan='5'>Ending delimiter HEREDOC not found ---<br />
-===SORRY!=== Error while compiling tmp1395A.1395<br />
+===SORRY!=== Error while compiling tmp16213A.16213<br />
Couldn't parse heredoc construct<br />
-at tmp1395A.1395:1<br />
+at tmp16213A.16213:1<br />
------&gt; use v5; print &lt;&lt;⏏;<br />
-===SORRY!=== Error while compiling tmp1395A.1395<br />
+===SORRY!=== Error while compiling tmp16213A.16213<br />
Couldn't parse heredoc construct<br />
-at tmp1395A.1395:1<br />
+at tmp16213A.16213:1<br />
------&gt; use v5; print &lt;&lt;⏏&lt;EOL&gt;<br />
-===SORRY!=== Error while compiling tmp1395A.1395<br />
+===SORRY!=== Error while compiling tmp16213A.16213<br />
Confused<br />
-at tmp1395A.1395:4<br />
+at tmp16213A.16213:4<br />
------&gt; &lt;BOL&gt;⏏&lt;EOL&gt;</td></tr>
<tr align='center'><td align='left'>op/cond.v5</td><td>4</td><td>0</td><td>0</td><td>0</td><td>4</td></tr>
<tr align='center'><td align='left'>cmd/elsif.v5</td><td>4</td><td>0</td><td>0</td><td>0</td><td>4</td></tr>
@@ -357,13 +342,13 @@ Can't locate object method "import" via package "main" (perhaps you forgot to lo
<tr align='center'><td align='left' rowspan='2'>op/print.v5</td><td>2</td><td>1</td><td>0</td><td>0</td><td>3</td></tr>
<tr><td colspan='5'>Potential difficulties:<br />
Redeclaration of symbol $fh<br />
- at tmp1496A.1496:7<br />
+ at tmp16313A.16313:7<br />
------&gt; open my $fh⏏, "&lt;:utf8", \"\xC1\xAF\xC1\xAF\xC1\xB0\x<br />
Failed to open file: no such file or directory<br />
in method open at src/gen/m-CORE.setting:13669<br />
in sub P5open at lib/Perl5/Terms.pm:97<br />
in sub P5open at lib/Perl5/Terms.pm:77<br />
- in block at tmp1496A.1496:1<br />
+ in block at tmp16313A.16313:1<br />
</td></tr>
<tr align='center'><td align='left'>base/if.v5</td><td>2</td><td>0</td><td>0</td><td>0</td><td>2</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/defins.v5</td><td>2</td><td>25</td><td>0</td><td>0</td><td>27</td></tr>
@@ -382,15 +367,15 @@ Undefined subroutine &amp;main::FILE called<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/dbm.v5</td><td>2</td><td>3</td><td>0</td><td>0</td><td>5</td></tr>
<tr><td colspan='5'>Undefined subroutine &amp;Foo::dbmopen called<br />
- in sub new at tmp1289A.1289:7<br />
- in block at tmp1289A.1289:23<br />
- in block at tmp1289A.1289:2<br />
+ in sub new at tmp16123A.16123:7<br />
+ in block at tmp16123A.16123:23<br />
+ in block at tmp16123A.16123:2<br />
Undefined subroutine &amp;Foo::dbmopen called<br />
- in sub new at tmp1289A.1289:6<br />
- in block at tmp1289A.1289:22<br />
- in block at tmp1289A.1289:1<br />
+ in sub new at tmp16123A.16123:6<br />
+ in block at tmp16123A.16123:22<br />
+ in block at tmp16123A.16123:1<br />
Undefined subroutine &amp;main::dbmopen called<br />
- in block at tmp1289A.1289:1<br />
+ in block at tmp16123A.16123:1<br />
===SORRY!===<br />
MVMArray: Index out of bounds<br />
Undefined subroutine &amp;main::dbmopen called<br />
@@ -404,9 +389,9 @@ Undefined subroutine &amp;main::dbmopen called<br />
<tr align='center'><td align='left' rowspan='2'>op/concat2.v5</td><td>2</td><td>1</td><td>0</td><td>0</td><td>3</td></tr>
<tr><td colspan='5'>WARNINGS:<br />
Useless use of "," in expression "= bless[chr 256],o::" in sink context (line 29)<br />
-===SORRY!=== Error while compiling tmp1260A.1260<br />
+===SORRY!=== Error while compiling tmp16105A.16105<br />
Couldn't find terminator |<br />
-at tmp1260A.1260:14<br />
+at tmp16105A.16105:14<br />
------&gt; path(bless {},"Path::Class::Dir"), "\n";⏏&lt;EOL&gt;</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/chdir.v5</td><td>2</td><td>30</td><td>0</td><td>16</td><td>48</td></tr>
<tr><td colspan='5'>Undefined subroutine &amp;main::opendir called<br />
@@ -461,7 +446,7 @@ Could not find symbol '&amp;Layer'<br />
Useless use of "," in expression "my $exit, $exit_arg" in sink context (line 49)<br />
No such symbol '&amp;POSIX::WIFEXITED'<br />
in method fail at src/gen/m-CORE.setting:11237<br />
- in sub P5INDIRECT_NAME_LOOKUP at lib/Perl5/Terms.pm:466<br />
+ in sub P5INDIRECT_NAME_LOOKUP at lib/Perl5/Terms.pm:484<br />
in block at t/spec/run/exit.v5:56<br />
Unhandled exception: No exception handler located for warn<br />
at &lt;unknown&gt;:1 (/home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm:print_exception:4294967295)<br />
@@ -480,15 +465,15 @@ Unhandled exception: No exception handler located for warn<br />
Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏foo' (indicated by ⏏)<br />
===SORRY!===<br />
Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏moo' (indicated by ⏏)<br />
-===SORRY!=== Error while compiling tmp1974A.1974<br />
+===SORRY!=== Error while compiling tmp16671A.16671<br />
Two terms in a row<br />
-at tmp1974A.1974:38<br />
+at tmp16671A.16671:38<br />
------&gt; }⏏match("John Smith, 42 years old, secret</td></tr>
<tr align='center'><td align='left' rowspan='2'>comp/term.v5</td><td>1</td><td>22</td><td>0</td><td>0</td><td>23</td></tr>
<tr><td colspan='5'>Invocant requires an instance, but a type object was passed<br />
in method Bridge at src/gen/m-CORE.setting:4459<br />
in sub infix:&lt;&gt;&gt; at src/gen/m-CORE.setting:4380<br />
- in sub infix:&lt;P5&gt;&gt; at lib/Perl5/Terms.pm:293<br />
+ in sub infix:&lt;P5&gt;&gt; at lib/Perl5/Terms.pm:311<br />
in block at t/spec/comp/term.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/setpgrpstack.v5</td><td>1</td><td>2</td><td>0</td><td>0</td><td>3</td></tr>
@@ -611,7 +596,7 @@ Cannot call 'postcircumfix&lt;P5[ ]&gt;'; none of these signatures match:<br />
:(Any \SELF, int $pos)<br />
:(Any \SELF, Any $pos)<br />
:(Any \SELF, Positional \pos)<br />
- in sub postcircumfix&lt;P5[ ]&gt; at lib/Perl5/Terms.pm:360<br />
+ in sub postcircumfix&lt;P5[ ]&gt; at lib/Perl5/Terms.pm:378<br />
in block at t/spec/op/do.v5:27<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/exists_sub.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
@@ -975,7 +960,7 @@ at t/spec/uni/attrs.v5:160<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>uni/fold.v5</td><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td colspan='5'>Error encoding UTF-8 string near grapheme position 6614 with codepoint 393215<br />
- at src/Perl6/Grammar.nqp:336 (/home/froggs/dev/nqp/install/languages/nqp/lib/Perl6/Grammar.moarvm:TOP:473)<br />
+ at src/Perl6/Grammar.nqp:337 (/home/froggs/dev/nqp/install/languages/nqp/lib/Perl6/Grammar.moarvm:TOP:473)<br />
from gen/moar/stage2/QRegex.nqp:1302 (/home/froggs/dev/nqp/install/languages/nqp/lib/QRegex.moarvm:parse:44)<br />
from gen/moar/stage2/NQPHLL.nqp:1387 (/home/froggs/dev/nqp/install/languages/nqp/lib/NQPHLL.moarvm:parse:80)<br />
from gen/moar/stage2/NQPHLL.nqp:1343 (/home/froggs/dev/nqp/install/languages/nqp/lib/NQPHLL.moarvm::71)<br />
@@ -1170,9 +1155,9 @@ at t/spec/re/reg_fold.v5:30<br />
------&gt; my ($invlist_ref, $invmap_ref, ⏏undef, $default)</td></tr>
<tr align='center'><td align='left'>run/switch0.v5</td><td>0</td><td>1</td><td>0</td><td>0</td><td>1</td></tr>
<tr align='center'><td align='left' rowspan='2'>io/bom.v5</td><td>0</td><td>1</td><td>0</td><td>0</td><td>1</td></tr>
- <tr><td colspan='5'>===SORRY!=== Error while compiling tmp962A.962<br />
+ <tr><td colspan='5'>===SORRY!=== Error while compiling tmp15787A.15787<br />
Unexpected closing bracket<br />
-at tmp962A.962:1<br />
+at tmp15787A.15787:1<br />
------&gt; use v5; ï⏏»¿print 1;<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>uni/cache.v5</td><td>0</td><td>1</td><td>0</td><td>0</td><td>1</td></tr>
@@ -1278,7 +1263,7 @@ No such symbol '&amp;Regexp::DESTROY'<br />
<tr align='center'><td align='left' rowspan='2'>io/read.v5</td><td>0</td><td>2</td><td>0</td><td>0</td><td>2</td></tr>
<tr><td colspan='5'>Too many positional parameters passed; got 2 but expected 1<br />
in method print at src/gen/m-CORE.setting:1051<br />
- in sub P5print at lib/Perl5/Terms.pm:993<br />
+ in sub P5print at lib/Perl5/Terms.pm:1011<br />
in block at t/spec/io/read.v5:1<br />
</td></tr>
<tr align='center'><td align='left'>lib/no_load.v5</td><td>0</td><td>2</td><td>0</td><td>0</td><td>2</td></tr>
@@ -1353,7 +1338,7 @@ Undefined subroutine &amp;main::delete called<br />
Redeclaration of symbol $fh<br />
at t/spec/win32/fs.v5:24<br />
------&gt; open my $fh⏏, "&gt;", $tmpfile2<br />
-Failed to create link called 'tmp2190C' on target 'tmp2190B': Failed to link file: no such file or directory<br />
+Failed to create link called 'tmp16887C' on target 'tmp16887B': Failed to link file: no such file or directory<br />
in block at src/gen/m-CORE.setting:14295<br />
in any at /home/froggs/dev/nqp/install/languages/perl6/runtime/CORE.setting.moarvm:1<br />
in sub link at src/gen/m-CORE.setting:14290<br />
@@ -1420,10 +1405,10 @@ at t/v5/25-syntax-defined-or.v5:8<br />
<tr align='center'><td align='left' rowspan='2'>op/yadayada.v5</td><td>0</td><td>5</td><td>0</td><td>0</td><td>5</td></tr>
<tr><td colspan='5'>Cannot call 'match'; none of these signatures match:<br />
:(Cool:D: Any $target, *%adverbs)<br />
- in sub P5split at lib/Perl5/Terms.pm:1086<br />
- in sub P5split at lib/Perl5/Terms.pm:1077<br />
- in sub P5split at lib/Perl5/Terms.pm:1078<br />
- in sub P5split at lib/Perl5/Terms.pm:1077<br />
+ in sub P5split at lib/Perl5/Terms.pm:1104<br />
+ in sub P5split at lib/Perl5/Terms.pm:1095<br />
+ in sub P5split at lib/Perl5/Terms.pm:1096<br />
+ in sub P5split at lib/Perl5/Terms.pm:1095<br />
in block at t/spec/op/yadayada.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>re/qr.v5</td><td>0</td><td>5</td><td>0</td><td>0</td><td>5</td></tr>
@@ -1489,7 +1474,7 @@ at t/spec/op/threads-dirh.v5:123<br />
at t/spec/op/unlink.v5:21<br />
------&gt; open my $fh⏏, "&gt;", $file or die "Can't open $file: $<br />
===SORRY!===<br />
-Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏/home/froggs/dev/v5/t/tmp1647B/aaa' (indicated by ⏏)<br />
+Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏/home/froggs/dev/v5/t/tmp16438B/aaa' (indicated by ⏏)<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/utf8magic.v5</td><td>0</td><td>6</td><td>0</td><td>0</td><td>6</td></tr>
<tr><td colspan='5'>Potential difficulties:<br />
@@ -1629,7 +1614,7 @@ at t/spec/uni/readline.v5:53<br />
Redeclaration of symbol $CMD<br />
at t/spec/io/fflush.v5:126<br />
------&gt; open my $CMD⏏, "$cmd |" or die "Can't open pipe to '$<br />
-close tmp982B: <br />
+close tmp15825B: <br />
in block at t/spec/io/fflush.v5:1<br />
</td></tr>
<tr align='center'><td align='left'>mro/recursion_c3.v5</td><td>0</td><td>8</td><td>0</td><td>0</td><td>8</td></tr>
@@ -1683,7 +1668,7 @@ at t/spec/op/select.v5:20<br />
<tr><td colspan='5'>WARNINGS:<br />
Useless use of constant integer 1 in sink context (line 58)<br />
===SORRY!===<br />
-Error while compiling op bind: QAST::Block with cuid cuid_102_1397897079.57105 has not appeared<br />
+Error while compiling op bind: QAST::Block with cuid cuid_102_1398019863.89428 has not appeared<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>run/dtrace.v5</td><td>0</td><td>9</td><td>0</td><td>0</td><td>9</td></tr>
<tr><td colspan='5'>/bin/sh: 1: -V: not found<br />
@@ -1751,8 +1736,8 @@ Undefined subroutine &amp;main::or called<br />
<tr align='center'><td align='left' rowspan='2'>lib/deprecate.v5</td><td>0</td><td>10</td><td>0</td><td>0</td><td>10</td></tr>
<tr><td colspan='5'>Failed to change the working directory to '/home/froggs/dev/v5/lib/deprecate': Directory does not exist<br />
in sub chdir at src/gen/m-CORE.setting:14212<br />
- in sub P5chdir at lib/Perl5/Terms.pm:397<br />
- in sub P5chdir at lib/Perl5/Terms.pm:397<br />
+ in sub P5chdir at lib/Perl5/Terms.pm:415<br />
+ in sub P5chdir at lib/Perl5/Terms.pm:415<br />
in block at t/spec/lib/deprecate.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>mro/basic_02_c3.v5</td><td>0</td><td>10</td><td>0</td><td>0</td><td>10</td></tr>
@@ -1949,7 +1934,7 @@ Could not find Win32 in any of: ../lib/Perl5<br />
Cannot find method 'Any'<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/die_exit.v5</td><td>0</td><td>17</td><td>0</td><td>0</td><td>17</td></tr>
- <tr><td colspan='5'>Can't open temp error file tmp1310B: <br />
+ <tr><td colspan='5'>Can't open temp error file tmp16139B: <br />
in block at t/spec/op/die_exit.v5:37<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/glob.v5</td><td>0</td><td>17</td><td>0</td><td>0</td><td>17</td></tr>
@@ -1959,7 +1944,7 @@ at t/spec/op/glob.v5:117<br />
------&gt; &lt;BOL&gt;⏏&lt;EOL&gt;<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>op/lfs.v5</td><td>0</td><td>17</td><td>0</td><td>0</td><td>17</td></tr>
- <tr><td colspan='5'>binmode tmp1438C failed: <br />
+ <tr><td colspan='5'>binmode tmp16259C failed: <br />
in block at t/spec/op/lfs.v5:1<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>uni/caller.v5</td><td>0</td><td>18</td><td>0</td><td>0</td><td>18</td></tr>
@@ -2014,7 +1999,7 @@ at t/spec/op/mkdir.v5:47<br />
------&gt; ok(rmdir⏏);<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>run/cloexec.v5</td><td>0</td><td>22</td><td>0</td><td>0</td><td>22</td></tr>
- <tr><td colspan='5'>close 'tmp2050C': <br />
+ <tr><td colspan='5'>close 'tmp16747C': <br />
in sub make_tmp_file at t/spec/run/cloexec.v5:52<br />
in block at t/spec/run/cloexec.v5:1<br />
</td></tr>
@@ -2148,11 +2133,11 @@ at t/spec/op/qr.v5:73<br />
in block at t/spec/op/vec.v5:9<br />
</td></tr>
<tr align='center'><td align='left' rowspan='2'>re/reg_eval_scope.v5</td><td>0</td><td>34</td><td>0</td><td>0</td><td>34</td></tr>
- <tr><td colspan='5'>===SORRY!=== Error while compiling tmp1976A.1976<br />
+ <tr><td colspan='5'>===SORRY!=== Error while compiling tmp16673A.16673<br />
Lexical symbol '$x' is already bound to an outer symbol;<br />
the implicit outer binding must be rewritten as OUTER::&lt;$x&gt;<br />
before you can unambiguously declare a new '$x' in this scope<br />
-at tmp1976A.1976:2<br />
+at tmp16673A.16673:2<br />
------&gt; print "a" =~ /(?{ print $x; my $x ⏏= 8; print $x; my $y })a/;</td></tr>
<tr align='center'><td align='left' rowspan='2'>io/tell.v5</td><td>0</td><td>35</td><td>0</td><td>0</td><td>35</td></tr>
<tr><td colspan='5'>Undefined subroutine &amp;main::TST called<br />
@@ -2387,8 +2372,8 @@ MVMArray: Index out of bounds<br />
------&gt; my $pid = open my $fh⏏, "-|";<br />
No such method 'substr' for invocant of type 'Any'<br />
in sub substr-rw at src/gen/m-CORE.setting:6866<br />
- in sub P5substr at lib/Perl5/Terms.pm:1172<br />
- in sub P5substr at lib/Perl5/Terms.pm:1165<br />
+ in sub P5substr at lib/Perl5/Terms.pm:1190<br />
+ in sub P5substr at lib/Perl5/Terms.pm:1183<br />
in sub fooinc at t/spec/op/inccode.v5:38<br />
in block at t/spec/op/inccode.v5:1<br />
</td></tr>
@@ -2695,9 +2680,9 @@ It takes about 40 minutes to skip all tests<br />
in block at t/spec/comp/utf.v5:1<br />
</td></tr>
- <tr><td>nqp-m --version</td><td colspan='5'>This is nqp version 2014.04-1-g41b67f4 built on MoarVM version 2014.04-5-g414c59e
+ <tr><td>nqp-m --version</td><td colspan='5'>This is nqp version 2014.04-6-g0ef8041 built on MoarVM version 2014.04-11-g4749729
</td></tr>
- <tr><td>perl6-m --version</td><td colspan='5'>This is perl6 version 2014.04-12-g22fbedc built on MoarVM version 2014.04-5-g414c59e
+ <tr><td>perl6-m --version</td><td colspan='5'>This is perl6 version 2014.04-36-g87a6833 built on MoarVM version 2014.04-11-g4749729
</td></tr>
</tbody>
</table>
View
2 lib/Perl5/Actions.nqp
@@ -3972,7 +3972,7 @@ class Perl5::Actions is HLL::Actions does STDActions {
my %builtin := nqp::hash(
'binmode', [ '', '*;$', '', '', 'call', '&P5binmode' ],
- 'chr', [ '$_', '_', 'call', '&P5Numeric' ],
+ 'chr', [ '$_', '_', 'call', '&P5Numeric', 'call', '&P5chr' ],
'close', [ '', '*', '', '', 'call', '&P5close' ],
'chdir', [ '', '$', '', '', 'call', '&P5chdir' ],
'each', [ '', '$', '', '', 'call', '&P5each' ],
View
1 lib/Perl5/Grammar.nqp
@@ -1371,7 +1371,6 @@ grammar Perl5::Grammar is HLL::Grammar does STD5 {
my %pragma_defaults := nqp::hash(
'base', [], # http://perldoc.perl.org/base.html
- 'bytes', [], # http://perldoc.perl.org/bytes.html
'charnames', [], # http://perldoc.perl.org/charnames.html
'feature', [], # http://perldoc.perl.org/feature.html
'integer', [], # http://perldoc.perl.org/integer.html
View
18 lib/Perl5/Terms.pm
@@ -202,6 +202,24 @@ sub fail($a?) is export { use Test; ::('&flunk')( $a // '' ) }
sub P5binmode(|) is export { }
+# http://perldoc.perl.org/functions/chr.html
+sub P5chr($ord) is export is hidden_from_backtrace {
+ if $ord < 0 {
+ # Negative values give the Unicode replacement character (chr(0xfffd)), except under the bytes
+ # pragma, where the low eight bits of the value (truncated to an integer) are used.
+ if $*USE_BYTES {
+ chr($ord +& 0xFF)
+ }
+ else {
+ P5warn("Invalid negative number ($ord) in chr");
+ chr(0xfffd)
+ }
+ }
+ else {
+ chr($ord)
+ }
+}
+
multi sub chop() is export { chop(CALLER::DYNAMIC::<$_>) }
multi sub chop(*@s is rw) is export {
my $chopped_of = '';
View
4 lib/Perl5/bytes.pm
@@ -3,8 +3,8 @@ use v6.0.0;
# http://perldoc.perl.org/bytes.html
-sub EXPORT(*@cats) {
- { '$*USE_BYTES' => +($*SCOPE eq 'use') }
+sub EXPORT(|) {
+ { '$*USE_BYTES' => +($*SCOPE eq 'use'); }
}
module bytes;

0 comments on commit 64717b5

Please sign in to comment.