Browse Source

* Fixed bootstrapping with FPC 2.2.2.

git-svn-id: branches/unicodertl@12183 -
yury 17 years ago
parent
commit
3df3c75984
2 changed files with 12 additions and 0 deletions
  1. 7 0
      rtl/inc/compproc.inc
  2. 5 0
      rtl/inc/systemh.inc

+ 7 - 0
rtl/inc/compproc.inc

@@ -342,6 +342,13 @@ Function fpc_PWideChar_To_WideStr(const p : pwidechar): widestring; compilerproc
 {$endif FPC_HAS_FEATURE_WIDESTRINGS}
 {$endif FPC_HAS_FEATURE_WIDESTRINGS}
 {$endif  defined(WINDOWS) or defined(VER2_2)}
 {$endif  defined(WINDOWS) or defined(VER2_2)}
 
 
+{$ifdef VER2_2}
+{ Compatibility for FPC 2.2.x as bootstrap compiler }
+Function fpc_WideCharArray_To_AnsiStr(const arr: array of widechar; zerobased: boolean = true): AnsiString; compilerproc;
+Function fpc_WideCharArray_To_WideStr(const arr: array of widechar; zerobased: boolean = true): WideString; compilerproc;
+Function fpc_PWideChar_To_AnsiStr(const p : pwidechar): ansistring; compilerproc;
+{$endif VER2_2}
+
 {*****************************************************************************
 {*****************************************************************************
                         Unicode string support
                         Unicode string support
 *****************************************************************************}
 *****************************************************************************}

+ 5 - 0
rtl/inc/systemh.inc

@@ -359,6 +359,11 @@ Type
 {$endif VER2_2}
 {$endif VER2_2}
   PUnicodeString      = ^UnicodeString;
   PUnicodeString      = ^UnicodeString;
 
 
+{$ifdef VER2_2}
+  {$undef FPC_RTLSTRING_UTF16}
+  {$undef FPC_RTLSTRING_UTF8}
+{$endif VER2_2}
+
 {$ifdef FPC_RTLSTRING_UTF16}
 {$ifdef FPC_RTLSTRING_UTF16}
   RtlString           = UnicodeString;
   RtlString           = UnicodeString;
   RtlChar             = UnicodeChar;
   RtlChar             = UnicodeChar;