[svn:parrot] r38352 - in trunk: compilers/imcc include/parrot src src/interp

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Sat Apr 25 16:06:39 2009
New Revision: 38352
URL: https://trac.parrot.org/parrot/changeset/38352

Log:
Remove the unused no-op function stack_destroy() per TT # 523

Modified:
   trunk/compilers/imcc/imcparser.c
   trunk/include/parrot/stacks.h
   trunk/src/interp/inter_create.c
   trunk/src/stacks.c

Modified: trunk/compilers/imcc/imcparser.c
==============================================================================
--- trunk/compilers/imcc/imcparser.c	Sat Apr 25 13:46:59 2009	(r38351)
+++ trunk/compilers/imcc/imcparser.c	Sat Apr 25 16:06:39 2009	(r38352)
@@ -329,7 +329,7 @@
  * Intermediate Code Compiler for Parrot.
  *
  * Copyright (C) 2002 Melvin Smith <melvin.smith at mindspring.com>
- * Copyright (C) 2002-2008, Parrot Foundation.
+ * Copyright (C) 2002-2009, Parrot Foundation.
  *
  * Grammar of the PIR language parser.
  *

Modified: trunk/include/parrot/stacks.h
==============================================================================
--- trunk/include/parrot/stacks.h	Sat Apr 25 13:46:59 2009	(r38351)
+++ trunk/include/parrot/stacks.h	Sat Apr 25 16:06:39 2009	(r38352)
@@ -94,9 +94,6 @@
         __attribute__nonnull__(1);
 
 PARROT_EXPORT
-void stack_destroy(SHIM(Stack_Chunk_t *top));
-
-PARROT_EXPORT
 PARROT_CAN_RETURN_NULL
 PARROT_WARN_UNUSED_RESULT
 Stack_Entry_t * stack_entry(SHIM_INTERP,
@@ -189,7 +186,6 @@
        PARROT_ASSERT_ARG(interp)
 #define ASSERT_ARGS_pop_dest __attribute__unused__ int _ASSERT_ARGS_CHECK = \
        PARROT_ASSERT_ARG(interp)
-#define ASSERT_ARGS_stack_destroy __attribute__unused__ int _ASSERT_ARGS_CHECK = 0
 #define ASSERT_ARGS_stack_entry __attribute__unused__ int _ASSERT_ARGS_CHECK = \
        PARROT_ASSERT_ARG(stack)
 #define ASSERT_ARGS_stack_height __attribute__unused__ int _ASSERT_ARGS_CHECK = \

Modified: trunk/src/interp/inter_create.c
==============================================================================
--- trunk/src/interp/inter_create.c	Sat Apr 25 13:46:59 2009	(r38351)
+++ trunk/src/interp/inter_create.c	Sat Apr 25 16:06:39 2009	(r38352)
@@ -424,8 +424,6 @@
     /* deinit op_lib */
     (void) PARROT_CORE_OPLIB_INIT(0);
 
-    stack_destroy(interp->dynamic_env);
-
     destroy_context(interp);
     destroy_runloop_jump_points(interp);
 

Modified: trunk/src/stacks.c
==============================================================================
--- trunk/src/stacks.c	Sat Apr 25 13:46:59 2009	(r38351)
+++ trunk/src/stacks.c	Sat Apr 25 16:06:39 2009	(r38352)
@@ -147,24 +147,6 @@
 
 /*
 
-=item C<void stack_destroy(Stack_Chunk_t *top)>
-
-stack_destroy() doesn't need to do anything, since GC does it all.
-
-=cut
-
-*/
-
-PARROT_EXPORT
-void
-stack_destroy(SHIM(Stack_Chunk_t *top))
-{
-    ASSERT_ARGS(stack_destroy)
-    /* GC does it all */
-}
-
-/*
-
 =item C<size_t stack_height(PARROT_INTERP, const Stack_Chunk_t *chunk)>
 
 Returns the height of the stack. The maximum "depth" is height - 1.