* TextMode parameter type changed temporarily not to break other platforms

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