fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

64 bits support - temporary minor workarounds

Browse Source
This commit is contained in:
Antonio Linares
2005-04-18 22:15:28 +00:00
parent 5e8dd8d462
commit 50d62fc2fa
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/source/rtl/gtwin/gtwin.c
View File

@@ -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;