From e2085cf71b173c0a1d403264753b62178eade9cd Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 1 May 2006 19:28:54 +0000
Subject: [PATCH] + dummy for De/AllocateHWnd

git-svn-id: trunk@3408 -
---
 rtl/win64/classes.pp | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/rtl/win64/classes.pp b/rtl/win64/classes.pp
index 04de6cd4d9..cc9ca67add 100644
--- a/rtl/win64/classes.pp
+++ b/rtl/win64/classes.pp
@@ -35,7 +35,10 @@ type
 function MakeObjectInstance(Method: TWndMethod): Pointer;
 procedure FreeObjectInstance(ObjectInstance: Pointer);
 
-  {$i classesh.inc}
+function AllocateHWnd(Method: TWndMethod): HWND;
+procedure DeallocateHWnd(Wnd: HWND);
+
+{$i classesh.inc}
 
 implementation
 
@@ -57,6 +60,18 @@ procedure FreeObjectInstance(ObjectInstance: Pointer);
   end;
 
 
+function AllocateHWnd(Method: TWndMethod): HWND;
+  begin
+    runerror(211);
+  end;
+
+
+procedure DeallocateHWnd(Wnd: HWND);
+  begin
+    runerror(211);
+  end;
+
+
 initialization
   CommonInit;