[fpc-pascal] Internal error 2006012201 while cross compiling

[michael.vancanneyt at wisa.be]

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 at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>