[svn:parrot] r43617 - in trunk: docs include/parrot src

[coke at svn.parrot.org]

Author: coke
Date: Wed Jan 27 03:44:54 2010
New Revision: 43617
URL: https://trac.parrot.org/parrot/changeset/43617

Log:
remove deprecated Parrot_call_sub_ret_float (TT #1145)

Modified:
   trunk/docs/embed.pod
   trunk/include/parrot/extend.h
   trunk/src/extend.c

Modified: trunk/docs/embed.pod
==============================================================================
--- trunk/docs/embed.pod	Wed Jan 27 03:41:22 2010	(r43616)
+++ trunk/docs/embed.pod	Wed Jan 27 03:44:54 2010	(r43617)
@@ -603,8 +603,6 @@
 
 =item [DEPRECATED] C<Parrot_call_sub>
 
-=item [DEPRECATED] C<Parrot_call_sub_ret_float>
-
 =item [DEPRECATED] C<Parrot_call_sub_ret_int>
 
 =item C<Parrot_char_digit_value>

Modified: trunk/include/parrot/extend.h
==============================================================================
--- trunk/include/parrot/extend.h	Wed Jan 27 03:41:22 2010	(r43616)
+++ trunk/include/parrot/extend.h	Wed Jan 27 03:44:54 2010	(r43617)
@@ -72,14 +72,6 @@
         __attribute__nonnull__(3);
 
 PARROT_EXPORT
-Parrot_Float Parrot_call_sub_ret_float(PARROT_INTERP,
-    Parrot_PMC sub_pmc,
-    ARGIN(const char *signature),
-    ...)
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(3);
-
-PARROT_EXPORT
 Parrot_Int Parrot_call_sub_ret_int(PARROT_INTERP,
     Parrot_PMC sub_pmc,
     ARGIN(const char *signature),
@@ -423,9 +415,6 @@
 #define ASSERT_ARGS_Parrot_call_sub __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(signature))
-#define ASSERT_ARGS_Parrot_call_sub_ret_float __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(signature))
 #define ASSERT_ARGS_Parrot_call_sub_ret_int __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(signature))

Modified: trunk/src/extend.c
==============================================================================
--- trunk/src/extend.c	Wed Jan 27 03:41:22 2010	(r43616)
+++ trunk/src/extend.c	Wed Jan 27 03:44:54 2010	(r43617)
@@ -1172,46 +1172,6 @@
 
 /*
 
-=item C<Parrot_Float Parrot_call_sub_ret_float(PARROT_INTERP, Parrot_PMC
-sub_pmc, const char *signature, ...)>
-
-Like C<Parrot_call_sub>, with Parrot_Float return result.
-
-=cut
-
-*/
-
-PARROT_EXPORT
-Parrot_Float
-Parrot_call_sub_ret_float(PARROT_INTERP, Parrot_PMC sub_pmc,
-                 ARGIN(const char *signature), ...)
-{
-    ASSERT_ARGS(Parrot_call_sub_ret_float)
-    va_list         args;
-    PMC            *sig_object;
-    Parrot_Float    result;
-    char            return_sig  = signature[0];
-    const char     *arg_sig     = signature;
-    Parrot_sub     *sub;
-
-    arg_sig++;
-    va_start(args, signature);
-    sig_object = Parrot_pcc_build_sig_object_from_varargs(interp, PMCNULL, arg_sig, args);
-    va_end(args);
-
-    /* Add the return argument onto the call signature object (a bit
-     * hackish, added for backward compatibility in deprecated API function,
-     * see TT #1145). */
-    Parrot_pcc_append_result(interp, sig_object, Parrot_str_new_constant(interp, "N"), &result);
-    PMC_get_sub(interp, sub_pmc, sub);
-    Parrot_pcc_set_constants(interp, CURRENT_CONTEXT(interp), sub->seg->const_table->constants);
-    Parrot_pcc_invoke_from_sig_object(interp, sub_pmc, sig_object);
-
-    return result;
-}
-
-/*
-
 =item C<Parrot_Int Parrot_get_intreg(PARROT_INTERP, Parrot_Int regnum)>
 
 Return the value of an integer register.