Remove postfix ++ and --

parrot · Aug 16, 2009 · b7a16cf · b7a16cf
1 parent 25e0547
commit b7a16cf
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 25 deletions.
diff --git a/src/builtins/op.pir b/src/builtins/op.pir
@@ -102,24 +102,6 @@ src/builtins/op.pir - Cardinal ops
     .return ($P0)
 .end
 
-
-## autoincrement
-.sub 'postfix:++' :multi(_)
-    .param pmc a
-    $P0 = clone a
-    inc a
-    .return ($P0)
-    #.return (a)
-.end
-
-.sub 'postfix:--' :multi(_)
-    .param pmc a
-    $P0 = clone a
-    dec a
-    .return ($P0)
-.end
-
-
 =back
 
 =cut

diff --git a/src/classes/Range.pir b/src/classes/Range.pir
@@ -328,7 +328,8 @@ Generate the next element at the front of the CardinalRange.
     .local pmc from, fromexc, value
     from = getattribute self, '$!from'
     fromexc = getattribute self, '$!from_exclusive'
-    value = 'postfix:++'(from)
+    value = clone from
+    inc from
     unless fromexc goto have_value
     value = clone from
   have_value:
@@ -353,7 +354,7 @@ Return true if there are any more values to iterate over.
     fromexc = getattribute self, '$!from_exclusive'
     unless fromexc goto have_value
     from = clone from
-    'postfix:++'(from)
+    inc from
   have_value:
     $I0 = self.'!to_test'(from)
     .return ($I0)

diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
@@ -551,11 +551,6 @@ proto 'infix:/' is equiv('infix:*')  { ... }
 proto 'infix:%' is equiv('infix:*')
                 is pirop('mod')       { ... }
 
-proto 'postfix:++' is tighter('infix:*')
-		is pirop('n_add')  { ... }
-
-proto 'postfix:--' is tighter('infix:*')
-		is pirop('n_sub')  { ... }
 #
 #proto 'prefix:+' is tighter('infix:*')  { ... }
 #proto 'prefix:-' is equiv('prefix:+')  { ... }