From a80bbdbcd494e6259827ac1504d381f2d89af888 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 11 Feb 2010 15:34:42 +0200
Subject: Fix compiler warning about type range issues.

---
 docview/src/HelpTopic.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'docview')

diff --git a/docview/src/HelpTopic.pas b/docview/src/HelpTopic.pas
index ea32080b..13dbbc63 100644
--- a/docview/src/HelpTopic.pas
+++ b/docview/src/HelpTopic.pas
@@ -560,7 +560,7 @@ var
   BitmapOffset: longword;
   BitmapFlags: uint8;
   Link: TInternalHelpLink;
-  LinkTopicIndex: uint16;
+  LinkTopicIndex: integer;
 begin
   LinkTopicIndex := -1;
   while true do
@@ -629,7 +629,7 @@ var
   SubEscapeCode: uint8;
   BitmapOffset: longword;
   BitmapFlags: uint8;
-  LinkTopicIndex: uint16;
+  LinkTopicIndex: integer;
 begin
   LinkTopicIndex := -1;
   while true do
-- 
cgit v1.2.3-70-g09d2