Fixed stat interface

diff --git a/mach/mantra/libsys/_fstat.s b/mach/mantra/libsys/_fstat.s
index 48ec96e..7816189 100644 (file)
--- a/mach/mantra/libsys/_fstat.s
+++ b/mach/mantra/libsys/_fstat.s
@@ -5,7 +5,22 @@
 .sect .data
 .sect .bss
 .sect .text
-__fstat:               move.l  #0x1C,d0
+__fstat:       move.l  #0x1C,d0
                move.l  4(sp),a0
                move.l  8(sp),d1
-               jmp callc
+               jsr callc
+               tst.l d0
+               blt 1f
+               move.l 4(sp),a0
+               add.l #30,a0
+               lea 2(a0),a1
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+1:
+               rts

diff --git a/mach/mantra/libsys/fstat.s b/mach/mantra/libsys/fstat.s
index dd8fdc8..c720f5d 100644 (file)
--- a/mach/mantra/libsys/fstat.s
+++ b/mach/mantra/libsys/fstat.s
@@ -8,4 +8,19 @@
 _fstat:                move.l  #0x1C,d0
                move.l  4(sp),a0
                move.l  8(sp),d1
-               jmp callc
+               jsr callc
+               tst.l d0
+               blt 1f
+               move.l 4(sp),a0
+               add.l #30,a0
+               lea 2(a0),a1
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+1:
+               rts

diff --git a/mach/mantra/libsys/stat.s b/mach/mantra/libsys/stat.s
index 461767b..fbf217f 100644 (file)
--- a/mach/mantra/libsys/stat.s
+++ b/mach/mantra/libsys/stat.s
@@ -8,4 +8,19 @@
 _stat:         move.l #0x12,d0
                move.l 4(sp),a0
                move.l 8(sp),d1
-               jmp callc
+               jsr callc
+               tst.l d0
+               blt 1f
+               move.l 4(sp),a0
+               add.l #30,a0
+               lea 2(a0),a1
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+               move.w -(a0),-(a1)
+1:
+               rts