[svn:parrot] r46485 - trunk/compilers/imcc

plobsing at svn.parrot.org plobsing at svn.parrot.org
Tue May 11 03:47:50 UTC 2010


Author: plobsing
Date: Tue May 11 03:47:50 2010
New Revision: 46485
URL: https://trac.parrot.org/parrot/changeset/46485

Log:
[IMCC] more dead code

Modified:
   trunk/compilers/imcc/debug.c
   trunk/compilers/imcc/debug.h
   trunk/compilers/imcc/symreg.c
   trunk/compilers/imcc/symreg.h

Modified: trunk/compilers/imcc/debug.c
==============================================================================
--- trunk/compilers/imcc/debug.c	Tue May 11 03:25:26 2010	(r46484)
+++ trunk/compilers/imcc/debug.c	Tue May 11 03:47:50 2010	(r46485)
@@ -105,35 +105,6 @@
 
 /*
 
-=item C<void IMCC_fataly_standalone(PARROT_INTERP, int code, const char *fmt,
-...)>
-
-Prints an error message and exits Parrot. This is not a recoverable
-error.
-
-=cut
-
-*/
-
-PARROT_EXPORT
-PARROT_DOES_NOT_RETURN
-void
-IMCC_fataly_standalone(PARROT_INTERP, int code, ARGIN(const char *fmt), ...)
-{
-    ASSERT_ARGS(IMCC_fataly_standalone)
-
-    va_list ap;
-
-    va_start(ap, fmt);
-    fprintf(stderr, "error:imcc:");
-    imcc_vfprintf(interp, Parrot_io_STDERR(interp), fmt, ap);
-    va_end(ap);
-    IMCC_print_inc(interp);
-    Parrot_exit(interp, code);
-}
-
-/*
-
 =item C<void IMCC_warning(PARROT_INTERP, const char *fmt, ...)>
 
 Prints a warning message, but does not throw an exception and does not

Modified: trunk/compilers/imcc/debug.h
==============================================================================
--- trunk/compilers/imcc/debug.h	Tue May 11 03:25:26 2010	(r46484)
+++ trunk/compilers/imcc/debug.h	Tue May 11 03:47:50 2010	(r46485)
@@ -60,15 +60,6 @@
         __attribute__nonnull__(3);
 
 PARROT_EXPORT
-PARROT_DOES_NOT_RETURN
-void IMCC_fataly_standalone(PARROT_INTERP,
-    int code,
-    ARGIN(const char *fmt),
-    ...)
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(3);
-
-PARROT_EXPORT
 void IMCC_info(PARROT_INTERP, int level, ARGIN(const char *fmt), ...)
         __attribute__nonnull__(1)
         __attribute__nonnull__(3);
@@ -112,9 +103,6 @@
 #define ASSERT_ARGS_IMCC_fataly __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(fmt))
-#define ASSERT_ARGS_IMCC_fataly_standalone __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(fmt))
 #define ASSERT_ARGS_IMCC_info __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(fmt))

Modified: trunk/compilers/imcc/symreg.c
==============================================================================
--- trunk/compilers/imcc/symreg.c	Tue May 11 03:25:26 2010	(r46484)
+++ trunk/compilers/imcc/symreg.c	Tue May 11 03:47:50 2010	(r46485)
@@ -1581,32 +1581,6 @@
 
 /*
 
-=item C<void debug_dump_sym_hash(const SymHash *hsh)>
-
-Prints all identifiers in the specified hash table to stderr.
-
-=cut
-
-*/
-
-void
-debug_dump_sym_hash(ARGIN(const SymHash *hsh))
-{
-    ASSERT_ARGS(debug_dump_sym_hash)
-    unsigned int i;
-
-    for (i = 0; i < hsh->size; i++) {
-        const SymReg *p = hsh->data[i];
-        while (p) {
-            fprintf(stderr, "%s ", p->name);
-            p = p->next;
-        }
-    }
-}
-
-
-/*
-
 =item C<void clear_locals(IMC_Unit *unit)>
 
 Deletes all local symbols and clears life info from the given IMC_Unit.

Modified: trunk/compilers/imcc/symreg.h
==============================================================================
--- trunk/compilers/imcc/symreg.h	Tue May 11 03:25:26 2010	(r46484)
+++ trunk/compilers/imcc/symreg.h	Tue May 11 03:47:50 2010	(r46485)
@@ -183,9 +183,6 @@
         __attribute__nonnull__(2)
         FUNC_MODIFIES(*hash);
 
-void debug_dump_sym_hash(ARGIN(const SymHash *hsh))
-        __attribute__nonnull__(1);
-
 PARROT_MALLOC
 PARROT_CANNOT_RETURN_NULL
 SymReg * dup_sym(PARROT_INTERP, ARGIN(const SymReg *r))
@@ -359,8 +356,6 @@
 #define ASSERT_ARGS_create_symhash __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(hash))
-#define ASSERT_ARGS_debug_dump_sym_hash __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(hsh))
 #define ASSERT_ARGS_dup_sym __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(r))


More information about the parrot-commits mailing list