Преглед на файлове

* fixed widestring/unicodemanager initialisiation

git-svn-id: trunk@11743 -
florian преди 17 години
родител
ревизия
f97c2968f9
променени са 12 файла, в които са добавени 46 реда и са изтрити 0 реда
  1. 4 0
      rtl/amiga/system.pp
  2. 4 0
      rtl/beos/system.pp
  3. 4 0
      rtl/go32v2/system.pp
  4. 4 0
      rtl/haiku/system.pp
  5. 4 0
      rtl/macos/system.pp
  6. 4 0
      rtl/morphos/system.pp
  7. 4 0
      rtl/netware/system.pp
  8. 4 0
      rtl/netwlibc/system.pp
  9. 4 0
      rtl/solaris/system.pp
  10. 4 0
      rtl/watcom/system.pp
  11. 3 0
      rtl/win64/system.pp
  12. 3 0
      rtl/wince/system.pp

+ 4 - 0
rtl/amiga/system.pp

@@ -390,5 +390,9 @@ begin
   GenerateArgs;
   InitSystemThreads;
   initvariantmanager;
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
 end.

+ 4 - 0
rtl/beos/system.pp

@@ -416,6 +416,10 @@ begin
 {$ifdef HASVARIANT}
   initvariantmanager;
 {$endif HASVARIANT}
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
   setupexecname;
 end.

+ 4 - 0
rtl/go32v2/system.pp

@@ -667,5 +667,9 @@ Begin
   InstallDefaultHandlers;
 {$endif  EXCEPTIONS_IN_SYSTEM}
   initvariantmanager;
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
 End.

+ 4 - 0
rtl/haiku/system.pp

@@ -416,6 +416,10 @@ begin
 {$ifdef HASVARIANT}
   initvariantmanager;
 {$endif HASVARIANT}
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
   setupexecname;
 end.

+ 4 - 0
rtl/macos/system.pp

@@ -558,7 +558,11 @@ begin
   errno:=0;
   InitSystemThreads;
   initvariantmanager;
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
 
   if StandAlone = 0 then
     begin

+ 4 - 0
rtl/morphos/system.pp

@@ -422,5 +422,9 @@ begin
   GenerateArgs;
   InitSystemThreads;
   initvariantmanager;
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
 end.

+ 4 - 0
rtl/netware/system.pp

@@ -481,5 +481,9 @@ Begin
   ExitCode  := 0;
   InitSystemThreads;
   initvariantmanager;
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
 End.

+ 4 - 0
rtl/netwlibc/system.pp

@@ -551,5 +551,9 @@ Begin
   ExitCode  := 0;
   InitSystemThreads;
   initvariantmanager;
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
 End.

+ 4 - 0
rtl/solaris/system.pp

@@ -234,5 +234,9 @@ Begin
   SetupCmdLine;
   InitSystemThreads;
   initvariantmanager;
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
 End.

+ 4 - 0
rtl/watcom/system.pp

@@ -786,5 +786,9 @@ Begin
   InstallDefaultHandlers;
 {$endif  EXCEPTIONS_IN_SYSTEM}
   initvariantmanager;
+{$ifdef VER2_2}
   initwidestringmanager;
+{$else VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
 End.

+ 3 - 0
rtl/win64/system.pp

@@ -1157,6 +1157,9 @@ begin
   errno:=0;
   initvariantmanager;
   initwidestringmanager;
+{$ifndef VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
   InitWin32Widestrings;
   DispCallByIDProc:=@DoDispCallByIDError;
 end.

+ 3 - 0
rtl/wince/system.pp

@@ -1814,6 +1814,9 @@ initialization
   errno:=0;
   initvariantmanager;
   initwidestringmanager;
+{$ifndef VER2_2}
+  initunicodestringmanager;
+{$endif VER2_2}
   InitWinCEWidestrings;
   DispCallByIDProc:=@DoDispCallByIDError;