Added execv and execle.
This commit is contained in:
parent
8a40c25069
commit
e0c4e4b686
|
@ -1,13 +1,35 @@
|
|||
.define _execl
|
||||
.define _execve
|
||||
.define _execv
|
||||
.define _execle
|
||||
.extern _execl
|
||||
.extern _execve
|
||||
.extern _execv
|
||||
.extern _execle
|
||||
_execl: tst.b -48(sp)
|
||||
link a6,#0
|
||||
move.l _environ,-(sp)
|
||||
pusha:
|
||||
pea 12(a6)
|
||||
pushp:
|
||||
move.l 8(a6),-(sp)
|
||||
jsr _execve
|
||||
unlk a6
|
||||
rts
|
||||
_execve: trap #0
|
||||
.short 59
|
||||
.short 3B
|
||||
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