Changeset 175 for Include/Classes/System/Version.ab

Timestamp:

Mar 21, 2007, 7:06:34 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Variant, VBObjectの追加

File:

• Include/Classes/System/Version.ab (modified) (3 diffs)

Include/Classes/System/Version.ab

@@ -1 +1 @@
 ' System/Version.ab
+
+#ifndef __SYSTEM_VERSION_AB__
+#define __SYSTEM_VERSION_AB__
+
+#require <api_winsock2.sbp>
 
 Class Version
@@ -75 +80 @@
 
     Override Function GetHashCode() As Long
-        Return htonl(major) Xor minor Xor build Xor htonl(rivision)
+        Return _System_BSwap(major As DWord) Xor minor Xor build Xor _System_BSwap(rivision As DWord)
     End Function
 
@@ -143 +148 @@
     rivision As Long
 End Class
+
+#endif '__SYSTEM_VERSION_AB__