mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 15:29:34 +02:00
45d25bbe77
(mantis #15909) * fixed storing/loading widestring constants into/from token streams * made storing/loading widestring constant nodes into/from ppu files endian safe git-svn-id: trunk@15017 -
32 lines
514 B
ObjectPascal
32 lines
514 B
ObjectPascal
unit uw15909;
|
|
{$mode Delphi}
|
|
|
|
{$inline on}
|
|
|
|
interface
|
|
|
|
procedure foo(const s: widestring; const n: integer); inline;
|
|
|
|
function bar(const s, fmt: widestring): integer;
|
|
|
|
implementation
|
|
|
|
procedure foo(const s: widestring; const n: integer);
|
|
begin
|
|
bar(s, '%d')
|
|
end;
|
|
|
|
|
|
function bar(const s, fmt: widestring): integer;
|
|
begin
|
|
if (s<>'abc') or
|
|
(fmt<>'%d') then
|
|
begin
|
|
writeln('"',s,'"');
|
|
halt(1);
|
|
end;
|
|
result:=0;
|
|
end;
|
|
|
|
end.
|