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

* InPort/OutPort are not supposed to compile on win64

Browse Source 
git-svn-id: trunk@34732 -
This commit is contained in:
florian 2016-10-16 16:44:49 +00:00
parent cf2a3d8160
commit 0edf5c398e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl-console/src/win/crt.pp
View File

@ -479,6 +479,8 @@ begin
ScanCode := #0;
end;
end;
{$ifndef win64}
//----Windows 9x Sound Helper ---
{$ASMMODE INTEL}
function InPort(PortAddr:word): byte; assembler; stdcall;
@ -493,6 +495,7 @@ asm
mov dx,PortAddr
out dx,al
end;
{$endif win64}
//----Windows 2000/XP Sound Helper ---
const IOCTL_BEEP_SET={CTL_CODE(FILE_DEVICE_BEEP, 0, METHOD_BUFFERED, FILE_ANY_ACCESS)}1 shl 16;
@ -542,10 +545,12 @@ begin
opt.Duration:=-1; //very long
DeviceIoControl(beeperDevice,IOCTL_BEEP_SET,@opt,sizeof(opt),nil,0,@result,nil);
end else begin
{$ifndef win64}
OutPort($43,182);
OutPort($61,InPort($61) or 3);
OutPort($42,lo(1193180 div hz));
OutPort($42, hi(1193180 div hz));
{$endif win64}
end;
end;
@ -560,8 +565,10 @@ begin
opt.Duration:=0;
DeviceIoControl(beeperDevice,IOCTL_BEEP_SET,@opt,sizeof(opt),nil,0,@result,nil);
end else begin
{$ifndef win64}
OutPort($43,182);
OutPort($61,InPort($61) and 3);
{$endif win64}
end;
end;