Changeset 176

Timestamp:

Mar 22, 2007, 2:40:36 AM (18 years ago)

Author:

dai

Message:

inet_ntoa関数のパラメータをDWordに変更（暫定対応）。
戻り値の型指定抜け、その他タイプミスを修正。

Location:

Include

Files:

• Classes/System/Diagnostics/TraceListenerCollection.ab (modified) (1 diff)
• WinNT.ab (modified) (2 diffs)
• api_gdi.sbp (modified) (1 diff)
• api_winsock2.sbp (modified) (1 diff)

Include/Classes/System/Diagnostics/TraceListenerCollection.ab

@@ -17 +17 @@
 
     ' リスナを追加
-    Sub Add( listener As TraceListener ) As Long
+    Sub Add( listener As TraceListener )
         pListeners = _System_realloc( pListeners, ( count + 1 ) * SizeOf( LONG_PTR ) )
         pListeners[count] = listener

Include/WinNT.ab

@@ -934 +934 @@
     Rip As QWord
     'MMX/floating point state.
-    Header[ELM(2)] As M128
-    Legacy[ELM(8)] As M128
-    Xmm0 As M128
-    Xmm1 As M128
-    Xmm2 As M128
-    Xmm3 As M128
-    Xmm4 As M128
-    Xmm5 As M128
-    Xmm6 As M128
-    Xmm7 As M128
-    Xmm8 As M128
-    Xmm9 As M128
-    Xmm10 As M128
-    Xmm11 As M128
-    Xmm12 As M128
-    Xmm13 As M128
-    Xmm14 As M128
-    Xmm15 As M128
+    Header[ELM(2)] As M128A
+    Legacy[ELM(8)] As M128A
+    Xmm0 As M128A
+    Xmm1 As M128A
+    Xmm2 As M128A
+    Xmm3 As M128A
+    Xmm4 As M128A
+    Xmm5 As M128A
+    Xmm6 As M128A
+    Xmm7 As M128A
+    Xmm8 As M128A
+    Xmm9 As M128A
+    Xmm10 As M128A
+    Xmm11 As M128A
+    Xmm12 As M128A
+    Xmm13 As M128A
+    Xmm14 As M128A
+    Xmm15 As M128A
     Reserve[ELM(96)] As Byte
     'Vector registers
-    VectorRegisters[ELM(26)] As M128
+    VectorRegisters[ELM(26)] As M128A
     VectorControl As QWord
     'Special debug control registers.
@@ -5278 +5278 @@
 TypeDef PRTL_RUN_ONCE = *RTL_RUN_ONCE
 
-TypeDef PRTL_RUN_ONCE_INIT_FN = *Function(ByRef RunOnce As RTL_RUN_ONCE, Parameter As VoidPtr, ByRef Context As VoidPtr) 'LOGICAL
+TypeDef PRTL_RUN_ONCE_INIT_FN = *Function(ByRef RunOnce As RTL_RUN_ONCE, Parameter As VoidPtr, ByRef Context As VoidPtr) As DWord'LOGICAL
 #endif
 

Include/api_gdi.sbp

@@ -112 +112 @@
 
 TypeDef ENHMFENUMPROC = *Function(hdc As HDC, ByRef HTable As HANDLETABLE, ByRef EMFR As ENHMETARECORD, nObj As Long, lpData As LPARAM) As Long
-TypeDef MFENUMPROC = *Function(hdc As HDC, ByRef HTable As HANDLETABLE, ByRef MFR As METARECORD, nObj As Long, lpClientData As LPARAM)
+TypeDef MFENUMPROC = *Function(hdc As HDC, ByRef HTable As HANDLETABLE, ByRef MFR As METARECORD, nObj As Long, lpClientData As LPARAM) As Long
 
 

Include/api_winsock2.sbp

@@ -1326 +1326 @@
 
 #ifndef NO_INCL_WINSOCK_API_PROTOTYPES
-Declare Function inet_ntoa Lib "ws2_32" (in As in_addr) As *Byte
+Declare Function inet_ntoa Lib "ws2_32" (in As DWord /*in_addr*/ ) As *Byte
 #endif