mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
445c842db3
that cause various problems, added "overload" directive so it gets
overloaded next to the routines in the "math" unit) (based on patch
by Alexander S. Klenin, mantis #13619)
- removed "inline" from that function because all the reference increasing/
decreasing in its body mainly cause code bloat and little if any speed
increase
git-svn-id: trunk@13084 -
11 lines
202 B
ObjectPascal
11 lines
202 B
ObjectPascal
uses
|
|
Math, StrUtils;
|
|
begin
|
|
if (IfThen(1 > 2, 1, 2) <> 2) then
|
|
halt(1);
|
|
if (IfThen(1 > 2, '1', '2') <> '2') then
|
|
halt(2);
|
|
if (IfThen(1 > 2, '123', '456') <> '456') then
|
|
halt(3);
|
|
end.
|