[netlabs #572] [PATCH] random cleanups

[via RT]

# New Ticket Created by  Steve Fink 
# Please include the string:  [netlabs #572]
# in the subject line of all future correspondence about this issue. 
# <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=572 >


While I'm waiting for the last test run to finish for the hashtable
patch, here's an assortment of crunchy bits of my local tree, sifted
out while gathering the other patches together.

Index: embed.c
===================================================================
RCS file: /home/perlcvs/parrot/embed.c,v
retrieving revision 1.20
diff -a -u -r1.20 embed.c
--- embed.c     2 Apr 2002 20:35:52 -0000       1.20
+++ embed.c     14 May 2002 22:05:09 -0000
@@ -181,6 +180,9 @@
         if (Interp_flags_TEST(interpreter, PARROT_JIT_FLAG)) {
             fprintf(stderr, "*** Parrot VM: JIT enabled. ***\n");
         }
+        if (Interp_flags_TEST(interpreter, PARROT_TRACE_FLAG)) {
+            fprintf(stderr, "*** Parrot VM: Tracing enabled. ***\n");
+        }
     }
 
 #if !defined(JIT_CAPABLE) || !JIT_CAPABLE
Index: test_main.c
===================================================================
RCS file: /home/perlcvs/parrot/test_main.c,v
retrieving revision 1.51
diff -a -u -r1.51 test_main.c
--- test_main.c 11 May 2002 20:20:05 -0000      1.51
+++ test_main.c 14 May 2002 22:05:18 -0000
@@ -128,9 +128,9 @@
 usage(void)
 {
 #ifdef HAVE_COMPUTED_GOTO
-    char* cgoto_info = "Deactivate computed goto";
+    const char* cgoto_info = "Deactivate computed goto";
 #else
-    char* cgoto_info = "(already disabled) Deactivate computed goto";
+    const char* cgoto_info = "(already disabled) Deactivate computed goto";
 #endif
 
     fprintf(stderr,
Index: classes/default.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/default.pmc,v
retrieving revision 1.17
diff -a -u -r1.17 default.pmc
--- classes/default.pmc 25 Apr 2002 21:35:16 -0000      1.17
+++ classes/default.pmc 14 May 2002 22:05:24 -0000
@@ -41,6 +41,8 @@
     * the garbage collector.
     */
    PMC* mark (PMC *end_of_used_list) {
+       internal_exception(INTERNAL_PANIC, "custom_mark flag set but no custom mark 
+routine defined\n");
+        return NULL;
    }
 
    INTVAL get_integer () {
Index: classes/perlundef.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/perlundef.pmc,v
retrieving revision 1.10
diff -a -u -r1.10 perlundef.pmc
--- classes/perlundef.pmc       10 Mar 2002 21:18:13 -0000      1.10
+++ classes/perlundef.pmc       14 May 2002 22:05:29 -0000
@@ -30,13 +30,6 @@
       dest->vtable = pmc->vtable;
    }
 
-   void morph (INTVAL type) {
-   }
-
-   BOOLVAL move_to (void * destination) {
-      return 0;
-   }
-
    INTVAL real_size () {
       return 0;
    }