mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 22:47:59 +02:00
f539e9158a
determine whether (wide)char->pchar will be preferred over (wide)char ->
p(wide)char or not (always convert to pchar if mode switch is not active,
otherwise always to pwidechar). Delphi-compatible + consistent with the
behaviour added for constant strings in that revision + tests
git-svn-id: branches/cpstrrtl@25430 -
19 lines
231 B
ObjectPascal
19 lines
231 B
ObjectPascal
{$ifdef fpc}
|
|
{$mode delphiunicode}
|
|
{$endif}
|
|
|
|
procedure test(p: pansichar); overload;
|
|
begin
|
|
writeln('pchar');
|
|
halt(1);
|
|
end;
|
|
|
|
procedure test(p: pwidechar); overload;
|
|
begin
|
|
writeln('pwidechar');
|
|
end;
|
|
|
|
begin
|
|
test(#$1234);
|
|
end.
|