From 2ffb2f9c98009214f6e25ca3d57eb29cf6f2b6a1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sun, 7 Jun 2015 01:25:00 +0000
Subject: [PATCH] morphunits: forgot to actually publish the newly added
 HookEntry function

git-svn-id: trunk@30999 -
---
 packages/morphunits/src/amigalib.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/morphunits/src/amigalib.pas b/packages/morphunits/src/amigalib.pas
index 3d543710ba..089c408abb 100644
--- a/packages/morphunits/src/amigalib.pas
+++ b/packages/morphunits/src/amigalib.pas
@@ -33,6 +33,8 @@ function DoSuperNew(class_: pointer; obj: pointer; tags: array of LongWord): lon
 // This procedure is used to pop dispatcher args from emulstruc
 procedure DISPATCHERARG(var cl; var obj; var msg); assembler;
 
+function HookEntry: longword;
+
 implementation
 
 uses exec, intuition, utility;