/*
 * Copyright (c) 2020-2021 Arm Limited.
 *
 * SPDX-License-Identifier: MIT
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to
 * deal in the Software without restriction, including without limitation the
 * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
 * sell copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in all
 * copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 */
#include "src/runtime/CL/gemm/CLGEMMDefaultTypeBifrost.h"

#include "arm_compute/core/CL/CLHelpers.h"
#include "arm_compute/core/CL/CLKernelLibrary.h"

#include "src/gpu/cl/kernels/gemm/ClGemmHelpers.h"

#include <map>
#include <utility>

namespace arm_compute
{
namespace cl_gemm
{
CLGEMMDefaultTypeBifrost::CLGEMMDefaultTypeBifrost(GPUTarget gpu) : ICLGEMMKernelSelection(gpu)
{
}

CLGEMMKernelType CLGEMMDefaultTypeBifrost::select_kernel(const CLGEMMKernelSelectionParams &params)
{
    // _target could be used in the future to have a dedicated heuristic for each GPU IP
    ARM_COMPUTE_UNUSED(_target);

    using FunctionExecutorPtr = CLGEMMKernelType (CLGEMMDefaultTypeBifrost::*)(
        unsigned int m, unsigned int n, unsigned int k, unsigned int b, bool is_rhs_constant);

    // Default configurations for Bifrost architectures
    static std::map<DataType, FunctionExecutorPtr> gemm_default_configs = {
        {DataType::F32, &CLGEMMDefaultTypeBifrost::default_f32},
        {DataType::F16, &CLGEMMDefaultTypeBifrost::default_f16},
        {DataType::QASYMM8, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QASYMM8_SIGNED, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QSYMM8, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QSYMM8_PER_CHANNEL, &CLGEMMDefaultTypeBifrost::default_q8}};

    // Mali-G71 configurations
    static std::map<DataType, FunctionExecutorPtr> gemm_g71_configs = {
        {DataType::F32, &CLGEMMDefaultTypeBifrost::default_f32},
        {DataType::F16, &CLGEMMDefaultTypeBifrost::g71_f16},
        {DataType::QASYMM8, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QASYMM8_SIGNED, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QSYMM8, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QSYMM8_PER_CHANNEL, &CLGEMMDefaultTypeBifrost::default_q8}};

    // Mali-G52 configurations
    static std::map<DataType, FunctionExecutorPtr> gemm_g52_configs = {
        {DataType::F32, &CLGEMMDefaultTypeBifrost::g52_f32},
        {DataType::F16, &CLGEMMDefaultTypeBifrost::g52_f16},
        {DataType::QASYMM8, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QASYMM8_SIGNED, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QSYMM8, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QSYMM8_PER_CHANNEL, &CLGEMMDefaultTypeBifrost::default_q8}};

    // Mali-G76 configurations
    static std::map<DataType, FunctionExecutorPtr> gemm_g76_configs = {
        {DataType::F32, &CLGEMMDefaultTypeBifrost::g76_f32},
        {DataType::F16, &CLGEMMDefaultTypeBifrost::g76_f16},
        {DataType::QASYMM8, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QASYMM8_SIGNED, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QSYMM8, &CLGEMMDefaultTypeBifrost::default_q8},
        {DataType::QSYMM8_PER_CHANNEL, &CLGEMMDefaultTypeBifrost::default_q8}};

    const DataType data_type = params.data_type;

    switch (_target)
    {
        case GPUTarget::G71:
            if (gemm_g71_configs.find(data_type) != gemm_g71_configs.end())
            {
                return (this->*gemm_g71_configs[data_type])(params.m, params.n, params.k, params.b,
                                                            params.is_rhs_constant);
            }
            ARM_COMPUTE_ERROR("Not supported data type");
        case GPUTarget::G76:
            if (gemm_g76_configs.find(data_type) != gemm_g76_configs.end())
            {
                return (this->*gemm_g76_configs[data_type])(params.m, params.n, params.k, params.b,
                                                            params.is_rhs_constant);
            }
            ARM_COMPUTE_ERROR("Not supported data type");
        case GPUTarget::G52:
            if (gemm_g52_configs.find(data_type) != gemm_g52_configs.end())
            {
                return (this->*gemm_g52_configs[data_type])(params.m, params.n, params.k, params.b,
                                                            params.is_rhs_constant);
            }
            ARM_COMPUTE_ERROR("Not supported data type");
        default:
            if (gemm_default_configs.find(data_type) != gemm_default_configs.end())
            {
                return (this->*gemm_default_configs[data_type])(params.m, params.n, params.k, params.b,
                                                                params.is_rhs_constant);
            }
            ARM_COMPUTE_ERROR("Not supported data type");
    }
}

CLGEMMKernelType CLGEMMDefaultTypeBifrost::default_f32(
    unsigned int m, unsigned int n, unsigned int k, unsigned int b, bool is_rhs_constant)
{
    ARM_COMPUTE_UNUSED(b);

    CLGEMMKernelType gemm_type = CLGEMMKernelType::NATIVE;

    if (is_rhs_constant)
    {
        if ((m > 1) && (n < 16))
        {
            gemm_type = CLGEMMKernelType::RESHAPED;
        }
        else if (m == 1)
        {
            gemm_type = CLGEMMKernelType::RESHAPED_ONLY_RHS;
        }
        else
        {
            if ((k > 256) && (m > 4))
            {
                constexpr float alpha = 3.2f;
                constexpr float fact0 = 1.51f;
                constexpr float fact1 = 1.66f;
                constexpr float ops   = 12.0f;
                const float     scale = k > 1024 ? 1.07f : 1.0f;
                gemm_type             = (alpha + ((n * fact0) / ops) < ((fact1 * n * scale) / ops))
                                            ? CLGEMMKernelType::RESHAPED
                                            : CLGEMMKernelType::RESHAPED_ONLY_RHS;
            }
            else
            {
                gemm_type = CLGEMMKernelType::RESHAPED_ONLY_RHS;
            }
        }

        const auto workload = static_cast<float>((m * n) / 20.0f);

        gemm_type = ((workload > 1600.0f) && (gemm_type == CLGEMMKernelType::RESHAPED)) ? CLGEMMKernelType::RESHAPED
                                                                                        : gemm_type;
    }

    return gemm_type;
}

CLGEMMKernelType CLGEMMDefaultTypeBifrost::default_f16(
    unsigned int m, unsigned int n, unsigned int k, unsigned int b, bool is_rhs_constant)
{
    ARM_COMPUTE_UNUSED(n, k, b);

    if (is_rhs_constant)
    {
        if (m == 1)
        {
            return CLGEMMKernelType::RESHAPED_ONLY_RHS;
        }
        else
        {
            return CLGEMMKernelType::RESHAPED;
        }
    }
    else
    {
        return CLGEMMKernelType::NATIVE;
    }
}

CLGEMMKernelType CLGEMMDefaultTypeBifrost::default_q8(
    unsigned int m, unsigned int n, unsigned int k, unsigned int b, bool is_rhs_constant)
{
    ARM_COMPUTE_UNUSED(m, n, k, b);

    if (is_rhs_constant)
    {
        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
    }
    else
    {
        return CLGEMMKernelType::NATIVE;
    }
}

CLGEMMKernelType
CLGEMMDefaultTypeBifrost::g76_f32(unsigned int m, unsigned int n, unsigned int k, unsigned int b, bool is_rhs_constant)
{
    ARM_COMPUTE_UNUSED(b);

    if (!is_rhs_constant)
    {
        return CLGEMMKernelType::NATIVE;
    }
    if (m == 1)
    {
        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
    }
    if (k <= 496)
    {
        if (n <= 544)
        {
            return CLGEMMKernelType::RESHAPED_ONLY_RHS;
        }
        else
        {
            return CLGEMMKernelType::RESHAPED;
        }
    }
    else
    {
        if (k <= 588)
        {
            if (k <= 552)
            {
                if (m <= 148)
                {
                    return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                }
                else
                {
                    if (m <= 278)
                    {
                        return CLGEMMKernelType::RESHAPED;
                    }
                    else
                    {
                        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                    }
                }
            }
            else
            {
                return CLGEMMKernelType::RESHAPED_ONLY_RHS;
            }
        }
        else
        {
            return CLGEMMKernelType::RESHAPED;
        }
    }
}

CLGEMMKernelType
CLGEMMDefaultTypeBifrost::g52_f32(unsigned int m, unsigned int n, unsigned int k, unsigned int b, bool is_rhs_constant)
{
    ARM_COMPUTE_UNUSED(b);

    if (!is_rhs_constant)
    {
        return CLGEMMKernelType::NATIVE;
    }

    if (m == 1)
    {
        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
    }

    const float r_mn  = static_cast<float>(m) / static_cast<float>(n);
    const float r_mk  = static_cast<float>(m) / static_cast<float>(k);
    const float r_nk  = static_cast<float>(n) / static_cast<float>(k);
    const float r_mnk = static_cast<float>(m) / (static_cast<float>(n) * static_cast<float>(k));

    if (r_mn <= 1.5469f)
    {
        if (r_mk <= 0.8766f)
        {
            if (r_mk <= 0.0211f)
            {
                if (r_mnk <= 77.5833f)
                {
                    return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                }
                else
                {
                    return CLGEMMKernelType::RESHAPED;
                }
            }
            else
            {
                if (r_nk <= 0.0832f)
                {
                    return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                }
                else
                {
                    return CLGEMMKernelType::RESHAPED;
                }
            }
        }
        else
        {
            if (r_mnk <= 193.0000f)
            {
                if (r_mn <= 0.9948f)
                {
                    if (r_mk <= 2.5453f)
                    {
                        return CLGEMMKernelType::RESHAPED;
                    }
                    else
                    {
                        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                    }
                }
                else
                {
                    return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                }
            }
            else
            {
                return CLGEMMKernelType::RESHAPED;
            }
        }
    }
    else
    {
        if (r_mn <= 17.7370f)
        {
            if (r_mnk <= 1391.2875f)
            {
                if (r_mk <= 2.9724f)
                {
                    return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                }
                else
                {
                    if (r_mnk <= 470.0000f)
                    {
                        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                    }
                    else
                    {
                        return CLGEMMKernelType::RESHAPED;
                    }
                }
            }
            else
            {
                if (r_nk <= 0.1381f)
                {
                    if (r_mnk <= 9040.5000f)
                    {
                        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                    }
                    else
                    {
                        return CLGEMMKernelType::RESHAPED;
                    }
                }
                else
                {
                    if (r_mn <= 5.6790f)
                    {
                        return CLGEMMKernelType::RESHAPED;
                    }
                    else
                    {
                        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                    }
                }
            }
        }
        else
        {
            return CLGEMMKernelType::RESHAPED_ONLY_RHS;
        }
    }
}

CLGEMMKernelType
CLGEMMDefaultTypeBifrost::g76_f16(unsigned int m, unsigned int n, unsigned int k, unsigned int b, bool is_rhs_constant)
{
    ARM_COMPUTE_UNUSED(b);

    if (!is_rhs_constant)
    {
        return CLGEMMKernelType::NATIVE;
    }

    if (m == 1)
    {
        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
    }

    const float r_mn = static_cast<float>(m) / static_cast<float>(n);
    const float r_nk = static_cast<float>(n) / static_cast<float>(k);

    if (k <= 212)
    {
        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
    }
    else
    {
        if (r_nk <= 0.4990234375f)
        {
            if (k <= 1392)
            {
                return CLGEMMKernelType::RESHAPED_ONLY_RHS;
            }
            else
            {
                if (m <= 325)
                {
                    return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                }
                else
                {
                    return CLGEMMKernelType::RESHAPED;
                }
            }
        }
        else
        {
            if (k <= 471)
            {
                return CLGEMMKernelType::RESHAPED_ONLY_RHS;
            }
            else
            {
                if (r_mn <= 0.04475911520421505f)
                {
                    return CLGEMMKernelType::RESHAPED;
                }
                else
                {
                    return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                }
            }
        }
    }
}

CLGEMMKernelType
CLGEMMDefaultTypeBifrost::g52_f16(unsigned int m, unsigned int n, unsigned int k, unsigned int b, bool is_rhs_constant)
{
    if (!is_rhs_constant)
    {
        return CLGEMMKernelType::NATIVE;
    }

    if (m == 1)
    {
        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
    }

    if (n <= 127.0000f)
    {
        if (n <= 63.5000f)
        {
            return CLGEMMKernelType::RESHAPED_ONLY_RHS;
        }
        else
        {
            if (m <= 3616.0000f)
            {
                if (b <= 18.5000f)
                {
                    if (m <= 2970.5000f)
                    {
                        return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                    }
                    else
                    {
                        if (k <= 104.0000f)
                        {
                            return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                        }
                        else
                        {
                            return CLGEMMKernelType::RESHAPED;
                        }
                    }
                }
                else
                {
                    return CLGEMMKernelType::RESHAPED;
                }
            }
            else
            {
                return CLGEMMKernelType::RESHAPED;
            }
        }
    }
    else
    {
        if (m <= 12.5000f)
        {
            return CLGEMMKernelType::RESHAPED_ONLY_RHS;
        }
        else
        {
            if (k <= 104.0000f)
            {
                if (b <= 18.5000f)
                {
                    if (m <= 490.0000f)
                    {
                        if (n <= 272.0000f)
                        {
                            return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                        }
                        else
                        {
                            return CLGEMMKernelType::RESHAPED;
                        }
                    }
                    else
                    {
                        return CLGEMMKernelType::RESHAPED;
                    }
                }
                else
                {
                    return CLGEMMKernelType::RESHAPED;
                }
            }
            else
            {
                if (m <= 226.0000f)
                {
                    if (n <= 140.0000f)
                    {
                        if (m <= 179.5000f)
                        {
                            return CLGEMMKernelType::RESHAPED;
                        }
                        else
                        {
                            return CLGEMMKernelType::RESHAPED_ONLY_RHS;
                        }
                    }
                    else
                    {
                        return CLGEMMKernelType::RESHAPED;
                    }
                }
                else
                {
                    return CLGEMMKernelType::RESHAPED;
                }
            }
        }
    }
}

CLGEMMKernelType
CLGEMMDefaultTypeBifrost::g71_f16(unsigned int m, unsigned int n, unsigned int k, unsigned int b, bool is_rhs_constant)
{
    ARM_COMPUTE_UNUSED(b);
    ARM_COMPUTE_UNUSED(n);
    ARM_COMPUTE_UNUSED(k);

    if (is_rhs_constant)
    {
        if (m == 1)
        {
            return CLGEMMKernelType::RESHAPED_ONLY_RHS;
        }
        else
        {
            return CLGEMMKernelType::RESHAPED;
        }
    }
    else
    {
        return CLGEMMKernelType::NATIVE;
    }
}
} // namespace cl_gemm
} // namespace arm_compute