Changeset 175 for Include/basic/function.sbp

Timestamp:

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

Author:

イグトランス (egtra)

Message:

Variant, VBObjectの追加

File:

• Include/basic/function.sbp (modified) (2 diffs)

Include/basic/function.sbp

@@ -1086 +1086 @@
 End Function
 
+Function _System_HashFromPtr(p As VoidPtr) As Long
+#ifdef _WIN64
+    Dim qw = p As QWord
+    Return (HIDWORD(qw) Xor LODWORD(qw)) As Long
+#else
+    Return p As Long
+#endif
+End Function
+
 '--------
 ' 文字列関数その2
@@ -1183 +1192 @@
 End Function
 
+Function _System_GetHashFromWordArray(p As *Word, n As SIZE_T) As Long
+    Dim hash = 0 As DWord
+    Dim i As Long
+    For i = 0 To ELM(n)
+        hash = ((hash << 16) + p[i]) Mod &h7fffffff
+    Next
+    _System_GetHashFromWordArray = hash As Long
+End Function
+
 #endif '_INC_FUNCTION