From d2f3426bda0753986075c88b558c5cb7e9d8f8da Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 8 Nov 2023 11:29:44 +0100
Subject: [PATCH] * modeswitch needed

---
 rtl/go32v2/classes.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/go32v2/classes.pp b/rtl/go32v2/classes.pp
index 872952f80b..e0b806f797 100644
--- a/rtl/go32v2/classes.pp
+++ b/rtl/go32v2/classes.pp
@@ -15,6 +15,7 @@
 
 {$mode objfpc}
 {$H+}
+{$modeswitch advancedrecords}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}