Initialization of sets in a "var" statement inccorrect on the Sun. - Gpc

1 Jun 1999


      The example below shows that sets have the wrong value from the
initialization, but are ok if calcuated or if set in the code.
var
  vowels : letter_set := [ 'a', 'e', 'i', 'o', 'u' ] ;
is inconrrect,
vowels := [ 'a', 'e', 'i', 'o', 'u' ] ;
works fine.
I suspect it would work on a low-endian machine, but does not work
on a big-endian.   Dumping the set of vowels shows
44 41 04 00
which I thnk means [ 10 16 22 26 30 ] or [ j p v z ??? ] , whears
it should be (and if you read from left you right you get)
    [ 1 5 9 15 21 ] or [ a e i o u ] .
...
From the assembly file
_Vowels:
    .ascii "DA\4\0"
is incorrect here.  For the assigment at line 22 there is inline code
with specific ORs rather than moving constants.
% cat e.pas
program e(input, output) ;
type
  small = 0..10 ;
  small_set = set of small ;
  letter = 'a' .. 'z' ;
  letter_set = set of letter ;
var
  vowels : letter_set := [ 'a', 'e', 'i', 'o', 'u' ] ;
  smalls : small_set := [ 1, 3, 5, 7, 9 ] ;
  c : letter ;
  i : integer ;
begin
  writeln('vowels #1:') ;
  for c := 'a' to 'z' do
     if c in vowels then
        writeln(c) ;
  writeln ;
vowels := [ 'a', 'e', 'i', 'o', 'u' ] ;
  writeln('vowels #2 :') ;
  for c := 'a' to 'z' do
     if c in vowels then
        writeln(c) ;
  writeln ;
writeln('smalls #1 :') ;
  for i := 0 to 10 do
    if i in smalls then 
      write(i:1, ' ') ;
  writeln;
smalls := [] ;
  for i := 0 to 10 do
    if odd(i) then
      smalls := smalls + [i] ;
writeln('smalls #2:') ;
  for i := 0 to 10 do
    if i in smalls then 
      write(i:1, ' ') ;
  writeln;
end.
% gpc -o e e.pas
e.pas: In function `program_E':
e.pas:38: warning: constructing limited integer set `0..255'
% ./e
vowels #1:
j
p
v
z
vowels #2 :
a
e
i
o
u
smalls #1 :
smalls #2:
1 3 5 7 9 
%
Richard