fixed some bugs
This commit is contained in:
parent
017871b025
commit
ab5a0efd48
|
@ -5,6 +5,12 @@
|
||||||
.sect .data
|
.sect .data
|
||||||
.sect .bss
|
.sect .bss
|
||||||
.sect .text
|
.sect .text
|
||||||
_dup2: move.l #0x29,d0
|
_dup2:
|
||||||
add.l #0x40,(4,sp) ! ???
|
link a6,#0
|
||||||
jmp (call)
|
move.l (12,a6),-(sp)
|
||||||
|
move.l #0,-(sp)
|
||||||
|
move.l (8,a6),-(sp)
|
||||||
|
jsr _fcntl
|
||||||
|
add.l #12,sp
|
||||||
|
unlk a6
|
||||||
|
rts
|
||||||
|
|
|
@ -6,9 +6,8 @@
|
||||||
.sect .bss
|
.sect .bss
|
||||||
.sect .text
|
.sect .text
|
||||||
_execl: link a6,#0
|
_execl: link a6,#0
|
||||||
tst.b (-132,sp)
|
|
||||||
move.l (_environ),-(sp)
|
move.l (_environ),-(sp)
|
||||||
pea (12,sp)
|
pea (12,a6)
|
||||||
move.l (8,a6),-(sp)
|
move.l (8,a6),-(sp)
|
||||||
jsr (_execve)
|
jsr (_execve)
|
||||||
add.l #0xC,sp
|
add.l #0xC,sp
|
||||||
|
|
Loading…
Reference in a new issue