From 0edf5c398e109012bbd297c9bb4e0e0135c45776 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 16 Oct 2016 16:44:49 +0000
Subject: [PATCH] * InPort/OutPort are not supposed to compile on win64

git-svn-id: trunk@34732 -
---
 packages/rtl-console/src/win/crt.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/packages/rtl-console/src/win/crt.pp b/packages/rtl-console/src/win/crt.pp
index 139dd82fe1..cc446954e2 100644
--- a/packages/rtl-console/src/win/crt.pp
+++ b/packages/rtl-console/src/win/crt.pp
@@ -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;