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

* fix test for targets not having a real wide string

Browse Source 
git-svn-id: trunk@47637 -
This commit is contained in:
florian 2020-11-29 20:53:15 +00:00
parent 706d89d6cc
commit b7e2b751cf
2 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw17904.pp
View File

@ -164,7 +164,11 @@ begin
test('date: ', v.foo(cl.dt, cl.dtprop), varDate);
test('ansistr: ', v.foo(cl.fastr, cl.astr), varStrArg);
{$ifdef FPC_WINLIKEWIDESTRING}
test('widestr: ', v.foo(cl.fwstr, cl.wstr), varOleStr);
{$else FPC_WINLIKEWIDESTRING}
test('widestr: ', v.foo(cl.fwstr, cl.wstr), varUStrArg);
{$endif FPC_WINLIKEWIDESTRING}
{$ifdef fpc}
test('unistr: ', v.foo(cl.fustr, cl.ustr), varUStrArg);
{$endif}
@ -174,7 +178,11 @@ begin
test('IDispatch:', v.foo(cl.fdisp, cl.dispprop), varDispatch);
// not an COM type, passed by value; Delphi uses varStrArg
{$ifdef FPC_WINLIKEWIDESTRING}
test('shortstr:', v.foo(cl.fsstr, cl.sstr), -varOleStr);
{$else FPC_WINLIKEWIDESTRING}
test('shortstr:', v.foo(cl.fsstr, cl.sstr), -varUStrArg);
{$endif FPC_WINLIKEWIDESTRING}
// not an COM type, passed by value
test('longbool:', v.foo(cl.lb, cl.lbprop), -varBoolean);

5
tests/webtbs/tw5086.pp
View File

@ -28,6 +28,9 @@ begin
erase(input);
end;
var
p : pbyte;
procedure dfs(a, b, c, k1: Byte);
var
x : Byte;
@ -52,6 +55,8 @@ begin
end;
begin
// p:=@a;
if (k1 > k) then Exit;
if (a = 1) or (b = 1) or (c = 1) then begin
answ := answ + 1;