paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 15:19:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* EMX code removed. Most probably, MT broken. (EMX notification removed)

Browse Source
This commit is contained in:
yuri 2003-10-08 09:21:33 +00:00
parent b3064de6c0
commit ddfc73d0eb
2 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/os2/thread.inc
View File

@ -15,7 +15,6 @@
**********************************************************************} **********************************************************************}
{$IFDEF MT} {$IFDEF MT}
{$DEFINE EMX}
const const
ThreadVarBlockSize: dword = 0; ThreadVarBlockSize: dword = 0;
@ -210,16 +209,6 @@ begin
{$endif DEBUG_MT} {$endif DEBUG_MT}
BeginThread := DosCreateThread (ThreadID, @ThreadMain, TI, CreationFlags, BeginThread := DosCreateThread (ThreadID, @ThreadMain, TI, CreationFlags,
StackSize); 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; end;
function BeginThread (ThreadFunction: TThreadFunc): dword; function BeginThread (ThreadFunction: TThreadFunc): dword;
@ -335,7 +324,10 @@ end;
{ {
$Log$ $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 * Some emx code removed
Revision 1.11 2003/10/07 21:26:35 hajny Revision 1.11 2003/10/07 21:26:35 hajny

2
rtl/os2/todo-os2.txt
View File

@ -33,7 +33,7 @@ OS/2 native rtl high
- dos.pas.................................................YP - dos.pas.................................................YP
- sysutils.pp - sysutils.pp
- ports.pas - ports.pas
- thread.inc - thread.inc..............................................YP
- linker (LINK386, Internal, ...) - linker (LINK386, Internal, ...)
- loader (prt*) for EXEs - loader (prt*) for EXEs
- loader (prt*) for DLLs - loader (prt*) for DLLs