[fpc-devel] compiler has problem finding right function: IfThen (Math vs. StrUtils)

[Werner Pamler]

Am 05.01.2021 um 08:55 schrieb Pascal Riekenberg via fpc-devel:
> Since i updated my local fpc trunk some of my programs do not compile 
> anymore. Version from before christmas was okay.
>
> The compiler can't find the function "IfThen(AValue: Boolean; const 
> ATrue: string; const AFalse: string): string;" of StrUtils.
>
> Instead it only seems to see the functions in Math.
>
> SQLGenerator.pas(294,9) Error: Incompatible type for arg no. 3: Got 
> "Char", expected "Double"
> math.pp(2523,10) Hint: Found declaration: IfThen(Boolean;const 
> Double;const Double=` 0.00000000000000000000E+0000`):Double;
> math.pp(2518,10) Hint: Found declaration: IfThen(Boolean;const 
> Int64;const Int64=`0`):Int64;
> math.pp(2513,10) Hint: Found declaration: IfThen(Boolean;const 
> LongInt;const LongInt=`0`):LongInt;
> SQLGenerator.pas(299,9) Error: Incompatible type for arg no. 3: Got 
> "Constant String", expected "Double"
> math.pp(2523,10) Hint: Found declaration: IfThen(Boolean;const 
> Double;const Double=` 0.00000000000000000000E+0000`):Double;
> math.pp(2518,10) Hint: Found declaration: IfThen(Boolean;const 
> Int64;const Int64=`0`):Int64;
> math.pp(2513,10) Hint: Found declaration: IfThen(Boolean;const 
> LongInt;const LongInt=`0`):LongInt;
> SQLGenerator.pas(305,7) Error: Incompatible type for arg no. 3: Got 
> "Constant String", expected "Double"
> math.pp(2523,10) Hint: Found declaration: IfThen(Boolean;const 
> Double;const Double=` 0.00000000000000000000E+0000`):Double;
> math.pp(2518,10) Hint: Found declaration: IfThen(Boolean;const 
> Int64;const Int64=`0`):Int64;
> math.pp(2513,10) Hint: Found declaration: IfThen(Boolean;const 
> LongInt;const LongInt=`0`):LongInt;
> SQLGenerator.pas(442,60) Error: Incompatible type for arg no. 3: Got 
> "Constant String", expected "Double"
> math.pp(2523,10) Hint: Found declaration: IfThen(Boolean;const 
> Double;const Double=` 0.00000000000000000000E+0000`):Double;
> math.pp(2518,10) Hint: Found declaration: IfThen(Boolean;const 
> Int64;const Int64=`0`):Int64;
> math.pp(2513,10) Hint: Found declaration: IfThen(Boolean;const 
> LongInt;const LongInt=`0`):LongInt;
>
> If i qualify IfThen with "StrUtils." it compiles.
>
I had the same issue with TAChart yesterday and could only solve it by 
qualifying each IfThen with the corresponding unit. It only happens on 
64-bit. I bisected the revisions and found the guilty one in r48002 by 
Sven Barth:

"Delphi does not allow a generic method to be overloaded by a non 
generic type of the same name (unlike for generic types and non generic 
routines); this is probably done to simplify the implementation of 
implicit specializations of generic methods so we do this as well. For 
this we change the dummy symbol for generic routines from a typesym to a 
procsym ... Note: what Delphi /does/ allow however is to overload a 
generic routine with a generic type... go figure. :/ We currently don't 
allow that"

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20210105/a1ed5fd6/attachment.htm>