--- parser3/src/include/pa_stack.h	2002/02/08 08:30:14	1.13
+++ parser3/src/include/pa_stack.h	2002/08/01 11:41:16	1.16
@@ -3,13 +3,13 @@
 
 	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
-
-	$Id: pa_stack.h,v 1.13 2002/02/08 08:30:14 paf Exp $
 */
 
 #ifndef PA_STACK_H
 #define PA_STACK_H
 
+static const char* IDENT_STACK_H="$Date: 2002/08/01 11:41:16 $";
+
 #include "pa_config_includes.h"
 #include "pa_array.h"
 
@@ -32,6 +32,7 @@ public:
 	}
 
 	int top_index() { return ftop-1; }
+	void top_index(int top_index) { ftop=top_index+1; }
 	Item *top_value() { return get(top_index()); }
 
 private: