[linux-2.6-block.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/smp_lock.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;

#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_pipe (void)
{
	struct pt_regs *regs = task_pt_regs(current);
	int fd[2];
	int retval;

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