--- Merging r31855 into '.':

U    packages/rtl-console/src/inc/videoh.inc
--- Recording mergeinfo for merge of r31855 into '.':
 U   .

# revisions: 31855

git-svn-id: branches/fixes_3_0@36014 -

packages/rtl-console/src/inc/videoh.inc

@@ -22,7 +22,7 @@ type
   TVideoCell = Word;
   PVideoCell = ^TVideoCell;
 
-  TVideoBuf = array[0..32759] of TVideoCell;
+  TVideoBuf = array[0..{$ifdef CPU16}16382{$else}32759{$endif}] of TVideoCell;
   PVideoBuf = ^TVideoBuf;
 
   TVideoDriver = Record