Browse Source

* bugfix #1639 (IsMultiThread varialbe setting)

carl 24 years ago
parent
commit
901072c39e
2 changed files with 11 additions and 5 deletions
  1. 6 3
      rtl/i386/i386.inc
  2. 5 2
      rtl/os2/thread.inc

+ 6 - 3
rtl/i386/i386.inc

@@ -1122,7 +1122,7 @@ function declocked(var l : longint) : boolean;assembler;
 {$ifdef MTRTL}
 {$ifdef MTRTL}
      { this check should be done because a lock takes a lot }
      { this check should be done because a lock takes a lot }
      { of time!                                             }
      { of time!                                             }
-     cmpb       $0,IsMultithreaded
+     cmpb       $0,IsMultithread
      jz         .Ldeclockednolock
      jz         .Ldeclockednolock
      lock
      lock
      decl       (%edi)
      decl       (%edi)
@@ -1141,7 +1141,7 @@ procedure inclocked(var l : longint);assembler;
 {$ifdef MTRTL}
 {$ifdef MTRTL}
      { this check should be done because a lock takes a lot }
      { this check should be done because a lock takes a lot }
      { of time!                                             }
      { of time!                                             }
-     cmpb       $0,IsMultithreaded
+     cmpb       $0,IsMultithread
      jz         .Linclockednolock
      jz         .Linclockednolock
      lock
      lock
      incl       (%edi)
      incl       (%edi)
@@ -1154,7 +1154,10 @@ procedure inclocked(var l : longint);assembler;
 
 
 {
 {
   $Log$
   $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
     * converted adding/comparing of strings to compileproc. Note that due
       to the way the shortstring helpers for i386 are written, they are
       to the way the shortstring helpers for i386 are written, they are
       still handled by the old code (reason: fpc_shortstr_compare returns
       still handled by the old code (reason: fpc_shortstr_compare returns

+ 5 - 2
rtl/os2/thread.inc

@@ -183,7 +183,7 @@ begin
 {$ifdef DEBUG_MT}
 {$ifdef DEBUG_MT}
  WriteLn ('Creating new thread');
  WriteLn ('Creating new thread');
 {$endif DEBUG_MT}
 {$endif DEBUG_MT}
- IsMultiThreaded := true;
+ IsMultiThread := true;
  { the only way to pass data to the newly created thread }
  { the only way to pass data to the newly created thread }
  { in a MT safe way, is to use the heap                  }
  { in a MT safe way, is to use the heap                  }
  New (TI);
  New (TI);
@@ -325,7 +325,10 @@ end;
 
 
 {
 {
   $Log$
   $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
     * HandleError instead of RunError
 
 
   Revision 1.3  2001/02/01 21:30:01  hajny
   Revision 1.3  2001/02/01 21:30:01  hajny