[svn:parrot] r42155 - trunk/compilers/pirc/src

kjs at svn.parrot.org kjs at svn.parrot.org
Wed Oct 28 09:25:47 UTC 2009


Author: kjs
Date: Wed Oct 28 09:25:44 2009
New Revision: 42155
URL: https://trac.parrot.org/parrot/changeset/42155

Log:
[pirc] TT#1152; set default value of :named flag if not specified

Modified:
   trunk/compilers/pirc/src/pircompunit.c

Modified: trunk/compilers/pirc/src/pircompunit.c
==============================================================================
--- trunk/compilers/pirc/src/pircompunit.c	Wed Oct 28 06:55:37 2009	(r42154)
+++ trunk/compilers/pirc/src/pircompunit.c	Wed Oct 28 09:25:44 2009	(r42155)
@@ -703,7 +703,15 @@
 target *
 set_param_alias(lexer_state * const lexer, char const * const alias) {
     PARROT_ASSERT(lexer->curtarget != NULL);
-    lexer->curtarget->alias = alias;
+    
+    /* if no alias was specified, default to the target's name, if it's not a register. */
+    if (alias == NULL) {
+        if (!TEST_FLAG(lexer->curtarget->flags, TARGET_FLAG_IS_REG))
+            lexer->curtarget->alias = lexer->curtarget->info->id.name;
+    }
+    else
+        lexer->curtarget->alias = alias;
+        
     SET_FLAG(lexer->curtarget->flags, TARGET_FLAG_NAMED);
     return lexer->curtarget;
 }


More information about the parrot-commits mailing list