--- parser3/src/include/pa_opcode.h	2008/08/15 15:25:03	1.29
+++ parser3/src/include/pa_opcode.h	2024/11/04 03:53:25	1.59
@@ -1,9 +1,9 @@
 /** @file
 	Parser: compiled code related decls.
 
-	Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com)
+	Copyright (c) 2001-2024 Art. Lebedev Studio (http://www.artlebedev.com)
 
-	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
+	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
 #ifndef OPCODE_H
@@ -11,7 +11,24 @@
 
 namespace OP {
 
-static const char * const IDENT_OPCODE_H="$Date: 2008/08/15 15:25:03 $";
+#define IDENT_PA_OPCODE_H "$Id: pa_opcode.h,v 1.59 2024/11/04 03:53:25 moko Exp $"
+
+#define OPTIMIZE_BYTECODE_GET_ELEMENT                // $a ^a
+#define OPTIMIZE_BYTECODE_GET_OBJECT_ELEMENT         // $a.b ^a.b
+#define OPTIMIZE_BYTECODE_GET_OBJECT_VAR_ELEMENT     // $a.$b ^a.$b
+#define OPTIMIZE_BYTECODE_STRING_POOL
+#define OPTIMIZE_BYTECODE_OBJECT_POOL                // $var[$a.b], $var[$a.$b]
+#define OPTIMIZE_BYTECODE_CUT_REM_OPERATOR           // cut rem with all params
+
+#ifdef OPTIMIZE_BYTECODE_GET_ELEMENT
+#define OPTIMIZE_BYTECODE_CONSTRUCT                  // $a(expr),  $a[value]
+#endif                                               // $.a(expr), $.a[value]
+                                                     // $self.a(expr), $self.a[value]
+
+#define OPTIMIZE_BYTECODE_GET_SELF_ELEMENT           // $self.a ^self.a
+#define OPTIMIZE_BYTECODE_GET_ELEMENT__SPECIAL       // .CLASS, .CLASS_NAME
+
+#define FEATURE_GET_ELEMENT4CALL                     // ^o.m[] calls get_element4call("m"), not get_element("m")
 
 ///	Compiled operation code
 enum OPCODE {
@@ -24,16 +41,63 @@ enum OPCODE {
 	//@{
 	/// @name actions
 	OP_WITH_ROOT,	OP_WITH_SELF,	OP_WITH_READ,	OP_WITH_WRITE,
-	OP_GET_CLASS,
-	OP_CONSTRUCT_VALUE, OP_CONSTRUCT_EXPR, OP_CURLY_CODE__CONSTRUCT,
-	OP_WRITE_VALUE,  OP_WRITE_EXPR_RESULT, OP_STRING__WRITE,
-	OP_GET_ELEMENT_OR_OPERATOR, OP_GET_ELEMENT,	OP_GET_ELEMENT__WRITE,
+	OP_VALUE__GET_CLASS, OP_VALUE__GET_BASE_CLASS,
+	OP_CONSTRUCT_VALUE, OP_CONSTRUCT_EXPR, OP_CURLY_CODE__CONSTRUCT, OP_CONSTRUCT_ARRAY,
+	OP_WRITE_VALUE,	OP_WRITE_EXPR_RESULT,	OP_STRING__WRITE,
+#ifdef OPTIMIZE_BYTECODE_GET_ELEMENT
+	OP_VALUE__GET_ELEMENT_OR_OPERATOR,
+#else
+	OP_GET_ELEMENT_OR_OPERATOR,
+#endif
+	OP_GET_ELEMENT,
+	OP_GET_ELEMENT__WRITE,
+#ifdef OPTIMIZE_BYTECODE_GET_ELEMENT
+	OP_VALUE__GET_ELEMENT,
+	OP_VALUE__GET_ELEMENT__WRITE,
+	OP_WITH_ROOT__VALUE__GET_ELEMENT,
+#endif
+#ifdef OPTIMIZE_BYTECODE_GET_OBJECT_ELEMENT
+	OP_GET_OBJECT_ELEMENT,			// $a.b & ^a.b
+	OP_GET_OBJECT_ELEMENT__WRITE,		// $a.b & ^a.b
+#endif
+#ifdef OPTIMIZE_BYTECODE_GET_OBJECT_VAR_ELEMENT
+	OP_GET_OBJECT_VAR_ELEMENT,		// $a.$b & ^a.$b
+	OP_GET_OBJECT_VAR_ELEMENT__WRITE,	// $a.$b & ^a.$b
+#endif
+#ifdef OPTIMIZE_BYTECODE_GET_SELF_ELEMENT
+	OP_WITH_SELF__VALUE__GET_ELEMENT,
+	OP_WITH_SELF__VALUE__GET_ELEMENT__WRITE,
+#endif
+
+#ifdef FEATURE_GET_ELEMENT4CALL
+	OP_GET_ELEMENT4CALL,
+#ifdef OPTIMIZE_BYTECODE_GET_OBJECT_ELEMENT
+	OP_GET_OBJECT_ELEMENT4CALL,
+#endif
+#ifdef OPTIMIZE_BYTECODE_GET_OBJECT_VAR_ELEMENT
+	OP_GET_OBJECT_VAR_ELEMENT4CALL,
+#endif
+#endif // FEATURE_GET_ELEMENT4CALL
+
 	OP_OBJECT_POOL,	OP_STRING_POOL,
-	OP_STORE_PARAM,
-	OP_PREPARE_TO_CONSTRUCT_OBJECT, OP_PREPARE_TO_EXPRESSION, 
+	OP_PREPARE_TO_CONSTRUCT_OBJECT,
+	OP_CONSTRUCT_OBJECT,
+	OP_CONSTRUCT_OBJECT__WRITE,
 	OP_CALL, OP_CALL__WRITE,
-	//@}
 
+#ifdef OPTIMIZE_BYTECODE_CONSTRUCT
+	OP_WITH_ROOT__VALUE__CONSTRUCT_EXPR,
+	OP_WITH_ROOT__VALUE__CONSTRUCT_VALUE,
+	OP_WITH_WRITE__VALUE__CONSTRUCT_EXPR,
+	OP_WITH_WRITE__VALUE__CONSTRUCT_VALUE,
+	OP_WITH_SELF__VALUE__CONSTRUCT_EXPR,
+	OP_WITH_SELF__VALUE__CONSTRUCT_VALUE,
+#endif
+	//@}
+#ifdef OPTIMIZE_BYTECODE_GET_ELEMENT__SPECIAL
+	OP_GET_ELEMENT__SPECIAL,
+	OP_GET_ELEMENT__SPECIAL__WRITE,
+#endif
 	//@{
 	/// @name expression ops: unary
 	OP_NEG, OP_INV, OP_NOT, OP_DEF, OP_IN, OP_FEXISTS, OP_DEXISTS,
@@ -50,6 +114,6 @@ enum OPCODE {
 	OP_IS
 	//@}
 };
-};
+}
 
 #endif