[svn:parrot] r37114 - in trunk: . lib/Parrot/Harness src/ops
coke at svn.parrot.org
coke at svn.parrot.org
Thu Mar 5 02:00:37 UTC 2009
Author: coke
Date: Thu Mar 5 02:00:37 2009
New Revision: 37114
URL: https://trac.parrot.org/parrot/changeset/37114
Log:
TT #400 - codingstd fixes
Courtesy mikeh++
Modified:
trunk/CREDITS
trunk/lib/Parrot/Harness/Options.pm
trunk/src/ops/cmp.ops
Modified: trunk/CREDITS
==============================================================================
--- trunk/CREDITS Thu Mar 5 01:59:01 2009 (r37113)
+++ trunk/CREDITS Thu Mar 5 02:00:37 2009 (r37114)
@@ -641,6 +641,9 @@
U: mikescott
W: http://xrl.us/sml
+U: mikeh
+D: codingstd patches
+
N: Michael Stevens
D: Remove an unused variable in C-land
Modified: trunk/lib/Parrot/Harness/Options.pm
==============================================================================
--- trunk/lib/Parrot/Harness/Options.pm Thu Mar 5 01:59:01 2009 (r37113)
+++ trunk/lib/Parrot/Harness/Options.pm Thu Mar 5 02:00:37 2009 (r37114)
@@ -100,7 +100,8 @@
foreach my $opt (keys %$opts_ref) {
if (exists $remap{$opt}) {
$mapped{$remap{$opt}} = undef;
- } else {
+ }
+ else {
$mapped{$opt} = $opts_ref->{$opt};
}
}
Modified: trunk/src/ops/cmp.ops
==============================================================================
--- trunk/src/ops/cmp.ops Thu Mar 5 01:59:01 2009 (r37113)
+++ trunk/src/ops/cmp.ops Thu Mar 5 02:00:37 2009 (r37114)
@@ -842,7 +842,7 @@
}
inline op iseq(out INT, in STR, in STR) {
- $1 = ( Parrot_str_equal(interp, $2, $3) ? 1 : 0 );
+ $1 = (Parrot_str_equal(interp, $2, $3) ? 1 : 0);
}
inline op iseq(out INT, invar PMC, invar PMC) {
@@ -873,7 +873,7 @@
}
inline op isne(out INT, in STR, in STR) {
- $1 = ( Parrot_str_not_equal(interp, $2, $3) ? 1 : 0 );
+ $1 = (Parrot_str_not_equal(interp, $2, $3) ? 1 : 0);
}
inline op isne(out INT, invar PMC, invar PMC) {
More information about the parrot-commits
mailing list