[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