develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33651 - branches/assign/compilers/pct/src/PAST

From:
pmichaud
Date:
December 8, 2008 06:41
Subject:
[svn:parrot] r33651 - branches/assign/compilers/pct/src/PAST
Message ID:
20081208144122.EBF2CCB9AF@x12.develooper.com
Author: pmichaud
Date: Mon Dec  8 06:41:20 2008
New Revision: 33651

Modified:
   branches/assign/compilers/pct/src/PAST/Node.pir

Log:
[pct]:  Allow 'lvalue' attribute on all PAST::Nodes.
So far, lvalue is still only meaningful for PAST::Var nodes,
but at least we don't throw an exception for other types.


Modified: branches/assign/compilers/pct/src/PAST/Node.pir
==============================================================================
--- branches/assign/compilers/pct/src/PAST/Node.pir	(original)
+++ branches/assign/compilers/pct/src/PAST/Node.pir	Mon Dec  8 06:41:20 2008
@@ -102,6 +102,21 @@
 .end
 
 
+=item lvalue([flag])
+
+Get/set the C<lvalue> attribute, which indicates whether this
+variable is being used in an lvalue context.
+
+=cut
+
+.sub 'lvalue' :method
+    .param pmc value           :optional
+    .param int has_value       :opt_flag
+    .tailcall self.'attr'('lvalue', value, has_value)
+.end
+
+
+
 =back
 
 =head2 PAST::Val
@@ -171,20 +186,6 @@
 .end
 
 
-=item lvalue([flag])
-
-Get/set the C<lvalue> attribute, which indicates whether this
-variable is being used in an lvalue context.
-
-=cut
-
-.sub 'lvalue' :method
-    .param pmc value           :optional
-    .param int has_value       :opt_flag
-    .tailcall self.'attr'('lvalue', value, has_value)
-.end
-
-
 =item namespace([namespace])
 
 Get/set the variable's namespace attribute to the array of strings



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About