/*	$NetBSD: hyperv_common.c,v 1.1.2.3 2019/06/12 10:17:32 martin Exp $	*/

/*-
 * Copyright (c) 2009-2012,2016-2017 Microsoft Corp.
 * Copyright (c) 2012 NetApp Inc.
 * Copyright (c) 2012 Citrix Inc.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice unmodified, this list of conditions, and the following
 *    disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: hyperv_common.c,v 1.1.2.3 2019/06/12 10:17:32 martin Exp $");

#include "hyperv.h"

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/bus.h>
#include <sys/kmem.h>

#include <dev/hyperv/hypervreg.h>
#include <dev/hyperv/hypervvar.h>

hyperv_tc64_t hyperv_tc64;

int		hyperv_nullop(void);
void		hyperv_voidop(void);
uint64_t	hyperv_hypercall_error(uint64_t, paddr_t, paddr_t);

__weak_alias(hyperv_hypercall, hyperv_hypercall_error);
__weak_alias(hyperv_hypercall_enabled, hyperv_nullop);
__weak_alias(hyperv_synic_supported, hyperv_nullop);
__weak_alias(hyperv_is_gen1, hyperv_nullop);
__weak_alias(hyperv_set_event_proc, hyperv_voidop);
__weak_alias(hyperv_set_message_proc, hyperv_voidop);
__weak_alias(hyperv_send_eom, hyperv_voidop);
__weak_alias(hyperv_intr, hyperv_voidop);
__weak_alias(vmbus_init_interrupts_md, hyperv_voidop);
__weak_alias(vmbus_deinit_interrupts_md, hyperv_voidop);
__weak_alias(vmbus_init_synic_md, hyperv_voidop);
__weak_alias(vmbus_deinit_synic_md, hyperv_voidop);

int
hyperv_nullop(void)
{
	return 0;
}

void
hyperv_voidop(void)
{
}

uint64_t
hyperv_hypercall_error(uint64_t control, paddr_t in_paddr, paddr_t out_paddr)
{
	return ~HYPERCALL_STATUS_SUCCESS;
}

uint64_t
hyperv_hypercall_post_message(paddr_t msg)
{

	return hyperv_hypercall(HYPERCALL_POST_MESSAGE, msg, 0);
}

uint64_t
hyperv_hypercall_signal_event(paddr_t monprm)
{

	return hyperv_hypercall(HYPERCALL_SIGNAL_EVENT, monprm, 0);
}

int
hyperv_guid2str(const struct hyperv_guid *guid, char *buf, size_t sz)
{
	const uint8_t *d = guid->hv_guid;

	return snprintf(buf, sz, "%02x%02x%02x%02x-"
	    "%02x%02x-%02x%02x-%02x%02x-"
	    "%02x%02x%02x%02x%02x%02x",
	    d[3], d[2], d[1], d[0],
	    d[5], d[4], d[7], d[6], d[8], d[9],
	    d[10], d[11], d[12], d[13], d[14], d[15]);
}

/*
 * Hyper-V bus_dma utilities.
 */
void *
hyperv_dma_alloc(bus_dma_tag_t dmat, struct hyperv_dma *dma, bus_size_t size,
    bus_size_t alignment, bus_size_t boundary, int nsegs)
{
	const int kmemflags = cold ? KM_NOSLEEP : KM_SLEEP;
	const int dmaflags = cold ? BUS_DMA_NOWAIT : BUS_DMA_WAITOK;
	int rseg, error;

	KASSERT(dma != NULL);
	KASSERT(dma->segs == NULL);
	KASSERT(nsegs > 0);

	dma->segs = kmem_zalloc(sizeof(*dma->segs) * nsegs, kmemflags);
	if (dma->segs == NULL)
		return NULL;

	dma->nsegs = nsegs;

	error = bus_dmamem_alloc(dmat, size, alignment, boundary, dma->segs,
	    nsegs, &rseg, dmaflags);
	if (error) {
		printf("%s: bus_dmamem_alloc failed: error=%d\n",
		    __func__, error);
		goto fail1;
	}
	error = bus_dmamem_map(dmat, dma->segs, rseg, size, &dma->addr,
	    dmaflags);
	if (error) {
		printf("%s: bus_dmamem_map failed: error=%d\n",
		    __func__, error);
		goto fail2;
	}
	error = bus_dmamap_create(dmat, size, rseg, size, boundary, dmaflags,
	    &dma->map);
	if (error) {
		printf("%s: bus_dmamap_create failed: error=%d\n",
		    __func__, error);
		goto fail3;
	}
	error = bus_dmamap_load(dmat, dma->map, dma->addr, size, NULL,
	    BUS_DMA_READ | BUS_DMA_WRITE | dmaflags);
	if (error) {
		printf("%s: bus_dmamap_load failed: error=%d\n",
		    __func__, error);
		goto fail4;
	}

	return dma->addr;

fail4:	bus_dmamap_destroy(dmat, dma->map);
fail3:	bus_dmamem_unmap(dmat, dma->addr, size);
	dma->addr = NULL;
fail2:	bus_dmamem_free(dmat, dma->segs, rseg);
fail1:	kmem_free(dma->segs, sizeof(*dma->segs) * nsegs);
	dma->segs = NULL;
	dma->nsegs = 0;
	return NULL;
}

void
hyperv_dma_free(bus_dma_tag_t dmat, struct hyperv_dma *dma)
{
	bus_size_t size = dma->map->dm_mapsize;
	int rsegs = dma->map->dm_nsegs;

	bus_dmamap_unload(dmat, dma->map);
	bus_dmamap_destroy(dmat, dma->map);
	bus_dmamem_unmap(dmat, dma->addr, size);
	dma->addr = NULL;
	bus_dmamem_free(dmat, dma->segs, rsegs);
	kmem_free(dma->segs, sizeof(*dma->segs) * dma->nsegs);
	dma->segs = NULL;
	dma->nsegs = 0;
}