From bea2a50cc52223302d334f5972642468baf0a7f9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sat, 6 Jun 2015 23:37:57 +0000
Subject: [PATCH] morphunits: have pointers in the hook structure instead of
 dwords. this matches classic Amiga, and serves its purpose better

git-svn-id: trunk@30995 -
---
 packages/morphunits/src/utility.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/morphunits/src/utility.pas b/packages/morphunits/src/utility.pas
index 30f38747bd..19628295f5 100644
--- a/packages/morphunits/src/utility.pas
+++ b/packages/morphunits/src/utility.pas
@@ -188,8 +188,8 @@ type
   PHook = ^THook;
   THook = packed record
     h_MinNode : TMinNode;
-    h_Entry   : Cardinal;
-    h_SubEntry: Cardinal;
+    h_Entry   : Pointer;
+    h_SubEntry: Pointer;
     h_Data    : Pointer;
   end;