From 7be6c685189eb0e1e418cd1a26e09aef45c809fc Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sat, 14 May 2005 14:58:41 +0000
Subject: [PATCH]   * TextMode parameter type changed temporarily not to break
 other platforms

---
 rtl/inc/crt.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/crt.inc b/rtl/inc/crt.inc
index 1755a47388..ed89520780 100644
--- a/rtl/inc/crt.inc
+++ b/rtl/inc/crt.inc
@@ -108,12 +108,12 @@ begin
 end;
 
 
-procedure TextMode (Mode: word);
+procedure TextMode (Mode: integer);
 { Use this procedure to set-up a specific text-mode.}
 begin
  TextAttr := $07;
  LastMode := Mode;
- SetScreenMode (Mode);
+ SetScreenMode (word (Mode));
  WindMin := 0;
  WindMaxX := Pred (ScreenWidth);
  WindMaxY := Pred (ScreenHeight);
@@ -410,7 +410,10 @@ end;
 
 {
   $Log$
-  Revision 1.1  2005-05-14 14:32:55  hajny
+  Revision 1.2  2005-05-14 14:58:41  hajny
+    * TextMode parameter type changed temporarily not to break other platforms
+
+  Revision 1.1  2005/05/14 14:32:55  hajny
     + basis for common platform independent implementation of Crt