* made TShiftState a packed set to be more compatible

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@7812 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 0 deletions

diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 84e42dafb9..a6acb7be19 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -105,7 +105,9 @@ type
     ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
     ssScroll,ssTriple,ssQuad);
 
+{$packset 1}
   TShiftState = set of TShiftStateEnum;
+{$packset default}
 
   THelpContext = -MaxLongint..MaxLongint;
   THelpType = (htKeyword, htContext);