Can you try changing C : extended; to c : Double; and see whether that helps ? Michael. On Mon, 31 Jan 2011, Julien Devillers wrote:
------------------- OK, I replaced the -va by -vewunchilbdrqpv (everything except timestamps). With that, the error message reports the last line of the unit. I removed a lot of code to find out that issue happens here function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double; var c: extended; begin c := power(10,ADigit); Result := c * round(AValue/c); end; If I remove " c := power(10,ADigit);" , no more error. Julien ------- I tried : function RoundTo(const AValue: Double): Double; var c: extended; begin c := power(10,1); Result := c * round(AValue/c); end; same error. _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
