[comp.sys.mac.programmer] Pascal 3.2b6 bug?

pmbergla@watcgl.waterloo.edu (Per Bergland) (06/07/91)

Is this a known bug, and what can I do about it?

const kString = 'HOXWSF';
var c:char;r:integer;
begin
c := 'O';
r := Pos('O',kString); => r = 2
r := Pos('O','HOXWSF'); => r = 2
r := Pos(c,kString); => r = 1 for any c
r := Pos(c,'HOXWSF'); => r = 1 for any c
end;

MPW Shell 3.3something
Pascal 3.2b6
Link 3.2b6.4