--- parser3/src/include/pa_stack.h	2001/11/05 11:46:25	1.11
+++ parser3/src/include/pa_stack.h	2002/03/18 15:29:46	1.14
@@ -1,10 +1,10 @@
 /** @file
 	Parser: stack class decl.
 
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
+	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.11 2001/11/05 11:46:25 paf Exp $
+	$Id: pa_stack.h,v 1.14 2002/03/18 15:29:46 paf Exp $
 */
 
 #ifndef PA_STACK_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: