SGI MIPSpro fix

[SVN r17780]
This commit is contained in:
Aleksey Gurtovoy
2003-03-08 07:10:07 +00:00
parent 3be28cb1b0
commit a44a73551f

View File

@@ -26,6 +26,7 @@
#else #else
# include "boost/mpl/aux_/config/workaround.hpp"
# include "boost/mpl/aux_/preprocessor/params.hpp" # include "boost/mpl/aux_/preprocessor/params.hpp"
# include "boost/preprocessor/tuple/to_list.hpp" # include "boost/preprocessor/tuple/to_list.hpp"
# include "boost/preprocessor/list/for_each_i.hpp" # include "boost/preprocessor/list/for_each_i.hpp"
@@ -36,10 +37,34 @@
typedef_ param BOOST_PP_CAT(arg,BOOST_PP_INC(i)); \ typedef_ param BOOST_PP_CAT(arg,BOOST_PP_INC(i)); \
/**/ /**/
// agurt, 07/mar/03: restore an old revision for the sake of SGI MIPSpro C++
#if BOOST_WORKAROUND(__EDG_VERSION__, <= 238)
# define BOOST_MPL_AUX_LAMBDA_SUPPORT(i, name, params) \
BOOST_STATIC_CONSTANT(int, arity = i); \
BOOST_PP_LIST_FOR_EACH_I_R( \
1 \
, BOOST_MPL_AUX_LAMBDA_SUPPORT_ARG_TYPEDEF_FUNC \
, typedef \
, BOOST_PP_TUPLE_TO_LIST(i,params) \
) \
struct rebind \
{ \
template< BOOST_MPL_PP_PARAMS(i,typename U) > struct apply \
: name< BOOST_MPL_PP_PARAMS(i,U) > \
{ \
}; \
}; \
/**/
# define BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) \
BOOST_MPL_AUX_LAMBDA_SUPPORT(i, name, params) \
/**/
#elif BOOST_WORKAROUND(__EDG_VERSION__, <= 244) && !defined(BOOST_INTEL_CXX_VERSION)
// agurt, 18/jan/03: old EDG-based compilers actually enforce 11.4 para 9 // agurt, 18/jan/03: old EDG-based compilers actually enforce 11.4 para 9
// (in strict mode), so we have to provide an alternative to the // (in strict mode), so we have to provide an alternative to the
// MSVC-optimized implementation // MSVC-optimized implementation
#if defined(__EDG_VERSION__) && !defined(BOOST_INTEL_CXX_VERSION)
# define BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) \ # define BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) \
BOOST_STATIC_CONSTANT(int, arity = i); \ BOOST_STATIC_CONSTANT(int, arity = i); \