- RTL: removed InitVariantManager, it was an empty procedure since day 1.

git-svn-id: trunk@29114 -

rtl/aix/system.pp

@@ -292,7 +292,6 @@ Begin
 { Arguments }
   SetupCmdLine;
   InitSystemThreads;
-  initvariantmanager;
   { restore original signal handlers in case this is a library }
   if IsLibrary then
     RestoreOldSignalHandlers;

rtl/amiga/system.pp

@@ -418,5 +418,4 @@ begin
 { Arguments }
   GenerateArgs;
   InitSystemThreads;
-  initvariantmanager;
 end.

rtl/aros/system.pp

@@ -462,5 +462,4 @@ begin
   { Arguments }
   GenerateArgs;
   InitSystemThreads;
-  initvariantmanager;
 end.

rtl/atari/system.pp

@@ -358,5 +358,4 @@ begin
   errno := 0;
 { Setup command line arguments }
   argc:=GetParamCount(args);
-  InitVariantManager;
 end.

rtl/beos/system.pp

@@ -435,9 +435,6 @@ begin
 { Reset IO Error }
   InOutRes:=0;
   InitSystemThreads;
-{$ifdef HASVARIANT}
-  initvariantmanager;
-{$endif HASVARIANT}
   setupexecname;
   { restore original signal handlers in case this is a library }
   if IsLibrary then

rtl/bsd/system.pp

@@ -354,7 +354,6 @@ Begin
   SetupCmdLine;
   { threading }
   InitSystemThreads;
-  initvariantmanager;
   { restore original signal handlers in case this is a library }
   if IsLibrary then
     RestoreOldSignalHandlers;

rtl/embedded/system.pp

@@ -248,10 +248,6 @@ begin
   InitSystemThreads;
 {$endif FPC_HAS_FEATURE_THREADING}
 
-{$ifdef FPC_HAS_FEATURE_VARIANTS}
-  initvariantmanager;
-{$endif FPC_HAS_FEATURE_VARIANTS}
-
 {$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
 //  initunicodestringmanager;
 {$endif FPC_HAS_FEATURE_WIDESTRINGS}

rtl/emx/system.pas

@@ -591,8 +591,6 @@ begin
 
     InitSystemThreads;
 
-    InitVariantManager;
-
     if os_Mode in [osDOS,osDPMI] then
         DosEnvInit;
 

rtl/gba/system.pp

@@ -194,5 +194,4 @@ begin
   { threading }
   InitSystemThreads;
 {$endif FPC_HAS_FEATURE_THREADING}
-  initvariantmanager;
 end.

rtl/go32v2/system.pp

@@ -688,5 +688,4 @@ Begin
   InitDPMIExcp;
   InstallDefaultHandlers;
 {$endif  EXCEPTIONS_IN_SYSTEM}
-  initvariantmanager;
 End.

rtl/haiku/system.pp

@@ -469,9 +469,6 @@ begin
 { Reset IO Error }
   InOutRes:=0;
   InitSystemThreads;
-{$ifdef HASVARIANT}
-  initvariantmanager;
-{$endif HASVARIANT}
   setupexecname;
   { restore original signal handlers in case this is a library }
   if IsLibrary then

rtl/inc/variant.inc

@@ -1093,9 +1093,6 @@ begin
   VariantManager:=VarMgr;
 end;
 
-procedure initvariantmanager;
-  begin
-  end;
 
 Function Pos (c : Char; Const v : Variant) : SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin

rtl/linux/system.pp

@@ -368,7 +368,6 @@ begin
   InOutRes:=0;
   { threading }
   InitSystemThreads;
-  initvariantmanager;
   { restore original signal handlers in case this is a library }
   if IsLibrary then
     RestoreOldSignalHandlers;

rtl/macos/system.pp

@@ -559,7 +559,6 @@ begin
   InOutRes:=0;
   errno:=0;
   InitSystemThreads;
-  initvariantmanager;
 
   if StandAlone = 0 then
     begin

rtl/morphos/system.pp

@@ -429,5 +429,4 @@ begin
 { Arguments }
   GenerateArgs;
   InitSystemThreads;
-  initvariantmanager;
 end.

rtl/msdos/system.pp

@@ -389,5 +389,4 @@ begin
    AllFilesMask := '*.*';
 { Reset IO Error }
   InOutRes:=0;
-  initvariantmanager;
 end.

rtl/nativent/system.pp

@@ -425,7 +425,6 @@ begin
   InitHeap;
 {$endif ndef KMODE and ndef HAS_MEMORYMANAGER}
   SysInitExceptions;
-  initvariantmanager;
   { we do not use winlike widestrings and also the RTL can't be compiled with
     2.2, so we can savely use the UnicodeString manager only. }
   initunicodestringmanager;

rtl/nds/system.pp

@@ -296,5 +296,4 @@ begin
   { threading }
   InitSystemThreads;
 {$endif FPC_HAS_FEATURE_THREADING}
-  initvariantmanager;
 end.

rtl/netware/system.pp

@@ -477,5 +477,4 @@ Begin
   IsConsole := TRUE;
   ExitCode  := 0;
   InitSystemThreads;
-  initvariantmanager;
 End.

rtl/netwlibc/system.pp

@@ -552,5 +552,4 @@ Begin
   IsConsole := TRUE;
   ExitCode  := 0;
   InitSystemThreads;
-  initvariantmanager;
 End.

rtl/os2/system.pas

@@ -1289,7 +1289,6 @@ begin
     DefaultFileType := '';
 
     InitSystemThreads;
-    InitVariantManager;
 
 {$IFDEF EXTDUMPGROW}
 {    Int_HeapSize := high (cardinal);}

rtl/solaris/system.pp

@@ -286,7 +286,6 @@ Begin
 { Arguments }
   SetupCmdLine;
   InitSystemThreads;
-  initvariantmanager;
   { restore original signal handlers in case this is a library }
   if IsLibrary then
     RestoreOldSignalHandlers;

rtl/watcom/system.pp

@@ -787,5 +787,4 @@ Begin
   InitDPMIExcp;
   InstallDefaultHandlers;
 {$endif  EXCEPTIONS_IN_SYSTEM}
-  initvariantmanager;
 End.

rtl/wii/system.pp

@@ -271,5 +271,4 @@ begin
   { threading }
   InitSystemThreads;
 {$endif FPC_HAS_FEATURE_THREADING}
-  initvariantmanager;
 end.

rtl/win32/system.pp

@@ -680,6 +680,5 @@ begin
   { Reset IO Error }
   InOutRes:=0;
   ProcessID := GetCurrentProcessID;
-  initvariantmanager;
   DispCallByIDProc:=@DoDispCallByIDError;
 end.

rtl/win64/system.pp

@@ -614,6 +614,5 @@ begin
   { Reset IO Error }
   InOutRes:=0;
   ProcessID := GetCurrentProcessID;
-  initvariantmanager;
   DispCallByIDProc:=@DoDispCallByIDError;
 end.

rtl/wince/system.pp

@@ -1769,7 +1769,6 @@ initialization
   ProcessID := GetCurrentProcessID;
   { threading }
   InitSystemThreads;
-  initvariantmanager;
   DispCallByIDProc:=@DoDispCallByIDError;
 
 finalization