Subversion Repositories or1k

/*

 * linux/arch/m68knommu/kernel/sys_m68k.c

 *

 * Copyright (C) 1998  D. Jeff Dionne <jeff@ryeham.ee.ryerson.ca>,

 *                     Kenneth Albanowski <kjahds@kjahds.com>,

 *                     The Silver Hammer Group, Ltd.

 *

 * Based on:

 *

 * linux/arch/m68k/kernel/sys_m68k.c

 *

 * This file contains various random system calls that

 * have a non-standard calling sequence on the Linux/m68k

 * platform.

 */

#include <linux/errno.h>

#include <linux/sched.h>

#include <linux/mm.h>

#include <linux/sem.h>

#include <linux/msg.h>

#include <linux/shm.h>

#include <linux/stat.h>

#include <linux/mman.h>

#include <asm/setup.h>

#include <asm/segment.h>

#include <asm/traps.h>

/*

 * sys_pipe() is the normal C calling standard for creating

 * a pipe. It's not the way unix traditionally does this, though.

 */

asmlinkage int sys_pipe(unsigned long * fildes)

{

        int fd[2];

        int error;

        error = verify_area(VERIFY_WRITE,fildes,8);

        if (error)

                return error;

        error = do_pipe(fd);

        if (error)

                return error;

        put_user(fd[0],0+fildes);

        put_user(fd[1],1+fildes);

        return 0;

}

/*

 * Perform the select(nd, in, out, ex, tv) and mmap() system

 * calls. Linux/m68k cloned Linux/i386, which didn't use to be able to

 * handle more than 4 system call parameters, so these system calls

 * used a memory block for parameter passing..

 */

asmlinkage int old_mmap(unsigned long *buffer)

{

        int error;

        unsigned long flags;

        struct file * file = NULL;

        error = verify_area(VERIFY_READ, buffer, 6*sizeof(long));

        if (error)

                return error;

        flags = get_user(buffer+3);

        if (!(flags & MAP_ANONYMOUS)) {

                unsigned long fd = get_user(buffer+4);

                if (fd >= NR_OPEN || !(file = current->files->fd[fd]))

                        return -EBADF;

        }

        flags &= ~(MAP_EXECUTABLE | MAP_DENYWRITE);

        return do_mmap(file, get_user(buffer), get_user(buffer+1),

                       get_user(buffer+2), flags, get_user(buffer+5));

}

extern asmlinkage int sys_select(int, fd_set *, fd_set *, fd_set *, struct timeval *);

asmlinkage int old_select(unsigned long *buffer)

{

        int n;

        fd_set *inp;

        fd_set *outp;

        fd_set *exp;

        struct timeval *tvp;

        n = verify_area(VERIFY_READ, buffer, 5*sizeof(unsigned long));

        if (n)

          return n;

        n = get_user(buffer);

        inp = (fd_set *) get_user(buffer+1);

        outp = (fd_set *) get_user(buffer+2);

        exp = (fd_set *) get_user(buffer+3);

        tvp = (struct timeval *) get_user(buffer+4);

        return sys_select(n, inp, outp, exp, tvp);

}

/*

 * sys_ipc() is the de-multiplexer for the SysV IPC calls..

 *

 * This is really horribly ugly.

 */

asmlinkage int sys_ipc (uint call, int first, int second, int third, void *ptr, long fifth)

{

        int version;

        version = call >> 16; /* hack for backward compatibility */

        call &= 0xffff;

        if (call <= SEMCTL)

                switch (call) {

                case SEMOP:

                        return sys_semop (first, (struct sembuf *)ptr, second);

                case SEMGET:

                        return sys_semget (first, second, third);

                case SEMCTL: {

                        union semun fourth;

                        int err;

                        if (!ptr)

                                return -EINVAL;

                        if ((err = verify_area (VERIFY_READ, ptr, sizeof(long))))

                                return err;

                        fourth.__pad = get_user((void **)ptr);

                        return sys_semctl (first, second, third, fourth);

                        }

                default:

                        return -EINVAL;

                }

        if (call <= MSGCTL)

                switch (call) {

                case MSGSND:

                        return sys_msgsnd (first, (struct msgbuf *) ptr,

                                           second, third);

                case MSGRCV:

                        switch (version) {

                        case 0: {

                                struct ipc_kludge tmp;

                                int err;

                                if (!ptr)

                                        return -EINVAL;

                                if ((err = verify_area (VERIFY_READ, ptr, sizeof(tmp))))

                                        return err;

                                memcpy_fromfs (&tmp,(struct ipc_kludge *) ptr,

                                               sizeof (tmp));

                                return sys_msgrcv (first, tmp.msgp, second, tmp.msgtyp, third);

                                }

                        case 1: default:

                                return sys_msgrcv (first, (struct msgbuf *) ptr, second, fifth, third);

                        }

                case MSGGET:

                        return sys_msgget ((key_t) first, second);

                case MSGCTL:

                        return sys_msgctl (first, second, (struct msqid_ds *) ptr);

                default:

                        return -EINVAL;

                }

        if (call <= SHMCTL)

                switch (call) {

                case SHMAT:

                        switch (version) {

                        case 0: default: {

                                ulong raddr;

                                int err;

                                if ((err = verify_area(VERIFY_WRITE, (ulong*) third, sizeof(ulong))))

                                        return err;

                                err = sys_shmat (first, (char *) ptr, second, &raddr);

                                if (err)

                                        return err;

                                put_user (raddr, (ulong *) third);

                                return 0;

                                }

                        case 1: /* iBCS2 emulator entry point */

                                if (get_fs() != get_ds())

                                        return -EINVAL;

                                return sys_shmat (first, (char *) ptr, second, (ulong *) third);

                        }

                case SHMDT:

                        return sys_shmdt ((char *)ptr);

                case SHMGET:

                        return sys_shmget (first, second, third);

                case SHMCTL:

                        return sys_shmctl (first, second, (struct shmid_ds *) ptr);

                default:

                        return -EINVAL;

                }

        return -EINVAL;

}

asmlinkage int sys_ioperm(unsigned long from, unsigned long num, int on)

{

  return -ENOSYS;

}

/* sys_cacheflush -- flush (part of) the processor cache.  */

asmlinkage int

sys_cacheflush (unsigned long addr, int scope, int cache, unsigned long len)

{

        return 0;

}