Introduce libmescc.a; Put division by integer in there; split syscalls' errno off.
* build-aux/configure-lib.sh (libmescc_SOURCES): Add lib/mes/div.c, lib/linux/*/syscall-internal.c. * build-aux/build-lib.sh: Add libmescc.a. * build-aux/build-mes.sh: On gcc, add "-lmescc". * build-aux/test-c.sh: Add "-lmescc". * build-aux/check.sh.in: Add mescc to LIBS. * module/mescc/mescc.scm (mescc:link): Add "mescc". * module/mescc.scm (mescc:main): Update documentation of "-nodefaultlibs" and "-nostdlib". * lib/mes/div.c (ldiv): Rename to... (__mesabi_ldiv): ...this. Avoid assert. (__mesabi_div0): Avoid assert. (__aeabi_idivmod): New procedure. (__aeabi_idiv): New procedure. (__aeabi_uidivmod): New procedure. (__aeabi_uidiv): New procedure. * lib/linux/x86-mes-gcc/syscall.c (__sys_call, __sys_call1, __sys_call2, __sys_call3, __sys_call4): Move to... * lib/linux/x86-mes-gcc/syscall-internal.c: ...here. (__raise): New procedure. * lib/linux/x86-mes-mescc/syscall.c (__sys_call, __sys_call1, __sys_call2, __sys_call3, __sys_call4): Move to... * lib/linux/x86-mes-mescc/syscall-internal.c: ...here. (__raise): New procedure. * lib/linux/arm-mes-gcc/syscall.c: New file. * lib/linux/arm-mes-gcc/syscall-internal.c: New file. * lib/linux/arm-mes-mescc/syscall.c: New file. * lib/linux/arm-mes-mescc/syscall-internal.c: New file. * lib/gnu/syscall.c (__syscall, __syscall2, __syscall_get, __syscall_put): Move to... * lib/gnu/syscall-internal.c: ...here.
This commit is contained in:
Danny Milosavljevic
parent
2b69460894
commit
55d38162be
|
|
@ -44,6 +44,12 @@ if test -e libmes.s; then
|
|||
cp libmes.s $mes_cpu-mes
|
||||
fi
|
||||
|
||||
archive libmescc.a $libmescc_SOURCES
|
||||
cp libmescc.a $mes_cpu-mes
|
||||
if test -e libmescc.s; then
|
||||
cp libmescc.s $mes_cpu-mes
|
||||
fi
|
||||
|
||||
if test $mes_libc = mes; then
|
||||
archive libc.a $libc_SOURCES
|
||||
cp libc.a $mes_cpu-mes
|
||||
|
|
|
|||
|
|
@ -53,5 +53,9 @@ done
|
|||
if test $mes_libc = system; then
|
||||
LIBS=-lmes
|
||||
fi
|
||||
if [ "$compiler" = "gcc" ]
|
||||
then
|
||||
LIBS="${LIBS} -lmescc"
|
||||
fi
|
||||
link bin/mes-$compiler
|
||||
cp bin/mes-$compiler bin/mes
|
||||
|
|
|
|||
|
|
@ -97,7 +97,7 @@ fi
|
|||
LDFLAGS="
|
||||
-nostdlib
|
||||
"
|
||||
LIBS=-lc
|
||||
LIBS="-lc -lmescc"
|
||||
AR="${srcdest}pre-inst-env mesar"
|
||||
CC="${srcdest}pre-inst-env mescc"
|
||||
../pre-inst-env ${SHELL} ${srcdest}build-aux/check-mescc.sh
|
||||
|
|
|
|||
|
|
@ -76,11 +76,15 @@ lib/mes/mini-write.c
|
|||
"
|
||||
fi
|
||||
|
||||
libmescc_SOURCES="
|
||||
lib/linux/$mes_cpu-mes-$compiler/syscall-internal.c
|
||||
lib/mes/div.c
|
||||
"
|
||||
|
||||
libmes_SOURCES="
|
||||
$libc_mini_shared_SOURCES
|
||||
lib/ctype/isnumber.c
|
||||
lib/mes/abtol.c
|
||||
lib/mes/div.c
|
||||
lib/mes/eputc.c
|
||||
lib/mes/fdgetc.c
|
||||
lib/mes/fdputc.c
|
||||
|
|
|
|||
|
|
@ -41,25 +41,25 @@ CC=${CC-gcc}
|
|||
|
||||
i=$(basename "$t" .c)
|
||||
if [ -z "${i/[012][0-9]-*/}" ]; then
|
||||
LIBS=
|
||||
LIBS='-l mescc'
|
||||
elif [ -z "${i/[34][0-9]-*/}" ]; then
|
||||
LIBS='-l c-mini'
|
||||
LIBS='-l c-mini -l mescc'
|
||||
elif [ -z "${i/[78][0-9a-z]-*/}" ]; then
|
||||
LIBS='-l c+tcc'
|
||||
LIBS='-l c+tcc -l mescc'
|
||||
elif [ -z "${i/9[0-9a-z]-*/}" ]; then
|
||||
LIBS='-l c+gnu'
|
||||
LIBS='-l c+gnu -l mescc'
|
||||
else
|
||||
LIBS='-l c'
|
||||
LIBS='-l c -l mescc'
|
||||
fi
|
||||
|
||||
if test $mes_kernel = gnu\
|
||||
&& test -z "$LIBS"; then
|
||||
LIBS="-l c-mini"
|
||||
LIBS="-l c-mini -l mescc"
|
||||
fi
|
||||
|
||||
if test $mes_libc = system; then
|
||||
crt1=
|
||||
LIBS='-l mes'
|
||||
LIBS='-l mes -l mescc'
|
||||
else
|
||||
crt1=crt1.o
|
||||
fi
|
||||
|
|
|
|||
|
|
@ -0,0 +1,143 @@
|
|||
/* -*-comment-start: "//";comment-end:""-*-
|
||||
* GNU Mes --- Maxwell Equations of Software
|
||||
* Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
*
|
||||
* This file is part of GNU Mes.
|
||||
*
|
||||
* GNU Mes is free software; you can redistribute it and/or modify it
|
||||
* under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 3 of the License, or (at
|
||||
* your option) any later version.
|
||||
*
|
||||
* GNU Mes is distributed in the hope that it will be useful, but
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#include <gnu/syscall.h>
|
||||
|
||||
#include <mach/mach_traps.h>
|
||||
|
||||
static mach_msg_type_t mach_msg_type_int32 =
|
||||
{
|
||||
.msgt_name = (unsigned char) MACH_MSG_TYPE_INTEGER_32, // msgt_name
|
||||
.msgt_size = 32, // msgt_size
|
||||
.msgt_number = 1, // msgt_number
|
||||
.msgt_inline = 1, // msgt_inline
|
||||
.msgt_longform = 0, // msgt_longform
|
||||
.msgt_deallocate = 0, // msgt_deallocate
|
||||
.msgt_unused = 0 // msgt_unused
|
||||
};
|
||||
|
||||
static mach_msg_type_long_t mach_msg_type_pointer =
|
||||
{
|
||||
{
|
||||
0, // msgt_name
|
||||
0, // msgt_size
|
||||
0, // msgt_number
|
||||
1, // msgt_inline FIXME: we always outline...
|
||||
1, // msgt_longform
|
||||
0, // msgt_deallocate
|
||||
0, // msgt_unused
|
||||
},
|
||||
MACH_MSG_TYPE_CHAR, // msgtl_name
|
||||
8, // msgtl_size
|
||||
2048, // msgtl_number
|
||||
};
|
||||
|
||||
static mach_msg_type_t mach_msg_type_int64 =
|
||||
{
|
||||
(unsigned char) MACH_MSG_TYPE_INTEGER_64, // msgt_name
|
||||
64, // msgt_size
|
||||
1, // msgt_number
|
||||
1, // msgt_inline
|
||||
0, // msgt_longform
|
||||
0, // msgt_deallocate
|
||||
0, // msgt_unused
|
||||
};
|
||||
|
||||
kern_return_t
|
||||
__syscall (mach_port_t port, int sys_call)
|
||||
{
|
||||
struct mach_msg message =
|
||||
{
|
||||
{
|
||||
MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, MACH_MSG_TYPE_MAKE_SEND_ONCE),
|
||||
0,
|
||||
port,
|
||||
{__mach_reply_port (),},
|
||||
0,
|
||||
sys_call,
|
||||
}
|
||||
};
|
||||
return __mach_msg (&message.header,
|
||||
MACH_SEND_MSG|MACH_RCV_MSG|MACH_MSG_OPTION_NONE,
|
||||
sizeof (message),
|
||||
sizeof (message),
|
||||
message.header.msgh_local_port,
|
||||
MACH_MSG_TIMEOUT_NONE,
|
||||
MACH_PORT_NULL);
|
||||
}
|
||||
|
||||
kern_return_t
|
||||
__syscall2 (mach_port_t port, int sys_call, int one, int two)
|
||||
{
|
||||
struct mach_msg_2 message =
|
||||
{
|
||||
{
|
||||
MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, MACH_MSG_TYPE_MAKE_SEND_ONCE),
|
||||
0,
|
||||
port,
|
||||
{__mach_reply_port (),},
|
||||
0,
|
||||
sys_call,
|
||||
},
|
||||
mach_msg_type_int32, one,
|
||||
mach_msg_type_int32, two,
|
||||
};
|
||||
return __mach_msg (&message.header,
|
||||
MACH_SEND_MSG|MACH_RCV_MSG|MACH_MSG_OPTION_NONE,
|
||||
sizeof (message),
|
||||
sizeof (message),
|
||||
message.header.msgh_local_port,
|
||||
MACH_MSG_TIMEOUT_NONE,
|
||||
MACH_PORT_NULL);
|
||||
}
|
||||
|
||||
kern_return_t
|
||||
__syscall_get (mach_port_t port, int sys_call, mach_msg_header_t *message, size_t size)
|
||||
{
|
||||
message->msgh_bits = MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, MACH_MSG_TYPE_MAKE_SEND_ONCE);
|
||||
message->msgh_remote_port = port;
|
||||
message->msgh_local_port = __mach_reply_port ();
|
||||
message->msgh_seqno = 0;
|
||||
message->msgh_id = sys_call;
|
||||
return __mach_msg (message,
|
||||
MACH_SEND_MSG|MACH_RCV_MSG|MACH_MSG_OPTION_NONE,
|
||||
message->msgh_size,
|
||||
size,
|
||||
message->msgh_local_port,
|
||||
MACH_MSG_TIMEOUT_NONE,
|
||||
MACH_PORT_NULL);
|
||||
}
|
||||
|
||||
kern_return_t
|
||||
__syscall_put (mach_port_t port, int sys_call, mach_msg_header_t *message, size_t size)
|
||||
{
|
||||
message->msgh_bits |= MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, MACH_MSG_TYPE_MAKE_SEND_ONCE);
|
||||
message->msgh_remote_port = port;
|
||||
message->msgh_local_port = __mach_reply_port ();
|
||||
message->msgh_seqno = 0;
|
||||
message->msgh_id = sys_call;
|
||||
return __mach_msg (message,
|
||||
MACH_SEND_MSG|MACH_RCV_MSG|MACH_MSG_OPTION_NONE,
|
||||
message->msgh_size,
|
||||
size,
|
||||
message->msgh_local_port,
|
||||
MACH_MSG_TIMEOUT_NONE,
|
||||
MACH_PORT_NULL);
|
||||
}
|
||||
|
|
@ -18,126 +18,3 @@
|
|||
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#include <gnu/syscall.h>
|
||||
|
||||
#include <mach/mach_traps.h>
|
||||
|
||||
mach_msg_type_t mach_msg_type_int32 =
|
||||
{
|
||||
.msgt_name = (unsigned char) MACH_MSG_TYPE_INTEGER_32, // msgt_name
|
||||
.msgt_size = 32, // msgt_size
|
||||
.msgt_number = 1, // msgt_number
|
||||
.msgt_inline = 1, // msgt_inline
|
||||
.msgt_longform = 0, // msgt_longform
|
||||
.msgt_deallocate = 0, // msgt_deallocate
|
||||
.msgt_unused = 0 // msgt_unused
|
||||
};
|
||||
|
||||
mach_msg_type_long_t mach_msg_type_pointer =
|
||||
{
|
||||
{
|
||||
0, // msgt_name
|
||||
0, // msgt_size
|
||||
0, // msgt_number
|
||||
1, // msgt_inline FIXME: we always outline...
|
||||
1, // msgt_longform
|
||||
0, // msgt_deallocate
|
||||
0, // msgt_unused
|
||||
},
|
||||
MACH_MSG_TYPE_CHAR, // msgtl_name
|
||||
8, // msgtl_size
|
||||
2048, // msgtl_number
|
||||
};
|
||||
|
||||
mach_msg_type_t mach_msg_type_int64 =
|
||||
{
|
||||
(unsigned char) MACH_MSG_TYPE_INTEGER_64, // msgt_name
|
||||
64, // msgt_size
|
||||
1, // msgt_number
|
||||
1, // msgt_inline
|
||||
0, // msgt_longform
|
||||
0, // msgt_deallocate
|
||||
0, // msgt_unused
|
||||
};
|
||||
|
||||
kern_return_t
|
||||
__syscall (mach_port_t port, int sys_call)
|
||||
{
|
||||
struct mach_msg message =
|
||||
{
|
||||
{
|
||||
MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, MACH_MSG_TYPE_MAKE_SEND_ONCE),
|
||||
0,
|
||||
port,
|
||||
{__mach_reply_port (),},
|
||||
0,
|
||||
sys_call,
|
||||
}
|
||||
};
|
||||
return __mach_msg (&message.header,
|
||||
MACH_SEND_MSG|MACH_RCV_MSG|MACH_MSG_OPTION_NONE,
|
||||
sizeof (message),
|
||||
sizeof (message),
|
||||
message.header.msgh_local_port,
|
||||
MACH_MSG_TIMEOUT_NONE,
|
||||
MACH_PORT_NULL);
|
||||
}
|
||||
|
||||
kern_return_t
|
||||
__syscall2 (mach_port_t port, int sys_call, int one, int two)
|
||||
{
|
||||
struct mach_msg_2 message =
|
||||
{
|
||||
{
|
||||
MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, MACH_MSG_TYPE_MAKE_SEND_ONCE),
|
||||
0,
|
||||
port,
|
||||
{__mach_reply_port (),},
|
||||
0,
|
||||
sys_call,
|
||||
},
|
||||
mach_msg_type_int32, one,
|
||||
mach_msg_type_int32, two,
|
||||
};
|
||||
return __mach_msg (&message.header,
|
||||
MACH_SEND_MSG|MACH_RCV_MSG|MACH_MSG_OPTION_NONE,
|
||||
sizeof (message),
|
||||
sizeof (message),
|
||||
message.header.msgh_local_port,
|
||||
MACH_MSG_TIMEOUT_NONE,
|
||||
MACH_PORT_NULL);
|
||||
}
|
||||
|
||||
kern_return_t
|
||||
__syscall_get (mach_port_t port, int sys_call, mach_msg_header_t *message, size_t size)
|
||||
{
|
||||
message->msgh_bits = MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, MACH_MSG_TYPE_MAKE_SEND_ONCE);
|
||||
message->msgh_remote_port = port;
|
||||
message->msgh_local_port = __mach_reply_port ();
|
||||
message->msgh_seqno = 0;
|
||||
message->msgh_id = sys_call;
|
||||
return __mach_msg (message,
|
||||
MACH_SEND_MSG|MACH_RCV_MSG|MACH_MSG_OPTION_NONE,
|
||||
message->msgh_size,
|
||||
size,
|
||||
message->msgh_local_port,
|
||||
MACH_MSG_TIMEOUT_NONE,
|
||||
MACH_PORT_NULL);
|
||||
}
|
||||
|
||||
kern_return_t
|
||||
__syscall_put (mach_port_t port, int sys_call, mach_msg_header_t *message, size_t size)
|
||||
{
|
||||
message->msgh_bits |= MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, MACH_MSG_TYPE_MAKE_SEND_ONCE);
|
||||
message->msgh_remote_port = port;
|
||||
message->msgh_local_port = __mach_reply_port ();
|
||||
message->msgh_seqno = 0;
|
||||
message->msgh_id = sys_call;
|
||||
return __mach_msg (message,
|
||||
MACH_SEND_MSG|MACH_RCV_MSG|MACH_MSG_OPTION_NONE,
|
||||
message->msgh_size,
|
||||
size,
|
||||
message->msgh_local_port,
|
||||
MACH_MSG_TIMEOUT_NONE,
|
||||
MACH_PORT_NULL);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -0,0 +1,141 @@
|
|||
/* -*-comment-start: "//";comment-end:""-*-
|
||||
* GNU Mes --- Maxwell Equations of Software
|
||||
* Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
*
|
||||
* This file is part of GNU Mes.
|
||||
*
|
||||
* GNU Mes is free software; you can redistribute it and/or modify it
|
||||
* under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 3 of the License, or (at
|
||||
* your option) any later version.
|
||||
*
|
||||
* GNU Mes is distributed in the hope that it will be useful, but
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#include <linux/x86/syscall.h>
|
||||
|
||||
// *INDENT-OFF*
|
||||
long
|
||||
__sys_call (long sys_call)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov r7, %1\n\t"
|
||||
"swi $0\n\t"
|
||||
"mov %0, r0\n\t"
|
||||
: "=r" (r)
|
||||
: "r" (sys_call)
|
||||
: "r0", "r7"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
__sys_call1 (long sys_call, long one)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov r7, %1\n\t"
|
||||
"mov r0, %2\n\t"
|
||||
"swi $0\n\t"
|
||||
"mov %0, r0\n\t"
|
||||
: "=r" (r)
|
||||
: "r" (sys_call), "r" (one)
|
||||
: "r0", "r7"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
__sys_call2 (long sys_call, long one, long two)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov r7, %1\n\t"
|
||||
"mov r0, %2\n\t"
|
||||
"mov r1, %3\n\t"
|
||||
"swi $0\n\t"
|
||||
"mov %0, r0\n\t"
|
||||
: "=r" (r)
|
||||
: "r" (sys_call), "r" (one), "r" (two)
|
||||
: "r0", "r1", "r7"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
__sys_call3 (long sys_call, long one, long two, long three)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov r7, %1\n\t"
|
||||
"mov r0, %2\n\t"
|
||||
"mov r1, %3\n\t"
|
||||
"mov r2, %4\n\t"
|
||||
"swi $0\n\t"
|
||||
"mov %0, r0\n\t"
|
||||
: "=r" (r)
|
||||
: "r" (sys_call), "r" (one), "r" (two), "r" (three)
|
||||
: "r0", "r1", "r2", "r7"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
__sys_call4 (long sys_call, long one, long two, long three, long four)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov r7, %1\n\t"
|
||||
"mov r0, %2\n\t"
|
||||
"mov r1, %3\n\t"
|
||||
"mov r2, %4\n\t"
|
||||
"mov r3, %5\n\t"
|
||||
"swi $0\n\t"
|
||||
"mov %0, r0\n\t"
|
||||
: "=r" (r)
|
||||
: "r" (sys_call), "r" (one), "r" (two), "r" (three), "r" (four)
|
||||
: "r0", "r1", "r2", "r3", "r7"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
#if 0
|
||||
long
|
||||
__sys_call6 (long sys_call, long one, long two, long three, long four, long five, long six)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov r7, %1\n\t"
|
||||
"mov r0, %2\n\t"
|
||||
"mov r1, %3\n\t"
|
||||
"mov r2, %4\n\t"
|
||||
"mov r3, %5\n\t"
|
||||
"mov r4, %6\n\t"
|
||||
"mov r5, %7\n\t"
|
||||
"swi $0\n\t"
|
||||
"mov %0, r0\n\t"
|
||||
: "=r" (r)
|
||||
: "r" (sys_call), "r" (one), "r" (two), "r" (three), "r" (four), "r" (five), "r" (six)
|
||||
: "r0", "r1", "r2", "r3", "r4", "r5" //, "r7" FIXME
|
||||
);
|
||||
return r;
|
||||
}
|
||||
#endif
|
||||
|
||||
/* Returns < 0 on error (errno-like value from kernel), or 0 on success */
|
||||
int
|
||||
__raise(int signum)
|
||||
{
|
||||
long pid = __sys_call (SYS_getpid);
|
||||
if (pid < 0)
|
||||
return pid;
|
||||
else
|
||||
return __sys_call2 (SYS_kill, pid, signum);
|
||||
}
|
||||
|
|
@ -0,0 +1,116 @@
|
|||
/* -*-comment-start: "//";comment-end:""-*-
|
||||
* GNU Mes --- Maxwell Equations of Software
|
||||
* Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
*
|
||||
* This file is part of GNU Mes.
|
||||
*
|
||||
* GNU Mes is free software; you can redistribute it and/or modify it
|
||||
* under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 3 of the License, or (at
|
||||
* your option) any later version.
|
||||
*
|
||||
* GNU Mes is distributed in the hope that it will be useful, but
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#include <errno.h>
|
||||
#include <linux/x86/syscall.h>
|
||||
|
||||
long __sys_call (long sys_call);
|
||||
long __sys_call1 (long sys_call, long one);
|
||||
long __sys_call2 (long sys_call, long one, long two);
|
||||
long __sys_call3 (long sys_call, long one, long two, long three);
|
||||
long __sys_call4 (long sys_call, long one, long two, long three, long four);
|
||||
long __sys_call6 (long sys_call, long one, long two, long three, long four, long five, long six);
|
||||
|
||||
// *INDENT-OFF*
|
||||
long
|
||||
_sys_call (long sys_call)
|
||||
{
|
||||
long r = __sys_call(sys_call);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
_sys_call1 (long sys_call, long one)
|
||||
{
|
||||
long r = __sys_call1(sys_call, one);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
_sys_call2 (long sys_call, long one, long two)
|
||||
{
|
||||
long r = __sys_call2(sys_call, one, two);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
_sys_call3 (long sys_call, long one, long two, long three)
|
||||
{
|
||||
long r = __sys_call3(sys_call, one, two, three);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
_sys_call4 (long sys_call, long one, long two, long three, long four)
|
||||
{
|
||||
long r = __sys_call4(sys_call, one, two, three, four);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
#if 0
|
||||
long
|
||||
_sys_call6 (long sys_call, long one, long two, long three, long four, long five, long six)
|
||||
{
|
||||
long r = __sys_call6(sys_call, one, two, three, four, five, six);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
#endif
|
||||
|
|
@ -0,0 +1,90 @@
|
|||
/* -*-comment-start: "//";comment-end:""-*-
|
||||
* GNU Mes --- Maxwell Equations of Software
|
||||
* Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
*
|
||||
* This file is part of GNU Mes.
|
||||
*
|
||||
* GNU Mes is free software; you can redistribute it and/or modify it
|
||||
* under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 3 of the License, or (at
|
||||
* your option) any later version.
|
||||
*
|
||||
* GNU Mes is distributed in the hope that it will be useful, but
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#include <linux/x86/syscall.h>
|
||||
|
||||
int
|
||||
__sys_call (int sys_call)
|
||||
{
|
||||
asm ("!8 ldr____%r7,(%fp,+#$i8)");
|
||||
asm ("swi____$0");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call1 (int sys_call, int one)
|
||||
{
|
||||
asm ("!8 ldr____%r7,(%fp,+#$i8)");
|
||||
asm ("!12 ldr____%r0,(%fp,+#$i8)");
|
||||
asm ("swi____$0");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call2 (int sys_call, int one, int two)
|
||||
{
|
||||
asm ("!8 ldr____%r7,(%fp,+#$i8)");
|
||||
asm ("!12 ldr____%r0,(%fp,+#$i8)");
|
||||
asm ("!16 ldr____%r1,(%fp,+#$i8)");
|
||||
asm ("swi____$0");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call3 (int sys_call, int one, int two, int three)
|
||||
{
|
||||
asm ("!8 ldr____%r7,(%fp,+#$i8)");
|
||||
asm ("!12 ldr____%r0,(%fp,+#$i8)");
|
||||
asm ("!16 ldr____%r1,(%fp,+#$i8)");
|
||||
asm ("!20 ldr____%r2,(%fp,+#$i8)");
|
||||
asm ("swi____$0");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call4 (int sys_call, int one, int two, int three, int four)
|
||||
{
|
||||
asm ("!8 ldr____%r7,(%fp,+#$i8)");
|
||||
asm ("!12 ldr____%r0,(%fp,+#$i8)");
|
||||
asm ("!16 ldr____%r1,(%fp,+#$i8)");
|
||||
asm ("!20 ldr____%r2,(%fp,+#$i8)");
|
||||
asm ("!24 ldr____%r3,(%fp,+#$i8)");
|
||||
asm ("swi____$0");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call6 (int sys_call, int one, int two, int three, int four, int five, int six)
|
||||
{
|
||||
asm ("!8 ldr____%r7,(%fp,+#$i8)");
|
||||
asm ("!12 ldr____%r0,(%fp,+#$i8)");
|
||||
asm ("!16 ldr____%r1,(%fp,+#$i8)");
|
||||
asm ("!20 ldr____%r2,(%fp,+#$i8)");
|
||||
asm ("!24 ldr____%r3,(%fp,+#$i8)");
|
||||
asm ("!28 ldr____%r4,(%fp,+#$i8)");
|
||||
asm ("!32 ldr____%r5,(%fp,+#$i8)");
|
||||
asm ("swi____$0");
|
||||
}
|
||||
|
||||
/* Returns < 0 on error (errno-like value from kernel), or 0 on success */
|
||||
int
|
||||
__raise(int signum)
|
||||
{
|
||||
int pid = __sys_call (SYS_getpid);
|
||||
if (pid < 0)
|
||||
return pid;
|
||||
else
|
||||
return __sys_call2 (SYS_kill, pid, signum);
|
||||
}
|
||||
|
|
@ -0,0 +1,113 @@
|
|||
/* -*-comment-start: "//";comment-end:""-*-
|
||||
* GNU Mes --- Maxwell Equations of Software
|
||||
* Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
*
|
||||
* This file is part of GNU Mes.
|
||||
*
|
||||
* GNU Mes is free software; you can redistribute it and/or modify it
|
||||
* under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 3 of the License, or (at
|
||||
* your option) any later version.
|
||||
*
|
||||
* GNU Mes is distributed in the hope that it will be useful, but
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#include <errno.h>
|
||||
#include <linux/x86/syscall.h>
|
||||
|
||||
int __sys_call (int sys_call);
|
||||
int __sys_call1 (int sys_call, int one);
|
||||
int __sys_call2 (int sys_call, int one, int two);
|
||||
int __sys_call3 (int sys_call, int one, int two, int three);
|
||||
int __sys_call4 (int sys_call, int one, int two, int three, int four);
|
||||
int __sys_call6 (int sys_call, int one, int two, int three, int four, int five, int six);
|
||||
|
||||
int
|
||||
_sys_call (int sys_call)
|
||||
{
|
||||
int r = __sys_call (sys_call);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
int
|
||||
_sys_call1 (int sys_call, int one)
|
||||
{
|
||||
int r = __sys_call1 (sys_call, one);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
int
|
||||
_sys_call2 (int sys_call, int one, int two)
|
||||
{
|
||||
int r = __sys_call2 (sys_call, one, two);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
int
|
||||
_sys_call3 (int sys_call, int one, int two, int three)
|
||||
{
|
||||
int r = __sys_call3 (sys_call, one, two, three);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
int
|
||||
_sys_call4 (int sys_call, int one, int two, int three, int four)
|
||||
{
|
||||
int r = __sys_call4 (sys_call, one, two, three, four);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
||||
int
|
||||
_sys_call6 (int sys_call, int one, int two, int three, int four, int five, int six)
|
||||
{
|
||||
int r = __sys_call6 (sys_call, one, two, three, four, five, six);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
r = -1;
|
||||
}
|
||||
else
|
||||
errno = 0;
|
||||
return r;
|
||||
}
|
||||
|
|
@ -0,0 +1,118 @@
|
|||
/* -*-comment-start: "//";comment-end:""-*-
|
||||
* GNU Mes --- Maxwell Equations of Software
|
||||
* Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
*
|
||||
* This file is part of GNU Mes.
|
||||
*
|
||||
* GNU Mes is free software; you can redistribute it and/or modify it
|
||||
* under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 3 of the License, or (at
|
||||
* your option) any later version.
|
||||
*
|
||||
* GNU Mes is distributed in the hope that it will be useful, but
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#include <linux/x86/syscall.h>
|
||||
|
||||
// *INDENT-OFF*
|
||||
long
|
||||
__sys_call (long sys_call)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %1,%%eax\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call)
|
||||
: "eax"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
__sys_call1 (long sys_call, long one)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %1,%%eax\n\t"
|
||||
"mov %2,%%ebx\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call), "rm" (one)
|
||||
: "eax", "ebx"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
__sys_call2 (long sys_call, long one, long two)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %1,%%eax\n\t"
|
||||
"mov %2,%%ebx\n\t"
|
||||
"mov %3,%%ecx\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call), "rm" (one), "rm" (two)
|
||||
: "eax", "ebx", "ecx"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
__sys_call3 (long sys_call, long one, long two, long three)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %2,%%ebx\n\t"
|
||||
"mov %3,%%ecx\n\t"
|
||||
"mov %4,%%edx\n\t"
|
||||
"mov %1,%%eax\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call), "rm" (one), "rm" (two), "rm" (three)
|
||||
: "eax", "ebx", "ecx", "edx"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
long
|
||||
__sys_call4 (long sys_call, long one, long two, long three, long four)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %2,%%ebx\n\t"
|
||||
"mov %3,%%ecx\n\t"
|
||||
"mov %4,%%edx\n\t"
|
||||
"mov %5,%%esi\n\t"
|
||||
"mov %1,%%eax\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call), "rm" (one), "rm" (two), "rm" (three), "rm" (four)
|
||||
: "eax", "ebx", "ecx", "edx", "esi"
|
||||
);
|
||||
return r;
|
||||
}
|
||||
|
||||
/* Returns < 0 on error (errno-like value from kernel), or 0 on success */
|
||||
int
|
||||
__raise(int signum)
|
||||
{
|
||||
long pid = __sys_call (SYS_getpid);
|
||||
if (pid < 0)
|
||||
return pid;
|
||||
else
|
||||
return __sys_call2 (SYS_kill, pid, signum);
|
||||
}
|
||||
|
|
@ -21,19 +21,17 @@
|
|||
#include <errno.h>
|
||||
#include <linux/x86/syscall.h>
|
||||
|
||||
long __sys_call (long sys_call);
|
||||
long __sys_call1 (long sys_call, long one);
|
||||
long __sys_call2 (long sys_call, long one, long two);
|
||||
long __sys_call3 (long sys_call, long one, long two, long three);
|
||||
long __sys_call4 (long sys_call, long one, long two, long three, long four);
|
||||
|
||||
// *INDENT-OFF*
|
||||
long
|
||||
_sys_call (long sys_call)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %1,%%eax\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call)
|
||||
: "eax"
|
||||
);
|
||||
long r = __sys_call(sys_call);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
|
|
@ -47,16 +45,7 @@ _sys_call (long sys_call)
|
|||
long
|
||||
_sys_call1 (long sys_call, long one)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %1,%%eax\n\t"
|
||||
"mov %2,%%ebx\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call), "rm" (one)
|
||||
: "eax", "ebx"
|
||||
);
|
||||
long r = __sys_call1(sys_call, one);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
|
|
@ -70,17 +59,7 @@ _sys_call1 (long sys_call, long one)
|
|||
long
|
||||
_sys_call2 (long sys_call, long one, long two)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %1,%%eax\n\t"
|
||||
"mov %2,%%ebx\n\t"
|
||||
"mov %3,%%ecx\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call), "rm" (one), "rm" (two)
|
||||
: "eax", "ebx", "ecx"
|
||||
);
|
||||
long r = __sys_call2(sys_call, one, two);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
|
|
@ -94,18 +73,7 @@ _sys_call2 (long sys_call, long one, long two)
|
|||
long
|
||||
_sys_call3 (long sys_call, long one, long two, long three)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %2,%%ebx\n\t"
|
||||
"mov %3,%%ecx\n\t"
|
||||
"mov %4,%%edx\n\t"
|
||||
"mov %1,%%eax\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call), "rm" (one), "rm" (two), "rm" (three)
|
||||
: "eax", "ebx", "ecx", "edx"
|
||||
);
|
||||
long r = __sys_call3(sys_call, one, two, three);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
|
|
@ -119,19 +87,7 @@ _sys_call3 (long sys_call, long one, long two, long three)
|
|||
long
|
||||
_sys_call4 (long sys_call, long one, long two, long three, long four)
|
||||
{
|
||||
long r;
|
||||
asm (
|
||||
"mov %2,%%ebx\n\t"
|
||||
"mov %3,%%ecx\n\t"
|
||||
"mov %4,%%edx\n\t"
|
||||
"mov %5,%%esi\n\t"
|
||||
"mov %1,%%eax\n\t"
|
||||
"int $0x80\n\t"
|
||||
"mov %%eax,%0\n\t"
|
||||
: "=r" (r)
|
||||
: "rm" (sys_call), "rm" (one), "rm" (two), "rm" (three), "rm" (four)
|
||||
: "eax", "ebx", "ecx", "edx", "esi"
|
||||
);
|
||||
long r = __sys_call4(sys_call, one, two, three, four);
|
||||
if (r < 0)
|
||||
{
|
||||
errno = -r;
|
||||
|
|
|
|||
|
|
@ -0,0 +1,77 @@
|
|||
/* -*-comment-start: "//";comment-end:""-*-
|
||||
* GNU Mes --- Maxwell Equations of Software
|
||||
* Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
*
|
||||
* This file is part of GNU Mes.
|
||||
*
|
||||
* GNU Mes is free software; you can redistribute it and/or modify it
|
||||
* under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 3 of the License, or (at
|
||||
* your option) any later version.
|
||||
*
|
||||
* GNU Mes is distributed in the hope that it will be useful, but
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#include <linux/x86/syscall.h>
|
||||
|
||||
int
|
||||
__sys_call (int sys_call)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call1 (int sys_call, int one)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("mov____0x8(%ebp),%ebx !12");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call2 (int sys_call, int one, int two)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("mov____0x8(%ebp),%ebx !12");
|
||||
asm ("mov____0x8(%ebp),%ecx !16");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call3 (int sys_call, int one, int two, int three)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("mov____0x8(%ebp),%ebx !12");
|
||||
asm ("mov____0x8(%ebp),%ecx !16");
|
||||
asm ("mov____0x8(%ebp),%edx !20");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call4 (int sys_call, int one, int two, int three, int four)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("mov____0x8(%ebp),%ebx !12");
|
||||
asm ("mov____0x8(%ebp),%ecx !16");
|
||||
asm ("mov____0x8(%ebp),%edx !20");
|
||||
asm ("mov____0x8(%ebp),%esi !24");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
|
||||
/* Returns < 0 on error (errno-like value from kernel), or 0 on success */
|
||||
int
|
||||
__raise(int signum)
|
||||
{
|
||||
int pid = __sys_call (SYS_getpid);
|
||||
if (pid < 0)
|
||||
return pid;
|
||||
else
|
||||
return __sys_call2 (SYS_kill, pid, signum);
|
||||
}
|
||||
|
|
@ -21,50 +21,11 @@
|
|||
#include <errno.h>
|
||||
#include <linux/x86/syscall.h>
|
||||
|
||||
int
|
||||
__sys_call (int sys_call)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call1 (int sys_call, int one)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("mov____0x8(%ebp),%ebx !12");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call2 (int sys_call, int one, int two)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("mov____0x8(%ebp),%ebx !12");
|
||||
asm ("mov____0x8(%ebp),%ecx !16");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call3 (int sys_call, int one, int two, int three)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("mov____0x8(%ebp),%ebx !12");
|
||||
asm ("mov____0x8(%ebp),%ecx !16");
|
||||
asm ("mov____0x8(%ebp),%edx !20");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
|
||||
int
|
||||
__sys_call4 (int sys_call, int one, int two, int three, int four)
|
||||
{
|
||||
asm ("mov____0x8(%ebp),%eax !8");
|
||||
asm ("mov____0x8(%ebp),%ebx !12");
|
||||
asm ("mov____0x8(%ebp),%ecx !16");
|
||||
asm ("mov____0x8(%ebp),%edx !20");
|
||||
asm ("mov____0x8(%ebp),%esi !24");
|
||||
asm ("int____$0x80");
|
||||
}
|
||||
int __sys_call (int sys_call);
|
||||
int __sys_call1 (int sys_call, int one);
|
||||
int __sys_call2 (int sys_call, int one, int two);
|
||||
int __sys_call3 (int sys_call, int one, int two, int three);
|
||||
int __sys_call4 (int sys_call, int one, int two, int three, int four);
|
||||
|
||||
int
|
||||
_sys_call (int sys_call)
|
||||
|
|
|
|||
|
|
@ -20,11 +20,9 @@
|
|||
*/
|
||||
|
||||
#include <mes/lib.h>
|
||||
#include <assert.h>
|
||||
#include <stdint.h>
|
||||
#include <limits.h>
|
||||
|
||||
/*#define LONG_MIN (-(~0UL>>1)-1)*/
|
||||
#include <signal.h>
|
||||
|
||||
typedef struct
|
||||
{
|
||||
|
|
@ -32,15 +30,21 @@ typedef struct
|
|||
long rem;
|
||||
} ldiv_t;
|
||||
|
||||
void __mesabi_div0(void)
|
||||
int __raise(int);
|
||||
|
||||
void
|
||||
__mesabi_div0 (void)
|
||||
{
|
||||
eputs(" ***MES C LIB*** divide by zero numerator=");
|
||||
eputs("\n");
|
||||
assert(0);
|
||||
if (__raise(SIGFPE) < 0) { /* could not raise SIGFPE */
|
||||
/* Fail in any way possible */
|
||||
unsigned char* x = (unsigned char*) 0;
|
||||
*x = 2;
|
||||
}
|
||||
}
|
||||
|
||||
/* Compare gcc: __udivdi3 */
|
||||
unsigned long __mesabi_uldiv(unsigned long a, unsigned long b, unsigned long* remainder)
|
||||
/* Compare gcc: __udivmoddi4 */
|
||||
unsigned long
|
||||
__mesabi_uldiv (unsigned long a, unsigned long b, unsigned long* remainder)
|
||||
{
|
||||
unsigned long tmp;
|
||||
if (!remainder)
|
||||
|
|
@ -63,11 +67,12 @@ unsigned long __mesabi_uldiv(unsigned long a, unsigned long b, unsigned long* re
|
|||
/* Note: Rounds towards zero.
|
||||
Maintainer: Be careful to satisfy quot * b + rem == a.
|
||||
That means that rem can be negative. */
|
||||
ldiv_t ldiv(long a, long b)
|
||||
ldiv_t __mesabi_ldiv(long a, long b)
|
||||
{
|
||||
ldiv_t result;
|
||||
int negate_result = (a < 0) ^ (b < 0);
|
||||
assert(b != LONG_MIN);
|
||||
if (b == LONG_MIN)
|
||||
__mesabi_div0();
|
||||
if (a != LONG_MIN)
|
||||
{
|
||||
int negative_a = (a < 0);
|
||||
|
|
@ -108,3 +113,50 @@ ldiv_t ldiv(long a, long b)
|
|||
return result;
|
||||
}
|
||||
}
|
||||
|
||||
#if __GNUC__ && !SYSTEM_LIBC && __arm__
|
||||
// ...-binutils-2.31.1/bin/ld: hash.o: in function `hash_cstring':
|
||||
// hash.c:(.text+0x56): undefined reference to `__aeabi_idivmod'
|
||||
// ...-binutils-2.31.1/bin/ld: math.o: in function `divide':
|
||||
// math.c:(.text+0x516): undefined reference to `__aeabi_idiv'
|
||||
// ...-binutils-2.31.1/bin/ld: math.o: in function `modulo':
|
||||
// math.c:(.text+0x5d2): undefined reference to `__aeabi_idivmod'
|
||||
// ...-binutils-2.31.1/bin/ld: gcc-lib/libc.a(ntoab.o): in function `ntoab':
|
||||
// ntoab.c:(.text+0x54): undefined reference to `__aeabi_uidivmod'
|
||||
// ...-binutils-2.31.1/bin/ld: ntoab.c:(.text+0x62): undefined reference to `__aeabi_uidiv'
|
||||
|
||||
/* Result: r0: quotient; r1: remainder */
|
||||
long
|
||||
__aeabi_idivmod (long a, long b)
|
||||
{
|
||||
ldiv_t result = __mesabi_ldiv(a, b);
|
||||
register long rem_result asm("r1");
|
||||
rem_result = result.rem;
|
||||
return result.quot;
|
||||
}
|
||||
|
||||
long
|
||||
__aeabi_idiv (long a, long b)
|
||||
{
|
||||
ldiv_t result = __mesabi_ldiv(a, b);
|
||||
return result.quot;
|
||||
}
|
||||
|
||||
/* Result: r0: quotient; r1: remainder */
|
||||
unsigned long
|
||||
__aeabi_uidivmod (unsigned long a, unsigned long b)
|
||||
{
|
||||
unsigned long quot;
|
||||
unsigned long rem;
|
||||
register unsigned long rem_result asm("r1");
|
||||
quot = __mesabi_uldiv (a, b, &rem);
|
||||
rem_result = rem;
|
||||
return quot;
|
||||
}
|
||||
|
||||
unsigned long
|
||||
__aeabi_uidiv (unsigned long a, unsigned long b)
|
||||
{
|
||||
return __mesabi_uldiv (a, b, 0);
|
||||
}
|
||||
#endif // __GNUC__ && !SYSTEM_LIBC && __arm__
|
||||
|
|
|
|||
|
|
@ -116,9 +116,9 @@ Options:
|
|||
-L DIR append DIR to library path
|
||||
-l LIBNAME link with LIBNAME
|
||||
-m BITS compile for BITS bits [32]
|
||||
-nodefaultlibs do not use libc.o when linking
|
||||
-nodefaultlibs do not use libc.o nor libmescc.a when linking
|
||||
-nostartfiles do not use crt1.o when linking
|
||||
-nostdlib do not use crt1.o or libc.o when linking
|
||||
-nostdlib do not use crt1.o or libc.o or libmescc.a when linking
|
||||
-o FILE write output to FILE
|
||||
-O LEVEL use optimizing LEVEL
|
||||
-S preprocess and compile only; do not assemble or link
|
||||
|
|
|
|||
|
|
@ -143,8 +143,9 @@
|
|||
(append hex2-files
|
||||
(list (infos->hex2 options hex2-file-name infos)))))
|
||||
(default-libraries (if (or (option-ref options 'nodefaultlibs #f)
|
||||
(option-ref options 'nostdlib #f)) '()
|
||||
'("c")))
|
||||
(option-ref options 'nostdlib #f))
|
||||
'()
|
||||
'("mescc" "c")))
|
||||
(libraries (filter-map (multi-opt 'library) options))
|
||||
(libraries (delete-duplicates (append libraries default-libraries)))
|
||||
(hex2-libraries (map (cut find-library options ".a" <>) libraries))
|
||||
|
|
|
|||
Loading…
Reference in New Issue