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

* use ShortTimeFormat also for LongTimeFormat if T_FMT_AMPM is not defined

Browse Source 
for the current locale (Kylix-compatible, thanks to Luca Olivetti for
    the hint, fixes mantis #13947)

git-svn-id: trunk@13395 -
This commit is contained in:
Jonas Maebe 2009-07-16 16:44:15 +00:00
parent 55578e8226
commit 4e446c6184
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/unix/clocale.pp
View File

@ -260,7 +260,10 @@ begin
OrgFormatSettings.LongTimeFormat:=longtimeformat; OrgFormatSettings.LongTimeFormat:=longtimeformat;
{$endif} {$endif}
LongTimeFormat := TransformFormatStr(LongTimeFormat); if (LongTimeFormat='') then
LongTimeFormat:=ShortTimeFormat
else
LongTimeFormat := TransformFormatStr(LongTimeFormat);
{$Ifdef BSD} {$Ifdef BSD}
plocale:=localeconv; plocale:=localeconv;