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

* yet another go32v2 compilation fix after r36507

Browse Source 
git-svn-id: trunk@36509 -
This commit is contained in:
nickysn 2017-06-18 02:17:50 +00:00
parent 279461cb39
commit f2c23a8407
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/ptc/src/dos/base/mouse33h.pp
View File

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

2
packages/ptc/src/dos/cga/cga.pp
View File

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

2
packages/ptc/src/dos/textfx2/textfx2.pp
View File

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

2
packages/ptc/src/dos/vesa/vesa.pp
View File

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

2
packages/ptc/src/dos/vga/vga.pp
View File

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