/*      $NetBSD: netbsd32_vm.c,v 1.3 2021/01/19 01:47:58 simonb Exp $   */

/*
 * Copyright (c) 1998, 2001, 2008, 2018 Matthew R. Green
 * 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, 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.
 *
 * from: NetBSD: netbsd32_netbsd.c,v 1.221 2018/12/24 20:44:39 mrg Exp
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: netbsd32_vm.c,v 1.3 2021/01/19 01:47:58 simonb Exp $");

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/mman.h>
#include <sys/filedesc.h>
#include <sys/vfs_syscalls.h>

#include <compat/sys/mman.h>
#include <compat/netbsd32/netbsd32.h>
#include <compat/netbsd32/netbsd32_syscall.h>
#include <compat/netbsd32/netbsd32_syscallargs.h>
#include <compat/netbsd32/netbsd32_conv.h>


int
netbsd32_mmap(struct lwp *l, const struct netbsd32_mmap_args *uap, register_t *retval)
{
        /* {
                syscallarg(netbsd32_voidp) addr;
                syscallarg(netbsd32_size_t) len;
                syscallarg(int) prot;
                syscallarg(int) flags;
                syscallarg(int) fd;
                syscallarg(netbsd32_long) PAD;
                syscallarg(netbsd32_off_t) pos;
        } */
        struct sys_mmap_args ua;
        int error;

        NETBSD32TOP_UAP(addr, void);
        NETBSD32TOX_UAP(len, size_t);
        NETBSD32TO64_UAP(prot);
        NETBSD32TO64_UAP(flags);
#ifdef __x86_64__
        /*
         * Ancient kernel on x86 did not obey PROT_EXEC on i386 at least
         * and ld.so did not turn it on!
         */
        if (SCARG(&ua, flags) & COMPAT_MAP_COPY) {
                SCARG(&ua, flags) = MAP_PRIVATE
                    | (SCARG(&ua, flags) & ~COMPAT_MAP_COPY);
                SCARG(&ua, prot) |= PROT_EXEC;
        }
#endif
        NETBSD32TO64_UAP(fd);
        NETBSD32TOX_UAP(PAD, long);
        NETBSD32TOX_UAP(pos, off_t);
#ifdef DEBUG_MMAP
        printf("mmap(addr=0x%lx, len=0x%lx, prot=0x%lx, flags=0x%lx, "
            "fd=%ld, pos=0x%lx);\n",
            (long)SCARG(&ua, addr), (long)SCARG(&ua, len),
            (long)SCARG(&ua, prot), (long)SCARG(&ua, flags),
            (long)SCARG(&ua, fd), (long)SCARG(&ua, pos));
#endif

        error = sys_mmap(l, &ua, retval);
#ifdef DEBUG_MMAP
        printf("mmap error = %d  *retval = %#"PRIxREGISTER"\n", error, *retval);
#endif
        if (error == 0 && (u_long)*retval > (u_long)UINT_MAX) {
                const char *name = curlwp->l_name;

                if (name == NULL)
                        name = curproc->p_comm;
                printf("netbsd32_mmap(%s:%u:%u): retval out of range: 0x%lx\n",
                    name, curproc->p_pid, curlwp->l_lid, (u_long)*retval);
                /* Should try to recover and return an error here. */
        }
        return error;
}