hi list,

the code below compiled and worked with fpc 2.2.x. With fpc 2.4.0 compilation fails with "Division by zero".

---- 8< ----
program divsucc;
begin
  writeln( 256 DIV succ(255) );
end.
---- 8< ----

Free Pascal Compiler version 2.4.0 [2009/12/18] for i386 Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Win32 for i386
Compiling divsucc.pas
divsucc.pas(4,16) Error: Division by zero
divsucc.pas(7) Fatal: There were 1 errors compiling module, stopping Fatal: Compilation aborted

Comments? Hints?

kisda

Well, Succ(255) is probably evaluated as a byte, in which case it is zero, and then when attempting to evaluate the DIV, the compiler indeed tries to divide by zero.

I don't know whether the behaviour of the compiler changed in this respect, but it seems so ?

Michael.

It's a compiler bug that got triggered by another fix. You can work around it for now by using something like "256 DIV succ(longint(255))"

Jonas

Thanks for the fast reply. No Problem to work around this one, but there are 1788 succ() calls :-o in our applications :-) That was the only one that did not compile. All others did compile, but some of them will probably not work.

If its considered a bug i'm fine. Is there already a bugtracker id? Should i add a bugreport?

kisda

Stefan Kisdaroczi wrote

Thanks for the fast reply. No Problem to work around this one, but there are 1788 succ() calls :-o in our applications :-) That was the only one that did not compile. All others did compile, but some of them will probably not work.

The problem is only with integer constants. It's however quite insidious since even enabling range or overflow checking doesn't catch this compiler error.

If its considered a bug i'm fine. Is there already a bugtracker id? Should i add a bugreport?

A bug report is not necessary, I've just fixed it in svn trunk.

Jonas

Thank you very much. I should really try the release candidates next time... sorry

kisda

Is fpc 2.4.0 supports something like packages in Delphi?

Maxim Egorov wrote

Is fpc 2.4.0 supports something like packages in Delphi?

No, it doesn't.

Jonas

This fix is missing in the fixes_2_4 branch. Please consider merging. Thanks. trunk: r14537

kisda