Size of packed sets

[Michael Riedl]

Gaius,

first of all a happy new year to you.

Can you please have a short look on the attached code.

MODULE mktest;

FROM SYSTEM   IMPORT TSIZE,BITSPERLOC;
FROM SWholeIO IMPORT WriteCard;
FROM STextIO  IMPORT WriteString,WriteLn;

TYPE  GenOpts   = (opt1,opt2,opt3,opt4,opt5,opt6,opt7,opt8);
      GenOptSet = PACKEDSET OF GenOpts;

TYPE  BitSet8   = PACKEDSET OF [0..BITSPERLOC - 1];

BEGIN
  WriteString(" TSIZE(GenOptSet)  = "); WriteCard(TSIZE(GenOptSet),1); WriteLn;
  WriteString(" TSIZE(BitSet8)    = "); WriteCard(TSIZE(BitSet8)  ,1); WriteLn;
  WriteString(" SYSTEM.BITSPERLOC = "); WriteCard(BITSPERLOC      ,1); WriteLn;
END mktest.

I am wondering why the size of BitSet8 and GenOptSet is 4 bytes - would have expected 1.

Maybe that's per intention - please let me know.

Greetings

Michael