[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