mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
35b771e421
case of {$h-}. Now this is no longer done because it caused
pchar->ansistring and pchar->unicodestring to have the same
overload preference, which regularly caused problems with the
added unicodestring overloads in the RTL in the cpstrrtl branch.
* fixed tw3328.pp (it was missing a {$mode delphi}), which failed
before this patch but compiles new
+ extra variants of that test for the compiler changes
git-svn-id: trunk@25164 -
28 lines
480 B
ObjectPascal
28 lines
480 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3328 }
|
|
{ Submitted by "Christian Iversen" on 2004-09-21 }
|
|
{ e-mail: chrivers@iversen-net.dk }
|
|
program fpcdelphi;
|
|
|
|
var
|
|
err : boolean;
|
|
|
|
Function A(Const S2: AnsiString): Integer; Overload;
|
|
Begin
|
|
writeln('ansistring overload');
|
|
err:=false;
|
|
End;
|
|
|
|
Function A(Const S2: UnicodeString): Integer; Overload;
|
|
Begin
|
|
writeln('unicodestring overload');
|
|
End;
|
|
|
|
Var
|
|
X : PAnsiChar;
|
|
Begin
|
|
err:=true;
|
|
A(X);
|
|
if err then
|
|
halt(1);
|
|
End.
|