dl_call.hpp

新版本TR1的stl

  R (STLSOFT_FASTCALL *pfn)();

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn();
}
#endif // STLSOFT_CF_FASTCALL_SUPPORTED

#ifdef STLSOFT_CF_STDCALL_SUPPORTED
template< ss_typename_param_k R
        >
inline R dl_call_invoke_stdcall(dl_call_traits::entry_point_type fp)
{
  R (STLSOFT_STDCALL *pfn)();

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn();
}
#endif // STLSOFT_CF_STDCALL_SUPPORTED


// 1 param

#ifdef STLSOFT_CF_CDECL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0
        >
inline R dl_call_invoke_cdecl(dl_call_traits::entry_point_type fp, A0 a0)
{
  R (STLSOFT_CDECL *pfn)(A0 a0);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0);
}
#endif // STLSOFT_CF_CDECL_SUPPORTED

#ifdef STLSOFT_CF_FASTCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0
        >
inline R dl_call_invoke_fastcall(dl_call_traits::entry_point_type fp, A0 a0)
{
  R (STLSOFT_FASTCALL *pfn)(A0 a0);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0);
}
#endif // STLSOFT_CF_FASTCALL_SUPPORTED

#ifdef STLSOFT_CF_STDCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0
        >
inline R dl_call_invoke_stdcall(dl_call_traits::entry_point_type fp, A0 a0)
{
  R (STLSOFT_STDCALL *pfn)(A0 a0);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0);
}
#endif // STLSOFT_CF_STDCALL_SUPPORTED


// 2 params

#ifdef STLSOFT_CF_CDECL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1
        >
inline R dl_call_invoke_cdecl(dl_call_traits::entry_point_type fp, A0 a0, A1 a1)
{
  R (STLSOFT_CDECL *pfn)(A0 a0, A1 a1);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1);
}
#endif // STLSOFT_CF_CDECL_SUPPORTED

#ifdef STLSOFT_CF_FASTCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1
        >
inline R dl_call_invoke_fastcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1)
{
  R (STLSOFT_FASTCALL *pfn)(A0 a0, A1 a1);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1);
}
#endif // STLSOFT_CF_FASTCALL_SUPPORTED

#ifdef STLSOFT_CF_STDCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1
        >
inline R dl_call_invoke_stdcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1)
{
  R (STLSOFT_STDCALL *pfn)(A0 a0, A1 a1);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1);
}
#endif // STLSOFT_CF_STDCALL_SUPPORTED


// 3 params

#ifdef STLSOFT_CF_CDECL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2
        >
inline R dl_call_invoke_cdecl(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2)
{
  R (STLSOFT_CDECL *pfn)(A0 a0, A1 a1, A2 a2);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2);
}
#endif // STLSOFT_CF_CDECL_SUPPORTED

#ifdef STLSOFT_CF_FASTCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2
        >
inline R dl_call_invoke_fastcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2)
{
  R (STLSOFT_FASTCALL *pfn)(A0 a0, A1 a1, A2 a2);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2);
}
#endif // STLSOFT_CF_FASTCALL_SUPPORTED

#ifdef STLSOFT_CF_STDCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2
        >
inline R dl_call_invoke_stdcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2)
{
  R (STLSOFT_STDCALL *pfn)(A0 a0, A1 a1, A2 a2);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2);
}
#endif // STLSOFT_CF_STDCALL_SUPPORTED


// 4 params

#ifdef STLSOFT_CF_CDECL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3
        >
inline R dl_call_invoke_cdecl(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3)
{
  R (STLSOFT_CDECL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2, a3);
}
#endif // STLSOFT_CF_CDECL_SUPPORTED

#ifdef STLSOFT_CF_FASTCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3
        >
inline R dl_call_invoke_fastcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3)
{
  R (STLSOFT_FASTCALL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2, a3);
}
#endif // STLSOFT_CF_FASTCALL_SUPPORTED

#ifdef STLSOFT_CF_STDCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3
        >
inline R dl_call_invoke_stdcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3)
{
  R (STLSOFT_STDCALL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2, a3);
}
#endif // STLSOFT_CF_STDCALL_SUPPORTED


// 5 params

#ifdef STLSOFT_CF_CDECL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3, ss_typename_param_k A4
        >
inline R dl_call_invoke_cdecl(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3, A4 a4)
{
  R (STLSOFT_CDECL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3, A4 a4);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2, a3, a4);
}
#endif // STLSOFT_CF_CDECL_SUPPORTED

#ifdef STLSOFT_CF_FASTCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3, ss_typename_param_k A4
        >
inline R dl_call_invoke_fastcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3, A4 a4)
{
  R (STLSOFT_FASTCALL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3, A4 a4);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2, a3, a4);
}
#endif // STLSOFT_CF_FASTCALL_SUPPORTED

#ifdef STLSOFT_CF_STDCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3, ss_typename_param_k A4
        >
inline R dl_call_invoke_stdcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3, A4 a4)
{
  R (STLSOFT_STDCALL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3, A4 a4);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2, a3, a4);
}
#endif // STLSOFT_CF_STDCALL_SUPPORTED


// 6 params

#ifdef STLSOFT_CF_CDECL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3, ss_typename_param_k A4, ss_typename_param_k A5
        >
inline R dl_call_invoke_cdecl(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5)
{
  R (STLSOFT_CDECL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2, a3, a4, a5);
}
#endif // STLSOFT_CF_CDECL_SUPPORTED

#ifdef STLSOFT_CF_FASTCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3, ss_typename_param_k A4, ss_typename_param_k A5
        >
inline R dl_call_invoke_fastcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5)
{
  R (STLSOFT_FASTCALL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2, a3, a4, a5);
}
#endif // STLSOFT_CF_FASTCALL_SUPPORTED

#ifdef STLSOFT_CF_STDCALL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3, ss_typename_param_k A4, ss_typename_param_k A5
        >
inline R dl_call_invoke_stdcall(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5)
{
  R (STLSOFT_STDCALL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;

  return pfn(a0, a1, a2, a3, a4, a5);
}
#endif // STLSOFT_CF_STDCALL_SUPPORTED


// 7 params

#ifdef STLSOFT_CF_CDECL_SUPPORTED
template< ss_typename_param_k R
        , ss_typename_param_k A0, ss_typename_param_k A1, ss_typename_param_k A2, ss_typename_param_k A3, ss_typename_param_k A4, ss_typename_param_k A5, ss_typename_param_k A6
        >
inline R dl_call_invoke_cdecl(dl_call_traits::entry_point_type fp, A0 a0, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6)
{
  R (STLSOFT_CDECL *pfn)(A0 a0, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6);

  reinterpret_cast<dl_call_traits::entry_point_type&>(pfn) = fp;