* Removed UpperCaseTable and LowerCaseTable variables and TCaseTranslationTable type from interface part. These variables are used only by generic upper/lower case conversion routines. They are not used on Windows targets and it is bad idea to let users use these variables. Users must use AnsiLowerCase and AnsiUpperCase routines.

git-svn-id: trunk@9301 -

rtl/objpas/sysutils/sysinth.inc

@@ -27,7 +27,6 @@
   ---------------------------------------------------------------------}
 
 type
-  TCaseTranslationTable = array[0..255] of char;
   TMonthNameArray = array[1..12] of string;
   TWeekNameArray = array[1..7] of string;
 
@@ -55,13 +54,6 @@ type
   end;
 
 var
-{$ifndef FPC_NOGENERICANSIROUTINES}
-   { Tables with upper and lowercase forms of character sets.
-     MUST be initialized with the correct code-pages }
-   UpperCaseTable: TCaseTranslationTable;
-   LowerCaseTable: TCaseTranslationTable;
-{$endif FPC_NOGENERICANSIROUTINES}
-
   DefaultFormatSettings : TFormatSettings = (
     CurrencyFormat: 1;
     NegCurrFormat: 5;

rtl/objpas/sysutils/sysstr.inc

@@ -219,6 +219,15 @@ end;
 {   these functions rely on the character set loaded by the OS                 }
 {==============================================================================}
 
+type
+  TCaseTranslationTable = array[0..255] of char;
+  
+var
+  { Tables with upper and lowercase forms of character sets.
+    MUST be initialized with the correct code-pages }
+  UpperCaseTable: TCaseTranslationTable;
+  LowerCaseTable: TCaseTranslationTable;
+
 function GenericAnsiUpperCase(const s: string): string;
   var
     len, i: integer;