From 34dddff3610e7e18c4ed06a4644226a0790b0e21 Mon Sep 17 00:00:00 2001
From: coke <coke@d31e2699-5ff4-0310-a27c-f18f2fbe73fe>
Date: Wed, 27 Jan 2010 03:44:54 +0000
Subject: [PATCH] remove deprecated Parrot_call_sub_ret_float (TT #1145)

git-svn-id: https://svn.parrot.org/parrot/trunk@43617 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
---
 docs/embed.pod          |  2 --
 include/parrot/extend.h | 11 -----------
 src/extend.c            | 40 ----------------------------------------
 3 files changed, 53 deletions(-)

diff --git a/docs/embed.pod b/docs/embed.pod
index e6dacd6891..3a8ca31dd4 100644
--- a/docs/embed.pod
+++ b/docs/embed.pod
@@ -603,8 +603,6 @@ The list may also be augmented if additional functionality is required.
 
 =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>
diff --git a/include/parrot/extend.h b/include/parrot/extend.h
index 260d70832a..cff98d372a 100644
--- a/include/parrot/extend.h
+++ b/include/parrot/extend.h
@@ -71,14 +71,6 @@ void * Parrot_call_sub(PARROT_INTERP,
         __attribute__nonnull__(1)
         __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,
@@ -423,9 +415,6 @@ int Parrot_vfprintf(PARROT_INTERP,
 #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))
diff --git a/src/extend.c b/src/extend.c
index f3d984241a..e45058ca8c 100644
--- a/src/extend.c
+++ b/src/extend.c
@@ -1172,46 +1172,6 @@ Parrot_call_sub_ret_int(PARROT_INTERP, Parrot_PMC sub_pmc,
 
 /*
 
-=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.