* cleaned up subsetreg support (put everything in a record)

  * prepared support for elements with arbitrary bit length (as opposed
    to a multiple of 8)


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

1 files changed, 7 insertions, 3 deletions

diff --git a/compiler/cgutils.pas b/compiler/cgutils.pas
index 26b3206a2d..192c9e7e34 100644
--- a/compiler/cgutils.pas
+++ b/compiler/cgutils.pas
@@ -61,6 +61,12 @@ unit cgutils;
 {$endif SUPPORT_UNALIGNED}
       end;
 
+      tsubsetregister = record
+        subsetreg : tregister;
+        startbit, bitlen: byte;
+        subsetregsize: tcgsize;
+      end;
+
       tlocation = record
          loc  : TCGLoc;
          size : TCGSize;
@@ -95,9 +101,7 @@ unit cgutils;
               );
             LOC_SUBSETREG,
             LOC_CSUBSETREG : (
-              subsetreg : tregister;
-              startbit: byte;
-              subsetregsize: tcgsize;
+              sreg: tsubsetregister;
             );
       end;