From 50d62fc2fa317e04e11560e77221a97e167ed7b5 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 18 Apr 2005 22:15:28 +0000
Subject: [PATCH] 64 bits support - temporary minor workarounds

---
 harbour/source/rtl/gtwin/gtwin.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/harbour/source/rtl/gtwin/gtwin.c b/harbour/source/rtl/gtwin/gtwin.c
index 6ac9d48a14..c30a00fac3 100644
--- a/harbour/source/rtl/gtwin/gtwin.c
+++ b/harbour/source/rtl/gtwin/gtwin.c
@@ -1609,7 +1609,10 @@ static int hb_Inp9x( USHORT usPort )
        __emit__(0x32,0xE4);   /* ASM XOR AH, AH */
        usVal = _AX;
     #else
-       usVal = _inp( usPort );
+       /* How to do this in 64 bits ? */
+       #ifndef HB_ARCH_64BIT
+          usVal = _inp( usPort );
+       #endif   
     #endif
 
     return usVal;
@@ -1628,7 +1631,10 @@ static int hb_Outp9x( USHORT usPort, USHORT usVal )
       __emit__(0x32,0xE4);   /* ASM XOR AH, AH */
       usVal = _AX;
     #else
-       usVal = _outp( usPort, usVal );
+       /* How to do this in 64 bits ? */
+       #ifndef HB_ARCH_64BIT
+          usVal = _outp( usPort, usVal );
+       #endif   
     #endif
 
     return usVal;