[fpc-devel] Bug 4004

[Colin Western]

Can I ask somebody to have another look at this bug - it was flagged 
unreproducable on the web system, but I still get it from the current 
svn as shown below.
(Note that the orginal report was on ppc but I have the same fault on i386)
Colin

$ fpc ord.pas
Free Pascal Compiler version 2.1.1 [2005/06/04] for i386
Copyright (c) 1993-2005 by Florian Klaempfl
Target OS: Linux for i386
Compiling ord.pas
Linking ord
13 Lines compiled, 0.0 sec
$ ./ord
-1
Runtime error 215 at $080480C5
  $080480C5
  $0804813A

$ more ord.pas
{$R+}{$Q+}
function d(a,b:Char):Integer;
begin
  d := Ord(a)-Ord(b);
end;

var
  i: Integer;
begin
  i := Ord('0')-Ord('1');
  WriteLn(i);
  WriteLn(d('0','1'));
end.