--- parser3/src/classes/hash.C	2025/05/24 12:12:25	1.170
+++ parser3/src/classes/hash.C	2026/04/25 13:38:46	1.174
@@ -1,7 +1,7 @@
 /** @file
 	Parser: @b hash parser class.
 
-	Copyright (c) 2001-2024 Art. Lebedev Studio (http://www.artlebedev.com)
+	Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com)
 	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
@@ -18,7 +18,7 @@
 #include "pa_vbool.h"
 #include "pa_vmethod_frame.h"
 
-volatile const char * IDENT_HASH_C="$Id: hash.C,v 1.170 2025/05/24 12:12:25 moko Exp $";
+volatile const char * IDENT_HASH_C="$Id: hash.C,v 1.174 2026/04/25 13:38:46 moko Exp $";
 
 // class
 
@@ -201,7 +201,7 @@ static void _create_or_add(Request& r, M
 		if(VArray* src=dynamic_cast<VArray*>(&vsrc)) {
 			for(ArrayValue::Iterator i(src->array()); i; i.next()){
 				if(i.value())
-					self_hash->put(i.key(), i.value());
+					self_hash->put(String::Body::uitoa(i.index()), i.value());
 			}
 			return;
 		} else if(VHashBase* src=dynamic_cast<VHashBase*>(&vsrc)) {
@@ -333,29 +333,22 @@ static void _sql(Request& r, MethodParam
 	Table2hash_value_type value_type=C_HASH;
 	if(params.count()>1)
 		if(HashStringValue* options=params.as_hash(1, "sql options")) {
-			int valid_options=0;
 			for(HashStringValue::Iterator i(*options); i; i.next() ){
 				String::Body key=i.key();
 				Value* value=i.value();
 				if(key == sql_bind_name) {
 					bind=value->get_hash();
-					valid_options++;
 				} else if(key == sql_limit_name) {
 					limit=(ulong)r.process(*value).as_double();
-					valid_options++;
 				} else if(key == sql_offset_name) {
 					offset=(ulong)r.process(*value).as_double();
-					valid_options++;
 				} else if (key == sql_distinct_name) {
 					distinct=r.process(*value).as_bool();
-					valid_options++;
 				} else if (key == sql_value_type_name) {
 					value_type=get_value_type(r.process(*value));
-					valid_options++;
-				}
+				} else
+					throw Exception(PARSER_RUNTIME, 0, CALLED_WITH_INVALID_OPTION);
 			}
-			if(valid_options!=options->count())
-				throw Exception(PARSER_RUNTIME, 0, CALLED_WITH_INVALID_OPTION);
 		}
 
 	SQL_Driver::Placeholder* placeholders=0;
@@ -433,7 +426,7 @@ static void _foreach(Request& r, MethodP
 		bool need_delim=false;;
 		for(HashStringValue::Iterator i(hash); i; i.next()){
 			if(key_var_name){
-				VString* vkey=new VString(*new String(i.key(), String::L_TAINTED));
+				VString* vkey=new VString(i.key());
 				r.put_element(caller, *key_var_name, vkey);
 			}
 
@@ -459,7 +452,7 @@ static void _foreach(Request& r, MethodP
 	} else {
 		for(HashStringValue::Iterator i(hash); i; i.next()){
 			if(key_var_name){
-				VString* vkey=new VString(*new String(i.key(), String::L_TAINTED));
+				VString* vkey=new VString(i.key());
 				r.put_element(caller, *key_var_name, vkey);
 			}
 
@@ -531,7 +524,7 @@ static void _sort(Request& r, MethodPara
 
 	for(HashStringValue::Iterator i(hash); i; i.next(), pos++ ){
 		if(key_var)
-			r.put_element(*context, *key_var, new VString(*new String(i.key(), String::L_TAINTED)));
+			r.put_element(*context, *key_var, new VString(i.key()));
 		if(value_var)
 			r.put_element(*context, *value_var, i.value());
 	
@@ -594,15 +587,15 @@ static void _at(Request& r, MethodParams
 				{
 #ifdef HASH_ORDER
 					if(pos == 0) {
-						r.write(*new VString(*new String(hash.first_key(), String::L_TAINTED)));
+						r.write(*new VString(hash.first_key()));
 					} else if((size_t)pos == count-1) {
-						r.write(*new VString(*new String(hash.last_key(), String::L_TAINTED)));
+						r.write(*new VString(hash.last_key()));
 					} else
 #endif
 					{
 						for(HashStringValue::Iterator i(hash); i; i.next(), pos-- )
 							if(!pos){
-								r.write(*new VString(*new String(i.key(), String::L_TAINTED)));
+								r.write(*new VString(i.key()));
 								break;
 							}
 					}
@@ -720,7 +713,7 @@ static void _select(Request& r, MethodPa
 		if(reverse){
 			for(HashStringValue::ReverseIterator i(source_hash); i; i.prev()){
 				if(key_var_name)
-					r.put_element(caller, *key_var_name, new VString(*new String(i.key(), String::L_TAINTED)));
+					r.put_element(caller, *key_var_name, new VString(i.key()));
 				if(value_var_name)
 					r.put_element(caller, *value_var_name, i.value());
 
@@ -741,7 +734,7 @@ static void _select(Request& r, MethodPa
 #endif
 			for(HashStringValue::Iterator i(source_hash); i; i.next() ){
 				if(key_var_name)
-					r.put_element(caller, *key_var_name, new VString(*new String(i.key(), String::L_TAINTED)));
+					r.put_element(caller, *key_var_name, new VString(i.key()));
 				if(value_var_name)
 					r.put_element(caller, *value_var_name, i.value());
 
@@ -815,7 +808,7 @@ static void _array(Request& r, MethodPar
 		const String& smode=params.as_string(0, "mode must be string");
 		if(smode == "keys"){
 			for(HashStringValue::Iterator i(hash); i; i.next()){
-				array+=new VString(*new String(i.key(), String::L_TAINTED));
+				array+=new VString(i.key());
 			}
 		} else if(smode == "values"){
 			for(HashStringValue::Iterator i(hash); i; i.next()){