From 9fe1351ab79d4e0b7fe10de3f7c0f70bbbacf873 Mon Sep 17 00:00:00 2001
From: Douglas Gregor <doug.gregor@gmail.com>
Date: Tue, 24 Jan 2006 13:57:25 +0000
Subject: [PATCH] Workaround for Borland compilers, from Alistair

[SVN r32394]
---
 include/boost/function/function_base.hpp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/include/boost/function/function_base.hpp b/include/boost/function/function_base.hpp
index 4a668da..f6ed06e 100644
--- a/include/boost/function/function_base.hpp
+++ b/include/boost/function/function_base.hpp
@@ -286,7 +286,11 @@ namespace boost {
           } else if (op == destroy_functor_tag) {
             functor_type* out_functor = 
               reinterpret_cast<functor_type*>(&out_buffer.data);
+#if BOOST_WORKAROUND( __BORLANDC__, BOOST_TESTED_AT(0x581) )
+            out_functor->~Functor();
+#else
             out_functor->~functor_type();
+#endif
           } else /* op == check_functor_type_tag */ {
             const std::type_info& check_type = 
               *static_cast<const std::type_info*>(out_buffer.const_obj_ptr);