Browse Source

* fixed Windows compilation after r16533

git-svn-id: trunk@16539 -
Jonas Maebe 14 years ago
parent
commit
8c9d0f1f78
1 changed files with 4 additions and 2 deletions
  1. 4 2
      rtl/inc/wstrings.inc

+ 4 - 2
rtl/inc/wstrings.inc

@@ -1671,7 +1671,8 @@ function CompareTextWideString(const s1, s2 : WideString): PtrInt;
 
 
 {$warnings on}
 {$warnings on}
 
 
-function CharLengthPChar(const Str: PChar): PtrInt;forward;
+function DefaultCharLengthPChar(const Str: PChar): PtrInt;forward;
+function DefaultCodePointLength(const Str: PChar; MaxLookAead: PtrInt): Ptrint;forward;
 
 
 
 
 procedure initwidestringmanager;
 procedure initwidestringmanager;
@@ -1685,5 +1686,6 @@ procedure initwidestringmanager;
 {$endif HAS_WIDESTRINGMANAGER}
 {$endif HAS_WIDESTRINGMANAGER}
     widestringmanager.CompareWideStringProc:=@CompareWideString;
     widestringmanager.CompareWideStringProc:=@CompareWideString;
     widestringmanager.CompareTextWideStringProc:=@CompareTextWideString;
     widestringmanager.CompareTextWideStringProc:=@CompareTextWideString;
-    widestringmanager.CharLengthPCharProc:=@CharLengthPChar;
+    widestringmanager.CharLengthPCharProc:=@DefaultCharLengthPChar;
+    widestringmanager.CodePointLengthProc:=@DefaultCodePointLength;
   end;
   end;