Test suite results for test file tbs/tb0154.pp

Test run data :

Test file "tbs/tb0154.pp" information:

t_id 393
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940787.

Source:

{ Old file: tbs0184.pp }
{ multiple copies of the same constant set are stored in executable OK 0.99.9 (PFV) }

Program Bug0184;

{ multiple copies of the constant sets are stored in the assembler file when
  they are needed more than once}

Var BSet: Set of Byte;
    SSet: Set of 0..31;
    b,c: byte;
    s: 0..31;

Begin
  BSet := BSet + [b];  {creates a big, empty set}
  BSet := BSet + [c];  {creates another one}
  BSet := BSet + [3];  {creates a big set with element three set}
  BSet := BSet + [3];  {and antoher one}

  SSet := SSet + [5];  {creates a small set containing 5}
  SSet := SSet + [s];  {creates a small, empty set}
  SSet := SSet + [5];  {creates another small set containing 5}
  SSet := SSet + [s];  {creates another small, empty set}

{BTW: small constant sets don't have to be stored seperately in the
 executable, as they're simple 32 bit constants, like longints!}

End.

Link to SVN view of tbs/tb0154.pp source.