git-svn-id: trunk@36509 -
@@ -50,7 +50,7 @@ var
implementation
uses
- go32fix;
+ go32;
procedure InitMouse;
@@ -48,7 +48,7 @@ procedure CGAFree;
- go32fix, crt;
+ go32, crt;
const
palette: array[0..15, 0..2] of Byte = (
@@ -128,7 +128,7 @@ procedure dump_320x(y0, y1: Integer; buffer: PInteger);
{ $define __USE_178NOT176}
{ uncomment to use 75% char instead of 25% char }
@@ -298,7 +298,7 @@ function LFBNearPtrAccessPtr: Pointer;
type
TVBEInfoBlock = packed record
@@ -66,7 +66,7 @@ procedure fakemode_load(src: PByte; wvr: Boolean);
var
RealRegs: TRealRegs;