--- parser3/src/include/pa_array.h	2009/04/17 09:55:21	1.71
+++ parser3/src/include/pa_array.h	2010/11/05 21:56:49	1.80
@@ -8,7 +8,7 @@
 #ifndef PA_ARRAY_H
 #define PA_ARRAY_H
 
-static const char * const IDENT_ARRAY_Y="$Date: 2009/04/17 09:55:21 $";
+static const char * const IDENT_ARRAY_Y="$Date: 2010/11/05 21:56:49 $";
 
 // includes
 
@@ -80,15 +80,22 @@ public:
 		fallocated(initial),
 		fused(0)
 	{
-		felements=fallocated?static_cast<T*>(malloc(fallocated*sizeof(T))):0;
+		felements=fallocated?(T *)pa_malloc(fallocated*sizeof(T)):0;
 	}
 
+#ifdef USE_DESTRUCTORS 
+	inline ~Array(){
+		if(felements)
+			pa_free(felements);
+	}
+#endif
+
 	/// how many items are in Array
 	inline size_t count() const { return fused; }
 	/// append to array
 	inline Array& operator+=(T src) {
 		if(is_full())
-			expand(fallocated>0?2:3); // 3 is PAF default, confirmed by tests
+			expand(fallocated>0? 2+fallocated/32 : 3); // 3 is PAF default, confirmed by tests
 
 		felements[fused++]=src;
 
@@ -154,6 +161,13 @@ public:
 		felements[index]=element;
 	}
 
+	/// remove index-element
+	inline void remove(size_t index) {
+		assert(index<count());
+		if (index<--fused)
+			memmove(felements+index+1, felements+index, (fused-index) * sizeof(T));
+	}
+
 	inline T operator [](size_t index) const { return get(index); }
 
 	/// iterate over all elements
@@ -188,6 +202,10 @@ public:
 		return T(0);
 	}
 
+	inline T* ptr(size_t index){
+		return felements + index;
+	}
+
 protected:
 
 	bool is_full() {
@@ -196,12 +214,11 @@ protected:
 	void expand(size_t delta) {
 		if(fallocated){
 			size_t new_allocated=fallocated+delta;
-			felements = (T *)realloc(felements, new_allocated*sizeof(T));
-			memset(&felements[fallocated], 0, delta*sizeof(T));
+			felements=(T *)pa_realloc(felements, new_allocated*sizeof(T));
 			fallocated=new_allocated;
 		} else {
 			fallocated=delta;
-			felements=static_cast<T*>(malloc(fallocated*sizeof(T)));
+			felements=(T *)pa_malloc(fallocated*sizeof(T));
 		}
 	}