From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Tue, 14 Apr 1998 16:22:51 +0000 (+0000)
Subject: [compiler] CC did "<<" instead of ">>" for right-shift on ints.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0d31f98675add34bdf823c365f4199ae3031cef;p=p5sagit%2Fp5-mst-13.2.git

[compiler] CC did "<<" instead of ">>" for right-shift on ints.

p4raw-id: //depot/perl@888
---

diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index fc7cf6d..0f4cfd2 100644
--- a/ext/B/B/CC.pm
+++ b/ext/B/B/CC.pm
@@ -788,7 +788,7 @@ BEGIN {
     my $divide_op = infix_op("/");
     my $modulo_op = infix_op("%");
     my $lshift_op = infix_op("<<");
-    my $rshift_op = infix_op("<<");
+    my $rshift_op = infix_op(">>");
     my $ncmp_op = sub { "($_[0] > $_[1] ? 1 : ($_[0] < $_[1]) ? -1 : 0)" };
     my $scmp_op = prefix_op("sv_cmp");
     my $seq_op = prefix_op("sv_eq");