Changeset 175 for Include/basic

Timestamp:

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

Author:

イグトランス (egtra)

Message:

Variant, VBObjectの追加

Location:

Include/basic

Files:

• command.sbp (modified) (1 diff)
• function.sbp (modified) (2 diffs)

Include/basic/command.sbp

@@ -34 +34 @@
 
 Macro END()
+    Dim exitCode = Environment.ExitCode
     _System_EndProgram()
-    ExitProcess(Environment.ExitCode)
+    ExitProcess(exitCode)
 End Macro
 

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