develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35516 - trunk/src

From:
petdance
Date:
January 13, 2009 21:54
Subject:
[svn:parrot] r35516 - trunk/src
Message ID:
20090114055446.CC461CB9F9@x12.develooper.com
Author: petdance
Date: Tue Jan 13 21:54:46 2009
New Revision: 35516

Modified:
   trunk/src/inter_call.c

Log:
minor consting

Modified: trunk/src/inter_call.c
==============================================================================
--- trunk/src/inter_call.c	(original)
+++ trunk/src/inter_call.c	Tue Jan 13 21:54:46 2009
@@ -2850,8 +2850,8 @@
      * don't. */
     if (sub_obj->vtable->base_type == enum_class_Sub
             && PMC_IS_NULL(interp->current_object)) {
-        INTVAL old_core  = interp->run_core;
-        opcode_t offset  = dest - interp->code->base.data;
+        const INTVAL old_core = interp->run_core;
+        const opcode_t offset = dest - interp->code->base.data;
 
         /* can't re-enter the runloop from here with PIC cores: RT #60048 */
         if (interp->run_core == PARROT_CGP_CORE



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