* ensure that TRegisterType and TSubRegister have a size of 1 by moving them at the correct location

git-svn-id: trunk@35282 -

rtl/objpas/typinfo.pp

@@ -70,6 +70,36 @@ unit typinfo;
                     ccCppdecl, ccFar16, ccOldFPCCall, ccInternProc,
                     ccSysCall, ccSoftFloat, ccMWPascal);
 
+{$push}
+{$scopedenums on}
+       TSubRegister = (
+         None,
+         Lo,
+         Hi,
+         Word,
+         DWord,
+         QWord,
+         FloatSingle,
+         FloatDouble,
+         FloatQuad,
+         MultiMediaSingle,
+         MultiMediaDouble,
+         MultiMediaWhole,
+         MultiMediaX,
+         MultiMediaY
+       );
+
+       TRegisterType = (
+         Invalid,
+         Int,
+         FP,
+         MMX,
+         MultiMedia,
+         Special,
+         Address
+       );
+{$pop}
+
 {$MINENUMSIZE DEFAULT}
 
    const
@@ -82,35 +112,6 @@ unit typinfo;
       TTypeKinds = set of TTypeKind;
       ShortStringBase = string[255];
 
-{$push}
-{$scopedenums on}
-      TSubRegister = (
-        None,
-        Lo,
-        Hi,
-        Word,
-        DWord,
-        QWord,
-        FloatSingle,
-        FloatDouble,
-        FloatQuad,
-        MultiMediaSingle,
-        MultiMediaDouble,
-        MultiMediaWhole,
-        MultiMediaX,
-        MultiMediaY
-      );
-
-      TRegisterType = (
-        Invalid,
-        Int,
-        FP,
-        MMX,
-        MultiMedia,
-        Special,
-        Address
-      );
-{$pop}
 
       TParameterLocation =
 {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}