paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 06:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make sure it compiles with 3.2.2

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-01 23:37:12 +01:00
parent f253ca856f
commit 122ef8bb76
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15,6 +15,14 @@
class function TFormatSettings.Invariant : TFormatSettings;
const
DefShortMonthNames : TMonthNameArray = ('Jan','Feb','Mar','Apr','May','Jun',
'Jul','Aug','Sep','Oct','Nov','Dec');
DefLongMonthNames : TMonthNameArray = ('January','February','March','April','May','June',
'July','August','September','October','November','December');
DefShortDayNames : TWeekNameArray = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
DefLongDayNames : TWeekNameArray = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
begin
With Result do
begin
@ -33,13 +41,10 @@ begin
TimePMString:='PM';
ShortTimeFormat:='hh:nn';
LongTimeFormat:='hh:nn:ss';
ShortMonthNames:=['Jan','Feb','Mar','Apr','May','Jun',
'Jul','Aug','Sep','Oct','Nov','Dec'];
LongMonthNames:=['January','February','March','April','May','June',
'July','August','September','October','November','December'];
ShortDayNames:=['Sun','Mon','Tue','Wed','Thu','Fri','Sat'];
LongDayNames:=['Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'];
TwoDigitYearCenturyWindow:=50;
ShortMonthNames:=DefShortMonthNames;
LongMonthNames:=DefLongMonthNames;
ShortDayNames:=DefShortDayNames;
LongDayNames:=DefLongDayNames;
end;
end;