paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2004-05-23 11:03:20 +00:00
parent d3b67cb11d
commit 17c92356a8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/tbs/tb0474.pp → tests/tbf/tb0165.pp
View File

@ -1,6 +1,7 @@
{$mode objfpc}
{ $mode objfpc}
type
tmyclass = class
function f2 : ansistring;
function f : widestring;
procedure p(var v);
end;
@ -9,9 +10,13 @@ procedure tmyclass.p(var v);
begin
end;
function tmyclass.f : widestring;
function tmyclass.f2 : ansistring;
begin
p(pchar(result));
end;
function tmyclass.f : widestring;
begin
p(pwidechar(result));
end;