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 */
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/syscalls.h>
17#include <linux/highuid.h>
18#include <linux/hugetlb.h>
19
20#include <asm/shmparam.h>
21#include <asm/uaccess.h>
22
23unsigned long
24arch_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
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
42#ifdef CONFIG_HUGETLB_PAGE
43	if (REGION_NUMBER(addr) == RGN_HPAGE)
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
80asmlinkage long
81ia64_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
93asmlinkage unsigned long
94sys_getpagesize (void)
95{
96	return PAGE_SIZE;
97}
98
99asmlinkage unsigned long
100ia64_brk (unsigned long brk)
101{
102	unsigned long rlim, retval, newbrk, oldbrk;
103	struct mm_struct *mm = current->mm;
104
105	/*
106	 * Most of this replicates the code in sys_brk() except for an additional safety
107	 * check and the clearing of r8.  However, we can't call sys_brk() because we need
108	 * to acquire the mmap_sem before we can do the test...
109	 */
110	down_write(&mm->mmap_sem);
111
112	if (brk < mm->end_code)
113		goto out;
114	newbrk = PAGE_ALIGN(brk);
115	oldbrk = PAGE_ALIGN(mm->brk);
116	if (oldbrk == newbrk)
117		goto set_brk;
118
119	/* Always allow shrinking brk. */
120	if (brk <= mm->brk) {
121		if (!do_munmap(mm, newbrk, oldbrk-newbrk))
122			goto set_brk;
123		goto out;
124	}
125
126	/* Check against unimplemented/unmapped addresses: */
127	if ((newbrk - oldbrk) > RGN_MAP_LIMIT || REGION_OFFSET(newbrk) > RGN_MAP_LIMIT)
128		goto out;
129
130	/* Check against rlimit.. */
131	rlim = current->signal->rlim[RLIMIT_DATA].rlim_cur;
132	if (rlim < RLIM_INFINITY && brk - mm->start_data > rlim)
133		goto out;
134
135	/* Check against existing mmap mappings. */
136	if (find_vma_intersection(mm, oldbrk, newbrk+PAGE_SIZE))
137		goto out;
138
139	/* Ok, looks good - let it rip. */
140	if (do_brk(oldbrk, newbrk-oldbrk) != oldbrk)
141		goto out;
142set_brk:
143	mm->brk = brk;
144out:
145	retval = mm->brk;
146	up_write(&mm->mmap_sem);
147	force_successful_syscall_return();
148	return retval;
149}
150
151/*
152 * On IA-64, we return the two file descriptors in ret0 and ret1 (r8
153 * and r9) as this is faster than doing a copy_to_user().
154 */
155asmlinkage long
156sys_pipe (void)
157{
158	struct pt_regs *regs = task_pt_regs(current);
159	int fd[2];
160	int retval;
161
162	retval = do_pipe(fd);
163	if (retval)
164		goto out;
165	retval = fd[0];
166	regs->r9 = fd[1];
167  out:
168	return retval;
169}
170
171int ia64_mmap_check(unsigned long addr, unsigned long len,
172		unsigned long flags)
173{
174	unsigned long roff;
175
176	/*
177	 * Don't permit mappings into unmapped space, the virtual page table
178	 * of a region, or across a region boundary.  Note: RGN_MAP_LIMIT is
179	 * equal to 2^n-PAGE_SIZE (for some integer n <= 61) and len > 0.
180	 */
181	roff = REGION_OFFSET(addr);
182	if ((len > RGN_MAP_LIMIT) || (roff > (RGN_MAP_LIMIT - len)))
183		return -EINVAL;
184	return 0;
185}
186
187static inline unsigned long
188do_mmap2 (unsigned long addr, unsigned long len, int prot, int flags, int fd, unsigned long pgoff)
189{
190	struct file *file = NULL;
191
192	flags &= ~(MAP_EXECUTABLE | MAP_DENYWRITE);
193	if (!(flags & MAP_ANONYMOUS)) {
194		file = fget(fd);
195		if (!file)
196			return -EBADF;
197
198		if (!file->f_op || !file->f_op->mmap) {
199			addr = -ENODEV;
200			goto out;
201		}
202	}
203
204	/* Careful about overflows.. */
205	len = PAGE_ALIGN(len);
206	if (!len || len > TASK_SIZE) {
207		addr = -EINVAL;
208		goto out;
209	}
210
211	down_write(&current->mm->mmap_sem);
212	addr = do_mmap_pgoff(file, addr, len, prot, flags, pgoff);
213	up_write(&current->mm->mmap_sem);
214
215out:	if (file)
216		fput(file);
217	return addr;
218}
219
220/*
221 * mmap2() is like mmap() except that the offset is expressed in units
222 * of PAGE_SIZE (instead of bytes).  This allows to mmap2() (pieces
223 * of) files that are larger than the address space of the CPU.
224 */
225asmlinkage unsigned long
226sys_mmap2 (unsigned long addr, unsigned long len, int prot, int flags, int fd, long pgoff)
227{
228	addr = do_mmap2(addr, len, prot, flags, fd, pgoff);
229	if (!IS_ERR((void *) addr))
230		force_successful_syscall_return();
231	return addr;
232}
233
234asmlinkage unsigned long
235sys_mmap (unsigned long addr, unsigned long len, int prot, int flags, int fd, long off)
236{
237	if (offset_in_page(off) != 0)
238		return -EINVAL;
239
240	addr = do_mmap2(addr, len, prot, flags, fd, off >> PAGE_SHIFT);
241	if (!IS_ERR((void *) addr))
242		force_successful_syscall_return();
243	return addr;
244}
245
246asmlinkage unsigned long
247ia64_mremap (unsigned long addr, unsigned long old_len, unsigned long new_len, unsigned long flags,
248	     unsigned long new_addr)
249{
250	extern unsigned long do_mremap (unsigned long addr,
251					unsigned long old_len,
252					unsigned long new_len,
253					unsigned long flags,
254					unsigned long new_addr);
255
256	down_write(&current->mm->mmap_sem);
257	{
258		addr = do_mremap(addr, old_len, new_len, flags, new_addr);
259	}
260	up_write(&current->mm->mmap_sem);
261
262	if (IS_ERR((void *) addr))
263		return addr;
264
265	force_successful_syscall_return();
266	return addr;
267}
268
269#ifndef CONFIG_PCI
270
271asmlinkage long
272sys_pciconfig_read (unsigned long bus, unsigned long dfn, unsigned long off, unsigned long len,
273		    void *buf)
274{
275	return -ENOSYS;
276}
277
278asmlinkage long
279sys_pciconfig_write (unsigned long bus, unsigned long dfn, unsigned long off, unsigned long len,
280		     void *buf)
281{
282	return -ENOSYS;
283}
284
285#endif /* CONFIG_PCI */
286