lazutils: notes about thread safety

git-svn-id: trunk@41945 -

components/codetools/fileprocs.pas

@@ -22,6 +22,7 @@
 
   Abstract:
     - simple file functions and fpc additions
+    - all functions are thread safe unless explicitely stated
 }
 unit FileProcs;
 
@@ -43,7 +44,7 @@ uses
   MemCheck,
   {$ENDIF}
   Classes, SysUtils, LazUTF8, LazDbgLog, LazFileCache, LazFileUtils,
-  lazutf8classes, LazLogger, AVL_Tree, CodeToolsStrConsts;
+  LazUTF8Classes, LazLogger, AVL_Tree, CodeToolsStrConsts;
 
 type
   TFPCStreamSeekType = int64;
@@ -326,7 +327,7 @@ type
 function CompareCTMemStat(Stat1, Stat2: TCTMemStat): integer;
 function CompareNameWithCTMemStat(KeyAnsiString: Pointer; Stat: TCTMemStat): integer;
 
-function GetTicks: int64;
+function GetTicks: int64; // not thread-safe
 
 type
   TCTStackTracePointers = array of Pointer;
@@ -341,7 +342,7 @@ function CTGetStackTrace(UseCache: boolean): string;
 procedure CTGetStackTracePointers(var AStack: TCTStackTracePointers);
 function CTStackTraceAsString(const AStack: TCTStackTracePointers;
                             UseCache: boolean): string;
-function CTGetLineInfo(Addr: Pointer; UseCache: boolean): string;
+function CTGetLineInfo(Addr: Pointer; UseCache: boolean): string; // not thread safe
 function CompareCTLineInfoCacheItems(Data1, Data2: Pointer): integer;
 function CompareAddrWithCTLineInfoCacheItem(Addr, Item: Pointer): integer;
 

components/lazutils/lazfileutils.pas

@@ -1,3 +1,6 @@
+{
+  All functions are thread safe unless explicitely stated
+}
 unit LazFileUtils;
 
 {$mode objfpc}{$H+}
@@ -5,8 +8,7 @@ unit LazFileUtils;
 interface
 
 uses
-  Classes, SysUtils, LazUTF8,
-  SysConst, LazUtilsStrConsts;
+  Classes, SysUtils, SysConst, LazUTF8, LazUtilsStrConsts;
 
 {$IFDEF Windows}
   {$define CaseInsensitiveFilenames}

components/lazutils/lazutf8.pas

@@ -11,6 +11,8 @@
  *****************************************************************************
 
   Useful routines for managing UTF-8 strings
+
+  - all functions are thread safe unless explicitely stated
 }
 unit LazUTF8;
 

components/lazutils/lazutf8classes.pas

@@ -1,13 +1,16 @@
-unit lazutf8classes;
+unit LazUTF8Classes;
 
 {$mode objfpc}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, lazutf8;
+  Classes, SysUtils, LazUTF8;
 
 type
+
+  { TFileStreamUTF8 }
+
   TFileStreamUTF8 = class(THandleStream)
   private
     FFileName: utf8string;
@@ -18,6 +21,8 @@ type
     property FileName: utf8string Read FFilename;
   end;
 
+  { TStringListUTF8 }
+
   TStringListUTF8 = class(TStringList)
   protected
     function DoCompareText(const s1,s2 : string) : PtrInt; override;

components/lazutils/lazutils.pas

@@ -9,7 +9,7 @@ interface
 uses
   laz2_DOM, Laz2_XMLCfg, laz2_XMLRead, laz2_xmlutils, laz2_XMLWrite, Laz_DOM, 
   Laz_XMLCfg, Laz_XMLRead, Laz_XMLStreaming, Laz_XMLWrite, LazFileUtils, 
-  LazFileCache, LazUTF8, LazDbgLog, paswstring, FileUtil, lazutf8classes, 
+  LazFileCache, LazUTF8, LazDbgLog, paswstring, FileUtil, LazUTF8Classes, 
   Masks, LazUtilsStrConsts, LConvEncoding, lazutf16, lazutf8sysutils, 
   LazMethodList, AvgLvlTree, LazLogger, LazFreeType, TTCache, TTCalc, TTCMap, 
   TTDebug, TTError, TTFile, TTGLoad, TTInterp, TTLoad, TTMemory, TTObjs,