Newsgroups: comp.sys.mac.programmer
Path: utzoo!utgpu!watserv1!watcgl!pmbergla
From: pmbergla@watcgl.waterloo.edu (Per Bergland)
Subject: Pascal 3.2b6 bug?
Message-ID: <1991Jun7.165147.10618@watcgl.waterloo.edu>
Organization: University of Waterloo
Date: Fri, 7 Jun 1991 16:51:47 GMT
Lines: 15

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