mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-25 14:18:41 +02:00
* final fppipe fix hopefully
This commit is contained in:
parent
314fe14247
commit
c5be640fb6
@ -21,36 +21,28 @@ Function fppipe(var fildes : tfildes):cint;assembler;
|
|||||||
copies back the registers as they are after the SysCall.
|
copies back the registers as they are after the SysCall.
|
||||||
}
|
}
|
||||||
asm
|
asm
|
||||||
mov 42,%g1
|
mov 42,%g1
|
||||||
mov %i0,%o0
|
mov %i0,%o0
|
||||||
ta 0x10
|
ta 0x10
|
||||||
bcc .LSyscOK
|
bcc .LSyscOK
|
||||||
nop
|
nop
|
||||||
mov %o0,%l0
|
call fpseterrno
|
||||||
sethi %hi(fpc_threadvar_relocate_proc),%o2
|
nop
|
||||||
or %o2,%lo(fpc_threadvar_relocate_proc),%o2
|
mov -1,%i0
|
||||||
ld [%o2],%o3
|
b .Lend
|
||||||
subcc %o3,%g0,%g0
|
|
||||||
bne .LThread
|
|
||||||
nop
|
nop
|
||||||
sethi %hi(Errno+4),%o0
|
|
||||||
ba .LNoThread
|
|
||||||
or %o0,%lo(Errno+4),%o0
|
|
||||||
.LThread:
|
|
||||||
sethi %hi(Errno),%o0
|
|
||||||
or %o0,%lo(Errno),%o0
|
|
||||||
call %o3
|
|
||||||
ld [%o0],%o0
|
|
||||||
.LNoThread:
|
|
||||||
st %l0,[%o0]
|
|
||||||
mov -1,%o0
|
|
||||||
.LSyscOK:
|
.LSyscOK:
|
||||||
st [%i0],%o0
|
st %o0,[%i0]
|
||||||
st [%i0+4],%o1
|
st %o1,[%i0+4]
|
||||||
|
mov 0,%i0
|
||||||
|
.Lend:
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.1 2005-03-03 20:58:38 florian
|
Revision 1.2 2005-03-03 22:02:59 florian
|
||||||
|
* final fppipe fix hopefully
|
||||||
|
|
||||||
|
Revision 1.1 2005/03/03 20:58:38 florian
|
||||||
+ routines in baseunix can be overriden by processor specifics in bsyscall.inc
|
+ routines in baseunix can be overriden by processor specifics in bsyscall.inc
|
||||||
}
|
}
|
Loading…
Reference in New Issue
Block a user