Browse Source

* yet another go32v2 compilation fix after r36507

git-svn-id: trunk@36509 -
nickysn 8 years ago
parent
commit
f2c23a8407

+ 1 - 1
packages/ptc/src/dos/base/mouse33h.pp

@@ -50,7 +50,7 @@ var
 implementation
 
 uses
-  go32fix;
+  go32;
 
 procedure InitMouse;
 

+ 1 - 1
packages/ptc/src/dos/cga/cga.pp

@@ -48,7 +48,7 @@ procedure CGAFree;
 implementation
 
 uses
-  go32fix, crt;
+  go32, crt;
 
 const
   palette: array[0..15, 0..2] of Byte = (

+ 1 - 1
packages/ptc/src/dos/textfx2/textfx2.pp

@@ -128,7 +128,7 @@ procedure dump_320x(y0, y1: Integer; buffer: PInteger);
 implementation
 
 uses
-  go32fix;
+  go32;
 
 { $define __USE_178NOT176}
  { uncomment to use 75% char instead of 25% char }

+ 1 - 1
packages/ptc/src/dos/vesa/vesa.pp

@@ -298,7 +298,7 @@ function LFBNearPtrAccessPtr: Pointer;
 implementation
 
 uses
-  go32fix;
+  go32;
 
 type
   TVBEInfoBlock = packed record

+ 1 - 1
packages/ptc/src/dos/vga/vga.pp

@@ -66,7 +66,7 @@ procedure fakemode_load(src: PByte; wvr: Boolean);
 implementation
 
 uses
-  go32fix;
+  go32;
 
 var
   RealRegs: TRealRegs;