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

2008-04-27 22:42 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/common/hbver.c
     + OS(), hb_verPlatform(): Added detection of Windows Server 2008.

   * source/rtl/tobject.prg
     ! XPP feature guarded with HB_COMPAT_XPP
This commit is contained in:
Viktor Szakats
2008-04-27 20:45:18 +00:00
parent 82f8740160
commit d489f82e6d
3 changed files with 25 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-04-27 22:42 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* source/common/hbver.c
+ OS(), hb_verPlatform(): Added detection of Windows Server 2008.
* source/rtl/tobject.prg
! XPP feature guarded with HB_COMPAT_XPP
2008-04-26 07:53 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/tget.prg
! Fixed to not extend ::left(), ::right(), ::backspace(),

18
harbour/source/common/hbver.c
View File

@@ -222,9 +222,23 @@ char * hb_verPlatform( void )
case VER_PLATFORM_WIN32_NT:
if( osVer.dwMajorVersion == 6 )
pszName = "Windows Vista";
{
OSVERSIONINFOEXA osVerEx;
osVerEx.dwOSVersionInfoSize = sizeof( osVerEx );
if( GetVersionExA( &osVerEx ) )
{
if( osVerEx.wProductType == VER_NT_SERVER || osVerEx.wProductType == VER_NT_DOMAIN_CONTROLLER )
pszName = "Windows Server 2008";
else /* VER_NT_WORKSTATION */
pszName = "Windows Vista";
}
else
pszName = "Windows";
}
else if( osVer.dwMajorVersion == 5 && osVer.dwMinorVersion >= 2 )
pszName = "Windows 2003";
pszName = "Windows Server 2003";
else if( osVer.dwMajorVersion == 5 && osVer.dwMinorVersion == 1 )
pszName = "Windows XP";
else if( osVer.dwMajorVersion == 5 )

2
harbour/source/rtl/tobject.prg
View File

@@ -89,7 +89,9 @@ FUNCTION HBObject()
/*s_oClass:AddInline( "EVAL" , {| Self | __EVAL( Self ) }, HB_OO_CLSTP_EXPORTED ) */
/* xBase++ */
#ifdef HB_COMPAT_XPP
s_oClass:AddInline( "ISDERIVEDFROM" , {| Self, xPar1 | __ObjDerivedFrom( Self, xPar1 ) }, HB_OO_CLSTP_EXPORTED )
#endif
/* Class(y) */
s_oClass:AddInline( "ISKINDOF" , {| Self, xPar1 | __ObjDerivedFrom( Self, xPar1 ) }, HB_OO_CLSTP_EXPORTED )