/*
 * Copyright 2016 Advanced Micro Devices, Inc.
 *
 * 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 COPYRIGHT HOLDER(S) OR AUTHOR(S) 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 "amdgpu.h"

uint64_t amdgpu_csa_vaddr(struct amdgpu_device *adev)
{
        uint64_t addr = adev->vm_manager.max_pfn << AMDGPU_GPU_PAGE_SHIFT;

        addr -= AMDGPU_VA_RESERVED_SIZE;
        addr = amdgpu_gmc_sign_extend(addr);

        return addr;
}

bool amdgpu_virt_mmio_blocked(struct amdgpu_device *adev)
{
        /* By now all MMIO pages except mailbox are blocked */
        /* if blocking is enabled in hypervisor. Choose the */
        /* SCRATCH_REG0 to test. */
        return RREG32_NO_KIQ(0xc040) == 0xffffffff;
}

int amdgpu_allocate_static_csa(struct amdgpu_device *adev)
{
        int r;
        void *ptr;

        r = amdgpu_bo_create_kernel(adev, AMDGPU_CSA_SIZE, PAGE_SIZE,
                                AMDGPU_GEM_DOMAIN_VRAM, &adev->virt.csa_obj,
                                (u64 *)&adev->virt.csa_vmid0_addr, &ptr);
        if (r)
                return r;

        memset(ptr, 0, AMDGPU_CSA_SIZE);
        return 0;
}

void amdgpu_free_static_csa(struct amdgpu_device *adev) {
        amdgpu_bo_free_kernel(&adev->virt.csa_obj,
                                                (u64 *)&adev->virt.csa_vmid0_addr,
                                                NULL);
}

/*
 * amdgpu_map_static_csa should be called during amdgpu_vm_init
 * it maps virtual address amdgpu_csa_vaddr() to this VM, and each command
 * submission of GFX should use this virtual address within META_DATA init
 * package to support SRIOV gfx preemption.
 */
int amdgpu_map_static_csa(struct amdgpu_device *adev, struct amdgpu_vm *vm,
                          struct amdgpu_bo_va **bo_va)
{
        uint64_t csa_addr = amdgpu_csa_vaddr(adev) & AMDGPU_GMC_HOLE_MASK;
        struct ww_acquire_ctx ticket;
        struct list_head list;
        struct amdgpu_bo_list_entry pd;
        struct ttm_validate_buffer csa_tv;
        int r;

        INIT_LIST_HEAD(&list);
        INIT_LIST_HEAD(&csa_tv.head);
        csa_tv.bo = &adev->virt.csa_obj->tbo;
        csa_tv.shared = true;

        list_add(&csa_tv.head, &list);
        amdgpu_vm_get_pd_bo(vm, &list, &pd);

        r = ttm_eu_reserve_buffers(&ticket, &list, true, NULL);
        if (r) {
                DRM_ERROR("failed to reserve CSA,PD BOs: err=%d\n", r);
                return r;
        }

        *bo_va = amdgpu_vm_bo_add(adev, vm, adev->virt.csa_obj);
        if (!*bo_va) {
                ttm_eu_backoff_reservation(&ticket, &list);
                DRM_ERROR("failed to create bo_va for static CSA\n");
                return -ENOMEM;
        }

        r = amdgpu_vm_alloc_pts(adev, (*bo_va)->base.vm, csa_addr,
                                AMDGPU_CSA_SIZE);
        if (r) {
                DRM_ERROR("failed to allocate pts for static CSA, err=%d\n", r);
                amdgpu_vm_bo_rmv(adev, *bo_va);
                ttm_eu_backoff_reservation(&ticket, &list);
                return r;
        }

        r = amdgpu_vm_bo_map(adev, *bo_va, csa_addr, 0, AMDGPU_CSA_SIZE,
                             AMDGPU_PTE_READABLE | AMDGPU_PTE_WRITEABLE |
                             AMDGPU_PTE_EXECUTABLE);

        if (r) {
                DRM_ERROR("failed to do bo_map on static CSA, err=%d\n", r);
                amdgpu_vm_bo_rmv(adev, *bo_va);
                ttm_eu_backoff_reservation(&ticket, &list);
                return r;
        }

        ttm_eu_backoff_reservation(&ticket, &list);
        return 0;
}

void amdgpu_virt_init_setting(struct amdgpu_device *adev)
{
        /* enable virtual display */
        adev->mode_info.num_crtc = 1;
        adev->enable_virtual_display = true;
        adev->cg_flags = 0;
        adev->pg_flags = 0;
}

uint32_t amdgpu_virt_kiq_rreg(struct amdgpu_device *adev, uint32_t reg)
{
        signed long r, cnt = 0;
        unsigned long flags;
        uint32_t seq;
        struct amdgpu_kiq *kiq = &adev->gfx.kiq;
        struct amdgpu_ring *ring = &kiq->ring;

        BUG_ON(!ring->funcs->emit_rreg);

        spin_lock_irqsave(&kiq->ring_lock, flags);
        amdgpu_ring_alloc(ring, 32);
        amdgpu_ring_emit_rreg(ring, reg);
        amdgpu_fence_emit_polling(ring, &seq);
        amdgpu_ring_commit(ring);
        spin_unlock_irqrestore(&kiq->ring_lock, flags);

        r = amdgpu_fence_wait_polling(ring, seq, MAX_KIQ_REG_WAIT);

        /* don't wait anymore for gpu reset case because this way may
         * block gpu_recover() routine forever, e.g. this virt_kiq_rreg
         * is triggered in TTM and ttm_bo_lock_delayed_workqueue() will
         * never return if we keep waiting in virt_kiq_rreg, which cause
         * gpu_recover() hang there.
         *
         * also don't wait anymore for IRQ context
         * */
#if 0
        if (r < 1 && (adev->in_gpu_reset || in_interrupt()))
                goto failed_kiq_read;

        if (in_interrupt())
                might_sleep();
#endif
        kprintf("amdgpu_virt_kiq_rreg: implement in_interrupt() function\n");
        if (r < 1 && (adev->in_gpu_reset))
                goto failed_kiq_read;


        while (r < 1 && cnt++ < MAX_KIQ_REG_TRY) {
                msleep(MAX_KIQ_REG_BAILOUT_INTERVAL);
                r = amdgpu_fence_wait_polling(ring, seq, MAX_KIQ_REG_WAIT);
        }

        if (cnt > MAX_KIQ_REG_TRY)
                goto failed_kiq_read;

        return adev->wb.wb[adev->virt.reg_val_offs];

failed_kiq_read:
        pr_err("failed to read reg:%x\n", reg);
        return ~0;
}

void amdgpu_virt_kiq_wreg(struct amdgpu_device *adev, uint32_t reg, uint32_t v)
{
        signed long r, cnt = 0;
        unsigned long flags;
        uint32_t seq;
        struct amdgpu_kiq *kiq = &adev->gfx.kiq;
        struct amdgpu_ring *ring = &kiq->ring;

        BUG_ON(!ring->funcs->emit_wreg);

        spin_lock_irqsave(&kiq->ring_lock, flags);
        amdgpu_ring_alloc(ring, 32);
        amdgpu_ring_emit_wreg(ring, reg, v);
        amdgpu_fence_emit_polling(ring, &seq);
        amdgpu_ring_commit(ring);
        spin_unlock_irqrestore(&kiq->ring_lock, flags);

        r = amdgpu_fence_wait_polling(ring, seq, MAX_KIQ_REG_WAIT);

        /* don't wait anymore for gpu reset case because this way may
         * block gpu_recover() routine forever, e.g. this virt_kiq_rreg
         * is triggered in TTM and ttm_bo_lock_delayed_workqueue() will
         * never return if we keep waiting in virt_kiq_rreg, which cause
         * gpu_recover() hang there.
         *
         * also don't wait anymore for IRQ context
         * */
#if 0
        if (r < 1 && (adev->in_gpu_reset || in_interrupt()))
                goto failed_kiq_write;

        if (in_interrupt())
                might_sleep();
#endif
        kprintf("amdgpu_virt_kiq_wreg: implement in_interrupt() function\n");
        if (r < 1 && (adev->in_gpu_reset))
                goto failed_kiq_write;

        while (r < 1 && cnt++ < MAX_KIQ_REG_TRY) {

                msleep(MAX_KIQ_REG_BAILOUT_INTERVAL);
                r = amdgpu_fence_wait_polling(ring, seq, MAX_KIQ_REG_WAIT);
        }

        if (cnt > MAX_KIQ_REG_TRY)
                goto failed_kiq_write;

        return;

failed_kiq_write:
        pr_err("failed to write reg:%x\n", reg);
}

/**
 * amdgpu_virt_request_full_gpu() - request full gpu access
 * @amdgpu:     amdgpu device.
 * @init:       is driver init time.
 * When start to init/fini driver, first need to request full gpu access.
 * Return: Zero if request success, otherwise will return error.
 */
int amdgpu_virt_request_full_gpu(struct amdgpu_device *adev, bool init)
{
        struct amdgpu_virt *virt = &adev->virt;
        int r;

        if (virt->ops && virt->ops->req_full_gpu) {
                r = virt->ops->req_full_gpu(adev, init);
                if (r)
                        return r;

                adev->virt.caps &= ~AMDGPU_SRIOV_CAPS_RUNTIME;
        }

        return 0;
}

/**
 * amdgpu_virt_release_full_gpu() - release full gpu access
 * @amdgpu:     amdgpu device.
 * @init:       is driver init time.
 * When finishing driver init/fini, need to release full gpu access.
 * Return: Zero if release success, otherwise will returen error.
 */
int amdgpu_virt_release_full_gpu(struct amdgpu_device *adev, bool init)
{
        struct amdgpu_virt *virt = &adev->virt;
        int r;

        if (virt->ops && virt->ops->rel_full_gpu) {
                r = virt->ops->rel_full_gpu(adev, init);
                if (r)
                        return r;

                adev->virt.caps |= AMDGPU_SRIOV_CAPS_RUNTIME;
        }
        return 0;
}

/**
 * amdgpu_virt_reset_gpu() - reset gpu
 * @amdgpu:     amdgpu device.
 * Send reset command to GPU hypervisor to reset GPU that VM is using
 * Return: Zero if reset success, otherwise will return error.
 */
int amdgpu_virt_reset_gpu(struct amdgpu_device *adev)
{
        struct amdgpu_virt *virt = &adev->virt;
        int r;

        if (virt->ops && virt->ops->reset_gpu) {
                r = virt->ops->reset_gpu(adev);
                if (r)
                        return r;

                adev->virt.caps &= ~AMDGPU_SRIOV_CAPS_RUNTIME;
        }

        return 0;
}

/**
 * amdgpu_virt_wait_reset() - wait for reset gpu completed
 * @amdgpu:     amdgpu device.
 * Wait for GPU reset completed.
 * Return: Zero if reset success, otherwise will return error.
 */
int amdgpu_virt_wait_reset(struct amdgpu_device *adev)
{
        struct amdgpu_virt *virt = &adev->virt;

        if (!virt->ops || !virt->ops->wait_reset)
                return -EINVAL;

        return virt->ops->wait_reset(adev);
}

/**
 * amdgpu_virt_alloc_mm_table() - alloc memory for mm table
 * @amdgpu:     amdgpu device.
 * MM table is used by UVD and VCE for its initialization
 * Return: Zero if allocate success.
 */
int amdgpu_virt_alloc_mm_table(struct amdgpu_device *adev)
{
        int r;

        if (!amdgpu_sriov_vf(adev) || adev->virt.mm_table.gpu_addr)
                return 0;

        r = amdgpu_bo_create_kernel(adev, PAGE_SIZE, PAGE_SIZE,
                                    AMDGPU_GEM_DOMAIN_VRAM,
                                    &adev->virt.mm_table.bo,
                                    (u64 *)&adev->virt.mm_table.gpu_addr,
                                    (void *)&adev->virt.mm_table.cpu_addr);
        if (r) {
                DRM_ERROR("failed to alloc mm table and error = %d.\n", r);
                return r;
        }

        memset((void *)adev->virt.mm_table.cpu_addr, 0, PAGE_SIZE);
        DRM_INFO("MM table gpu addr = 0x%lx, cpu addr = %p.\n",
                 adev->virt.mm_table.gpu_addr,
                 adev->virt.mm_table.cpu_addr);
        return 0;
}

/**
 * amdgpu_virt_free_mm_table() - free mm table memory
 * @amdgpu:     amdgpu device.
 * Free MM table memory
 */
void amdgpu_virt_free_mm_table(struct amdgpu_device *adev)
{
        if (!amdgpu_sriov_vf(adev) || !adev->virt.mm_table.gpu_addr)
                return;

        amdgpu_bo_free_kernel(&adev->virt.mm_table.bo,
                              (u64 *)&adev->virt.mm_table.gpu_addr,
                              (void *)&adev->virt.mm_table.cpu_addr);
        adev->virt.mm_table.gpu_addr = 0;
}


int amdgpu_virt_fw_reserve_get_checksum(void *obj,
                                        unsigned long obj_size,
                                        unsigned int key,
                                        unsigned int chksum)
{
        unsigned int ret = key;
        unsigned long i = 0;
        unsigned char *pos;

        pos = (char *)obj;
        /* calculate checksum */
        for (i = 0; i < obj_size; ++i)
                ret += *(pos + i);
        /* minus the chksum itself */
        pos = (char *)&chksum;
        for (i = 0; i < sizeof(chksum); ++i)
                ret -= *(pos + i);
        return ret;
}

void amdgpu_virt_init_data_exchange(struct amdgpu_device *adev)
{
        uint32_t pf2vf_size = 0;
        uint32_t checksum = 0;
        uint32_t checkval;
        char *str;

        adev->virt.fw_reserve.p_pf2vf = NULL;
        adev->virt.fw_reserve.p_vf2pf = NULL;

        if (adev->fw_vram_usage.va != NULL) {
                adev->virt.fw_reserve.p_pf2vf =
                        (struct amdgim_pf2vf_info_header *)(
                        adev->fw_vram_usage.va + AMDGIM_DATAEXCHANGE_OFFSET);
                AMDGPU_FW_VRAM_PF2VF_READ(adev, header.size, &pf2vf_size);
                AMDGPU_FW_VRAM_PF2VF_READ(adev, checksum, &checksum);
                AMDGPU_FW_VRAM_PF2VF_READ(adev, feature_flags, &adev->virt.gim_feature);

                /* pf2vf message must be in 4K */
                if (pf2vf_size > 0 && pf2vf_size < 4096) {
                        checkval = amdgpu_virt_fw_reserve_get_checksum(
                                adev->virt.fw_reserve.p_pf2vf, pf2vf_size,
                                adev->virt.fw_reserve.checksum_key, checksum);
                        if (checkval == checksum) {
                                adev->virt.fw_reserve.p_vf2pf =
                                        ((void *)adev->virt.fw_reserve.p_pf2vf +
                                        pf2vf_size);
                                memset((void *)adev->virt.fw_reserve.p_vf2pf, 0,
                                        sizeof(amdgim_vf2pf_info));
                                AMDGPU_FW_VRAM_VF2PF_WRITE(adev, header.version,
                                        AMDGPU_FW_VRAM_VF2PF_VER);
                                AMDGPU_FW_VRAM_VF2PF_WRITE(adev, header.size,
                                        sizeof(amdgim_vf2pf_info));
                                AMDGPU_FW_VRAM_VF2PF_READ(adev, driver_version,
                                        &str);
#ifdef MODULE
                                if (THIS_MODULE->version != NULL)
                                        strcpy(str, THIS_MODULE->version);
                                else
#endif
                                        strcpy(str, "N/A");
                                AMDGPU_FW_VRAM_VF2PF_WRITE(adev, driver_cert,
                                        0);
                                AMDGPU_FW_VRAM_VF2PF_WRITE(adev, checksum,
                                        amdgpu_virt_fw_reserve_get_checksum(
                                        adev->virt.fw_reserve.p_vf2pf,
                                        pf2vf_size,
                                        adev->virt.fw_reserve.checksum_key, 0));
                        }
                }
        }
}