paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TextMode parameter type changed temporarily not to break other platforms

Browse Source
This commit is contained in:
Tomas Hajny 2005-05-14 14:58:41 +00:00
parent 01ee93f838
commit 7be6c68518
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/crt.inc
View File

@ -108,12 +108,12 @@ begin
end; end;
procedure TextMode (Mode: word); procedure TextMode (Mode: integer);
{ Use this procedure to set-up a specific text-mode.} { Use this procedure to set-up a specific text-mode.}
begin begin
TextAttr := $07; TextAttr := $07;
LastMode := Mode; LastMode := Mode;
SetScreenMode (Mode); SetScreenMode (word (Mode));
WindMin := 0; WindMin := 0;
WindMaxX := Pred (ScreenWidth); WindMaxX := Pred (ScreenWidth);
WindMaxY := Pred (ScreenHeight); WindMaxY := Pred (ScreenHeight);
@ -410,7 +410,10 @@ end;
{ {
$Log$ $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 + basis for common platform independent implementation of Crt