[svn:parrot] r41668 - branches/pcc_reapply/src

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Oct  4 02:09:15 2009
New Revision: 41668
URL: https://trac.parrot.org/parrot/changeset/41668

Log:
Remove unused pass_exception_ars function

Modified:
   branches/pcc_reapply/src/exceptions.c

Modified: branches/pcc_reapply/src/exceptions.c
==============================================================================
--- branches/pcc_reapply/src/exceptions.c	Sun Oct  4 02:08:58 2009	(r41667)
+++ branches/pcc_reapply/src/exceptions.c	Sun Oct  4 02:09:15 2009	(r41668)
@@ -38,17 +38,6 @@
         __attribute__nonnull__(3);
 
 PARROT_CAN_RETURN_NULL
-static opcode_t * pass_exception_args(PARROT_INTERP,
-    ARGIN(const char *sig),
-    ARGIN(opcode_t *dest),
-    ARGIN(PMC * old_ctx),
-    ...)
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        __attribute__nonnull__(3)
-        __attribute__nonnull__(4);
-
-PARROT_CAN_RETURN_NULL
 static void setup_exception_args(PARROT_INTERP, ARGIN(const char *sig), ...)
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
@@ -56,11 +45,6 @@
 #define ASSERT_ARGS_build_exception_from_args __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(format))
-#define ASSERT_ARGS_pass_exception_args __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(sig) \
-    , PARROT_ASSERT_ARG(dest) \
-    , PARROT_ASSERT_ARG(old_ctx))
 #define ASSERT_ARGS_setup_exception_args __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(sig))
@@ -289,36 +273,6 @@
 
 /*
 
-=item C<static opcode_t * pass_exception_args(PARROT_INTERP, const char *sig,
-opcode_t *dest, PMC * old_ctx, ...)>
-
-Passes arguments to the exception handler routine. These are retrieved with
-the .get_results() directive in PIR code.
-
-Note: DEPRECATED
-
-=cut
-
-*/
-
-PARROT_CAN_RETURN_NULL
-static opcode_t *
-pass_exception_args(PARROT_INTERP, ARGIN(const char *sig),
-        ARGIN(opcode_t *dest), ARGIN(PMC * old_ctx), ...)
-{
-    ASSERT_ARGS(pass_exception_args)
-    va_list   ap;
-    opcode_t *next;
-
-    va_start(ap, old_ctx);
-    next = parrot_pass_args_fromc(interp, sig, dest, old_ctx, ap);
-    va_end(ap);
-
-    return next;
-}
-
-/*
-
 =item C<static PMC * build_exception_from_args(PARROT_INTERP, int ex_type, const
 char *format, va_list arglist)>