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.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
