paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-24 02:34:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't override routines hooked by a real widestring manager before

Browse Source 
sysutils initialised

git-svn-id: trunk@9392 -
This commit is contained in:
Jonas Maebe 2007-12-05 14:28:11 +00:00
parent 2319d8c3ce
commit 997d7b33db
1 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/objpas/sysutils/sysint.inc
View File

@ -20,16 +20,27 @@ procedure InitInternationalGeneric;
{ keep these routines out of the executable? }
{$ifndef FPC_NOGENERICANSIROUTINES}
widestringmanager.UpperAnsiStringProc:=@GenericAnsiUpperCase;
widestringmanager.LowerAnsiStringProc:=@GenericAnsiLowerCase;
widestringmanager.CompareStrAnsiStringProc:=@GenericAnsiCompareStr;
widestringmanager.CompareTextAnsiStringProc:=@GenericAnsiCompareText;
widestringmanager.StrCompAnsiStringProc:=@GenericAnsiStrComp;
widestringmanager.StrICompAnsiStringProc:=@GenericAnsiStrIComp;
widestringmanager.StrLCompAnsiStringProc:=@GenericAnsiStrLComp;
widestringmanager.StrLICompAnsiStringProc:=@GenericAnsiStrLIComp;
widestringmanager.StrLowerAnsiStringProc:=@GenericAnsiStrLower;
widestringmanager.StrUpperAnsiStringProc:=@GenericAnsiStrUpper;
{ don't override a previously installed widestring manager }
if not assigned(widestringmanager.UpperAnsiStringProc) then
widestringmanager.UpperAnsiStringProc:=@GenericAnsiUpperCase;
if not assigned(widestringmanager.LowerAnsiStringProc) then
widestringmanager.LowerAnsiStringProc:=@GenericAnsiLowerCase;
if not assigned(widestringmanager.CompareStrAnsiStringProc) then
widestringmanager.CompareStrAnsiStringProc:=@GenericAnsiCompareStr;
if not assigned(widestringmanager.CompareTextAnsiStringProc) then
widestringmanager.CompareTextAnsiStringProc:=@GenericAnsiCompareText;
if not assigned(widestringmanager.StrCompAnsiStringProc) then
widestringmanager.StrCompAnsiStringProc:=@GenericAnsiStrComp;
if not assigned(widestringmanager.StrICompAnsiStringProc) then
widestringmanager.StrICompAnsiStringProc:=@GenericAnsiStrIComp;
if not assigned(widestringmanager.StrLCompAnsiStringProc) then
widestringmanager.StrLCompAnsiStringProc:=@GenericAnsiStrLComp;
if not assigned(widestringmanager.StrLICompAnsiStringProc) then
widestringmanager.StrLICompAnsiStringProc:=@GenericAnsiStrLIComp;
if not assigned(widestringmanager.StrLowerAnsiStringProc) then
widestringmanager.StrLowerAnsiStringProc:=@GenericAnsiStrLower;
if not assigned(widestringmanager.StrUpperAnsiStringProc) then
widestringmanager.StrUpperAnsiStringProc:=@GenericAnsiStrUpper;
{$endif FPC_NOGENERICANSIROUTINES}
end;