++ and -- in both their prefix and postfix forms now use infix:<=>, w…

…hich means they do read-only checking properly. This corrects RT#60380, but does cause some failures in for.t since <-> is not implemented, but accidentally worked before; will fix that in my next commit.
rakudo · Feb 11, 2009 · 45cf376 · 45cf376
1 parent 1a2f50c
commit 45cf376
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/src/builtins/op.pir b/src/builtins/op.pir
@@ -35,7 +35,9 @@ src/builtins/op.pir - Perl 6 builtin operators
     if $I0 goto have_a
     'infix:='(a, 0)
   have_a:
-    inc a
+    $P1 = a.'clone'()
+    inc $P1
+    'infix:='(a, $P1)
     .return ($P0)
 .end
 
@@ -46,7 +48,9 @@ src/builtins/op.pir - Perl 6 builtin operators
     if $I0 goto have_a
     'infix:='(a, 0)
   have_a:
-    dec a
+    $P1 = a.'clone'()
+    dec $P1
+    'infix:='(a, $P1)
     .return ($P0)
 .end
 
@@ -57,7 +61,9 @@ src/builtins/op.pir - Perl 6 builtin operators
     if $I0 goto have_a
     'infix:='(a, 0)
   have_a:
-    inc a
+    $P0 = a.'clone'()
+    inc $P0
+    'infix:='(a, $P0)
     .return (a)
 .end
 
@@ -68,7 +74,9 @@ src/builtins/op.pir - Perl 6 builtin operators
     if $I0 goto have_a
     'infix:='(a, 0)
   have_a:
-    dec a
+    $P0 = a.'clone'()
+    dec $P0
+    'infix:='(a, $P0)
     .return (a)
 .end