paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 21:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* add cblock directive so that the test fails for the correct reason

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-05-26 16:19:05 +02:00
parent 6ee4ee960e
commit 7f9428eed5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbf/tw30022.pp
View File

@ -7,7 +7,7 @@
{$modeswitch cblocks}
type
treadabilityHandler = reference to procedure (l :longint); cdecl;
treadabilityHandler = reference to procedure (l :longint); cdecl; cblock;
procedure setReadabilityHandler(ahandler: treadabilityHandler);
begin