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

[plobsing at svn.parrot.org]

Author: plobsing
Date: Tue Aug  3 05:57:54 2010
New Revision: 48278
URL: https://trac.parrot.org/parrot/changeset/48278

Log:
remove now unused PackFile_Constant constructor and destructor

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

Modified: trunk/include/parrot/packfile.h
==============================================================================
--- trunk/include/parrot/packfile.h	Tue Aug  3 05:51:00 2010	(r48277)
+++ trunk/include/parrot/packfile.h	Tue Aug  3 05:57:54 2010	(r48278)
@@ -514,18 +514,6 @@
         __attribute__nonnull__(1);
 
 PARROT_EXPORT
-void PackFile_Constant_destroy(PARROT_INTERP,
-    ARGMOD_NULLOK(PackFile_Constant *self))
-        __attribute__nonnull__(1)
-        FUNC_MODIFIES(*self);
-
-PARROT_EXPORT
-PARROT_MALLOC
-PARROT_CANNOT_RETURN_NULL
-PackFile_Constant * PackFile_Constant_new(PARROT_INTERP)
-        __attribute__nonnull__(1);
-
-PARROT_EXPORT
 PARROT_WARN_UNUSED_RESULT
 size_t PackFile_Constant_pack_size(PARROT_INTERP,
     ARGIN(const PackFile_Constant *self),
@@ -880,10 +868,6 @@
     , PARROT_ASSERT_ARG(self))
 #define ASSERT_ARGS_PackFile_Annotations_new __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp))
-#define ASSERT_ARGS_PackFile_Constant_destroy __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp))
-#define ASSERT_ARGS_PackFile_Constant_new __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp))
 #define ASSERT_ARGS_PackFile_Constant_pack_size __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(self) \

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c	Tue Aug  3 05:51:00 2010	(r48277)
+++ trunk/src/packfile.c	Tue Aug  3 05:57:54 2010	(r48278)
@@ -3770,61 +3770,6 @@
 
 /*
 
-=back
-
-=head2 PackFile Constant Structure Functions
-
-=over 4
-
-=item C<PackFile_Constant * PackFile_Constant_new(PARROT_INTERP)>
-
-Allocates a new empty PackFile Constant.
-
-This is only here so we can make a new one and then do an unpack.
-
-=cut
-
-*/
-
-PARROT_EXPORT
-PARROT_MALLOC
-PARROT_CANNOT_RETURN_NULL
-PackFile_Constant *
-PackFile_Constant_new(PARROT_INTERP)
-{
-    ASSERT_ARGS(PackFile_Constant_new)
-    PackFile_Constant * const self = mem_gc_allocate_typed(interp,
-            PackFile_Constant);
-
-    self->type = PFC_NONE;
-
-    return self;
-}
-
-
-/*
-
-=item C<void PackFile_Constant_destroy(PARROT_INTERP, PackFile_Constant *self)>
-
-Deletes the C<PackFile_Constant> C<self>.
-
-Don't delete C<PMC>s or C<STRING>s.  The GC will claim them.
-
-=cut
-
-*/
-
-PARROT_EXPORT
-void
-PackFile_Constant_destroy(PARROT_INTERP, ARGMOD_NULLOK(PackFile_Constant *self))
-{
-    ASSERT_ARGS(PackFile_Constant_destroy)
-    mem_gc_free(interp, self);
-}
-
-
-/*
-
 =item C<size_t PackFile_Constant_pack_size(PARROT_INTERP, const
 PackFile_Constant *self, const PackFile_ConstTable *ct)>