* Reverted file accidentally comitted in r16097xpcom

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/xpcom@16098 3ad0048d-3df7-0310-abae-a5850022a9f2

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