浏览代码

* ThreadID is shared

Tomas Hajny 20 年之前
父节点
当前提交
134c0bf3fa
共有 1 个文件被更改,包括 4 次插入10 次删除
  1. 4 10
      rtl/emx/system.pas

+ 4 - 10
rtl/emx/system.pas

@@ -114,15 +114,6 @@ var
 (* 4 .. detached (background) OS/2 process *)
   ApplicationType: cardinal;
 
-{$ifdef HASTHREADVAR}
-threadvar
-{$else HASTHREADVAR}
-var
-{$endif HASTHREADVAR}
-(* Thread ID of current thread - stored here    *)
-(* to avoid repeated calls to DosGetInfoBlocks. *)
-  ThreadID: cardinal;
-
 
 procedure SetDefaultOS2FileType (FType: ShortString);
 
@@ -1372,7 +1363,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.31  2004-12-05 14:36:37  hajny
+  Revision 1.32  2004-12-12 21:08:29  hajny
+    * ThreadID is shared
+
+  Revision 1.31  2004/12/05 14:36:37  hajny
     + GetProcessID added
 
   Revision 1.30  2004/11/04 09:32:31  peter