[svn:parrot] r18762 - trunk/src/pmc

[petdance]

Author: petdance
Date: Fri Jun  1 22:05:18 2007
New Revision: 18762

Modified:
   trunk/src/pmc/sub.pmc

Log:
Removed unused vars, and consted

Modified: trunk/src/pmc/sub.pmc
==============================================================================
--- trunk/src/pmc/sub.pmc       (original)
+++ trunk/src/pmc/sub.pmc       Fri Jun  1 22:05:18 2007
@@ -120,7 +120,7 @@
 */
 
     STRING* get_string() {
-        struct Parrot_sub * const sub = PMC_sub(SELF);
+        const struct Parrot_sub * const sub = PMC_sub(SELF);
         return Parrot_make_COW_reference(INTERP, sub->name);
     }
 
@@ -158,7 +158,7 @@
 */
 
     void* get_pointer() {
-        struct Parrot_sub * const sub = PMC_sub(SELF);
+        const struct Parrot_sub * const sub = PMC_sub(SELF);
         return sub->seg->base.data + sub->start_offs;
     }
 
@@ -191,12 +191,10 @@
 */
 
     INTVAL defined() {
-        struct Parrot_sub * const sub = PMC_sub(SELF);
         return 1;
     }
 
     INTVAL get_bool() {
-        struct Parrot_sub * const sub = PMC_sub(SELF);
         return 1;
     }
 
@@ -211,7 +209,7 @@
 */
 
     opcode_t* invoke(void *next) {
-        struct Parrot_sub     *sub = PMC_sub(SELF);
+        struct Parrot_sub     * const sub = PMC_sub(SELF);
         parrot_context_t      *caller_ctx;
         Parrot_Context        *context;
         PMC                   *ccont;
@@ -395,7 +393,7 @@
 */
 
     void mark() {
-        struct Parrot_sub * const sub = PMC_sub(SELF);
+        const struct Parrot_sub * const sub = PMC_sub(SELF);
         if (!sub)
             return;
         if (sub->name)
@@ -503,7 +501,7 @@
 */
 
     void thaw(visit_info *info) {
-        IMAGE_IO *io = info->image_io;
+        IMAGE_IO * const io = info->image_io;
         SUPER(info);
 
         if (info->extra_flags == EXTRA_IS_NULL) {
@@ -583,17 +581,17 @@
     }
 
     METHOD PMC* get_lexinfo() {
-        struct Parrot_sub * const sub = PMC_sub(SELF);
+        const struct Parrot_sub * const sub = PMC_sub(SELF);
         return sub->lex_info ? sub->lex_info : PMCNULL;
     }
 
     METHOD PMC* get_outer() {
-        struct Parrot_sub * const sub = PMC_sub(SELF);
+        const struct Parrot_sub * const sub = PMC_sub(SELF);
         return sub->outer_sub ? sub->outer_sub : PMCNULL;
     }
 
     METHOD PMC* get_multisig() {
-        struct Parrot_sub * const sub = PMC_sub(SELF);
+        const struct Parrot_sub * const sub = PMC_sub(SELF);
         return sub->multi_signature ? sub->multi_signature : PMCNULL;
     }
 }