Changeset 558 for trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/Stack.ab

Timestamp:

Jul 20, 2008, 10:31:12 PM (16 years ago)

Author:

NoWest

Message:

Queueジェネリッククラスを追加
Listジェネリッククラスの内部でメモリの再確保が頻繁に行われないように改良

File:

• trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/Stack.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/Stack.ab

@@ -72 +72 @@
     */
     Function Peek () As T
-        Peek = This.items[ This.count -1 ]
+        Peek = This.items[ 0 ]
     End Function
 
@@ -81 +81 @@
     */
     Function Pop () As T
-        Pop = This.items[ This.count -1 ]
+        Pop = This.items[ 0 ]
+        memmove( items, items + SizeOf(T), (This.count - 1)*SizeOf(T) )
         This.count--
     End Function
@@ -91 +92 @@
     */
     Sub Push ( item As T )
-        This.count++
-        If This.size < This.count Then
+        If This.size < (This.count + 1) Then
             This.size++
             Realloc( This.size )
         End If
-        This.items[ This.count -1 ] = item
+        memmove( items + SizeOf(T), items, This.count * SizeOf(T) )
+        items[ 0 ] = item
+        This.count++
     End Sub