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

[petdance at svn.parrot.org]

Author: petdance
Date: Wed May 13 03:41:21 2009
New Revision: 38735
URL: https://trac.parrot.org/parrot/changeset/38735

Log:
Shimmed an unused interpreter

Modified:
   trunk/include/parrot/packfile.h
   trunk/src/packfile.c

Modified: trunk/include/parrot/packfile.h
==============================================================================
--- trunk/include/parrot/packfile.h	Wed May 13 03:30:23 2009	(r38734)
+++ trunk/include/parrot/packfile.h	Wed May 13 03:41:21 2009	(r38735)
@@ -483,10 +483,9 @@
         FUNC_MODIFIES(*self);
 
 PARROT_EXPORT
-void PackFile_Annotations_add_group(PARROT_INTERP,
+void PackFile_Annotations_add_group(SHIM_INTERP,
     ARGMOD(PackFile_Annotations *self),
     opcode_t offset)
-        __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         FUNC_MODIFIES(*self);
 
@@ -853,8 +852,7 @@
     || PARROT_ASSERT_ARG(self)
 #define ASSERT_ARGS_PackFile_Annotations_add_group \
      __attribute__unused__ int _ASSERT_ARGS_CHECK = \
-       PARROT_ASSERT_ARG(interp) \
-    || PARROT_ASSERT_ARG(self)
+       PARROT_ASSERT_ARG(self)
 #define ASSERT_ARGS_PackFile_Annotations_new __attribute__unused__ int _ASSERT_ARGS_CHECK = \
        PARROT_ASSERT_ARG(interp) \
     || PARROT_ASSERT_ARG(pf)

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c	Wed May 13 03:30:23 2009	(r38734)
+++ trunk/src/packfile.c	Wed May 13 03:41:21 2009	(r38735)
@@ -4301,7 +4301,7 @@
     /* Need to associate this segment with the applicable code segment. */
     code_name              = str_dup(self->base.name);
     str_len                = strlen(code_name);
-    code_name[str_len - 4] = 0;
+    code_name[str_len - 4] = '\0';
     code                   = (PackFile_ByteCode *)PackFile_find_segment(interp,
                                 self->base.dir, code_name, 0);
 
@@ -4401,7 +4401,7 @@
 */
 PARROT_EXPORT
 void
-PackFile_Annotations_add_group(PARROT_INTERP, ARGMOD(PackFile_Annotations *self),
+PackFile_Annotations_add_group(SHIM_INTERP, ARGMOD(PackFile_Annotations *self),
         opcode_t offset)
 {
     ASSERT_ARGS(PackFile_Annotations_add_group)