paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* MT fix

Browse Source
This commit is contained in:
peter 2002-12-23 21:17:53 +00:00
parent 1c3ac34aa8
commit 1da81c33ca
1 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
rtl/linux/i386/syscall.inc
View File

@ -35,19 +35,22 @@ asm
.LSyscOK:
{$ifdef VER1_0}
movl %edx,Errno
movl %ecx,%eax
{$else}
movl FPC_THREADVAR_RELOCATE,%eax
testl %eax,%eax
jne .LThread
movl %edx,Errno+4
movl %ecx,%eax
jmp .LNoThread
.LThread:
pushl %ecx
pushl Errno
call *%eax
movl %edx,(%eax)
popl %eax
.LNoThread:
{$endif}
movl %ecx,%eax
end;
function FpSysCall(sysnr,param1 : TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL1'];
@ -67,19 +70,22 @@ asm
.LSyscOK:
{$ifdef VER1_0}
movl %edx,Errno
movl %ecx,%eax
{$else}
movl FPC_THREADVAR_RELOCATE,%eax
testl %eax,%eax
jne .LThread
movl %edx,Errno+4
movl %ecx,%eax
jmp .LNoThread
.LThread:
pushl %ecx
pushl Errno
call *%eax
movl %edx,(%eax)
popl %eax
.LNoThread:
{$endif}
movl %ecx,%eax
end;
function FpSysCall(sysnr,param1,param2 : TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL2'];
@ -100,19 +106,22 @@ asm
.LSyscOK:
{$ifdef VER1_0}
movl %edx,Errno
movl %ecx,%eax
{$else}
movl FPC_THREADVAR_RELOCATE,%eax
testl %eax,%eax
jne .LThread
movl %edx,Errno+4
movl %ecx,%eax
jmp .LNoThread
.LThread:
pushl %ecx
pushl Errno
call *%eax
movl %edx,(%eax)
popl %eax
.LNoThread:
{$endif}
movl %ecx,%eax
end;
function FpSysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL3'];
@ -134,19 +143,22 @@ asm
.LSyscOK:
{$ifdef VER1_0}
movl %edx,Errno
movl %ecx,%eax
{$else}
movl FPC_THREADVAR_RELOCATE,%eax
testl %eax,%eax
jne .LThread
movl %edx,Errno+4
movl %ecx,%eax
jmp .LNoThread
.LThread:
pushl %ecx
pushl Errno
call *%eax
movl %edx,(%eax)
popl %eax
.LNoThread:
{$endif}
movl %ecx,%eax
end;
function FpSysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL4'];
@ -169,19 +181,22 @@ asm
.LSyscOK:
{$ifdef VER1_0}
movl %edx,Errno
movl %ecx,%eax
{$else}
movl FPC_THREADVAR_RELOCATE,%eax
testl %eax,%eax
jne .LThread
movl %edx,Errno+4
movl %ecx,%eax
jmp .LNoThread
.LThread:
pushl %ecx
pushl Errno
call *%eax
movl %edx,(%eax)
popl %eax
.LNoThread:
{$endif}
movl %ecx,%eax
end;
function FpSysCall(sysnr,param1,param2,param3,param4,param5 : TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL5'];
@ -205,19 +220,22 @@ asm
.LSyscOK:
{$ifdef VER1_0}
movl %edx,Errno
movl %ecx,%eax
{$else}
movl FPC_THREADVAR_RELOCATE,%eax
testl %eax,%eax
jne .LThread
movl %edx,Errno+4
movl %ecx,%eax
jmp .LNoThread
.LThread:
pushl %ecx
pushl Errno
call *%eax
movl %edx,(%eax)
popl %eax
.LNoThread:
{$endif}
movl %ecx,%eax
end;
{$ifdef notsupported}
@ -243,19 +261,22 @@ asm
.LSyscOK:
{$ifdef VER1_0}
movl %edx,Errno
movl %ecx,%eax
{$else}
movl FPC_THREADVAR_RELOCATE,%eax
testl %eax,%eax
jne .LThread
movl %edx,Errno+4
movl %ecx,%eax
jmp .LNoThread
.LThread:
pushl %ecx
pushl Errno
call *%eax
movl %edx,(%eax)
popl %eax
.LNoThread:
{$endif}
movl %ecx,%eax
end;
{$endif notsupported}
@ -348,7 +369,10 @@ end;
{
$Log$
Revision 1.5 2002-12-23 20:56:32 peter
Revision 1.6 2002-12-23 21:17:53 peter
* MT fix
Revision 1.5 2002/12/23 20:56:32 peter
* Reset Errno to 0 if call is successfull
* Fix broken 1.0.x Errno which does not have threadvar