[svn:parrot] r43119 - in branches/pmc_freeze_cleanup: include/parrot src src/pmc

[plobsing at svn.parrot.org]

Author: plobsing
Date: Thu Dec 17 04:58:36 2009
New Revision: 43119
URL: https://trac.parrot.org/parrot/changeset/43119

Log:
remove unused visit actions VISIT_FREEZE_SIZE, VISIT_CLONE, VISIT_DESTRUCTION_ORDER
also remove VISIT_FREEZE_AT_DESTRUCT which was identical to VISIT_FREEZE_NORMAL

Modified:
   branches/pmc_freeze_cleanup/include/parrot/pmc_freeze.h
   branches/pmc_freeze_cleanup/src/hash.c
   branches/pmc_freeze_cleanup/src/pmc/orderedhash.pmc
   branches/pmc_freeze_cleanup/src/pmc_freeze.c

Modified: branches/pmc_freeze_cleanup/include/parrot/pmc_freeze.h
==============================================================================
--- branches/pmc_freeze_cleanup/include/parrot/pmc_freeze.h	Thu Dec 17 04:43:07 2009	(r43118)
+++ branches/pmc_freeze_cleanup/include/parrot/pmc_freeze.h	Thu Dec 17 04:58:36 2009	(r43119)
@@ -18,12 +18,8 @@
 
 typedef enum {
     VISIT_FREEZE_NORMAL,
-    VISIT_FREEZE_AT_DESTRUCT,
-    VISIT_FREEZE_SIZE,
     VISIT_THAW_NORMAL,
     VISIT_THAW_CONSTANTS,
-    VISIT_CLONE,
-    VISIT_DESTRUCTION_ORDER
 } visit_enum_type;
 
 struct _visit_info;

Modified: branches/pmc_freeze_cleanup/src/hash.c
==============================================================================
--- branches/pmc_freeze_cleanup/src/hash.c	Thu Dec 17 04:43:07 2009	(r43118)
+++ branches/pmc_freeze_cleanup/src/hash.c	Thu Dec 17 04:58:36 2009	(r43119)
@@ -685,7 +685,6 @@
         hash_thaw(interp, hash, info);
         break;
       case VISIT_FREEZE_NORMAL:
-      case VISIT_FREEZE_AT_DESTRUCT:
         hash_freeze(interp, hash, info);
         break;
       default:

Modified: branches/pmc_freeze_cleanup/src/pmc/orderedhash.pmc
==============================================================================
--- branches/pmc_freeze_cleanup/src/pmc/orderedhash.pmc	Thu Dec 17 04:43:07 2009	(r43118)
+++ branches/pmc_freeze_cleanup/src/pmc/orderedhash.pmc	Thu Dec 17 04:58:36 2009	(r43119)
@@ -634,7 +634,6 @@
             break;
 
           case VISIT_FREEZE_NORMAL:
-          case VISIT_FREEZE_AT_DESTRUCT:
             {
                 Hash     * const hash = (Hash *)SELF.get_pointer();
                 const UINTVAL entries = hash->entries;

Modified: branches/pmc_freeze_cleanup/src/pmc_freeze.c
==============================================================================
--- branches/pmc_freeze_cleanup/src/pmc_freeze.c	Thu Dec 17 04:43:07 2009	(r43118)
+++ branches/pmc_freeze_cleanup/src/pmc_freeze.c	Thu Dec 17 04:58:36 2009	(r43119)
@@ -598,8 +598,7 @@
 
     info->vtable = &opcode_funcs;
 
-    if (info->what == VISIT_FREEZE_NORMAL
-    ||  info->what == VISIT_FREEZE_AT_DESTRUCT) {
+    if (info->what == VISIT_FREEZE_NORMAL) {
         ensure_buffer_size(interp, info, header_length);
         mem_sys_memcopy(info->pos, pf->header, PACKFILE_HEADER_BYTES);
         info->pos += header_length;
@@ -758,8 +757,7 @@
 Called from C<visit_todo_list()> to perform the action specified in
 C<< info->what >>.
 
-Currently only C<VISIT_FREEZE_NORMAL> and C<VISIT_FREEZE_AT_DESTRUCT> are
-implemented.
+Currently only C<VISIT_FREEZE_NORMAL> is implemented.
 
 =cut
 
@@ -772,7 +770,6 @@
 {
     ASSERT_ARGS(do_action)
     switch (info->what) {
-      case VISIT_FREEZE_AT_DESTRUCT:
       case VISIT_FREEZE_NORMAL:
         freeze_pmc(interp, pmc, info, seen, id);
         if (pmc)