Added execv and execle.
This commit is contained in:
parent
8a40c25069
commit
e0c4e4b686
|
@ -1,13 +1,35 @@
|
||||||
.define _execl
|
.define _execl
|
||||||
.define _execve
|
.define _execve
|
||||||
|
.define _execv
|
||||||
|
.define _execle
|
||||||
.extern _execl
|
.extern _execl
|
||||||
.extern _execve
|
.extern _execve
|
||||||
|
.extern _execv
|
||||||
|
.extern _execle
|
||||||
_execl: tst.b -48(sp)
|
_execl: tst.b -48(sp)
|
||||||
link a6,#0
|
link a6,#0
|
||||||
move.l _environ,-(sp)
|
move.l _environ,-(sp)
|
||||||
|
pusha:
|
||||||
pea 12(a6)
|
pea 12(a6)
|
||||||
|
pushp:
|
||||||
move.l 8(a6),-(sp)
|
move.l 8(a6),-(sp)
|
||||||
jsr _execve
|
jsr _execve
|
||||||
|
unlk a6
|
||||||
|
rts
|
||||||
_execve: trap #0
|
_execve: trap #0
|
||||||
.short 59
|
.short 3B
|
||||||
jmp cerror
|
jmp cerror
|
||||||
|
_execv:
|
||||||
|
tst.b -48(sp)
|
||||||
|
link a6,#0
|
||||||
|
move.l _environ,-(sp)
|
||||||
|
move.l 12(a6),-(sp)
|
||||||
|
br pushp
|
||||||
|
_execle: tst.b -48(sp)
|
||||||
|
link a6,#0
|
||||||
|
lea 12(a6),a0
|
||||||
|
1:
|
||||||
|
tst.l (a0)+
|
||||||
|
bne 1b
|
||||||
|
move.l a0,-(sp)
|
||||||
|
br pusha
|
||||||
|
|
Loading…
Reference in a new issue