Browse files

consted a var

  • Loading branch information...
1 parent 968fcad commit 8f7ec498646c10d20797b87fa8156bc00495c27d @petdance petdance committed Apr 22, 2011
Showing with 4 additions and 5 deletions.
  1. +2 −3 src/dynoplibs/io.ops
  2. +2 −2 src/dynoplibs/trans.ops
View
5 src/dynoplibs/io.ops
@@ -1,5 +1,5 @@
/*
- * Copyright (C) 2010, Parrot Foundation.
+ * Copyright (C) 2010-2011, Parrot Foundation.
** io.ops
*/
@@ -182,8 +182,7 @@ op tell(out INT, invar PMC) :base_io {
op tell(out INT, out INT, invar PMC) :base_io {
if ($3) {
- PIOOFF_T pos;
- pos = Parrot_io_tell_handle(interp, $3);
+ const PIOOFF_T pos = Parrot_io_tell_handle(interp, $3);
$1 = (INTVAL)(pos >> 31);
$2 = (INTVAL)(pos & 0xffffffff);
}
View
4 src/dynoplibs/trans.ops
@@ -172,7 +172,7 @@ Set $1 to the base 2 logarithm of $2.
=cut
op log2(out NUM, in NUM) :base_math {
- FLOATVAL temp = log((FLOATVAL)2.0);
+ const FLOATVAL temp = log((FLOATVAL)2.0);
$1 = log((FLOATVAL)$2) / temp;
}
@@ -326,7 +326,7 @@ inline op pow(out NUM, in NUM, in INT) :base_core {
=head1 COPYRIGHT
-Copyright (C) 2010-2010, Parrot Foundation.
+Copyright (C) 2010-2011, Parrot Foundation.
=head1 LICENSE

0 comments on commit 8f7ec49

Please sign in to comment.