ref: f88a55e79b5bf656e7f9578d1318a955b9a4963a
dir: /sys/src/libc/9syscall/mkfile/
NPROC=1
</$objtype/mkfile
install:V:
SYS=`{sed '/^#define._X[123]/d; s/#define.([A-Z0-9_]*).*/\1/' sys.h}
for(I in $SYS) {
i=`{echo $I|tr A-Z a-z}
n=`{sed -n '/[ ]'$I'[ ]/s/.* //p' sys.h}
if(~ $i (exits nsec)) i=_$i
{switch($objtype){
case 68000 68020
echo TEXT $i'(SB)', 1, '$0'
echo MOVL '$'$n, R0
echo TRAP '$0'
echo RTS
case mips
echo TEXT $i'(SB)', 1, '$0'
echo MOVW R1, '0(FP)'
echo MOVW '$'$n, R1
echo SYSCALL
if(~ $i (seek _nsec)) {
echo 'MOVW $-1,R5
BNE R1,R5,4(PC)
MOVW a+0(FP),R5
MOVW R1,0(R5)
MOVW R1,4(R5)'
}
echo RET
case mips2
echo TEXT $i'(SB)', 1, '$0'
echo MOVW R1, '0(FP)'
echo MOVW '$'$n, R1
echo ADD '$4',R29
echo SYSCALL
echo ADD '$-4',R29
echo RET
case spim
echo TEXT $i'(SB)', 1, '$0'
echo MOVW R1, '0(FP)'
echo MOVW '$'$n, R1
echo ADD '$4',R29
echo SYSCALL
echo ADD '$-4',R29
if(~ $i (seek _nsec)) { # untested so far - geoff
echo 'MOVW $-1,R5
BNE R1,R5,4(PC)
MOVW a+0(FP),R5
MOVW R1,0(R5)
MOVW R1,4(R5)'
}
echo RET
case 386
echo TEXT $i'(SB)', 1, '$0'
echo MOVL '$'$n, AX
echo INT '$'64
if(~ $i (seek _nsec)) {
echo 'CMPL AX,$-1
JNE 4(PC)
MOVL a+0(FP),CX
MOVL AX,0(CX)
MOVL AX,4(CX)'
}
echo RET
case amd64
j=$i
if(~ $i seek) j=_seek
echo TEXT $j'(SB)', 1, '$0'
echo MOVQ RARG, 'a0+0(FP)'
echo MOVQ '$'$n, RARG
echo SYSCALL
echo RET
case sparc sparc64
echo TEXT $i'(SB)', 1, '$0'
echo MOVW R7, '0(FP)'
echo MOVW '$'$n, R7
echo TA R0
if(~ $i (seek _nsec)) {
echo 'CMP R7,$-1
BNE 4(PC)
MOVW a+0(FP),R8
MOVW R7,0(R8)
MOVW R7,4(R8)'
}
echo RETURN
case 3210
echo TEXT $i'(SB)', 1, '$0'
echo MOVW R3, '0(FP)'
echo MOVW '$'$n, R3
echo WORD '$0x06000000'
echo RETURN
case 29000
echo TEXT $i'(SB)', 1, '$0'
echo MOVL R69, '0(FP)'
echo MOVL '$'$n, R69
echo EMULATE 0
echo RET
case arm
echo TEXT $i'(SB)', 1, '$0'
echo MOVW R0, '0(FP)'
echo MOVW '$'$n, R0
echo SWI 0
if(~ $i (seek _nsec)) {
echo 'CMP $-1,R0
BNE 4(PC)
MOVW a+0(FP),R1
MOVW R0,0(R1)
MOVW R0,4(R1)'
}
echo RET
case arm64
j=$i
if(~ $i seek) j=_seek
echo TEXT $j'(SB)', 1, '$0'
echo MOV R0, '0(FP)'
echo MOV '$'$n, R0
echo SVC
echo RETURN
case power
echo TEXT $i'(SB)', 1, '$0'
echo MOVW R3, '0(FP)'
echo MOVW '$'$n, R3
echo SYSCALL
if(~ $i (seek _nsec)) {
echo 'CMP R3,$-1
BNE 4(PC)
MOVW a+0(FP),R8
MOVW R3,0(R8)
MOVW R3,4(R8)'
}
echo RETURN
case power64
if(~ $i seek)
echo TEXT _seek'(SB)', 1, '$0'
if not
echo TEXT $i'(SB)', 1, '$0'
echo MOVD R3, '0(FP)'
echo MOVW '$'$n, R3
echo SYSCALL
echo RETURN
case alpha
j=$i
if(~ $i seek) j=_seek
echo TEXT $j'(SB)', 1, '$0'
echo MOVL R0, '0(FP)'
echo MOVQ '$'$n, R0
echo CALL_PAL '$'0x83
echo RET
case riscv64
if(~ $i seek)
# sed s/SYSCALL/$n/ ../$objtype/$i.s
echo TEXT _seek'(SB)', 1, '$0'
if not
echo TEXT $i'(SB)', 1, '$0'
#
# For architectures which pass the first
# argument in a register, if the system call
# takes no arguments there will be no
# 'a0+0(FP)' reserved on the stack.
#
# jc doesn't widen longs to vlongs when pushing them.
# so we have to be careful here to only push longs for
# long first arguments.
#
switch ($i) {
case nsec
;
case bind chdir exec _exits segbrk open pipe create \
brk_ remove notify segdetach segfree segflush \
rendezvous unmount semacquire semrelease seek \
errstr stat wstat await tsemacquire
echo MOV R8, '0(FP)' # vlong or ptr
case *
echo MOVW R8, '0(FP)' # long
}
echo MOV '$'$n, R8
echo ECALL
echo RET
}} > $i.s
$AS $i.s
}
ar vu /$objtype/lib/libc.a *.$O
rm -f *.$O *.s
nuke clean:V:
rm -f *.[$OS]
installall:V:
for(objtype in $CPUS) mk install
update:V:
update $UPDATEFLAGS mkfile sys.h