develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34550 - trunk/src

From:
petdance
Date:
December 28, 2008 22:17
Subject:
[svn:parrot] r34550 - trunk/src
Message ID:
20081229061656.16F0FCB9FA@x12.develooper.com
Author: petdance
Date: Sun Dec 28 22:16:55 2008
New Revision: 34550

Modified:
   trunk/src/sub.c

Log:
removed unused var; did some consting

Modified: trunk/src/sub.c
==============================================================================
--- trunk/src/sub.c	(original)
+++ trunk/src/sub.c	Sun Dec 28 22:16:55 2008
@@ -488,7 +488,6 @@
 
     Parrot_block_GC_mark(interp);
     if (Parrot_Context_get_info(interp, ctx, &info)) {
-        static const char unknown_file[] = "(unknown file)";
         DECL_CONST_CAST;
 
         res = Parrot_sprintf_c(interp,
@@ -668,14 +667,14 @@
 */
 
 void
-Parrot_continuation_rewind_environment(PARROT_INTERP, ARGIN(PMC *pmc),
+Parrot_continuation_rewind_environment(PARROT_INTERP, SHIM(PMC *pmc),
         ARGIN(Parrot_cont *cc))
 {
-    Parrot_Context *to_ctx = cc->to_ctx;
+    Parrot_Context * const to_ctx = cc->to_ctx;
 
     /* debug print before context is switched */
     if (Interp_trace_TEST(interp, PARROT_TRACE_SUB_CALL_FLAG)) {
-        PMC *sub = to_ctx->current_sub;
+        PMC * const sub = to_ctx->current_sub;
 
         Parrot_io_eprintf(interp, "# Back in sub '%Ss', env %p\n",
                     Parrot_full_sub_name(interp, sub),



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