From 122ef8bb76d11ab4e1c7cbe198e592a23bcdb22a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 1 Nov 2023 23:37:12 +0100
Subject: [PATCH] * Make sure it compiles with 3.2.2

---
 rtl/objpas/sysutils/sysint.inc | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/rtl/objpas/sysutils/sysint.inc b/rtl/objpas/sysutils/sysint.inc
index 74d9ebdd6d..1f333c3788 100644
--- a/rtl/objpas/sysutils/sysint.inc
+++ b/rtl/objpas/sysutils/sysint.inc
@@ -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;