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

[svn:parrot] r34687 - in trunk: include/parrot src

From:
petdance
Date:
December 30, 2008 23:14
Subject:
[svn:parrot] r34687 - in trunk: include/parrot src
Message ID:
20081231071445.170A3CB9FA@x12.develooper.com
Author: petdance
Date: Tue Dec 30 23:14:44 2008
New Revision: 34687

Modified:
   trunk/include/parrot/inter_call.h
   trunk/include/parrot/sub.h
   trunk/src/hash.c

Log:
removed unused variables and re-headerized

Modified: trunk/include/parrot/inter_call.h
==============================================================================
--- trunk/include/parrot/inter_call.h	(original)
+++ trunk/include/parrot/inter_call.h	Tue Dec 30 23:14:44 2008
@@ -113,7 +113,7 @@
 int Parrot_init_arg_indexes_and_sig_pmc(SHIM_INTERP,
     ARGIN(Parrot_Context *ctx),
     ARGIN_NULLOK(opcode_t *indexes),
-    ARGIN_NULLOK(PMC* sig_pmc),
+    ARGIN_NULLOK(PMC *sig_pmc),
     ARGMOD(call_state_item *sti))
         __attribute__nonnull__(2)
         __attribute__nonnull__(5)

Modified: trunk/include/parrot/sub.h
==============================================================================
--- trunk/include/parrot/sub.h	(original)
+++ trunk/include/parrot/sub.h	Tue Dec 30 23:14:44 2008
@@ -327,10 +327,9 @@
         __attribute__nonnull__(3);
 
 void Parrot_continuation_rewind_environment(PARROT_INTERP,
-    ARGIN(PMC *pmc),
+    SHIM(PMC *pmc),
     ARGIN(Parrot_cont *cc))
         __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
         __attribute__nonnull__(3);
 
 PARROT_CAN_RETURN_NULL

Modified: trunk/src/hash.c
==============================================================================
--- trunk/src/hash.c	(original)
+++ trunk/src/hash.c	Tue Dec 30 23:14:44 2008
@@ -93,7 +93,9 @@
         __attribute__nonnull__(2);
 
 PARROT_WARN_UNUSED_RESULT
-static size_t key_hash_STRING(PARROT_INTERP, ARGMOD(STRING *s), size_t seed)
+static size_t key_hash_STRING(PARROT_INTERP,
+    ARGMOD(STRING *s),
+    SHIM(size_t seed))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         FUNC_MODIFIES(*s);
@@ -141,7 +143,7 @@
 
 PARROT_WARN_UNUSED_RESULT
 static size_t
-key_hash_STRING(PARROT_INTERP, ARGMOD(STRING *s), size_t seed)
+key_hash_STRING(PARROT_INTERP, ARGMOD(STRING *s), SHIM(size_t seed))
 {
     if (s->hashval == 0) {
         return string_hash(interp, s);
@@ -335,9 +337,6 @@
     int mark_key   = 0;
     int mark_value = 0;
 
-    INTVAL i;
-    UINTVAL entries;
-
     if (hash->entry_type == (PARROT_DATA_TYPE) enum_hash_string
     ||  hash->entry_type == (PARROT_DATA_TYPE) enum_hash_pmc)
         mark_value = 1;



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