diff options
| -rw-r--r-- | tests/test/tsafecall1.pp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/test/tsafecall1.pp b/tests/test/tsafecall1.pp index 22a8fd6ebc..d89910d04b 100644 --- a/tests/test/tsafecall1.pp +++ b/tests/test/tsafecall1.pp @@ -1,16 +1,14 @@ -program test; { %TARGET=win32,win64,wince} {$ifdef fpc} {$mode objfpc} {$endif} uses - SysUtils,classes; + SysUtils; type - TTest = class(TComponent) + TTest = class public procedure SomeError; safecall; function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; override; - procedure QueryInterface(constref IID: TGUID; out Obj): Hresult; override; cdecl; end; var |