[mirror_ubuntu-bionic-kernel.git] / arch / ia64 / kernel / sys_ia64.c

/*
 * This file contains various system calls that have different calling
 * conventions on different platforms.
 *
 * Copyright (C) 1999-2000, 2002-2003, 2005 Hewlett-Packard Co
 *	David Mosberger-Tang <davidm@hpl.hp.com>
 */
#include <linux/errno.h>
#include <linux/fs.h>
#include <linux/mm.h>
#include <linux/mman.h>
#include <linux/sched.h>
#include <linux/shm.h>
#include <linux/file.h>		/* doh, must come after sched.h... */
#include <linux/smp.h>
#include <linux/syscalls.h>
#include <linux/highuid.h>
#include <linux/hugetlb.h>

#include <asm/shmparam.h>
#include <asm/uaccess.h>

unsigned long
arch_get_unmapped_area (struct file *filp, unsigned long addr, unsigned long len,
			unsigned long pgoff, unsigned long flags)
{
	long map_shared = (flags & MAP_SHARED);
	unsigned long start_addr, align_mask = PAGE_SIZE - 1;
	struct mm_struct *mm = current->mm;
	struct vm_area_struct *vma;

	if (len > RGN_MAP_LIMIT)
		return -ENOMEM;

	/* handle fixed mapping: prevent overlap with huge pages */
	if (flags & MAP_FIXED) {
		if (is_hugepage_only_range(mm, addr, len))
			return -EINVAL;
		return addr;
	}

#ifdef CONFIG_HUGETLB_PAGE
	if (REGION_NUMBER(addr) == RGN_HPAGE)
		addr = 0;
#endif
	if (!addr)
		addr = mm->free_area_cache;

	if (map_shared && (TASK_SIZE > 0xfffffffful))
		/*
		 * For 64-bit tasks, align shared segments to 1MB to avoid potential
		 * performance penalty due to virtual aliasing (see ASDM).  For 32-bit
		 * tasks, we prefer to avoid exhausting the address space too quickly by
		 * limiting alignment to a single page.
		 */
		align_mask = SHMLBA - 1;

  full_search:
	start_addr = addr = (addr + align_mask) & ~align_mask;

	for (vma = find_vma(mm, addr); ; vma = vma->vm_next) {
		/* At this point:  (!vma || addr < vma->vm_end). */
		if (TASK_SIZE - len < addr || RGN_MAP_LIMIT - len < REGION_OFFSET(addr)) {
			if (start_addr != TASK_UNMAPPED_BASE) {
				/* Start a new search --- just in case we missed some holes.  */
				addr = TASK_UNMAPPED_BASE;
				goto full_search;
			}
			return -ENOMEM;
		}
		if (!vma || addr + len <= vma->vm_start) {
			/* Remember the address where we stopped this search:  */
			mm->free_area_cache = addr + len;
			return addr;
		}
		addr = (vma->vm_end + align_mask) & ~align_mask;
	}
}

asmlinkage long
ia64_getpriority (int which, int who)
{
	long prio;

	prio = sys_getpriority(which, who);
	if (prio >= 0) {
		force_successful_syscall_return();
		prio = 20 - prio;
	}
	return prio;
}

/* XXX obsolete, but leave it here until the old libc is gone... */
asmlinkage unsigned long
sys_getpagesize (void)
{
	return PAGE_SIZE;
}

asmlinkage unsigned long
ia64_brk (unsigned long brk)
{
	unsigned long rlim, retval, newbrk, oldbrk;
	struct mm_struct *mm = current->mm;

	/*
	 * Most of this replicates the code in sys_brk() except for an additional safety
	 * check and the clearing of r8.  However, we can't call sys_brk() because we need
	 * to acquire the mmap_sem before we can do the test...
	 */
	down_write(&mm->mmap_sem);

	if (brk < mm->end_code)
		goto out;
	newbrk = PAGE_ALIGN(brk);
	oldbrk = PAGE_ALIGN(mm->brk);
	if (oldbrk == newbrk)
		goto set_brk;

	/* Always allow shrinking brk. */
	if (brk <= mm->brk) {
		if (!do_munmap(mm, newbrk, oldbrk-newbrk))
			goto set_brk;
		goto out;
	}

	/* Check against unimplemented/unmapped addresses: */
	if ((newbrk - oldbrk) > RGN_MAP_LIMIT || REGION_OFFSET(newbrk) > RGN_MAP_LIMIT)
		goto out;

	/* Check against rlimit.. */
	rlim = current->signal->rlim[RLIMIT_DATA].rlim_cur;
	if (rlim < RLIM_INFINITY && brk - mm->start_data > rlim)
		goto out;

	/* Check against existing mmap mappings. */
	if (find_vma_intersection(mm, oldbrk, newbrk+PAGE_SIZE))
		goto out;

	/* Ok, looks good - let it rip. */
	if (do_brk(oldbrk, newbrk-oldbrk) != oldbrk)
		goto out;
set_brk:
	mm->brk = brk;
out:
	retval = mm->brk;
	up_write(&mm->mmap_sem);
	force_successful_syscall_return();
	return retval;
}

/*
 * On IA-64, we return the two file descriptors in ret0 and ret1 (r8
 * and r9) as this is faster than doing a copy_to_user().
 */
asmlinkage long
sys_ia64_pipe (void)
{
	struct pt_regs *regs = task_pt_regs(current);
	int fd[2];
	int retval;

	retval = do_pipe_flags(fd, 0);
	if (retval)
		goto out;
	retval = fd[0];
	regs->r9 = fd[1];
  out:
	return retval;
}

int ia64_mmap_check(unsigned long addr, unsigned long len,
		unsigned long flags)
{
	unsigned long roff;

	/*
	 * Don't permit mappings into unmapped space, the virtual page table
	 * of a region, or across a region boundary.  Note: RGN_MAP_LIMIT is
	 * equal to 2^n-PAGE_SIZE (for some integer n <= 61) and len > 0.
	 */
	roff = REGION_OFFSET(addr);
	if ((len > RGN_MAP_LIMIT) || (roff > (RGN_MAP_LIMIT - len)))
		return -EINVAL;
	return 0;
}

static inline unsigned long
do_mmap2 (unsigned long addr, unsigned long len, int prot, int flags, int fd, unsigned long pgoff)
{
	struct file *file = NULL;

	flags &= ~(MAP_EXECUTABLE | MAP_DENYWRITE);
	if (!(flags & MAP_ANONYMOUS)) {
		file = fget(fd);
		if (!file)
			return -EBADF;

		if (!file->f_op || !file->f_op->mmap) {
			addr = -ENODEV;
			goto out;
		}
	}

	/* Careful about overflows.. */
	len = PAGE_ALIGN(len);
	if (!len || len > TASK_SIZE) {
		addr = -EINVAL;
		goto out;
	}

	down_write(&current->mm->mmap_sem);
	addr = do_mmap_pgoff(file, addr, len, prot, flags, pgoff);
	up_write(&current->mm->mmap_sem);

out:	if (file)
		fput(file);
	return addr;
}

/*
 * mmap2() is like mmap() except that the offset is expressed in units
 * of PAGE_SIZE (instead of bytes).  This allows to mmap2() (pieces
 * of) files that are larger than the address space of the CPU.
 */
asmlinkage unsigned long
sys_mmap2 (unsigned long addr, unsigned long len, int prot, int flags, int fd, long pgoff)
{
	addr = do_mmap2(addr, len, prot, flags, fd, pgoff);
	if (!IS_ERR((void *) addr))
		force_successful_syscall_return();
	return addr;
}

asmlinkage unsigned long
sys_mmap (unsigned long addr, unsigned long len, int prot, int flags, int fd, long off)
{
	if (offset_in_page(off) != 0)
		return -EINVAL;

	addr = do_mmap2(addr, len, prot, flags, fd, off >> PAGE_SHIFT);
	if (!IS_ERR((void *) addr))
		force_successful_syscall_return();
	return addr;
}

asmlinkage unsigned long
ia64_mremap (unsigned long addr, unsigned long old_len, unsigned long new_len, unsigned long flags,
	     unsigned long new_addr)
{
	extern unsigned long do_mremap (unsigned long addr,
					unsigned long old_len,
					unsigned long new_len,
					unsigned long flags,
					unsigned long new_addr);

	down_write(&current->mm->mmap_sem);
	{
		addr = do_mremap(addr, old_len, new_len, flags, new_addr);
	}
	up_write(&current->mm->mmap_sem);

	if (IS_ERR((void *) addr))
		return addr;

	force_successful_syscall_return();
	return addr;
}

#ifndef CONFIG_PCI

asmlinkage long
sys_pciconfig_read (unsigned long bus, unsigned long dfn, unsigned long off, unsigned long len,
		    void *buf)
{
	return -ENOSYS;
}

asmlinkage long
sys_pciconfig_write (unsigned long bus, unsigned long dfn, unsigned long off, unsigned long len,
		     void *buf)
{
	return -ENOSYS;
}

#endif /* CONFIG_PCI */
Commit	Line	Data
1da177e4 LT	1	/*
	2	* This file contains various system calls that have different calling
	3	* conventions on different platforms.
	4	*
	5	* Copyright (C) 1999-2000, 2002-2003, 2005 Hewlett-Packard Co
	6	* David Mosberger-Tang <davidm@hpl.hp.com>
	7	*/
1da177e4 LT	8	#include <linux/errno.h>
	9	#include <linux/fs.h>
	10	#include <linux/mm.h>
	11	#include <linux/mman.h>
	12	#include <linux/sched.h>
	13	#include <linux/shm.h>
	14	#include <linux/file.h> /* doh, must come after sched.h... */
	15	#include <linux/smp.h>
1da177e4 LT	16	#include <linux/syscalls.h>
	17	#include <linux/highuid.h>
	18	#include <linux/hugetlb.h>
	19
	20	#include <asm/shmparam.h>
	21	#include <asm/uaccess.h>
	22
	23	unsigned long
	24	arch_get_unmapped_area (struct file *filp, unsigned long addr, unsigned long len,
	25	unsigned long pgoff, unsigned long flags)
	26	{
	27	long map_shared = (flags & MAP_SHARED);
	28	unsigned long start_addr, align_mask = PAGE_SIZE - 1;
	29	struct mm_struct *mm = current->mm;
	30	struct vm_area_struct *vma;
	31
	32	if (len > RGN_MAP_LIMIT)
	33	return -ENOMEM;
	34
afa37394 BH	35	/* handle fixed mapping: prevent overlap with huge pages */
	36	if (flags & MAP_FIXED) {
	37	if (is_hugepage_only_range(mm, addr, len))
	38	return -EINVAL;
	39	return addr;
	40	}
	41
1da177e4	42	#ifdef CONFIG_HUGETLB_PAGE
0a41e250	43	if (REGION_NUMBER(addr) == RGN_HPAGE)
1da177e4 LT	44	addr = 0;
	45	#endif
	46	if (!addr)
	47	addr = mm->free_area_cache;
	48
	49	if (map_shared && (TASK_SIZE > 0xfffffffful))
	50	/*
	51	* For 64-bit tasks, align shared segments to 1MB to avoid potential
	52	* performance penalty due to virtual aliasing (see ASDM). For 32-bit
	53	* tasks, we prefer to avoid exhausting the address space too quickly by
	54	* limiting alignment to a single page.
	55	*/
	56	align_mask = SHMLBA - 1;
	57
	58	full_search:
	59	start_addr = addr = (addr + align_mask) & ~align_mask;
	60
	61	for (vma = find_vma(mm, addr); ; vma = vma->vm_next) {
	62	/* At this point: (!vma \|\| addr < vma->vm_end). */
	63	if (TASK_SIZE - len < addr \|\| RGN_MAP_LIMIT - len < REGION_OFFSET(addr)) {
	64	if (start_addr != TASK_UNMAPPED_BASE) {
	65	/* Start a new search --- just in case we missed some holes. */
	66	addr = TASK_UNMAPPED_BASE;
	67	goto full_search;
	68	}
	69	return -ENOMEM;
	70	}
	71	if (!vma \|\| addr + len <= vma->vm_start) {
	72	/* Remember the address where we stopped this search: */
	73	mm->free_area_cache = addr + len;
	74	return addr;
	75	}
	76	addr = (vma->vm_end + align_mask) & ~align_mask;
	77	}
	78	}
	79
	80	asmlinkage long
	81	ia64_getpriority (int which, int who)
	82	{
	83	long prio;
	84
	85	prio = sys_getpriority(which, who);
	86	if (prio >= 0) {
	87	force_successful_syscall_return();
	88	prio = 20 - prio;
	89	}
	90	return prio;
	91	}
	92
	93	/* XXX obsolete, but leave it here until the old libc is gone... */
	94	asmlinkage unsigned long
	95	sys_getpagesize (void)
	96	{
	97	return PAGE_SIZE;
	98	}
	99
1da177e4 LT	100	asmlinkage unsigned long
	101	ia64_brk (unsigned long brk)
	102	{
	103	unsigned long rlim, retval, newbrk, oldbrk;
	104	struct mm_struct *mm = current->mm;
	105
	106	/*
	107	* Most of this replicates the code in sys_brk() except for an additional safety
	108	* check and the clearing of r8. However, we can't call sys_brk() because we need
	109	* to acquire the mmap_sem before we can do the test...
	110	*/
	111	down_write(&mm->mmap_sem);
	112
	113	if (brk < mm->end_code)
	114	goto out;
	115	newbrk = PAGE_ALIGN(brk);
	116	oldbrk = PAGE_ALIGN(mm->brk);
	117	if (oldbrk == newbrk)
	118	goto set_brk;
	119
	120	/* Always allow shrinking brk. */
	121	if (brk <= mm->brk) {
	122	if (!do_munmap(mm, newbrk, oldbrk-newbrk))
	123	goto set_brk;
	124	goto out;
	125	}
	126
	127	/* Check against unimplemented/unmapped addresses: */
	128	if ((newbrk - oldbrk) > RGN_MAP_LIMIT \|\| REGION_OFFSET(newbrk) > RGN_MAP_LIMIT)
	129	goto out;
	130
	131	/* Check against rlimit.. */
	132	rlim = current->signal->rlim[RLIMIT_DATA].rlim_cur;
	133	if (rlim < RLIM_INFINITY && brk - mm->start_data > rlim)
	134	goto out;
	135
	136	/* Check against existing mmap mappings. */
	137	if (find_vma_intersection(mm, oldbrk, newbrk+PAGE_SIZE))
	138	goto out;
	139
	140	/* Ok, looks good - let it rip. */
	141	if (do_brk(oldbrk, newbrk-oldbrk) != oldbrk)
	142	goto out;
	143	set_brk:
	144	mm->brk = brk;
	145	out:
	146	retval = mm->brk;
	147	up_write(&mm->mmap_sem);
	148	force_successful_syscall_return();
	149	return retval;
	150	}
	151
	152	/*
	153	* On IA-64, we return the two file descriptors in ret0 and ret1 (r8
	154	* and r9) as this is faster than doing a copy_to_user().
	155	*/
	156	asmlinkage long
1134723e	157	sys_ia64_pipe (void)
1da177e4	158	{
6450578f	159	struct pt_regs *regs = task_pt_regs(current);
1da177e4 LT	160	int fd[2];
	161	int retval;
	162
ed8cae8b	163	retval = do_pipe_flags(fd, 0);
1da177e4 LT	164	if (retval)
	165	goto out;
	166	retval = fd[0];
	167	regs->r9 = fd[1];
	168	out:
	169	return retval;
	170	}
	171
3a459756 KK	172	int ia64_mmap_check(unsigned long addr, unsigned long len,
	173	unsigned long flags)
	174	{
	175	unsigned long roff;
	176
	177	/*
	178	* Don't permit mappings into unmapped space, the virtual page table
	179	* of a region, or across a region boundary. Note: RGN_MAP_LIMIT is
	180	* equal to 2^n-PAGE_SIZE (for some integer n <= 61) and len > 0.
	181	*/
	182	roff = REGION_OFFSET(addr);
	183	if ((len > RGN_MAP_LIMIT) \|\| (roff > (RGN_MAP_LIMIT - len)))
	184	return -EINVAL;
	185	return 0;
	186	}
	187
1da177e4 LT	188	static inline unsigned long
	189	do_mmap2 (unsigned long addr, unsigned long len, int prot, int flags, int fd, unsigned long pgoff)
	190	{
1da177e4 LT	191	struct file *file = NULL;
	192
	193	flags &= ~(MAP_EXECUTABLE \| MAP_DENYWRITE);
	194	if (!(flags & MAP_ANONYMOUS)) {
	195	file = fget(fd);
	196	if (!file)
	197	return -EBADF;
	198
	199	if (!file->f_op \|\| !file->f_op->mmap) {
	200	addr = -ENODEV;
	201	goto out;
	202	}
	203	}
	204
1da177e4 LT	205	/* Careful about overflows.. */
	206	len = PAGE_ALIGN(len);
	207	if (!len \|\| len > TASK_SIZE) {
	208	addr = -EINVAL;
	209	goto out;
	210	}
	211
1da177e4 LT	212	down_write(&current->mm->mmap_sem);
	213	addr = do_mmap_pgoff(file, addr, len, prot, flags, pgoff);
	214	up_write(&current->mm->mmap_sem);
	215
	216	out: if (file)
	217	fput(file);
	218	return addr;
	219	}
	220
	221	/*
	222	* mmap2() is like mmap() except that the offset is expressed in units
	223	* of PAGE_SIZE (instead of bytes). This allows to mmap2() (pieces
	224	* of) files that are larger than the address space of the CPU.
	225	*/
	226	asmlinkage unsigned long
	227	sys_mmap2 (unsigned long addr, unsigned long len, int prot, int flags, int fd, long pgoff)
	228	{
	229	addr = do_mmap2(addr, len, prot, flags, fd, pgoff);
	230	if (!IS_ERR((void *) addr))
	231	force_successful_syscall_return();
	232	return addr;
	233	}
	234
	235	asmlinkage unsigned long
	236	sys_mmap (unsigned long addr, unsigned long len, int prot, int flags, int fd, long off)
	237	{
	238	if (offset_in_page(off) != 0)
	239	return -EINVAL;
	240
	241	addr = do_mmap2(addr, len, prot, flags, fd, off >> PAGE_SHIFT);
	242	if (!IS_ERR((void *) addr))
	243	force_successful_syscall_return();
	244	return addr;
	245	}
	246
	247	asmlinkage unsigned long
	248	ia64_mremap (unsigned long addr, unsigned long old_len, unsigned long new_len, unsigned long flags,
	249	unsigned long new_addr)
	250	{
	251	extern unsigned long do_mremap (unsigned long addr,
	252	unsigned long old_len,
	253	unsigned long new_len,
	254	unsigned long flags,
	255	unsigned long new_addr);
	256
	257	down_write(&current->mm->mmap_sem);
	258	{
	259	addr = do_mremap(addr, old_len, new_len, flags, new_addr);
	260	}
	261	up_write(&current->mm->mmap_sem);
	262
	263	if (IS_ERR((void *) addr))
	264	return addr;
	265
	266	force_successful_syscall_return();
	267	return addr;
	268	}
	269
	270	#ifndef CONFIG_PCI
	271
	272	asmlinkage long
	273	sys_pciconfig_read (unsigned long bus, unsigned long dfn, unsigned long off, unsigned long len,
	274	void *buf)
	275	{
276	return -ENOSYS;
277	}
278
279	asmlinkage long
280	sys_pciconfig_write (unsigned long bus, unsigned long dfn, unsigned long off, unsigned long len,
281	void *buf)
282	{
283	return -ENOSYS;
284	}
285
286	#endif /* CONFIG_PCI */