cog/Frameworks/OpenMPT.old/OpenMPT/soundlib/MixerLoops.cpp

680 lines
15 KiB
C++

/*
* MixerLoops.cpp
* --------------
* Purpose: Utility inner loops for mixer-related functionality.
* Notes : This file contains performance-critical loops with variants
* optimized for various instruction sets.
* Authors: Olivier Lapicque
* OpenMPT Devs
* The OpenMPT source code is released under the BSD license. Read LICENSE for more details.
*/
#include "stdafx.h"
#include "MixerLoops.h"
#include "../soundbase/SampleBuffer.h"
#include "Snd_defs.h"
#include "ModChannel.h"
#ifdef ENABLE_SSE2
#include <emmintrin.h>
#endif
OPENMPT_NAMESPACE_BEGIN
///////////////////////////////////////////////////////////////////////////////////////
// SSE Optimizations
#ifdef ENABLE_SSE2
static void SSE2_StereoMixToFloat(const int32 *pSrc, float *pOut1, float *pOut2, uint32 nCount, const float _i2fc)
{
__m128 i2fc = _mm_load_ps1(&_i2fc);
const __m128i *in = reinterpret_cast<const __m128i *>(pSrc);
// We may read beyond the wanted length... this works because we know that we will always work on our buffers of size MIXBUFFERSIZE
nCount = (nCount + 3) / 4;
do
{
__m128i i1 = _mm_loadu_si128(in); // Load four integer values, LRLR
__m128i i2 = _mm_loadu_si128(in + 1); // Load four integer values, LRLR
in += 2;
__m128 f1 = _mm_cvtepi32_ps(i1); // Convert to four floats, LRLR
__m128 f2 = _mm_cvtepi32_ps(i2); // Convert to four floats, LRLR
f1 = _mm_mul_ps(f1, i2fc); // Apply int->float factor
f2 = _mm_mul_ps(f2, i2fc); // Apply int->float factor
__m128 fl = _mm_shuffle_ps(f1, f2, _MM_SHUFFLE(2, 0, 2, 0)); // LRLR+LRLR => LLLL
__m128 fr = _mm_shuffle_ps(f1, f2, _MM_SHUFFLE(3, 1, 3, 1)); // LRLR+LRLR => RRRR
_mm_storeu_ps(pOut1, fl); // Store four float values, LLLL
_mm_storeu_ps(pOut2, fr); // Store four float values, RRRR
pOut1 += 4;
pOut2 += 4;
} while(--nCount);
}
static void SSE2_FloatToStereoMix(const float *pIn1, const float *pIn2, int32 *pOut, uint32 nCount, const float _f2ic)
{
__m128 f2ic = _mm_load_ps1(&_f2ic);
__m128i *out = reinterpret_cast<__m128i *>(pOut);
// We may read beyond the wanted length... this works because we know that we will always work on our buffers of size MIXBUFFERSIZE
nCount = (nCount + 3) / 4;
do
{
__m128 fl = _mm_loadu_ps(pIn1); // Load four float values, LLLL
__m128 fr = _mm_loadu_ps(pIn2); // Load four float values, RRRR
pIn1 += 4;
pIn2 += 4;
fl = _mm_mul_ps(fl, f2ic); // Apply int->float factor
fr = _mm_mul_ps(fr, f2ic); // Apply int->float factor
__m128 f1 = _mm_unpacklo_ps(fl, fr); // LL__+RR__ => LRLR
__m128 f2 = _mm_unpackhi_ps(fl, fr); // __LL+__RR => LRLR
__m128i i1 =_mm_cvtps_epi32(f1); // Convert to four ints
__m128i i2 =_mm_cvtps_epi32(f2); // Convert to four ints
_mm_storeu_si128(out, i1); // Store four int values, LRLR
_mm_storeu_si128(out + 1, i2); // Store four int values, LRLR
out += 2;
} while(--nCount);
}
#endif // ENABLE_SSE2
#if defined(ENABLE_X86) && defined(ENABLE_SSE)
static void SSE_MonoMixToFloat(const int32 *pSrc, float *pOut, uint32 nCount, const float _i2fc)
{
_asm {
movss xmm0, _i2fc
mov edx, pSrc
mov eax, pOut
mov ecx, nCount
shufps xmm0, xmm0, 0x00
xorps xmm1, xmm1
xorps xmm2, xmm2
add ecx, 3
shr ecx, 2
mainloop:
cvtpi2ps xmm1, [edx]
cvtpi2ps xmm2, [edx+8]
add eax, 16
movlhps xmm1, xmm2
mulps xmm1, xmm0
add edx, 16
dec ecx
movups [eax-16], xmm1
jnz mainloop
}
}
#endif // ENABLE_X86 && ENABLE_SSE
#ifdef ENABLE_X86
static void X86_FloatToMonoMix(const float *pIn, int32 *pOut, uint32 nCount, const float _f2ic)
{
_asm {
mov edx, pIn
mov eax, pOut
mov ecx, nCount
fld _f2ic
sub eax, 4
R2I_Loop:
fld DWORD PTR [edx]
add eax, 4
fmul ST(0), ST(1)
dec ecx
lea edx, [edx+4]
fistp DWORD PTR [eax]
jnz R2I_Loop
fstp st(0)
}
}
#endif // ENABLE_X86
static void C_FloatToStereoMix(const float *pIn1, const float *pIn2, int32 *pOut, uint32 nCount, const float _f2ic)
{
for(uint32 i=0; i<nCount; ++i)
{
*pOut++ = (int)(*pIn1++ * _f2ic);
*pOut++ = (int)(*pIn2++ * _f2ic);
}
}
static void C_StereoMixToFloat(const int32 *pSrc, float *pOut1, float *pOut2, uint32 nCount, const float _i2fc)
{
for(uint32 i=0; i<nCount; ++i)
{
*pOut1++ = *pSrc++ * _i2fc;
*pOut2++ = *pSrc++ * _i2fc;
}
}
static void C_FloatToMonoMix(const float *pIn, int32 *pOut, uint32 nCount, const float _f2ic)
{
for(uint32 i=0; i<nCount; ++i)
{
*pOut++ = (int)(*pIn++ * _f2ic);
}
}
static void C_MonoMixToFloat(const int32 *pSrc, float *pOut, uint32 nCount, const float _i2fc)
{
for(uint32 i=0; i<nCount; ++i)
{
*pOut++ = *pSrc++ * _i2fc;
}
}
void StereoMixToFloat(const int32 *pSrc, float *pOut1, float *pOut2, uint32 nCount, const float _i2fc)
{
#ifdef ENABLE_SSE2
if(GetProcSupport() & PROCSUPPORT_SSE2)
{
SSE2_StereoMixToFloat(pSrc, pOut1, pOut2, nCount, _i2fc);
return;
}
#endif // ENABLE_SSE2
{
C_StereoMixToFloat(pSrc, pOut1, pOut2, nCount, _i2fc);
}
}
void FloatToStereoMix(const float *pIn1, const float *pIn2, int32 *pOut, uint32 nCount, const float _f2ic)
{
#ifdef ENABLE_SSE2
if(GetProcSupport() & PROCSUPPORT_SSE2)
{
SSE2_FloatToStereoMix(pIn1, pIn2, pOut, nCount, _f2ic);
return;
}
#endif // ENABLE_SSE2
{
C_FloatToStereoMix(pIn1, pIn2, pOut, nCount, _f2ic);
}
}
void MonoMixToFloat(const int32 *pSrc, float *pOut, uint32 nCount, const float _i2fc)
{
#if defined(ENABLE_X86) && defined(ENABLE_SSE)
if(GetProcSupport() & PROCSUPPORT_SSE)
{
SSE_MonoMixToFloat(pSrc, pOut, nCount, _i2fc);
return;
}
#endif // ENABLE_X86 && ENABLE_SSE
{
C_MonoMixToFloat(pSrc, pOut, nCount, _i2fc);
}
}
void FloatToMonoMix(const float *pIn, int32 *pOut, uint32 nCount, const float _f2ic)
{
#ifdef ENABLE_X86
if(GetProcSupport() & PROCSUPPORT_ASM_INTRIN)
{
X86_FloatToMonoMix(pIn, pOut, nCount, _f2ic);
return;
}
#endif // ENABLE_X86
{
C_FloatToMonoMix(pIn, pOut, nCount, _f2ic);
}
}
//////////////////////////////////////////////////////////////////////////////////////////
void InitMixBuffer(mixsample_t *pBuffer, uint32 nSamples)
{
memset(pBuffer, 0, nSamples * sizeof(mixsample_t));
}
#if MPT_COMPILER_MSVC
#pragma warning(disable:4731) // ebp modified
#endif
#ifdef ENABLE_X86
static void X86_InterleaveFrontRear(int32 *pFrontBuf, int32 *pRearBuf, uint32 nFrames)
{
_asm {
mov ecx, nFrames // ecx = framecount
mov esi, pFrontBuf // esi = front buffer
mov edi, pRearBuf // edi = rear buffer
lea esi, [esi+ecx*8] // esi = &front[N*2]
lea edi, [edi+ecx*8] // edi = &rear[N*2]
lea ebx, [esi+ecx*8] // ebx = &front[N*4]
push ebp
interleaveloop:
mov eax, dword ptr [esi-8]
mov edx, dword ptr [esi-4]
sub ebx, 16
mov ebp, dword ptr [edi-8]
mov dword ptr [ebx], eax
mov dword ptr [ebx+4], edx
mov eax, dword ptr [edi-4]
sub esi, 8
sub edi, 8
dec ecx
mov dword ptr [ebx+8], ebp
mov dword ptr [ebx+12], eax
jnz interleaveloop
pop ebp
}
}
#endif
static void C_InterleaveFrontRear(mixsample_t *pFrontBuf, mixsample_t *pRearBuf, uint32 nFrames)
{
// copy backwards as we are writing back into FrontBuf
for(int i=nFrames-1; i>=0; i--)
{
pFrontBuf[i*4+3] = pRearBuf[i*2+1];
pFrontBuf[i*4+2] = pRearBuf[i*2+0];
pFrontBuf[i*4+1] = pFrontBuf[i*2+1];
pFrontBuf[i*4+0] = pFrontBuf[i*2+0];
}
}
void InterleaveFrontRear(mixsample_t *pFrontBuf, mixsample_t *pRearBuf, uint32 nFrames)
{
#if defined(ENABLE_X86) && defined(MPT_INTMIXER)
if(GetProcSupport() & PROCSUPPORT_ASM_INTRIN)
{
X86_InterleaveFrontRear(pFrontBuf, pRearBuf, nFrames);
return;
}
#endif
{
C_InterleaveFrontRear(pFrontBuf, pRearBuf, nFrames);
}
}
#ifdef ENABLE_X86
static void X86_MonoFromStereo(int32 *pMixBuf, uint32 nSamples)
{
_asm {
mov ecx, nSamples
mov esi, pMixBuf
mov edi, esi
stloop:
mov eax, dword ptr [esi]
mov edx, dword ptr [esi+4]
add edi, 4
add esi, 8
add eax, edx
sar eax, 1
dec ecx
mov dword ptr [edi-4], eax
jnz stloop
}
}
#endif
static void C_MonoFromStereo(mixsample_t *pMixBuf, uint32 nSamples)
{
for(uint32 i=0; i<nSamples; ++i)
{
pMixBuf[i] = (pMixBuf[i*2] + pMixBuf[i*2+1]) / 2;
}
}
void MonoFromStereo(mixsample_t *pMixBuf, uint32 nSamples)
{
#if defined(ENABLE_X86) && defined(MPT_INTMIXER)
if(GetProcSupport() & PROCSUPPORT_ASM_INTRIN)
{
X86_MonoFromStereo(pMixBuf, nSamples);
return;
}
#endif
{
C_MonoFromStereo(pMixBuf, nSamples);
}
}
#define OFSDECAYSHIFT 8
#define OFSDECAYMASK 0xFF
#define OFSTHRESHOLD static_cast<mixsample_t>(1.0 / (1 << 20)) // Decay threshold for floating point mixer
#ifdef ENABLE_X86
static void X86_StereoFill(int32 *pBuffer, uint32 nSamples, int32 *lpROfs, int32 *lpLOfs)
{
_asm {
mov edi, pBuffer
mov ecx, nSamples
mov eax, lpROfs
mov edx, lpLOfs
mov eax, [eax]
mov edx, [edx]
or ecx, ecx
jz fill_loop
mov ebx, eax
or ebx, edx
jz fill_loop
ofsloop:
mov ebx, eax
mov esi, edx
neg ebx
neg esi
sar ebx, 31
sar esi, 31
and ebx, OFSDECAYMASK
and esi, OFSDECAYMASK
add ebx, eax
add esi, edx
sar ebx, OFSDECAYSHIFT
sar esi, OFSDECAYSHIFT
sub eax, ebx
sub edx, esi
mov ebx, eax
or ebx, edx
jz fill_loop
add edi, 8
dec ecx
mov [edi-8], eax
mov [edi-4], edx
jnz ofsloop
fill_loop:
mov ebx, ecx
and ebx, 3
jz fill4x
fill1x:
mov [edi], eax
mov [edi+4], edx
add edi, 8
dec ebx
jnz fill1x
fill4x:
shr ecx, 2
or ecx, ecx
jz done
fill4xloop:
mov [edi], eax
mov [edi+4], edx
mov [edi+8], eax
mov [edi+12], edx
add edi, 8*4
dec ecx
mov [edi-16], eax
mov [edi-12], edx
mov [edi-8], eax
mov [edi-4], edx
jnz fill4xloop
done:
mov esi, lpROfs
mov edi, lpLOfs
mov [esi], eax
mov [edi], edx
}
}
#endif
// c implementation taken from libmodplug
static void C_StereoFill(mixsample_t *pBuffer, uint32 nSamples, mixsample_t &rofs, mixsample_t &lofs)
{
if ((!rofs) && (!lofs))
{
InitMixBuffer(pBuffer, nSamples*2);
return;
}
for (uint32 i=0; i<nSamples; i++)
{
#ifdef MPT_INTMIXER
// Equivalent to int x_r = (rofs + (rofs > 0 ? 255 : -255)) / 256;
#if MPT_COMPILER_SHIFT_SIGNED
const mixsample_t x_r = (rofs + (((-rofs) >> (sizeof(mixsample_t) * 8 - 1)) & OFSDECAYMASK)) >> OFSDECAYSHIFT;
const mixsample_t x_l = (lofs + (((-lofs) >> (sizeof(mixsample_t) * 8 - 1)) & OFSDECAYMASK)) >> OFSDECAYSHIFT;
#else
const mixsample_t x_r = mpt::rshift_signed(rofs + (mpt::rshift_signed(-rofs, sizeof(int) * 8 - 1) & OFSDECAYMASK), OFSDECAYSHIFT);
const mixsample_t x_l = mpt::rshift_signed(lofs + (mpt::rshift_signed(-lofs, sizeof(int) * 8 - 1) & OFSDECAYMASK), OFSDECAYSHIFT);
#endif
#else
const mixsample_t x_r = rofs * (1.0f / (1 << OFSDECAYSHIFT));
const mixsample_t x_l = lofs * (1.0f / (1 << OFSDECAYSHIFT));
#endif
rofs -= x_r;
lofs -= x_l;
pBuffer[i*2] = rofs;
pBuffer[i*2+1] = lofs;
}
#ifndef MPT_INTMIXER
if(fabs(rofs) < OFSTHRESHOLD) rofs = 0;
if(fabs(lofs) < OFSTHRESHOLD) lofs = 0;
#endif
}
void StereoFill(mixsample_t *pBuffer, uint32 nSamples, mixsample_t &rofs, mixsample_t &lofs)
{
#if defined(ENABLE_X86) && defined(MPT_INTMIXER)
if(GetProcSupport() & PROCSUPPORT_ASM_INTRIN)
{
X86_StereoFill(pBuffer, nSamples, &rofs, &lofs);
return;
}
#endif
{
C_StereoFill(pBuffer, nSamples, rofs, lofs);
}
}
#ifdef ENABLE_X86
typedef ModChannel ModChannel_;
static void X86_EndChannelOfs(ModChannel *pChannel, int32 *pBuffer, uint32 nSamples)
{
_asm {
mov esi, pChannel
mov edi, pBuffer
mov ecx, nSamples
mov eax, dword ptr [esi+ModChannel_.nROfs]
mov edx, dword ptr [esi+ModChannel_.nLOfs]
or ecx, ecx
jz brkloop
ofsloop:
mov ebx, eax
mov esi, edx
neg ebx
neg esi
sar ebx, 31
sar esi, 31
and ebx, OFSDECAYMASK
and esi, OFSDECAYMASK
add ebx, eax
add esi, edx
sar ebx, OFSDECAYSHIFT
sar esi, OFSDECAYSHIFT
sub eax, ebx
sub edx, esi
mov ebx, eax
add dword ptr [edi], eax
add dword ptr [edi+4], edx
or ebx, edx
jz brkloop
add edi, 8
dec ecx
jnz ofsloop
brkloop:
mov esi, pChannel
mov dword ptr [esi+ModChannel_.nROfs], eax
mov dword ptr [esi+ModChannel_.nLOfs], edx
}
}
#endif
// c implementation taken from libmodplug
static void C_EndChannelOfs(ModChannel &chn, mixsample_t *pBuffer, uint32 nSamples)
{
mixsample_t rofs = chn.nROfs;
mixsample_t lofs = chn.nLOfs;
if ((!rofs) && (!lofs)) return;
for (uint32 i=0; i<nSamples; i++)
{
#ifdef MPT_INTMIXER
#if MPT_COMPILER_SHIFT_SIGNED
const mixsample_t x_r = (rofs + (((-rofs) >> (sizeof(mixsample_t) * 8 - 1)) & OFSDECAYMASK)) >> OFSDECAYSHIFT;
const mixsample_t x_l = (lofs + (((-lofs) >> (sizeof(mixsample_t) * 8 - 1)) & OFSDECAYMASK)) >> OFSDECAYSHIFT;
#else
const mixsample_t x_r = mpt::rshift_signed(rofs + (mpt::rshift_signed(-rofs, sizeof(int) * 8 - 1) & OFSDECAYMASK), OFSDECAYSHIFT);
const mixsample_t x_l = mpt::rshift_signed(lofs + (mpt::rshift_signed(-lofs, sizeof(int) * 8 - 1) & OFSDECAYMASK), OFSDECAYSHIFT);
#endif
#else
const mixsample_t x_r = rofs * (1.0f / (1 << OFSDECAYSHIFT));
const mixsample_t x_l = lofs * (1.0f / (1 << OFSDECAYSHIFT));
#endif
rofs -= x_r;
lofs -= x_l;
pBuffer[i*2] += rofs;
pBuffer[i*2+1] += lofs;
}
#ifndef MPT_INTMIXER
if(std::abs(rofs) < OFSTHRESHOLD) rofs = 0;
if(std::abs(lofs) < OFSTHRESHOLD) lofs = 0;
#endif
chn.nROfs = rofs;
chn.nLOfs = lofs;
}
void EndChannelOfs(ModChannel &chn, mixsample_t *pBuffer, uint32 nSamples)
{
#if defined(ENABLE_X86) && defined(MPT_INTMIXER)
if(GetProcSupport() & PROCSUPPORT_ASM_INTRIN)
{
X86_EndChannelOfs(&chn, pBuffer, nSamples);
return;
}
#endif
{
C_EndChannelOfs(chn, pBuffer, nSamples);
}
}
void InterleaveStereo(const mixsample_t * MPT_RESTRICT inputL, const mixsample_t * MPT_RESTRICT inputR, mixsample_t * MPT_RESTRICT output, size_t numSamples)
{
while(numSamples--)
{
*(output++) = *(inputL++);
*(output++) = *(inputR++);
}
}
void DeinterleaveStereo(const mixsample_t * MPT_RESTRICT input, mixsample_t * MPT_RESTRICT outputL, mixsample_t * MPT_RESTRICT outputR, size_t numSamples)
{
while(numSamples--)
{
*(outputL++) = *(input++);
*(outputR++) = *(input++);
}
}
#ifndef MODPLUG_TRACKER
void ApplyGain(MixSampleInt *soundBuffer, std::size_t channels, std::size_t countChunk, int32 gainFactor16_16)
{
if(gainFactor16_16 == (1<<16))
{
// nothing to do, gain == +/- 0dB
return;
}
// no clipping prevention is done here
MixSampleInt * buf = soundBuffer;
for(std::size_t i=0; i<countChunk*channels; ++i)
{
*buf = Util::muldiv(*buf, gainFactor16_16, 1<<16);
buf++;
}
}
void ApplyGain(MixSampleFloat *soundBuffer, std::size_t channels, std::size_t countChunk, float gainFactor)
{
if(gainFactor == 1.0f)
{
// nothing to do, gain == +/- 0dB
return;
}
// no clipping prevention is done here
MixSampleFloat * buf = soundBuffer;
for(std::size_t i=0; i<countChunk*channels; ++i)
{
*buf *= gainFactor;
buf++;
}
}
void ApplyGain(audio_buffer_interleaved<float> outputBuffer, std::size_t offset, std::size_t channels, std::size_t countChunk, float gainFactor)
{
if(gainFactor == 1.0f)
{
// nothing to do, gain == +/- 0dB
return;
}
for(std::size_t i = 0; i < countChunk; ++i)
{
for(std::size_t channel = 0; channel < channels; ++channel)
{
outputBuffer(channel, offset + i) *= gainFactor;
}
}
}
void ApplyGain(audio_buffer_planar<float> outputBuffer, std::size_t offset, std::size_t channels, std::size_t countChunk, float gainFactor)
{
if(gainFactor == 1.0f)
{
// nothing to do, gain == +/- 0dB
return;
}
for(std::size_t i = 0; i < countChunk; ++i)
{
for(std::size_t channel = 0; channel < channels; ++channel)
{
outputBuffer(channel, offset + i) *= gainFactor;
}
}
}
#endif // !MODPLUG_TRACKER
OPENMPT_NAMESPACE_END