Skip to content

Commit

Permalink
Add deconts to nqp::eqaddr() tests
Browse files Browse the repository at this point in the history
There are more places where this is needed.
Will try to remember to fix up those later, unless someone beats me.

Per: https://irclog.perlgeek.de/perl6-dev/2017-09-15#i_15169706
  • Loading branch information
zoffixznet committed Sep 15, 2017
1 parent 43e41ec commit 880b33e
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion src/core/Any.pm
Expand Up @@ -484,7 +484,7 @@ proto sub infix:<===>(Mu $?, Mu $?) is pure { * }
multi sub infix:<===>($?) { Bool::True }
multi sub infix:<===>(\a, \b) {
nqp::p6bool(
nqp::eqaddr(a,b)
nqp::eqaddr(nqp::decont(a),nqp::decont(b))
|| (nqp::eqaddr(a.WHAT,b.WHAT)
&& nqp::iseq_s(nqp::unbox_s(a.WHICH), nqp::unbox_s(b.WHICH)))
)
Expand Down
2 changes: 1 addition & 1 deletion src/core/Str.pm
Expand Up @@ -3102,7 +3102,7 @@ sub substr-rw(\what, \start, $want?) is rw {
multi sub infix:<eqv>(Str:D \a, Str:D \b) {
nqp::p6bool(
nqp::unless(
nqp::eqaddr(a,b),
nqp::eqaddr(nqp::decont(a),nqp::decont(b)),
nqp::eqaddr(a.WHAT,b.WHAT) && nqp::iseq_s(a,b)
)
)
Expand Down

0 comments on commit 880b33e

Please sign in to comment.