From d24956505a268ce119846c0639a84ad878fc3553 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 15 May 2005 12:44:14 +0000
Subject: [PATCH]   * TextMode parameter type changed to word for TP/BP
 compatibility

---
 rtl/inc/crth.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/crth.inc b/rtl/inc/crth.inc
index ac6dceb49e..da984b2a50 100644
--- a/rtl/inc/crth.inc
+++ b/rtl/inc/crth.inc
@@ -77,7 +77,7 @@ var
 procedure AssignCrt(var F: Text);
 function KeyPressed: Boolean;
 function ReadKey: Char;
-procedure TextMode(Mode: Integer);
+procedure TextMode (Mode: word);
 procedure Window(X1,Y1,X2,Y2: Byte);
 procedure GotoXY(X,Y: Byte);
 function WhereX: Byte;
@@ -102,7 +102,10 @@ procedure cursorbig;
 
 {
   $Log$
-  Revision 1.4  2005-02-14 17:13:22  peter
+  Revision 1.5  2005-05-15 12:44:14  hajny
+    * TextMode parameter type changed to word for TP/BP compatibility
+
+  Revision 1.4  2005/02/14 17:13:22  peter
     * truncate log
 
 }