--- parser3/src/main/execute.C	2023/10/06 20:02:50	1.415
+++ parser3/src/main/execute.C	2024/09/07 16:30:26	1.419
@@ -21,7 +21,7 @@
 #include "pa_vimage.h"
 #include "pa_wwrapper.h"
 
-volatile const char * IDENT_EXECUTE_C="$Id: execute.C,v 1.415 2023/10/06 20:02:50 moko Exp $" IDENT_PA_OPCODE_H IDENT_PA_OPERATION_H IDENT_PA_VCODE_FRAME_H IDENT_PA_WWRAPPER_H;
+volatile const char * IDENT_EXECUTE_C="$Id: execute.C,v 1.419 2024/09/07 16:30:26 moko Exp $" IDENT_PA_OPCODE_H IDENT_PA_OPERATION_H IDENT_PA_VCODE_FRAME_H IDENT_PA_WWRAPPER_H;
 
 //#define DEBUG_EXECUTE
 
@@ -128,8 +128,7 @@ void debug_printf(SAPI_Info& sapi_info,
 }
 
 void debug_dump(SAPI_Info& sapi_info, int level, ArrayOperation& ops) {
-	Array_iterator<Operation> i(ops);
-	while(i.has_next()) {
+	for(Array_iterator<Operation> i(ops); i;) {
 		OP::OPCODE opcode=i.next().code;
 
 #if defined(OPTIMIZE_BYTECODE_GET_OBJECT_ELEMENT) || defined(OPTIMIZE_BYTECODE_GET_OBJECT_VAR_ELEMENT)
@@ -245,7 +244,7 @@ void debug_dump(SAPI_Info& sapi_info, in
 // Request
 
 void Request::execute(ArrayOperation& ops) {
-	register Stack<StackItem>& stack=this->stack; // helps a lot on MSVC: 'esi'
+	Stack<StackItem>& stack=this->stack; // helps a lot on MSVC: 'esi'
 
 	const String* debug_name=0;  Operation::Origin debug_origin={0, 0, 0};
 	try{
@@ -254,7 +253,7 @@ void Request::execute(ArrayOperation& op
 	debug_dump(sapi_info, 0, ops);
 	debug_printf(sapi_info, "execution-------------------------\n");
 #endif
-	for(Array_iterator<Operation> i(ops); i.has_next(); ) {
+	for(Array_iterator<Operation> i(ops); i; ) {
 		OP::OPCODE opcode=i.next().code;
 
 #ifdef DEBUG_EXECUTE
@@ -933,10 +932,8 @@ void Request::execute(ArrayOperation& op
 		// expression ops: binary
 		case OP::OP_SUB:
 			{
-				Value& b=stack.pop().value();  Value& a=stack.pop().value();
-
-				double a_double=a.as_double();
-				double b_double=b.as_double();
+				volatile double b_double=stack.pop().value().as_double();
+				volatile double a_double=stack.pop().value().as_double();
 
 				Value& value=*new VDouble(a_double - b_double);
 				stack.push(value);
@@ -944,10 +941,8 @@ void Request::execute(ArrayOperation& op
 			}
 		case OP::OP_ADD:
 			{
-				Value& b=stack.pop().value();  Value& a=stack.pop().value();
-
-				double a_double=a.as_double();
-				double b_double=b.as_double();
+				volatile double b_double=stack.pop().value().as_double();
+				volatile double a_double=stack.pop().value().as_double();
 
 				Value& value=*new VDouble(a_double + b_double);
 				stack.push(value);
@@ -955,10 +950,8 @@ void Request::execute(ArrayOperation& op
 			}
 		case OP::OP_MUL:
 			{
-				Value& b=stack.pop().value();  Value& a=stack.pop().value();
-
-				double a_double=a.as_double();
-				double b_double=b.as_double();
+				volatile double b_double=stack.pop().value().as_double();
+				volatile double a_double=stack.pop().value().as_double();
 
 				Value& value=*new VDouble(a_double * b_double);
 				stack.push(value);
@@ -966,10 +959,8 @@ void Request::execute(ArrayOperation& op
 			}
 		case OP::OP_DIV:
 			{
-				Value& b=stack.pop().value();  Value& a=stack.pop().value();
-
-				double a_double=a.as_double();
-				double b_double=b.as_double();
+				volatile double b_double=stack.pop().value().as_double();
+				volatile double a_double=stack.pop().value().as_double();
 
 				if(b_double == 0) {
 					//const String* problem_source=b.as_string();
@@ -982,10 +973,8 @@ void Request::execute(ArrayOperation& op
 			}
 		case OP::OP_MOD:
 			{
-				Value& b=stack.pop().value();  Value& a=stack.pop().value();
-
-				double a_double=a.as_double();
-				double b_double=b.as_double();
+				volatile double b_double=stack.pop().value().as_double();
+				volatile double a_double=stack.pop().value().as_double();
 
 				if(b_double == 0) {
 					//const String* problem_source=b.as_string();
@@ -998,10 +987,8 @@ void Request::execute(ArrayOperation& op
 			}
 		case OP::OP_INTDIV:
 			{
-				Value& b=stack.pop().value();  Value& a=stack.pop().value();
-
-				int a_int=a.as_int();
-				int b_int=b.as_int();
+				int b_int=stack.pop().value().as_int();
+				int a_int=stack.pop().value().as_int();
 
 				if(b_int == 0) {
 					//const String* problem_source=b.as_string();
@@ -1476,6 +1463,28 @@ bool Request::execute_method_if_exists(V
 	return false;
 }
 
+bool Request::execute_auto_method_if_exists(VStateless_class& aclass, const String& method_name, Value* optional_param) {
+	if(const Method *method=aclass.get_method(method_name)){
+		METHOD_FRAME_ACTION(*method, method_frame/*caller*/, aclass, {
+			Value* two_params[2];
+
+			if (optional_param && method->params_count>1) {
+				two_params[0] = optional_param;
+				two_params[1] = new VString(*new String(aclass.type()));
+				frame.store_params(two_params, 2);
+			} else if (optional_param && method->params_count>0) {
+				frame.store_params(&optional_param, 1);
+			} else {
+				frame.empty_params();
+			}
+
+			call(frame);
+		});
+		return true;
+	}
+	return false;
+}
+
 const String* Request::get_method_filespec(const Method* method){
 	Operation::Origin origin=get_method_origin(method);
 	return origin.file_no ? get_used_filespec(origin.file_no) : NULL;
@@ -1486,8 +1495,7 @@ const Operation::Origin Request::get_met
 
 	if(ArrayOperation* code=method->parser_code)
 		if(code){
-			Array_iterator<Operation> i(*code);
-			while( i.has_next() ){
+			for(Array_iterator<Operation> i(*code); i; ){
 				switch( i.next().code ){
 					case OP::OP_CURLY_CODE__STORE_PARAM: 
 					case OP::OP_EXPR_CODE__STORE_PARAM: