@agoric/xsnap 0.14.3-dev-b047af2.0 → 0.14.3-dev-2a16ddd.0

package/moddable/xs/sources/xsObject.c

@@ -1,1102 +0,0 @@
-/*
- * Copyright (c) 2016-2017  Moddable Tech, Inc.
- *
- *   This file is part of the Moddable SDK Runtime.
- * 
- *   The Moddable SDK Runtime is free software: you can redistribute it and/or modify
- *   it under the terms of the GNU Lesser General Public License as published by
- *   the Free Software Foundation, either version 3 of the License, or
- *   (at your option) any later version.
- * 
- *   The Moddable SDK Runtime is distributed in the hope that it will be useful,
- *   but WITHOUT ANY WARRANTY; without even the implied warranty of
- *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *   GNU Lesser General Public License for more details.
- * 
- *   You should have received a copy of the GNU Lesser General Public License
- *   along with the Moddable SDK Runtime.  If not, see <http://www.gnu.org/licenses/>.
- *
- * This file incorporates work covered by the following copyright and  
- * permission notice:  
- *
- *       Copyright (C) 2010-2016 Marvell International Ltd.
- *       Copyright (C) 2002-2010 Kinoma, Inc.
- *
- *       Licensed under the Apache License, Version 2.0 (the "License");
- *       you may not use this file except in compliance with the License.
- *       You may obtain a copy of the License at
- *
- *        http://www.apache.org/licenses/LICENSE-2.0
- *
- *       Unless required by applicable law or agreed to in writing, software
- *       distributed under the License is distributed on an "AS IS" BASIS,
- *       WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- *       See the License for the specific language governing permissions and
- *       limitations under the License.
- */
-
-#include "xsAll.h"
-
-void fxBuildObject(txMachine* the)
-{
-	txSlot* slot;
-	fxNewHostFunction(the, mxCallback(fx_Object_assign), 2, XS_NO_ID, XS_NO_ID);
-	mxAssignObjectFunction = *the->stack;
-	mxPop();
-	fxNewHostFunction(the, mxCallback(fx_Object_copy), 2, XS_NO_ID, XS_NO_ID);
-	mxCopyObjectFunction = *the->stack;
-	mxPop();
-	fxNewHostFunction(the, mxCallback(fxOrdinaryToPrimitive), 2, XS_NO_ID, XS_NO_ID);
-	mxOrdinaryToPrimitiveFunction = *the->stack;
-	mxPop();
-	
-	mxPush(mxObjectPrototype);
-	slot = fxLastProperty(the, the->stack->value.reference);
-	slot = fxNextHostAccessorProperty(the, slot, mxCallback(fx_Object_prototype___proto__get), mxCallback(fx_Object_prototype___proto__set), mxID(___proto__), XS_DONT_ENUM_FLAG | XS_DONT_SET_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype_hasOwnProperty), 1, mxID(_hasOwnProperty), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype___defineGetter__), 2, mxID(___defineGetter__), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype___defineSetter__), 2, mxID(___defineSetter__), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype___lookupGetter__), 1, mxID(___lookupGetter__), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype___lookupSetter__), 1, mxID(___lookupSetter__), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype_isPrototypeOf), 1, mxID(_isPrototypeOf), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype_propertyIsEnumerable), 1, mxID(_propertyIsEnumerable), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype_toLocaleString), 0, mxID(_toLocaleString), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype_toString), 0, mxID(_toString), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_prototype_valueOf), 0, mxID(_valueOf), XS_DONT_ENUM_FLAG);
-	slot = fxBuildHostConstructor(the, mxCallback(fx_Object), 1, mxID(_Object));
-	mxObjectConstructor = *the->stack;
-	slot = fxLastProperty(the, slot);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_assign), 2, mxID(_assign), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_create), 2, mxID(_create), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_defineProperties), 2, mxID(_defineProperties), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_defineProperty), 3, mxID(_defineProperty), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_entries), 1, mxID(_entries), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_freeze), 1, mxID(_freeze), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_fromEntries), 1, mxID(_fromEntries), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_getOwnPropertyDescriptor), 2, mxID(_getOwnPropertyDescriptor), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_getOwnPropertyDescriptors), 1, mxID(_getOwnPropertyDescriptors), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_getOwnPropertyNames), 1, mxID(_getOwnPropertyNames), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_getOwnPropertySymbols), 1, mxID(_getOwnPropertySymbols), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_getPrototypeOf), 1, mxID(_getPrototypeOf), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_hasOwn), 2, mxID(_hasOwn), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_is), 2, mxID(_is), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_isExtensible), 1, mxID(_isExtensible), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_isFrozen), 1, mxID(_isFrozen), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_isSealed), 1, mxID(_isSealed), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_keys), 1, mxID(_keys), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_preventExtensions), 1, mxID(_preventExtensions), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_seal), 1, mxID(_seal), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_setPrototypeOf), 2, mxID(_setPrototypeOf), XS_DONT_ENUM_FLAG);
-	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Object_values), 1, mxID(_values), XS_DONT_ENUM_FLAG);
-	mxPop();
-}
-
-
-txSlot* fxNewObjectInstance(txMachine* the)
-{
-	txSlot* instance;
-	instance = fxNewSlot(the);
-	instance->kind = XS_INSTANCE_KIND;
-	instance->value.instance.garbage = C_NULL;
-	instance->value.instance.prototype = the->stack->value.reference;
-	the->stack->value.reference = instance;
-	the->stack->kind = XS_REFERENCE_KIND;
-	return instance;
-}
-
-void fx_Object(txMachine* the)
-{
-	if (!mxIsUndefined(mxTarget) && !fxIsSameSlot(the, mxTarget, mxFunction)) {
-		mxPushSlot(mxTarget);
-		fxGetPrototypeFromConstructor(the, &mxObjectPrototype);
-		fxNewObjectInstance(the);
-		mxPullSlot(mxResult);
-		return;
-	}
-	if ((mxArgc == 0) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND)) {
-		mxPush(mxObjectPrototype);
-		fxNewObjectInstance(the);
-		mxPullSlot(mxResult);
-		return;
-	}
-	*mxResult = *mxArgv(0);
-	fxToInstance(the, mxResult);
-}
-
-void fx_Object_prototype___proto__get(txMachine* the)
-{
-	if ((mxThis->kind == XS_UNDEFINED_KIND) || (mxThis->kind == XS_NULL_KIND))
-		mxTypeError("invalid this");
-	mxBehaviorGetPrototype(the, fxToInstance(the, mxThis), mxResult);
-}
-
-void fx_Object_prototype___proto__set(txMachine* the)
-{
-	txSlot* instance;
-	if ((mxThis->kind == XS_UNDEFINED_KIND) || (mxThis->kind == XS_NULL_KIND))
-		mxTypeError("invalid this");
-	if ((mxArgc < 1) || ((mxArgv(0)->kind != XS_NULL_KIND) && (mxArgv(0)->kind != XS_REFERENCE_KIND)))
-		return;
-	if (mxThis->kind == XS_REFERENCE_KIND) {
-		instance = mxThis->value.reference;
-		if (!mxBehaviorSetPrototype(the, instance, mxArgv(0)))
-			mxTypeError("invalid prototype");
-	}
-}
-
-void fx_Object_prototype___defineGetter__(txMachine* the)
-{
-	txSlot* instance = fxToInstance(the, mxThis);
-	txSlot* at;
-	txSlot* slot;
-	if ((mxArgc < 2) || (!fxIsCallable(the, mxArgv(1))))
-		mxTypeError("invalid getter");
-	at = fxAt(the, mxArgv(0));
-	mxPushUndefined();
-	slot = the->stack;
-	slot->value.accessor.getter = fxToInstance(the, mxArgv(1));
-	slot->value.accessor.setter = C_NULL;
-	slot->kind = XS_ACCESSOR_KIND;
-	slot->flag = XS_NO_FLAG;
-	if(!mxBehaviorDefineOwnProperty(the, instance, at->value.at.id, at->value.at.index, slot, XS_GETTER_FLAG | XS_DONT_DELETE_FLAG| XS_DONT_ENUM_FLAG))
-		mxTypeError("invalid descriptor");
-	mxPop();
-}
-
-void fx_Object_prototype___defineSetter__(txMachine* the)
-{
-	txSlot* instance = fxToInstance(the, mxThis);
-	txSlot* at;
-	txSlot* slot;
-	if ((mxArgc < 2) || (!fxIsCallable(the, mxArgv(1))))
-		mxTypeError("invalid setter");
-	at = fxAt(the, mxArgv(0));
-	mxPushUndefined();
-	slot = the->stack;
-	slot->value.accessor.getter = C_NULL;
-	slot->value.accessor.setter = fxToInstance(the, mxArgv(1));
-	slot->kind = XS_ACCESSOR_KIND;
-	slot->flag = XS_NO_FLAG;
-	if(!mxBehaviorDefineOwnProperty(the, instance, at->value.at.id, at->value.at.index, slot, XS_SETTER_FLAG | XS_DONT_DELETE_FLAG| XS_DONT_ENUM_FLAG))
-		mxTypeError("invalid descriptor");
-	mxPop();
-}
-
-void fx_Object_prototype___lookupGetter__(txMachine* the)
-{
-	txSlot* instance = fxToInstance(the, mxThis);
-	txSlot* at;
-	txSlot* slot;
-	if (mxArgc < 1)
-		mxPushUndefined();
-	else
-		mxPushSlot(mxArgv(0));
-	at = fxAt(the, the->stack);
-	mxPushUndefined();
-	slot = the->stack;
-again:
-	if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, slot)) {
-		if (slot->kind == XS_ACCESSOR_KIND) {
-			if (slot->value.accessor.getter) {
-				mxResult->kind = XS_REFERENCE_KIND;
-				mxResult->value.reference = slot->value.accessor.getter;
-			}
-		}
-		mxPop();
-		return;
-	}
-	if (mxBehaviorGetPrototype(the, instance, slot)) {
-		instance = slot->value.reference;
-		goto again;
-	}
-	mxPop();
-	mxPop();
-}
-
-void fx_Object_prototype___lookupSetter__(txMachine* the)
-{
-	txSlot* instance = fxToInstance(the, mxThis);
-	txSlot* at;
-	txSlot* slot;
-	if (mxArgc < 1)
-		mxPushUndefined();
-	else
-		mxPushSlot(mxArgv(0));
-	at = fxAt(the, the->stack);
-	mxPushUndefined();
-	slot = the->stack;
-again:
-	if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, slot)) {
-		if (slot->kind == XS_ACCESSOR_KIND) {
-			if (slot->value.accessor.setter) {
-				mxResult->kind = XS_REFERENCE_KIND;
-				mxResult->value.reference = slot->value.accessor.setter;
-			}
-		}
-		mxPop();
-		return;
-	}
-	if (mxBehaviorGetPrototype(the, instance, slot)) {
-		instance = slot->value.reference;
-		goto again;
-	}
-	mxPop();
-	mxPop();
-}
-
-void fx_Object_prototype_hasOwnProperty(txMachine* the)
-{
-	txSlot* at;
-	txSlot* instance;
-	if (mxArgc < 1)
-		mxPushUndefined();
-	else
-		mxPushSlot(mxArgv(0));
-	at = fxAt(the, the->stack);
-	instance = fxToInstance(the, mxThis);
-	mxPushUndefined();
-	mxResult->value.boolean = mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, the->stack);
-	mxResult->kind = XS_BOOLEAN_KIND;
-	mxPop();
-	mxPop();
-}
-
-void fx_Object_prototype_isPrototypeOf(txMachine* the)
-{
-	mxResult->kind = XS_BOOLEAN_KIND;
-	mxResult->value.boolean = 0;
-	if (mxArgc > 0) {
-		txSlot* slot = mxArgv(0);
-		if (slot->kind == XS_REFERENCE_KIND) {
-			txSlot* prototype = fxToInstance(the, mxThis);
-			while (mxBehaviorGetPrototype(the, slot->value.reference, slot)) {
-				if (prototype == slot->value.reference) {
-					mxResult->value.boolean = 1;
-					break;
-				}
-			}
-		}
-	}
-}
-
-void fx_Object_prototype_propertyIsEnumerable(txMachine* the)
-{
-	txSlot* at;
-	txSlot* instance;
-	if (mxArgc < 1)
-		mxPushUndefined();
-	else
-		mxPushSlot(mxArgv(0));
-	at = fxAt(the, the->stack);
-	instance = fxToInstance(the, mxThis);
-	mxPushUndefined();
-	mxResult->value.boolean = mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, the->stack) && ((the->stack->flag & XS_DONT_ENUM_FLAG) == 0);
-	mxResult->kind = XS_BOOLEAN_KIND;
-	mxPop();
-	mxPop();
-}
-
-void fx_Object_prototype_toLocaleString(txMachine* the)
-{
-	mxPushSlot(mxThis);
-	mxDub();
-	mxGetID(mxID(_toString));
-	mxCall();
-	mxRunCount(0);
-	mxPullSlot(mxResult);
-}
-
-void fx_Object_prototype_toString(txMachine* the)
-{
-	txString tag = C_NULL;
-	txSlot* instance = C_NULL;
-	txSlot* slot;
-	txSlot* target;
-	switch (mxThis->kind) {
-	case XS_UNDEFINED_KIND:
-		tag = "Undefined";
-		break;
-	case XS_NULL_KIND:
-		tag = "Null";
-		break;
-	case XS_BOOLEAN_KIND:
-		instance = mxBooleanPrototype.value.reference;
-		tag = "Boolean";
-		break;
-	case XS_INTEGER_KIND:
-	case XS_NUMBER_KIND:
-		instance = mxNumberPrototype.value.reference;
-		tag = "Number";
-		break;
-	case XS_STRING_KIND:
-	case XS_STRING_X_KIND:
-		instance = mxStringPrototype.value.reference;
-		tag = "String";
-		break;
-	case XS_SYMBOL_KIND:
-		instance = mxSymbolPrototype.value.reference;
-		tag = "Object";
-		break;
-	case XS_BIGINT_KIND:
-	case XS_BIGINT_X_KIND:
-		instance = mxBigIntPrototype.value.reference;
-		tag = "Object";
-		break;
-	case XS_REFERENCE_KIND:
-		instance = mxThis->value.reference;
-		if (fxIsArray(the, instance))
-			tag = "Array";
-		else {
-			slot = instance->next;
-			if (slot) {
-				if ((slot->ID == XS_ARGUMENTS_SLOPPY_BEHAVIOR) || (slot->ID == XS_ARGUMENTS_STRICT_BEHAVIOR))
-					tag = "Arguments";
-				else if (slot->flag & XS_INTERNAL_FLAG) {
-					switch (slot->kind) {
-					case XS_BOOLEAN_KIND:
-						tag = "Boolean";
-						break;
-					case XS_CALLBACK_KIND:
-					case XS_CALLBACK_X_KIND:
-					case XS_CODE_KIND:
-					case XS_CODE_X_KIND:
-						tag = "Function";
-						break;
-					case XS_DATE_KIND:
-						tag = "Date";
-						break;
-					case XS_ERROR_KIND:
-						tag = "Error";
-						break;
-					case XS_GLOBAL_KIND:
-						tag = "global";
-						break;
-					case XS_NUMBER_KIND:
-						tag = "Number";
-						break;
-					case XS_REGEXP_KIND:
-						tag = "RegExp";
-						break;
-					case XS_STRING_KIND:
-					case XS_STRING_X_KIND:
-						tag = "String";
-						break;
-					case XS_BIGINT_KIND:
-					case XS_BIGINT_X_KIND:
-						tag = "Object";
-						break;
-					case XS_PROXY_KIND:
-						while ((target = slot->value.proxy.target)) {
-							slot = target->next;
-							if (!slot || (slot->kind != XS_PROXY_KIND))
-								break;
-						}
-						if (mxIsFunction(target)) {
-							instance = target;
-							tag = "Function";
-						}
-						else
-							tag = "Object";
-						break;
-					default:
-						tag = "Object";
-						break;
-					}
-				}
-				else
-            		tag = "Object";
-			}
-			else
-            	tag = "Object";
-		}
-		break;
-#ifdef mxHostFunctionPrimitive
-	case XS_HOST_FUNCTION_KIND:
-		instance = mxFunctionPrototype.value.reference;
-		tag = "Function";
-		break;
-#endif
-	default:
-		tag = "Object";
-		break;
-	}
-	fxStringX(the, mxResult, "[object ");
-	if (instance) {
-		mxPushReference(instance);
-		mxGetID(mxID(_Symbol_toStringTag));
-		if ((the->stack->kind == XS_STRING_KIND) || (the->stack->kind == XS_STRING_X_KIND))
-			fxConcatString(the, mxResult, the->stack);
-		else
-			fxConcatStringC(the, mxResult, tag);
-	}
-	else
-		fxConcatStringC(the, mxResult, tag);
-	fxConcatStringC(the, mxResult, "]");
-}
-
-void fx_Object_prototype_valueOf(txMachine* the)
-{
-	fxToInstance(the, mxThis);
-	*mxResult = *mxThis;
-}
-
-void fx_Object_assign(txMachine* the)
-{
-	txSlot* target;
-	txInteger c, i;
-	txSlot* instance;
-	txSlot* at;
-	txSlot* property;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid target");
-	fxToInstance(the, mxArgv(0));
-	target = mxArgv(0);
-	c = mxArgc;
-	for (i = 1; i < c; i++) {
-		if ((mxArgv(i)->kind == XS_UNDEFINED_KIND) || (mxArgv(i)->kind == XS_NULL_KIND))
-			continue;
-		instance = fxToInstance(the, mxArgv(i));
-		at = fxNewInstance(the);
-		mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
-		mxPushUndefined();
-		property = the->stack;
-		while ((at = at->next)) {
-			if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property) && !(property->flag & XS_DONT_ENUM_FLAG)) {
-				mxPushReference(instance);
-				mxGetAll(at->value.at.id, at->value.at.index);
-				mxPushSlot(target);
-				mxSetAll(at->value.at.id, at->value.at.index);
-				mxPop();
-			}
-		}
-		mxPop();
-		mxPop();
-	}
-	*mxResult = *target;
-}
-
-void fx_Object_copy(txMachine* the)
-{
-	txInteger c = mxArgc, i;
-	txSlot* target;
-	txSlot* source;
-	txSlot* at;
-	txSlot* property;
-	if ((c < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	target = fxToInstance(the, mxArgv(0));
-	*mxResult = *mxArgv(0);
-	if ((c < 2) || (mxArgv(1)->kind == XS_UNDEFINED_KIND) || (mxArgv(1)->kind == XS_NULL_KIND))
-		return;
-	source = fxToInstance(the, mxArgv(1));
-	at = fxNewInstance(the);
-	mxBehaviorOwnKeys(the, source, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
-	mxPushUndefined();
-	property = the->stack;
-	while ((at = at->next)) {
-		for (i = 2; i < c; i++) {
-			txSlot* exclude = mxArgv(i);
-			if ((exclude->value.at.id == at->value.at.id) && (exclude->value.at.index == at->value.at.index))
-				break;
-		}
-		if (i == c) {
-			if (mxBehaviorGetOwnProperty(the, source, at->value.at.id, at->value.at.index, property) && !(property->flag & XS_DONT_ENUM_FLAG)) {
-				mxPushReference(source);
-				mxGetAll(at->value.at.id, at->value.at.index);
-				the->stack->flag = 0;
-				mxBehaviorDefineOwnProperty(the, target, at->value.at.id, at->value.at.index, the->stack, XS_GET_ONLY);
-				mxPop();
-			}
-		}
-	}
-	mxPop(); // property
-	mxPop(); // at
-}
-
-void fx_Object_create(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* properties;
-	txSlot* at;
-	txSlot* property;
-	txFlag mask;
-	if ((mxArgc < 1) || ((mxArgv(0)->kind != XS_NULL_KIND) && (mxArgv(0)->kind != XS_REFERENCE_KIND)))
-		mxTypeError("invalid prototype");
-	if (mxArgv(0)->kind == XS_NULL_KIND)
-		fxNewInstance(the);
-	else {
-		mxPushSlot(mxArgv(0));
-		fxNewHostInstance(the);
-	}
-	mxPullSlot(mxResult);
-	instance = fxGetInstance(the, mxResult);
-	if ((mxArgc > 1) && (mxArgv(1)->kind != XS_UNDEFINED_KIND)) {
-		properties = fxToInstance(the, mxArgv(1));
-		at = fxNewInstance(the);
-		mxBehaviorOwnKeys(the, properties, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
-		mxPushUndefined();
-		property = the->stack;
-		while ((at = at->next)) {
-			if (mxBehaviorGetOwnProperty(the, properties, at->value.at.id, at->value.at.index, property) && !(property->flag & XS_DONT_ENUM_FLAG)) {
-				mxPushReference(properties);
-				mxGetAll(at->value.at.id, at->value.at.index);
-				mask = fxDescriptorToSlot(the, the->stack);
-				if (!mxBehaviorDefineOwnProperty(the, instance, at->value.at.id, at->value.at.index, the->stack, mask))
-					mxTypeError("invalid descriptor");
-				mxPop();
-			}
-		}
-		mxPop();
-		mxPop();
-	}
-}
-
-void fx_Object_defineProperties(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* properties;
-	txSlot* at;
-	txSlot* property;
-	txFlag mask;
-	if ((mxArgc < 1) || (mxArgv(0)->kind != XS_REFERENCE_KIND))
-		mxTypeError("invalid object");
-	if ((mxArgc < 2) || (mxArgv(1)->kind == XS_UNDEFINED_KIND))
-		mxTypeError("invalid properties");
-	instance = fxGetInstance(the, mxArgv(0));
-	properties = fxToInstance(the, mxArgv(1));
-	at = fxNewInstance(the);
-	mxBehaviorOwnKeys(the, properties, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
-	mxPushUndefined();
-	property = the->stack;
-	while ((at = at->next)) {
-		if (mxBehaviorGetOwnProperty(the, properties, at->value.at.id, at->value.at.index, property) && !(property->flag & XS_DONT_ENUM_FLAG)) {
-			mxPushReference(properties);
-			mxGetAll(at->value.at.id, at->value.at.index);
-			mask = fxDescriptorToSlot(the, the->stack);
-			if (!mxBehaviorDefineOwnProperty(the, instance, at->value.at.id, at->value.at.index, the->stack, mask))
-				mxTypeError("invalid descriptor");
-			mxPop();
-		}
-	}
-	mxPop();
-	mxPop();
-	*mxResult = *mxArgv(0);
-}
-
-void fx_Object_defineProperty(txMachine* the)
-{
-	txSlot* at;
-	txFlag mask;
-	if ((mxArgc < 1) || (mxArgv(0)->kind != XS_REFERENCE_KIND))
-		mxTypeError("invalid object");
-	if (mxArgc < 2)
-		mxTypeError("invalid key");
-	at = fxAt(the, mxArgv(1));
-	if ((mxArgc < 3) || (mxArgv(2)->kind != XS_REFERENCE_KIND))
-		mxTypeError("invalid descriptor");
-	mask = fxDescriptorToSlot(the, mxArgv(2));
-	if(!mxBehaviorDefineOwnProperty(the, mxArgv(0)->value.reference, at->value.at.id, at->value.at.index, mxArgv(2), mask))
-		mxTypeError("invalid descriptor");
-	*mxResult = *mxArgv(0);
-}
-
-void fx_Object_entries(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* result;
-	txSlot* array;
-	txSlot* property;
-	txSlot** address;
-	txSlot* item;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	instance = fxToInstance(the, mxArgv(0));
-	mxPush(mxArrayPrototype);
-	result = fxNewArrayInstance(the);
-	mxPullSlot(mxResult);
-	array = result->next;
-	mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG, array);
-	mxPushUndefined();
-	property = the->stack;
-	address = &array->next;
-	while ((item = *address)) {
-		if (mxBehaviorGetOwnProperty(the, instance, item->value.at.id, item->value.at.index, property) && !(property->flag & XS_DONT_ENUM_FLAG)) {
-			array->value.array.length++;
-			mxPushUndefined();
-			fxKeyAt(the, item->value.at.id, item->value.at.index, the->stack);
-			mxPushReference(instance);
-			mxGetAll(item->value.at.id, item->value.at.index);
-			fxConstructArrayEntry(the, item);
-			address = &(item->next);
-		}
-		else
-			*address = item->next;
-	}
-	mxPop();
-	fxCacheArray(the, result);
-}
-
-void fx_Object_freeze(txMachine* the)
-{
-	if (mxArgc > 0) {
-		txSlot* slot = mxArgv(0);
-		if (slot->kind == XS_REFERENCE_KIND) {
-			txSlot* instance = slot->value.reference;
-			txBoolean deep = 0;
-			txSlot* at;
-			txSlot* property;
-			if (!mxBehaviorPreventExtensions(the, instance))
-				mxTypeError("extensible object");
-			if ((mxArgc > 1) && fxToBoolean(the, mxArgv(1)))
-				deep = 1;
-			at = fxNewInstance(the);
-			mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
-			mxPushUndefined();
-			property = the->stack;
-			while ((at = at->next)) {
-				if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property)) {
-					txFlag mask = XS_DONT_DELETE_FLAG;
-					property->flag |= XS_DONT_DELETE_FLAG;
-					if (property->kind != XS_ACCESSOR_KIND) {
-						mask |= XS_DONT_SET_FLAG;
-						property->flag |= XS_DONT_SET_FLAG;
-					}
-					property->kind = XS_UNINITIALIZED_KIND;
-					if (!mxBehaviorDefineOwnProperty(the, instance, at->value.at.id, at->value.at.index, property, mask)) {
-						if (!deep)
-							mxTypeError("cannot configure property");
-					}
-				}
-			}
-			mxPop();
-			if (deep) {
-				at = the->stack->value.reference;
-				mxPushUndefined();
-				property = the->stack;
-				while ((at = at->next)) {
-					if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property)) {
-						if (property->kind == XS_REFERENCE_KIND) {
-							mxPushSlot(mxThis);
-							mxDub();
-							mxGetID(mxID(_isFrozen));
-							mxCall();
-							mxPushSlot(property);
-							mxRunCount(1);
-							if (!fxRunTest(the)) {
-								mxPushSlot(mxThis);
-								mxPushSlot(mxFunction);
-								mxCall();
-								mxPushSlot(property);
-								mxPushBoolean(1);
-								mxRunCount(2);
-								mxPop();
-							}
-						}
-						else if (property->kind == XS_ACCESSOR_KIND) {
-							if (property->value.accessor.getter) {
-								mxPushSlot(mxThis);
-								mxDub();
-								mxGetID(mxID(_isFrozen));
-								mxCall();
-								mxPushReference(property->value.accessor.getter);
-								mxRunCount(1);
-								if (!fxRunTest(the)) {
-									mxPushSlot(mxThis);
-									mxPushSlot(mxFunction);
-									mxCall();
-									mxPushReference(property->value.accessor.getter);
-									mxPushBoolean(1);
-									mxRunCount(2);
-									mxPop();
-								}
-							}
-							if (property->value.accessor.setter) {
-								mxPushSlot(mxThis);
-								mxDub();
-								mxGetID(mxID(_isFrozen));
-								mxCall();
-								mxPushReference(property->value.accessor.setter);
-								mxRunCount(1);
-								if (!fxRunTest(the)) {
-									mxPushSlot(mxThis);
-									mxPushSlot(mxFunction);
-									mxCall();
-									mxPushReference(property->value.accessor.setter);
-									mxPushBoolean(1);
-									mxRunCount(2);
-									mxPop();
-								}
-							}
-						}
-					}
-				}
-				mxPop();
-			}
-			mxPop();
-		}
-		*mxResult = *mxArgv(0);
-	}
-}
-
-void fx_Object_fromEntries(txMachine* the)
-{
-	txSlot *instance, *iterator, *next, *value, *at;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid iterable");
-	mxPush(mxObjectPrototype);
-	instance = fxNewObjectInstance(the);
-	mxPullSlot(mxResult);
-	mxTemporary(iterator);
-	mxTemporary(next);
-	fxGetIterator(the, mxArgv(0), iterator, next, 0);	
-	mxTemporary(value);
-	while (fxIteratorNext(the, iterator, next, value)) {
-		mxTry(the) {
-			if (value->kind != XS_REFERENCE_KIND)
-				mxTypeError("item is no object");
-			mxPushSlot(value);
-			mxGetIndex(0);
-			mxPushSlot(value);
-			mxGetIndex(1);
-			at = fxAt(the, the->stack + 1);
-			mxBehaviorDefineOwnProperty(the, instance, at->value.at.id, at->value.at.index, the->stack, XS_GET_ONLY);
-			mxPop();
-			mxPop();
-		}
-		mxCatch(the) {
-			fxIteratorReturn(the, iterator);
-			fxJump(the);
-		}
-	}
-	mxPop();
-}
-
-void fx_Object_getOwnPropertyDescriptor(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* at;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	instance = fxToInstance(the, mxArgv(0));
-	if (mxArgc < 2)
-		mxPushUndefined();
-	else
-		mxPushSlot(mxArgv(1));
-	at = fxAt(the, the->stack);
-	mxPushUndefined();
-	if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, the->stack)) {
-		fxDescribeProperty(the, the->stack, XS_GET_ONLY);
-		mxPullSlot(mxResult);
-	}
-	mxPop();
-	mxPop();
-}
-
-void fx_Object_getOwnPropertyDescriptors(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* result;
-	txSlot* at;
-	txSlot* property;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	instance = fxToInstance(the, mxArgv(0));
-	mxPush(mxObjectPrototype);
-	result = fxNewObjectInstance(the);
-	mxPullSlot(mxResult);
-	at = fxNewInstance(the);
-	mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
-	mxPushUndefined();
-	property = the->stack;
-	while ((at = at->next)) {
-		if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property)) {
-			fxDescribeProperty(the, property, XS_GET_ONLY);
-			mxBehaviorDefineOwnProperty(the, result, at->value.at.id, at->value.at.index, the->stack, XS_GET_ONLY);
-			mxPop();
-		}
-	}
-	mxPop();
-}
-
-void fx_Object_getOwnPropertyNames(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* result;
-	txSlot* array;
-	txSlot* item;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	instance = fxToInstance(the, mxArgv(0));
-	mxPush(mxArrayPrototype);
-	result = fxNewArrayInstance(the);
-	mxPullSlot(mxResult);
-	array = result->next;
-	mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG, array);
-	item = array;
-	while ((item = item->next)) {
-		array->value.array.length++;
-		fxKeyAt(the, item->value.at.id, item->value.at.index, item);
-	}
-	fxCacheArray(the, result);
-}
-
-void fx_Object_getOwnPropertySymbols(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* result;
-	txSlot* array;
-	txSlot* item;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	instance = fxToInstance(the, mxArgv(0));
-	mxPush(mxArrayPrototype);
-	result = fxNewArrayInstance(the);
-	mxPullSlot(mxResult);
-	array = result->next;
-	mxBehaviorOwnKeys(the, instance, XS_EACH_SYMBOL_FLAG, array);
-	item = array;
-	while ((item = item->next)) {
-		array->value.array.length++;
-		fxKeyAt(the, item->value.at.id, item->value.at.index, item);
-	}
-	fxCacheArray(the, result);
-}
-
-void fx_Object_getPrototypeOf(txMachine* the)
-{
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	mxBehaviorGetPrototype(the, fxToInstance(the, mxArgv(0)), mxResult);
-}
-
-void fx_Object_hasOwn(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* at;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	instance = fxToInstance(the, mxArgv(0));
-	if (mxArgc < 2)
-		mxPushUndefined();
-	else
-		mxPushSlot(mxArgv(1));
-	at = fxAt(the, the->stack);
-	mxPushUndefined();
-	mxResult->value.boolean = mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, the->stack);
-	mxResult->kind = XS_BOOLEAN_KIND;
-	mxPop();
-	mxPop();
-}
-
-void fx_Object_is(txMachine* the)
-{
-	if (mxArgc > 0)
-		mxPushSlot(mxArgv(0));
-	else
-		mxPushUndefined();
-	if (mxArgc > 1)
-		mxPushSlot(mxArgv(1));
-	else
-		mxPushUndefined();
-	mxResult->value.boolean = fxIsSameValue(the, the->stack + 1, the->stack, 0);
-	mxResult->kind = XS_BOOLEAN_KIND;
-	the->stack += 2;
-}
-
-void fx_Object_isExtensible(txMachine* the)
-{
-	mxResult->kind = XS_BOOLEAN_KIND;
-	mxResult->value.boolean = 0;
-	if (mxArgc > 0) {
-		txSlot* slot = mxArgv(0);
-		if (slot->kind == XS_REFERENCE_KIND) {
-			slot = slot->value.reference;
-			mxResult->value.boolean = mxBehaviorIsExtensible(the, slot);
-		}
-	}
-}
-
-void fx_Object_isFrozen(txMachine* the)
-{
-	mxResult->kind = XS_BOOLEAN_KIND;
-	mxResult->value.boolean = 1;
-	if (mxArgc > 0) {
-		txSlot* slot = mxArgv(0);
-		if (slot->kind == XS_REFERENCE_KIND) {
-			txSlot* instance = slot->value.reference;
-            mxResult->value.boolean = mxBehaviorIsExtensible(the, instance) ? 0 : 1;
-			if (mxResult->value.boolean) {
-				txSlot* at;
-				txSlot* property;
-				at = fxNewInstance(the);
-				mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
-				mxPushUndefined();
-				property = the->stack;
-				while ((at = at->next)) {
-					if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property)) {
-						if (property->kind != XS_ACCESSOR_KIND) 
-							if (!(property->flag & XS_DONT_SET_FLAG))
-								mxResult->value.boolean = 0;
-						if (!(property->flag & XS_DONT_DELETE_FLAG))
-							mxResult->value.boolean = 0;
-					}
-				}
-				mxPop();
-				mxPop();
-			}
-		}
-	}
-}
-
-void fx_Object_isSealed(txMachine* the)
-{
-	mxResult->kind = XS_BOOLEAN_KIND;
-	mxResult->value.boolean = 1;
-	if (mxArgc > 0) {
-		txSlot* slot = mxArgv(0);
-		if (slot->kind == XS_REFERENCE_KIND) {
-			txSlot* instance = slot->value.reference;
-			mxResult->value.boolean = mxBehaviorIsExtensible(the, instance) ? 0 : 1;
-			if (mxResult->value.boolean) {
-				txSlot* at;
-				txSlot* property;
-				at = fxNewInstance(the);
-				mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
-				mxPushUndefined();
-				property = the->stack;
-				while ((at = at->next)) {
-					if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property)) {
-						if (!(property->flag & XS_DONT_DELETE_FLAG))
-							mxResult->value.boolean = 0;
-					}
-				}
-				mxPop();
-				mxPop();
-			}		
-		}
-	}
-}
-
-void fx_Object_keys(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* result;
-	txSlot* array;
-	txSlot* property;
-	txSlot** address;
-	txSlot* item;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	instance = fxToInstance(the, mxArgv(0));
-	mxPush(mxArrayPrototype);
-	result = fxNewArrayInstance(the);
-	mxPullSlot(mxResult);
-	array = result->next;
-	mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG, array);
-	mxPushUndefined();
-	property = the->stack;
-	address = &array->next;
-	while ((item = *address)) {
-		if (mxBehaviorGetOwnProperty(the, instance, item->value.at.id, item->value.at.index, property) && !(property->flag & XS_DONT_ENUM_FLAG)) {
-			array->value.array.length++;
-			fxKeyAt(the, item->value.at.id, item->value.at.index, item);
-			address = &(item->next);
-		}
-		else
-			*address = item->next;
-	}
-	mxPop();
-	fxCacheArray(the, result);
-}
-
-void fx_Object_preventExtensions(txMachine* the)
-{
-	if (mxArgc > 0) {
-		txSlot* slot = mxArgv(0);
-		if (slot->kind == XS_REFERENCE_KIND) {
-			slot = slot->value.reference;
-			if (!mxBehaviorPreventExtensions(the, slot))
-				mxTypeError("extensible object");
-		}
-		*mxResult = *mxArgv(0);
-	}
-}
-
-void fx_Object_seal(txMachine* the)
-{
-	if (mxArgc > 0) {
-		txSlot* slot = mxArgv(0);
-		if (slot->kind == XS_REFERENCE_KIND) {
-			txSlot* instance = slot->value.reference;
-			txSlot* at;
-			txSlot* property;
-			if (!mxBehaviorPreventExtensions(the, instance))
-				mxTypeError("extensible object");
-			at = fxNewInstance(the);
-			mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG | XS_EACH_SYMBOL_FLAG, at);
-			mxPushUndefined();
-			property = the->stack;
-			while ((at = at->next)) {
-				if (mxBehaviorGetOwnProperty(the, instance, at->value.at.id, at->value.at.index, property)) {
-					txFlag mask = XS_DONT_DELETE_FLAG;
-					property->flag |= XS_DONT_DELETE_FLAG;
-					property->kind = XS_UNINITIALIZED_KIND;
-					if (!mxBehaviorDefineOwnProperty(the, instance, at->value.at.id, at->value.at.index, property, mask))
-						mxTypeError("cannot configure property");
-				}
-			}
-			mxPop();
-			mxPop();
-		}
-		*mxResult = *mxArgv(0);
-	}
-}
-
-void fx_Object_setPrototypeOf(txMachine* the)
-{
-	txSlot* instance;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	if ((mxArgc < 2) || ((mxArgv(1)->kind != XS_NULL_KIND) && (mxArgv(1)->kind != XS_REFERENCE_KIND)))
-		mxTypeError("invalid prototype");
-	if (mxArgv(0)->kind == XS_REFERENCE_KIND) {
-		instance = mxArgv(0)->value.reference;
-		if (!mxBehaviorSetPrototype(the, instance, mxArgv(1)))
-			mxTypeError("invalid prototype");
-	}
-	*mxResult = *mxArgv(0);
-}
-
-void fx_Object_values(txMachine* the)
-{
-	txSlot* instance;
-	txSlot* result;
-	txSlot* array;
-	txSlot* property;
-	txSlot** address;
-	txSlot* item;
-	if ((mxArgc < 1) || (mxArgv(0)->kind == XS_UNDEFINED_KIND) || (mxArgv(0)->kind == XS_NULL_KIND))
-		mxTypeError("invalid object");
-	instance = fxToInstance(the, mxArgv(0));
-	mxPush(mxArrayPrototype);
-	result = fxNewArrayInstance(the);
-	mxPullSlot(mxResult);
-	array = result->next;
-	mxBehaviorOwnKeys(the, instance, XS_EACH_NAME_FLAG, array);
-	mxPushUndefined();
-	property = the->stack;
-	address = &array->next;
-	while ((item = *address)) {
-		if (mxBehaviorGetOwnProperty(the, instance, item->value.at.id, item->value.at.index, property) && !(property->flag & XS_DONT_ENUM_FLAG)) {
-			array->value.array.length++;
-			mxPushReference(instance);
-			mxGetAll(item->value.at.id, item->value.at.index);
-			mxPullSlot(item);
-			address = &(item->next);
-		}
-		else
-			*address = item->next;
-	}
-	mxPop();
-	fxCacheArray(the, result);
-}