On 6/29/16, greim <gr...@schleibinger.com> wrote: > Hi, > > there seems to be a very strange effect with dividing comp variables in > 3.0.0: > > Dividing a comp variable x by any number which is not 1 or x gives result > 0. >
Win7-64, 32-bit fpc/delphi: C:\Users\Bart\LazarusProjecten\ConsoleProjecten\bugs\compdiv>dcc32 compbug300.lpr Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation compbug300.lpr(25) 26 lines, 0.06 seconds, 12292 bytes code, 1861 bytes data. C:\Users\Bart\LazarusProjecten\ConsoleProjecten\bugs\compdiv>compbug300 x1 : 8.0000 x2 = x1/2 should be 4 but is : 4.0000 x2 = x1/4 should be 2 but is : 2.0000 x2 = x1/8.0 should be 1 and is : 1.0000 C:\Users\Bart\LazarusProjecten\ConsoleProjecten\bugs\compdiv>fpc compbug300.lpr Free Pascal Compiler version 3.0.0 [2015/11/16] for i386 Copyright (c) 1993-2015 by Florian Klaempfl and others Target OS: Win32 for i386 Compiling compbug300.lpr compbug300.lpr(20,10) Warning: Automatic type conversion from floating type to C OMP which is an integer type Linking compbug300.exe 24 lines compiled, 0.1 sec, 34800 bytes code, 2436 bytes data 1 warning(s) issued C:\Users\Bart\LazarusProjecten\ConsoleProjecten\bugs\compdiv>compbug300 x1 : 8.0000 x2 = x1/2 should be 4 but is : 0.0000 x2 = x1/4 should be 2 but is : 0.0000 x2 = x1/8.0 should be 1 and is : 1.0000 C:\Users\Bart\LazarusProjecten\ConsoleProjecten\bugs\compdiv>fpc compbug300.lpr Free Pascal Compiler version 2.6.4 [2014/03/06] for i386 Copyright (c) 1993-2014 by Florian Klaempfl and others Target OS: Win32 for i386 Compiling compbug300.lpr compbug300.lpr(20,10) Warning: Automatic type conversion from floating type to C OMP which is an integer type Linking compbug300.exe 24 lines compiled, 0.7 sec , 30816 bytes code, 1932 bytes data 1 warning(s) issued C:\Users\Bart\LazarusProjecten\ConsoleProjecten\bugs\compdiv>compbug300 x1 : 8.0000 x2 = x1/2 should be 4 but is : 4.0000 x2 = x1/4 should be 2 but is : 2.0000 x2 = x1/8.0 should be 1 and is : 1.0000 Bart _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
