tests/webtbs/tw7963.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ %fail }
program fpcbug;

{$mode objfpc}

type
  TCallback = function(const a, b, c: pointer): integer; stdcall;

var
  Proc: TCallback;
  a,b: Pointer;

begin
  Proc(a, b);
  Proc(a, b, a, b);
end.