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

* new bug

Browse Source
This commit is contained in:
peter 2004-12-05 12:22:39 +00:00
parent 8b9c48e7fb
commit a2da84d9ae
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
tests/webtbf/tw2739.pp Normal file
View File

@ -0,0 +1,40 @@
{ %fail }
{$mode Delphi}
unit tw2739;
interface
type
TJclExceptNotifyProc = procedure (ExceptObj: TObject; ExceptAddr: Pointer; OSException: Boolean);
TJclExceptNotifyMethod = procedure (ExceptObj: TObject; ExceptAddr: Pointer; OSException: Boolean) of object;
function JclAddExceptNotifier(const NotifyProc: TJclExceptNotifyProc ): Boolean; overload;
function JclAddExceptNotifier(const NotifyMethod: TJclExceptNotifyMethod): Boolean; overload;
implementation
function JclAddExceptNotifier(const NotifyProc: TJclExceptNotifyProc ): Boolean; overload;
begin
end;
function JclAddExceptNotifier(const NotifyMethod: TJclExceptNotifyMethod): Boolean; overload;
var
// p : pointer;
p : TJclExceptNotifyMethod;
begin
{ This fails @NotifyMethod returns a pointer to the proc }
p:=@NotifyMethod;
end;
begin
end.