mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 21:59:47 +02:00
* EMX code removed. Most probably, MT broken. (EMX notification removed)
This commit is contained in:
parent
b3064de6c0
commit
ddfc73d0eb
@ -15,7 +15,6 @@
|
||||
**********************************************************************}
|
||||
|
||||
{$IFDEF MT}
|
||||
{$DEFINE EMX}
|
||||
|
||||
const
|
||||
ThreadVarBlockSize: dword = 0;
|
||||
@ -210,16 +209,6 @@ begin
|
||||
{$endif DEBUG_MT}
|
||||
BeginThread := DosCreateThread (ThreadID, @ThreadMain, TI, CreationFlags,
|
||||
StackSize);
|
||||
{$IFDEF EMX}
|
||||
{$ASMMODE INTEL}
|
||||
asm
|
||||
mov eax, 7F2Ch
|
||||
mov edx, ThreadID
|
||||
call syscall
|
||||
{$warning Error checking missing!!}
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
{$ASMMODE DEFAULT}
|
||||
{$ENDIF EMX}
|
||||
end;
|
||||
|
||||
function BeginThread (ThreadFunction: TThreadFunc): dword;
|
||||
@ -335,7 +324,10 @@ end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.12 2003-10-08 05:22:47 yuri
|
||||
Revision 1.13 2003-10-08 09:21:33 yuri
|
||||
* EMX code removed. Most probably, MT broken. (EMX notification removed)
|
||||
|
||||
Revision 1.12 2003/10/08 05:22:47 yuri
|
||||
* Some emx code removed
|
||||
|
||||
Revision 1.11 2003/10/07 21:26:35 hajny
|
||||
|
@ -33,7 +33,7 @@ OS/2 native rtl high
|
||||
- dos.pas.................................................YP
|
||||
- sysutils.pp
|
||||
- ports.pas
|
||||
- thread.inc
|
||||
- thread.inc..............................................YP
|
||||
- linker (LINK386, Internal, ...)
|
||||
- loader (prt*) for EXEs
|
||||
- loader (prt*) for DLLs
|
||||
|
Loading…
Reference in New Issue
Block a user