consting and updated date

git-svn-id: https://svn.parrot.org/parrot/trunk@18695 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · May 30, 2007 · ec3695b · ec3695b
1 parent a35e0a3
commit ec3695b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/pmc/nci.pmc b/src/pmc/nci.pmc
@@ -1,5 +1,5 @@
 /*
-Copyright (C) 2001-2003, The Perl Foundation.
+Copyright (C) 2001-2007, The Perl Foundation.
 $Id$
 
 =head1 NAME
@@ -112,7 +112,7 @@ Creates and returns a clone of the NCI.
 */
 
     PMC* clone() {
-        PMC* ret = pmc_new_noinit(INTERP, SELF->vtable->base_type);
+        PMC* const ret = pmc_new_noinit(INTERP, SELF->vtable->base_type);
         PMC_struct_val(ret) = PMC_struct_val(SELF);
         PMC_pmc_val(ret) = NULL;
         /* FIXME if data is malloced (JIT/i386!) then we need