-------------------
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