mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
5bc156efea
source value to convert_l3, instead of only those with a destination
type whose size is < source size (like Delphi) + test -> fixes
toperator6 along with a host of wrong tordconst typeconversions in
the compiler sources themselves (although most are harmless)
git-svn-id: trunk@8323 -
24 lines
264 B
ObjectPascal
24 lines
264 B
ObjectPascal
{ %fail }
|
|
|
|
procedure t1(l: longint); overload;
|
|
begin
|
|
writeln('longint');
|
|
end;
|
|
|
|
procedure t1(l: smallint); overload;
|
|
begin
|
|
writeln('smallint');
|
|
end;
|
|
|
|
procedure t1(l: word); overload;
|
|
begin
|
|
writeln('word');
|
|
end;
|
|
|
|
var
|
|
c: cardinal;
|
|
begin
|
|
c:=1;
|
|
t1(c);
|
|
end.
|