Add aliases $nosharedlib,$nounicode,$nothread to SkipTarget TConfig field

git-svn-id: trunk@34075 -

tests/utils/dotest.pp

@@ -20,6 +20,7 @@
 program dotest;
 uses
   sysutils,
+  strutils,
   dos,
 {$ifdef macos}
   macutils,
@@ -120,6 +121,22 @@ const
   TargetIsMacOS : boolean = false;
   TargetIsUnix : boolean = false;
 
+
+const
+  NoSharedLibSupportPattern='$nosharedlib';
+  TargetHasNoSharedLibSupport = 'msdos,go32v2';
+  NoWorkingUnicodeSupport='$nounicode';
+  TargetHasNoWorkingUnicodeSupport = 'msdos';
+  NoWorkingThread='$nothread';
+  TargetHasNoWorkingThreadSupport = 'go32v2,msdos';
+
+procedure TranslateConfig(var AConfig: TConfig);
+begin
+  AConfig.SkipTarget:=ReplaceText(AConfig.SkipTarget, NoSharedLibSupportPattern, TargetHasNoSharedLibSupport);
+  AConfig.SkipTarget:=ReplaceText(AConfig.SkipTarget, NoWorkingUnicodeSupport, TargetHasNoWorkingUnicodeSupport);
+  AConfig.SkipTarget:=ReplaceText(AConfig.SkipTarget, NoWorkingThread, TargetHasNoWorkingThreadSupport);
+end;
+
 { extracted from rtl/macos/macutils.inc }
 
 function IsMacFullPath (const path: string): Boolean;
@@ -1833,6 +1850,7 @@ var
   Res : boolean;
 begin
   Res:=GetConfig(PPFile[current],Config);
+  TranslateConfig(Config);
 
   if Res then
     begin