paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 08:29:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* bugfix #1639 (IsMultiThread varialbe setting)

Browse Source
This commit is contained in:
carl 2001-10-09 02:42:05 +00:00
parent 05a2276947
commit 901072c39e
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/i386/i386.inc
View File

@ -1122,7 +1122,7 @@ function declocked(var l : longint) : boolean;assembler;
{$ifdef MTRTL}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithreaded
cmpb $0,IsMultithread
jz .Ldeclockednolock
lock
decl (%edi)
@ -1141,7 +1141,7 @@ procedure inclocked(var l : longint);assembler;
{$ifdef MTRTL}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithreaded
cmpb $0,IsMultithread
jz .Linclockednolock
lock
incl (%edi)
@ -1154,7 +1154,10 @@ procedure inclocked(var l : longint);assembler;
{
$Log$
Revision 1.17 2001-08-30 15:43:14 jonas
Revision 1.18 2001-10-09 02:43:58 carl
* bugfix #1639 (IsMultiThread varialbe setting)
Revision 1.17 2001/08/30 15:43:14 jonas
* converted adding/comparing of strings to compileproc. Note that due
to the way the shortstring helpers for i386 are written, they are
still handled by the old code (reason: fpc_shortstr_compare returns

7
rtl/os2/thread.inc
View File

@ -183,7 +183,7 @@ begin
{$ifdef DEBUG_MT}
WriteLn ('Creating new thread');
{$endif DEBUG_MT}
IsMultiThreaded := true;
IsMultiThread := true;
{ the only way to pass data to the newly created thread }
{ in a MT safe way, is to use the heap }
New (TI);
@ -325,7 +325,10 @@ end;
{
$Log$
Revision 1.4 2001-02-04 01:53:58 hajny
Revision 1.5 2001-10-09 02:42:05 carl
* bugfix #1639 (IsMultiThread varialbe setting)
Revision 1.4 2001/02/04 01:53:58 hajny
* HandleError instead of RunError
Revision 1.3 2001/02/01 21:30:01 hajny