[fpc-pascal] Internal error 2006012201 while cross compiling

[Julien Devillers]

-------------------


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.