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

fix compile for 1.0.x

Browse Source
This commit is contained in:
peter 2004-06-17 14:51:38 +00:00
parent 588e2c38bf
commit 5b92078595
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/crth.inc
View File

@ -57,15 +57,21 @@ var
CheckEOF: Boolean; { Enable Ctrl-Z }
DirectVideo: Boolean; { Enable direct video addressing }
CheckSnow: Boolean; { Enable snow filtering }
{$ifdef ver1_0}
const
{$endif}
LastMode: Word = 3; { Current text mode }
TextAttr: Byte = $07; { Current text attribute }
WindMin: Word = $0; { Window upper left coordinates }
WindMax: Word = $184f; { Window lower right coordinates }
{$ifdef ver1_0}
var
{$endif}
{ FPC Specific for large screen support }
WindMinX : DWord;
WindMaxX : DWord;
WindMinY : DWord;
WindMaxY : DWord ;
WindMaxY : DWord ;
{ Interface procedures }
procedure AssignCrt(var F: Text);
@ -96,7 +102,10 @@ procedure cursorbig;
{
$Log$
Revision 1.2 2004-06-12 14:18:06 michael
Revision 1.3 2004-06-17 14:51:38 peter
fix compile for 1.0.x
Revision 1.2 2004/06/12 14:18:06 michael
+ Initialized some constants
Revision 1.1 2004/02/08 16:23:10 michael