paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 09:30:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* stripped trailing spaces

Browse Source 
git-svn-id: trunk@23294 -
This commit is contained in:
florian 2013-01-02 10:50:32 +00:00
parent 82f20cedbd
commit 8ee1445b81
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,14 +17,14 @@
procedure InitInternationalGeneric;
begin
fillchar(SysLocale,sizeof(SysLocale),0);
{ keep these routines out of the executable? }
{$ifndef FPC_NOGENERICANSIROUTINES}
{ 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;
widestringmanager.LowerAnsiStringProc:=@GenericAnsiLowerCase;
if not assigned(widestringmanager.CompareStrAnsiStringProc) then
widestringmanager.CompareStrAnsiStringProc:=@GenericAnsiCompareStr;
if not assigned(widestringmanager.CompareTextAnsiStringProc) then
@ -41,6 +41,6 @@ procedure InitInternationalGeneric;
widestringmanager.StrLowerAnsiStringProc:=@GenericAnsiStrLower;
if not assigned(widestringmanager.StrUpperAnsiStringProc) then
widestringmanager.StrUpperAnsiStringProc:=@GenericAnsiStrUpper;
{$endif FPC_NOGENERICANSIROUTINES}
{$endif FPC_NOGENERICANSIROUTINES}
end;