ARM: build: Cater for M2-Planet.
* include/linux/arm/syscall.h: Add support for M2-Planet. * lib/linux/arm-mes-m2/_exit.c, lib/linux/arm-mes-m2/_write.c, lib/linux/arm-mes-m2/crt1.M1, lib/linux/arm-mes-m2/crt1.c, lib/linux/arm-mes-m2/syscall.c, lib/m2/arm/ELF-arm.hex2, lib/m2/arm/arm_defs.M1: New files. * build-aux/build.sh.in: Also allow kaem build for ARM.
This commit is contained in:
Jan (janneke) Nieuwenhuizen
parent
739ed40f5f
commit
d1297688a8
|
|
@ -121,7 +121,8 @@ fi
|
||||||
fi
|
fi
|
||||||
)
|
)
|
||||||
|
|
||||||
if test -n "$M2_PLANET" && test "$mes_cpu" == "x86"; then
|
if test -n "$M2_PLANET" && (test "$mes_cpu" == "x86" \
|
||||||
|
|| test "$mes_cpu" == "arm"); then
|
||||||
(
|
(
|
||||||
. ${srcdest}build-aux/trace.sh
|
. ${srcdest}build-aux/trace.sh
|
||||||
if [ -z "$V" -o "$V" = 0 ]; then
|
if [ -z "$V" -o "$V" = 0 ]; then
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
/* -*-comment-start: "//";comment-end:""-*-
|
/* -*-comment-start: "//";comment-end:""-*-
|
||||||
* GNU Mes --- Maxwell Equations of Software
|
* GNU Mes --- Maxwell Equations of Software
|
||||||
* Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
* Copyright © 2018,2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
* Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.org>
|
* Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.org>
|
||||||
*
|
*
|
||||||
* This file is part of GNU Mes.
|
* This file is part of GNU Mes.
|
||||||
|
|
@ -23,29 +23,58 @@
|
||||||
|
|
||||||
/* See https://github.com/torvalds/linux/blob/v4.19/arch/arm/tools/syscall.tbl */
|
/* See https://github.com/torvalds/linux/blob/v4.19/arch/arm/tools/syscall.tbl */
|
||||||
|
|
||||||
// libc
|
/* libc-mini */
|
||||||
|
#ifndef SYS_exit
|
||||||
|
// CONSTANT SYS_exit 0x01
|
||||||
|
#define SYS_exit 0x01
|
||||||
|
#endif
|
||||||
|
#ifndef SYS_write
|
||||||
|
// CONSTANT SYS_write 0x04
|
||||||
|
#define SYS_write 0x04
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* libc */
|
||||||
|
// CONSTANT SYS_fork 0x02
|
||||||
#define SYS_fork 0x02
|
#define SYS_fork 0x02
|
||||||
|
// CONSTANT SYS_read 0x03
|
||||||
#define SYS_read 0x03
|
#define SYS_read 0x03
|
||||||
|
// CONSTANT SYS_open 0x05
|
||||||
#define SYS_open 0x05
|
#define SYS_open 0x05
|
||||||
//#define SYS_waitpid
|
//#define SYS_waitpid
|
||||||
|
// CONSTANT SYS_wait4 0x72
|
||||||
#define SYS_wait4 0x72
|
#define SYS_wait4 0x72
|
||||||
|
// CONSTANT SYS_execve 0x0b
|
||||||
#define SYS_execve 0x0b
|
#define SYS_execve 0x0b
|
||||||
|
// CONSTANT SYS_chmod 0x0f
|
||||||
#define SYS_chmod 0x0f
|
#define SYS_chmod 0x0f
|
||||||
|
// CONSTANT SYS_access 0x21
|
||||||
#define SYS_access 0x21
|
#define SYS_access 0x21
|
||||||
|
// CONSTANT SYS_brk 0x2d
|
||||||
#define SYS_brk 0x2d
|
#define SYS_brk 0x2d
|
||||||
|
// CONSTANT SYS_ioctl 0x36
|
||||||
#define SYS_ioctl 0x36
|
#define SYS_ioctl 0x36
|
||||||
|
// CONSTANT SYS_fsync 0x76
|
||||||
#define SYS_fsync 0x76
|
#define SYS_fsync 0x76
|
||||||
|
// CONSTANT SYS_getcwd 0xb7
|
||||||
|
#define SYS_getcwd 0xb7
|
||||||
|
// CONSTANT SYS_dup 0x29
|
||||||
|
#define SYS_dup 0x29
|
||||||
|
// CONSTANT SYS_dup2 0x3f
|
||||||
|
#define SYS_dup2 0x3f
|
||||||
|
// CONSTANT SYS_unlink 0x0a
|
||||||
|
#define SYS_unlink 0x0a
|
||||||
|
// CONSTANT SYS_gettimeofday 0x4e
|
||||||
|
#define SYS_gettimeofday 0x4e
|
||||||
|
// CONSTANT SYS_clock_gettime 0x107
|
||||||
|
#define SYS_clock_gettime 0x107
|
||||||
|
|
||||||
// libc+tcc
|
/* libc+tcc */
|
||||||
#define SYS_close 0x06
|
#define SYS_close 0x06
|
||||||
#define SYS_lseek 0x13
|
#define SYS_lseek 0x13
|
||||||
#define SYS_unlink 0x0a
|
|
||||||
#define SYS_rmdir 0x28
|
#define SYS_rmdir 0x28
|
||||||
#define SYS_gettimeofday 0x4e
|
|
||||||
#define SYS_stat 0x6a
|
#define SYS_stat 0x6a
|
||||||
#define SYS_getcwd 0xb7
|
|
||||||
|
|
||||||
// libc+gnu
|
/* libc+gnu */
|
||||||
#define SYS_chdir 0x0c
|
#define SYS_chdir 0x0c
|
||||||
#define SYS_link 0x09
|
#define SYS_link 0x09
|
||||||
#define SYS_getpid 0x14
|
#define SYS_getpid 0x14
|
||||||
|
|
@ -53,34 +82,31 @@
|
||||||
#define SYS_kill 0x25
|
#define SYS_kill 0x25
|
||||||
#define SYS_rename 0x26
|
#define SYS_rename 0x26
|
||||||
#define SYS_mkdir 0x27
|
#define SYS_mkdir 0x27
|
||||||
#define SYS_dup 0x29
|
|
||||||
#define SYS_pipe 0x2a
|
#define SYS_pipe 0x2a
|
||||||
#define SYS_getgid 0x2f
|
#define SYS_getgid 0x2f
|
||||||
#define SYS_rt_sigaction 0xae
|
#define SYS_rt_sigaction 0xae
|
||||||
#define SYS_rt_sigreturn 0xad
|
#define SYS_rt_sigreturn 0xad
|
||||||
#define SYS_fcntl 0x37
|
#define SYS_fcntl 0x37
|
||||||
#define SYS_dup2 0x3f
|
|
||||||
#define SYS_getrusage 0x4d
|
#define SYS_getrusage 0x4d
|
||||||
#define SYS_lstat 0x6b
|
#define SYS_lstat 0x6b
|
||||||
#define SYS_setitimer 0x68
|
#define SYS_setitimer 0x68
|
||||||
#define SYS_fstat 0x6c
|
#define SYS_fstat 0x6c
|
||||||
#define SYS_nanosleep 0xa2
|
#define SYS_nanosleep 0xa2
|
||||||
#define SYS_getdents 0x8d
|
#define SYS_getdents 0x8d
|
||||||
#define SYS_clock_gettime 0x107
|
|
||||||
|
|
||||||
// bash
|
/* bash */
|
||||||
#define SYS_setuid 0x17
|
#define SYS_setuid 0x17
|
||||||
#define SYS_setgid 0x2e
|
#define SYS_setgid 0x2e
|
||||||
#define SYS_geteuid 0x31
|
#define SYS_geteuid 0x31
|
||||||
#define SYS_getegid 0x32
|
#define SYS_getegid 0x32
|
||||||
#define SYS_getppid 0x40
|
#define SYS_getppid 0x40
|
||||||
|
|
||||||
// make+WITH_GLIBC
|
/* make+WITH_GLIBC */
|
||||||
#define SYS_rt_sigprocmask 0xaf
|
#define SYS_rt_sigprocmask 0xaf
|
||||||
|
|
||||||
// tar
|
/* tar */
|
||||||
#define SYS_symlink 0x53
|
#define SYS_symlink 0x53
|
||||||
#define SYS_readlink 0x55
|
#define SYS_readlink 0x55
|
||||||
#define SYS_mknod 0x0e
|
#define SYS_mknod 0x0e
|
||||||
|
|
||||||
#endif // __MES_LINUX_ARM_SYSCALL_H
|
#endif /* __MES_LINUX_ARM_SYSCALL_H */
|
||||||
|
|
|
||||||
28
lib/linux/arm-mes-m2/_exit.c
Normal file
28
lib/linux/arm-mes-m2/_exit.c
Normal file
|
|
@ -0,0 +1,28 @@
|
||||||
|
/* -*-comment-start: "//";comment-end:""-*-
|
||||||
|
* GNU Mes --- Maxwell Equations of Software
|
||||||
|
* Copyright © 2016,2017,2020,2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
* Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.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/>.
|
||||||
|
*/
|
||||||
|
|
||||||
|
void
|
||||||
|
_exit ()
|
||||||
|
{
|
||||||
|
asm ("SYS_exit mov____$i8,%r7");
|
||||||
|
asm ("!4 ldr____%r0,(%fp,-#$i8)");
|
||||||
|
asm ("swi____$0");
|
||||||
|
}
|
||||||
30
lib/linux/arm-mes-m2/_write.c
Normal file
30
lib/linux/arm-mes-m2/_write.c
Normal file
|
|
@ -0,0 +1,30 @@
|
||||||
|
/* -*-comment-start: "//";comment-end:""-*-
|
||||||
|
* GNU Mes --- Maxwell Equations of Software
|
||||||
|
* Copyright © 2016,2017,2020,2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
* Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.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/>.
|
||||||
|
*/
|
||||||
|
|
||||||
|
void
|
||||||
|
_write ()
|
||||||
|
{
|
||||||
|
asm ("SYS_write mov____$i8,%r7");
|
||||||
|
asm ("!4 ldr____%r0,(%fp,-#$i8)");
|
||||||
|
asm ("!8 ldr____%r1,(%fp,-#$i8)");
|
||||||
|
asm ("!12 ldr____%r2,(%fp,-#$i8)");
|
||||||
|
asm ("swi____$0");
|
||||||
|
}
|
||||||
145
lib/linux/arm-mes-m2/crt1.M1
Normal file
145
lib/linux/arm-mes-m2/crt1.M1
Normal file
|
|
@ -0,0 +1,145 @@
|
||||||
|
### GNU Mes --- Maxwell Equations of Software
|
||||||
|
### Copyright (C) 2016 Jeremiah Orians
|
||||||
|
### Copyright © 2022 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/>.
|
||||||
|
|
||||||
|
:_start
|
||||||
|
'0' SP BP NO_SHIFT MOVE_ALWAYS ; Setup Base Pointer
|
||||||
|
|
||||||
|
;; Prepare argv
|
||||||
|
!4 R0 ADD BP ARITH_ALWAYS ; ARGV_address = BP + 4
|
||||||
|
{R0} PUSH_ALWAYS ; Put argv on the stack
|
||||||
|
|
||||||
|
;; Prepare envp
|
||||||
|
'0' BP R0 NO_SHIFT MOVE_ALWAYS ; Address we need to load from
|
||||||
|
!0 R0 LOAD32 R0 MEMORY ; Get ARGC
|
||||||
|
!2 R0 ADD R0 ARITH_ALWAYS ; OFFSET = ARGC + 2
|
||||||
|
'0' R0 R0 '1' MOVE_ALWAYS ; OFFSET = OFFSET * WORDSIZE
|
||||||
|
'0' R0 R0 ADD BP ARITH2_ALWAYS ; ENVP_address = BP + OFFSET
|
||||||
|
{R0} PUSH_ALWAYS ; Put envp on the stack
|
||||||
|
|
||||||
|
mov____%r0,0x32 &GLOBAL_environ
|
||||||
|
|
||||||
|
;; Stack offset
|
||||||
|
!4 BP ADD BP ARITH_ALWAYS ; Fix BP
|
||||||
|
|
||||||
|
;;^~FUNCTION___init_io CALL_ALWAYS ; Setup for FILE*
|
||||||
|
|
||||||
|
;; Initialize MesCC lib file descriptors.
|
||||||
|
!0 mov____$i8,%r0
|
||||||
|
mov____%r0,0x32 &GLOBAL___stdin
|
||||||
|
!1 mov____$i8,%r0
|
||||||
|
mov____%r0,0x32 &GLOBAL___stdout
|
||||||
|
!2 mov____$i8,%r0
|
||||||
|
mov____%r0,0x32 &GLOBAL___stderr
|
||||||
|
|
||||||
|
^~FUNCTION_main CALL_ALWAYS ; Jump right into main
|
||||||
|
|
||||||
|
SYS_exit mov____$i8,%r7
|
||||||
|
swi____$0
|
||||||
|
|
||||||
|
|
||||||
|
# Unsigned Divide
|
||||||
|
:divide
|
||||||
|
{R4} PUSH_ALWAYS ; Protect R4
|
||||||
|
{R3} PUSH_ALWAYS ; Protect R3
|
||||||
|
{R2} PUSH_ALWAYS ; Protect R2
|
||||||
|
|
||||||
|
'0' R0 R3 NO_SHIFT MOVE_ALWAYS ; MOV R3,R0
|
||||||
|
'0' R1 R2 NO_SHIFT MOVE_ALWAYS ; MOV R2,R1
|
||||||
|
|
||||||
|
!0 R0 LOADI8_ALWAYS ; MOV R0,#0
|
||||||
|
!0 CMPI8 R2 IMM_ALWAYS ; CMP R2,#0
|
||||||
|
!1 R0 SUB R0 ARITH_LT ; SUBLT R0,R0,#1
|
||||||
|
!0 CMPI8 R3 IMM_ALWAYS ; CMP R3,#0
|
||||||
|
!0 R3 RSUB R3 ARITH_LT ; RSBLT R3,R3,#0
|
||||||
|
'0' R0 R0 MVN_LT ; MVNLT R0,R0
|
||||||
|
'0' R0 R4 NO_SHIFT MOVE_ALWAYS ; MOV R4,R0
|
||||||
|
|
||||||
|
!32 R0 LOADI8_ALWAYS ; MOV R0,#32.
|
||||||
|
!0 R1 LOADI8_ALWAYS ; MOV R1,#0
|
||||||
|
:divide_loop
|
||||||
|
'0' R2 R2 ADDS R2 ARITH2_ALWAYS ; ADDS R2,R2,R2
|
||||||
|
'0' R1 R1 ADCS R1 ARITH2_ALWAYS ; ADCS R1,R1,R1
|
||||||
|
'0' R3 CMP R1 AUX_ALWAYS ; CMP R1,R3
|
||||||
|
'0' R3 R1 SUB R1 ARITH2_GE ; SUBGE R1,R1,R3
|
||||||
|
!1 R2 ADD R2 ARITH_GE ; ADDGE R2,R2,#1
|
||||||
|
!1 R0 SUB R0 ARITH_ALWAYS ; SUB R0,R0,#1
|
||||||
|
!0 CMPI8 R0 IMM_ALWAYS ; CMP R0,#0
|
||||||
|
^~divide_loop JUMP_NE ; BNE loop
|
||||||
|
|
||||||
|
'0' R2 R0 NO_SHIFT MOVE_ALWAYS ; MOV R0,R2
|
||||||
|
|
||||||
|
{R2} POP_ALWAYS ; Restore R2
|
||||||
|
{R3} POP_ALWAYS ; Restore R3
|
||||||
|
{R4} POP_ALWAYS ; Restore R4
|
||||||
|
'1' LR RETURN
|
||||||
|
|
||||||
|
# Signed Divide
|
||||||
|
:divides
|
||||||
|
{R4} PUSH_ALWAYS ; Protect R4
|
||||||
|
{R3} PUSH_ALWAYS ; Protect R3
|
||||||
|
{R2} PUSH_ALWAYS ; Protect R2
|
||||||
|
|
||||||
|
'0' R0 R3 NO_SHIFT MOVE_ALWAYS ; MOV R3,R0
|
||||||
|
'0' R1 R2 NO_SHIFT MOVE_ALWAYS ; MOV R2,R1
|
||||||
|
|
||||||
|
!0 R0 LOADI8_ALWAYS ; MOV R0,#0
|
||||||
|
!0 CMPI8 R2 IMM_ALWAYS ; CMP R2,#0
|
||||||
|
!0 R2 RSUB R2 ARITH_LT ; RSBLT R2,R2,#0
|
||||||
|
!1 R0 SUB R0 ARITH_LT ; SUBLT R0,R0,#1
|
||||||
|
!0 CMPI8 R3 IMM_ALWAYS ; CMP R3,#0
|
||||||
|
!0 R3 RSUB R3 ARITH_LT ; RSBLT R3,R3,#0
|
||||||
|
'0' R0 R0 MVN_LT ; MVNLT R0,R0
|
||||||
|
'0' R0 R4 NO_SHIFT MOVE_ALWAYS ; MOV R4,R0
|
||||||
|
|
||||||
|
!32 R0 LOADI8_ALWAYS ; MOV R0,#32.
|
||||||
|
!0 R1 LOADI8_ALWAYS ; MOV R1,#0
|
||||||
|
:divides_loop
|
||||||
|
'0' R2 R2 ADDS R2 ARITH2_ALWAYS ; ADDS R2,R2,R2
|
||||||
|
'0' R1 R1 ADCS R1 ARITH2_ALWAYS ; ADCS R1,R1,R1
|
||||||
|
'0' R3 CMP R1 AUX_ALWAYS ; CMP R1,R3
|
||||||
|
'0' R3 R1 SUB R1 ARITH2_GE ; SUBGE R1,R1,R3
|
||||||
|
!1 R2 ADD R2 ARITH_GE ; ADDGE R2,R2,#1
|
||||||
|
!1 R0 SUB R0 ARITH_ALWAYS ; SUB R0,R0,#1
|
||||||
|
!0 CMPI8 R0 IMM_ALWAYS ; CMP R0,#0
|
||||||
|
^~divides_loop JUMP_NE ; BNE loop
|
||||||
|
|
||||||
|
!0 CMPI8 R4 IMM_ALWAYS ; CMP R4,#0
|
||||||
|
!0 R2 RSUB R2 ARITH_NE ; RSBNE R2,R2,#0
|
||||||
|
'0' R2 R0 NO_SHIFT MOVE_ALWAYS ; MOV R0,R2
|
||||||
|
|
||||||
|
{R2} POP_ALWAYS ; Restore R2
|
||||||
|
{R3} POP_ALWAYS ; Restore R3
|
||||||
|
{R4} POP_ALWAYS ; Restore R4
|
||||||
|
'1' LR RETURN
|
||||||
|
|
||||||
|
# Unsigned Modulus
|
||||||
|
:modulus
|
||||||
|
{LR} PUSH_ALWAYS ; Prepare to leverage divide
|
||||||
|
^~divide CALL_ALWAYS ; Use divide
|
||||||
|
'0' R1 R0 NO_SHIFT MOVE_ALWAYS ; MOV R0,R1
|
||||||
|
{LR} POP_ALWAYS ; Prepare for return
|
||||||
|
'1' LR RETURN
|
||||||
|
|
||||||
|
# Signed Modulus
|
||||||
|
:moduluss
|
||||||
|
{LR} PUSH_ALWAYS ; Prepare to leverage divide
|
||||||
|
^~divides CALL_ALWAYS ; Use divides
|
||||||
|
'0' R1 R0 NO_SHIFT MOVE_ALWAYS ; MOV R0,R1
|
||||||
|
{LR} POP_ALWAYS ; Prepare for return
|
||||||
|
'1' LR RETURN
|
||||||
34
lib/linux/arm-mes-m2/crt1.c
Normal file
34
lib/linux/arm-mes-m2/crt1.c
Normal file
|
|
@ -0,0 +1,34 @@
|
||||||
|
/* -*-comment-start: "//";comment-end:""-*-
|
||||||
|
* GNU Mes --- Maxwell Equations of Software
|
||||||
|
* Copyright © 2017,2018,2019,2022 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 "mes/lib-mini.h"
|
||||||
|
|
||||||
|
int __stdin;
|
||||||
|
int __stdout;
|
||||||
|
int __stderr;
|
||||||
|
char **environ;
|
||||||
|
int main (int argc, char **argv, char **envp);
|
||||||
|
|
||||||
|
/* FIXME: this is going to be called `FUNCTION__start' */
|
||||||
|
//#int
|
||||||
|
//#_start ()
|
||||||
|
//#{
|
||||||
|
//# ..
|
||||||
|
//#}
|
||||||
165
lib/linux/arm-mes-m2/syscall.c
Normal file
165
lib/linux/arm-mes-m2/syscall.c
Normal file
|
|
@ -0,0 +1,165 @@
|
||||||
|
/* -*-comment-start: "//";comment-end:""-*-
|
||||||
|
* GNU Mes --- Maxwell Equations of Software
|
||||||
|
* Copyright © 2016,2017,2018,2022 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/arm/syscall.h>
|
||||||
|
|
||||||
|
int errno;
|
||||||
|
|
||||||
|
int
|
||||||
|
__sys_call (int sys_call)
|
||||||
|
{
|
||||||
|
asm ("!4 ldr____%r7,(%fp,-#$i8)");
|
||||||
|
asm ("swi____$0");
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
__sys_call1 (int sys_call, int one)
|
||||||
|
{
|
||||||
|
asm ("!4 ldr____%r7,(%fp,-#$i8)");
|
||||||
|
asm ("!8 ldr____%r0,(%fp,-#$i8)");
|
||||||
|
asm ("swi____$0");
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
__sys_call2 (int sys_call, int one, int two)
|
||||||
|
{
|
||||||
|
asm ("!4 ldr____%r7,(%fp,-#$i8)");
|
||||||
|
asm ("!8 ldr____%r0,(%fp,-#$i8)");
|
||||||
|
asm ("!12 ldr____%r1,(%fp,-#$i8)");
|
||||||
|
asm ("swi____$0");
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
__sys_call3 (int sys_call, int one, int two, int three)
|
||||||
|
{
|
||||||
|
asm ("!4 ldr____%r7,(%fp,-#$i8)");
|
||||||
|
asm ("!8 ldr____%r0,(%fp,-#$i8)");
|
||||||
|
asm ("!12 ldr____%r1,(%fp,-#$i8)");
|
||||||
|
asm ("!16 ldr____%r2,(%fp,-#$i8)");
|
||||||
|
asm ("swi____$0");
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
__sys_call4 (int sys_call, int one, int two, int three, int four)
|
||||||
|
{
|
||||||
|
asm ("!4 ldr____%r7,(%fp,-#$i8)");
|
||||||
|
asm ("!8 ldr____%r0,(%fp,-#$i8)");
|
||||||
|
asm ("!12 ldr____%r1,(%fp,-#$i8)");
|
||||||
|
asm ("!16 ldr____%r2,(%fp,-#$i8)");
|
||||||
|
asm ("!20 ldr____%r2,(%fp,-#$i8)");
|
||||||
|
asm ("swi____$0");
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
__sys_call6 (int sys_call, int one, int two, int three, int four, int five, int six)
|
||||||
|
{
|
||||||
|
asm ("!4 ldr____%r7,(%fp,-#$i8)");
|
||||||
|
asm ("!8 ldr____%r0,(%fp,-#$i8)");
|
||||||
|
asm ("!12 ldr____%r1,(%fp,-#$i8)");
|
||||||
|
asm ("!16 ldr____%r2,(%fp,-#$i8)");
|
||||||
|
asm ("!20 ldr____%r2,(%fp,-#$i8)");
|
||||||
|
asm ("!24 ldr____%r2,(%fp,-#$i8)");
|
||||||
|
asm ("swi____$0");
|
||||||
|
}
|
||||||
|
|
||||||
|
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;
|
||||||
|
}
|
||||||
74
lib/m2/arm/ELF-arm.hex2
Normal file
74
lib/m2/arm/ELF-arm.hex2
Normal file
|
|
@ -0,0 +1,74 @@
|
||||||
|
### Copyright (C) 2016 Jeremiah Orians
|
||||||
|
### Copyright (C) 2017 Jan Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
### This file is part of M2-Planet.
|
||||||
|
###
|
||||||
|
### M2-Planet 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.
|
||||||
|
###
|
||||||
|
### M2-Planet 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 M2-Planet. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
### stage0's hex2 format
|
||||||
|
### !<label> 1 byte relative
|
||||||
|
### $<label> 2 byte address
|
||||||
|
### @<label> 2 byte relative
|
||||||
|
### &<label> 4 byte address
|
||||||
|
### %<label> 4 byte relative
|
||||||
|
|
||||||
|
### if you wish to use this header, you need to add :ELF_end to the end of your
|
||||||
|
### M1 or hex2 files.
|
||||||
|
|
||||||
|
## ELF Header
|
||||||
|
|
||||||
|
:ELF_base
|
||||||
|
7F 45 4C 46 # e_ident[EI_MAG0-3] ELF's magic number
|
||||||
|
|
||||||
|
01 # e_ident[EI_CLASS] Indicating 32 bit
|
||||||
|
01 # e_ident[EI_DATA] Indicating little endianness
|
||||||
|
01 # e_ident[EI_VERSION] Indicating original elf
|
||||||
|
|
||||||
|
03 # e_ident[EI_OSABI] Set at 3 because FreeBSD is strict
|
||||||
|
00 # e_ident[EI_ABIVERSION] See above
|
||||||
|
|
||||||
|
00 00 00 00 00 00 00 # e_ident[EI_PAD]
|
||||||
|
|
||||||
|
02 00 # e_type Indicating Executable
|
||||||
|
28 00 # e_machine Indicating 32bit ARM
|
||||||
|
01 00 00 00 # e_version Indicating original elf
|
||||||
|
|
||||||
|
&_start # e_entry Address of the entry point
|
||||||
|
%ELF_program_headers>ELF_base # e_phoff Address of program header table
|
||||||
|
%ELF_section_headers>ELF_base # e_shoff Address of section header table
|
||||||
|
|
||||||
|
00 02 00 05 # e_flags
|
||||||
|
|
||||||
|
34 00 # e_ehsize Indicating our 52 Byte header
|
||||||
|
|
||||||
|
20 00 # e_phentsize size of a program header table
|
||||||
|
01 00 # e_phnum number of entries in program table
|
||||||
|
|
||||||
|
28 00 # e_shentsize size of a section header table
|
||||||
|
05 00 # e_shnum number of entries in section table
|
||||||
|
|
||||||
|
02 00 # e_shstrndx index of the section names
|
||||||
|
|
||||||
|
|
||||||
|
:ELF_program_headers
|
||||||
|
:ELF_program_header__text
|
||||||
|
01 00 00 00 # ph_type: PT-LOAD = 1
|
||||||
|
00 00 00 00 # ph_offset
|
||||||
|
&ELF_base # ph_vaddr
|
||||||
|
&ELF_base # ph_physaddr
|
||||||
|
%ELF_end>ELF_base # ph_filesz
|
||||||
|
%ELF_end>ELF_base # ph_memsz
|
||||||
|
07 00 00 00 # ph_flags: PF-X|PF-W|PF-R = 7
|
||||||
|
00 00 01 00 # ph_alignment
|
||||||
|
|
||||||
|
:ELF_text
|
||||||
117
lib/m2/arm/arm_defs.M1
Normal file
117
lib/m2/arm/arm_defs.M1
Normal file
|
|
@ -0,0 +1,117 @@
|
||||||
|
## Copyright (C) 2016 Jeremiah Orians
|
||||||
|
## This file is part of stage0.
|
||||||
|
##
|
||||||
|
## stage0 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.
|
||||||
|
##
|
||||||
|
## stage0 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 stage0. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
# M2-Planet standards
|
||||||
|
DEFINE NULL 00000000
|
||||||
|
|
||||||
|
# Registers
|
||||||
|
DEFINE R0 0
|
||||||
|
DEFINE R1 1
|
||||||
|
DEFINE R2 2
|
||||||
|
DEFINE R3 3
|
||||||
|
DEFINE R4 4
|
||||||
|
DEFINE R5 5
|
||||||
|
DEFINE R6 6
|
||||||
|
DEFINE R7 7
|
||||||
|
DEFINE R8 8
|
||||||
|
DEFINE R9 9
|
||||||
|
DEFINE R10 A
|
||||||
|
DEFINE R11 B
|
||||||
|
DEFINE R12 C
|
||||||
|
DEFINE BP C
|
||||||
|
DEFINE R13 D
|
||||||
|
DEFINE SP D
|
||||||
|
DEFINE R14 E
|
||||||
|
DEFINE LR E
|
||||||
|
DEFINE R15 F
|
||||||
|
DEFINE PC F
|
||||||
|
|
||||||
|
# Register masks for push/pop16
|
||||||
|
DEFINE {R0} 0100
|
||||||
|
DEFINE {R1} 0200
|
||||||
|
DEFINE {R2} 0400
|
||||||
|
DEFINE {R3} 0800
|
||||||
|
DEFINE {R4} 1000
|
||||||
|
DEFINE {R11} 0008
|
||||||
|
DEFINE {BP} 0010
|
||||||
|
DEFINE {LR} 0040
|
||||||
|
|
||||||
|
# Bitshift constants
|
||||||
|
DEFINE NO_SHIFT 0
|
||||||
|
DEFINE LEFT 1
|
||||||
|
DEFINE RIGHT 3
|
||||||
|
DEFINE ARITH_RIGHT 5
|
||||||
|
|
||||||
|
# LOAD/STORE
|
||||||
|
DEFINE MEMORY E5
|
||||||
|
DEFINE STORE32 08
|
||||||
|
DEFINE STORE8 0C
|
||||||
|
DEFINE LOAD32 09
|
||||||
|
DEFINE LOAD8 0D
|
||||||
|
DEFINE LOADI8_ALWAYS 0A0E3
|
||||||
|
DEFINE LOADI8_G 0A0C3
|
||||||
|
DEFINE LOADI8_GE 0A0A3
|
||||||
|
DEFINE LOADI8_EQUAL 0A003
|
||||||
|
DEFINE LOADI8_NE 0A013
|
||||||
|
DEFINE LOADI8_LE 0A0D3
|
||||||
|
DEFINE LOADI8_L 0A0B3
|
||||||
|
DEFINE LOADI8_HI 0A083
|
||||||
|
DEFINE LOADI8_HS 0A023
|
||||||
|
DEFINE LOADI8_LS 0A093
|
||||||
|
DEFINE LOADI8_LO 0A033
|
||||||
|
|
||||||
|
# JUMP/BRANCH
|
||||||
|
DEFINE JUMP_ALWAYS EA
|
||||||
|
DEFINE JUMP_EQUAL 0A
|
||||||
|
DEFINE JUMP_NE 1A
|
||||||
|
DEFINE CALL_ALWAYS EB
|
||||||
|
DEFINE CALL_REG_ALWAYS FF2FE1
|
||||||
|
DEFINE RETURN FF2FE1
|
||||||
|
|
||||||
|
# Data movement
|
||||||
|
DEFINE MOVE_ALWAYS A0E1
|
||||||
|
DEFINE MVN_ALWAYS 0E0E1
|
||||||
|
DEFINE MVN_LT 0E0B1
|
||||||
|
DEFINE MVNI8_EQUAL 0E003
|
||||||
|
DEFINE PUSH_ALWAYS 2DE9
|
||||||
|
DEFINE POP_ALWAYS BDE8
|
||||||
|
|
||||||
|
# Arithmetic/logic
|
||||||
|
DEFINE AUX_ALWAYS E1
|
||||||
|
DEFINE IMM_ALWAYS E3
|
||||||
|
DEFINE ARITH_ALWAYS E2
|
||||||
|
DEFINE ARITH_GE A2
|
||||||
|
DEFINE ARITH_LT B2
|
||||||
|
DEFINE ARITH_NE 12
|
||||||
|
DEFINE ARITH2_ALWAYS E0
|
||||||
|
DEFINE ARITH2_GE A0
|
||||||
|
DEFINE ADC 0A
|
||||||
|
DEFINE ADCS 0B
|
||||||
|
DEFINE ADD 08
|
||||||
|
DEFINE ADDS 09
|
||||||
|
DEFINE AND 00
|
||||||
|
DEFINE CMP 005
|
||||||
|
DEFINE CMPI8 005
|
||||||
|
DEFINE MUL 0
|
||||||
|
DEFINE MULS 1
|
||||||
|
DEFINE OR 08
|
||||||
|
DEFINE SHIFT A0
|
||||||
|
DEFINE SUB 04
|
||||||
|
DEFINE RSUB 06
|
||||||
|
DEFINE XOR 02
|
||||||
|
|
||||||
|
# SYSCALL
|
||||||
|
DEFINE SYSCALL_ALWAYS 000000EF
|
||||||
Loading…
Reference in a new issue