/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- * * The contents of this file are subject to the Netscape Public * License Version 1.1 (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.mozilla.org/NPL/ * * Software distributed under the License is distributed on an "AS * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or * implied. See the License for the specific language governing * rights and limitations under the License. * * The Original Code is the JavaScript 2 Prototype. * * The Initial Developer of the Original Code is Netscape * Communications Corporation. Portions created by Netscape are * Copyright (C) 1998 Netscape Communications Corporation. All * Rights Reserved. * * Contributor(s): * * Alternatively, the contents of this file may be used under the * terms of the GNU Public License (the "GPL"), in which case the * provisions of the GPL are applicable instead of those above. * If you wish to allow use of your version of this file only * under the terms of the GPL and not to allow others to use your * version of this file under the NPL, indicate your decision by * deleting the provisions above and replace them with the notice * and other provisions required by the GPL. If you do not delete * the provisions above, a recipient may use your version of this * file under either the NPL or the GPL. */ // Read a multiname property from a base object, push the value onto the stack case eDotRead: { LookupKind lookup(false, JS2VAL_NULL); Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)]; pc += sizeof(short); b = pop(); if (JS2VAL_IS_OBJECT(b) && (JS2VAL_TO_OBJECT(b)->kind == LimitedInstanceKind)) { LimitedInstance *li = checked_cast(JS2VAL_TO_OBJECT(b)); b = OBJECT_TO_JS2VAL(li->instance); if (!li->limit->read(meta, &b, li->limit, mn, &lookup, RunPhase, &a)) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name); } else { JS2Class *limit = meta->objectType(b); if (!limit->read(meta, &b, limit, mn, &lookup, RunPhase, &a)) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name); } push(a); } break; case eDotDelete: { LookupKind lookup(false, JS2VAL_NULL); Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)]; pc += sizeof(short); b = pop(); bool result; JS2Class *limit = meta->objectType(b); if (!limit->deleteProperty(meta, b, limit, mn, &lookup, &result)) push(JS2VAL_FALSE); else push(BOOLEAN_TO_JS2VAL(result)); } break; // Write the top value to a multiname property in a base object, leave // the value on the stack top case eDotWrite: { a = pop(); LookupKind lookup(false, JS2VAL_NULL); Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)]; pc += sizeof(short); b = pop(); if (JS2VAL_IS_OBJECT(b) && (JS2VAL_TO_OBJECT(b)->kind == LimitedInstanceKind)) { LimitedInstance *li = checked_cast(JS2VAL_TO_OBJECT(b)); b = OBJECT_TO_JS2VAL(li->instance); if (!li->limit->write(meta, b, li->limit, mn, &lookup, true, a, false)) { if (!meta->cxt.E3compatibility) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name); } } else { JS2Class *limit = meta->objectType(b); if (!limit->write(meta, b, limit, mn, &lookup, true, a, false)) { if (!meta->cxt.E3compatibility) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name); } } push(a); } break; // Read the multiname property, but leave the base and the value on the stack case eDotRef: { LookupKind lookup(false, JS2VAL_NULL); Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)]; pc += sizeof(short); b = pop(); JS2Class *limit = meta->objectType(b); if (!limit->read(meta, &b, limit, mn, &lookup, RunPhase, &a)) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name); push(b); push(a); } break; // Read the multiname from the current environment, push it's value on the stack case eLexicalRead: { Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)]; pc += sizeof(short); meta->env->lexicalRead(meta, mn, phase, &a, NULL); push(a); } break; case eLexicalDelete: { Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)]; pc += sizeof(short); push(BOOLEAN_TO_JS2VAL(meta->env->lexicalDelete(meta, mn, phase))); } break; // Write the top value to the multiname in the environment, leave // the value on the stack top. case eLexicalWrite: { a = top(); Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)]; pc += sizeof(short); // XXX The value of 'createIfMissing' should come from the reference's copy // of the !environment.strict at the time the reference was constructed. // Have eLexicalWriteCreate ? meta->env->lexicalWrite(meta, mn, a, true); } break; // Write the top value to the multiname in the environment, leave // the value on the stack top. case eLexicalInit: { a = pop(); Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)]; pc += sizeof(short); meta->env->lexicalInit(meta, mn, a); } break; // Construct a reference pair consisting of a NULL base and the read value case eLexicalRef: { Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)]; pc += sizeof(short); b = JS2VAL_NULL; meta->env->lexicalRead(meta, mn, phase, &a, &b); push(b); push(a); } break; // Read an index property from a base object, push the value onto the stack case eBracketRead: { indexVal = pop(); b = pop(); astr = meta->toString(indexVal); Multiname mn(&meta->world.identifiers[*astr], meta->publicNamespace); JS2Class *limit = meta->objectType(b); if (!limit->bracketRead(meta, &b, limit, &mn, RunPhase, &a)) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name); push(a); indexVal = JS2VAL_VOID; astr = NULL; } break; case eBracketDelete: { LookupKind lookup(false, JS2VAL_NULL); indexVal = pop(); b = pop(); astr = meta->toString(indexVal); Multiname mn(&meta->world.identifiers[*astr], meta->publicNamespace); bool result; JS2Class *limit = meta->objectType(b); if (!limit->bracketDelete(meta, b, limit, &mn, &result)) push(JS2VAL_FALSE); else push(BOOLEAN_TO_JS2VAL(result)); indexVal = JS2VAL_VOID; astr = NULL; } break; // Write the top value to an index property in a base object, leave // the value on the stack top case eBracketWrite: { a = pop(); indexVal = pop(); b = pop(); astr = meta->toString(indexVal); Multiname mn(&meta->world.identifiers[*astr], meta->publicNamespace); JS2Class *limit = meta->objectType(b); if (!limit->bracketWrite(meta, b, limit, &mn, a)) { if (!meta->cxt.E3compatibility) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name); } push(a); indexVal = JS2VAL_VOID; astr = NULL; } break; // Leave the base object on the stack and push the property value case eBracketRef: { LookupKind lookup(false, JS2VAL_NULL); indexVal = pop(); b = top(); astr = meta->toString(indexVal); Multiname mn(&meta->world.identifiers[*astr], meta->publicNamespace); JS2Class *limit = meta->objectType(b); if (!limit->bracketRead(meta, &b, limit, &mn, RunPhase, &a)) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name); push(a); indexVal = JS2VAL_VOID; astr = NULL; } break; // Leave the base object and index value, push the value case eBracketReadForRef: { LookupKind lookup(false, JS2VAL_NULL); indexVal = pop(); b = top(); astr = meta->toString(indexVal); push(STRING_TO_JS2VAL(astr)); Multiname mn(&meta->world.identifiers[*astr], meta->publicNamespace); JS2Class *limit = meta->objectType(b); if (!limit->bracketRead(meta, &b, limit, &mn, RunPhase, &a)) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name); push(a); indexVal = JS2VAL_VOID; astr = NULL; } break; // Beneath the value is a reference pair (base and index), write to that location but leave just the value case eBracketWriteRef: { LookupKind lookup(false, JS2VAL_NULL); a = pop(); indexVal = pop(); ASSERT(JS2VAL_IS_STRING(indexVal)); b = pop(); Multiname mn(&meta->world.identifiers[*JS2VAL_TO_STRING(indexVal)], meta->publicNamespace); JS2Class *limit = meta->objectType(b); if (!limit->bracketWrite(meta, b, limit, &mn, a)) { if (!meta->cxt.E3compatibility) meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name); } push(a); indexVal = JS2VAL_VOID; } break; case eFrameSlotWrite: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); ASSERT(slotIndex < localFrame->slots->size()); a = top(); (*localFrame->slots)[slotIndex] = a; } break; case eFrameSlotDelete: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); ASSERT(slotIndex < localFrame->slots->size()); // XXX some kind of code here? } break; case eFrameSlotRead: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); ASSERT(slotIndex < localFrame->slots->size()); push((*localFrame->slots)[slotIndex]); } break; case eFrameSlotRef: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); push(JS2VAL_NULL); ASSERT(slotIndex < localFrame->slots->size()); push((*localFrame->slots)[slotIndex]); } break; case ePackageSlotWrite: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); a = top(); ASSERT(slotIndex < packageFrame->slots->size()); (*packageFrame->slots)[slotIndex] = a; } break; case ePackageSlotDelete: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); ASSERT(slotIndex < packageFrame->slots->size()); // XXX some kind of code here? } break; case ePackageSlotRead: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); ASSERT(slotIndex < packageFrame->slots->size()); push((*packageFrame->slots)[slotIndex]); } break; case ePackageSlotRef: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); push(JS2VAL_NULL); ASSERT(slotIndex < packageFrame->slots->size()); push((*packageFrame->slots)[slotIndex]); } break; case eParameterSlotWrite: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); a = top(); ASSERT(slotIndex < parameterFrame->slots->size()); (*parameterFrame->slots)[slotIndex] = a; } break; case eParameterSlotDelete: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); ASSERT(slotIndex < parameterFrame->slots->size()); // XXX some kind of code here? } break; case eParameterSlotRead: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); ASSERT(slotIndex < parameterFrame->slots->size()); push((*parameterFrame->slots)[slotIndex]); } break; case eParameterSlotRef: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); push(JS2VAL_NULL); ASSERT(slotIndex < parameterFrame->slots->size()); push((*parameterFrame->slots)[slotIndex]); } break; case eSlotWrite: { a = pop(); uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); b = pop(); ASSERT(JS2VAL_IS_OBJECT(b)); JS2Object *obj = JS2VAL_TO_OBJECT(b); ASSERT(obj->kind == SimpleInstanceKind); checked_cast(obj)->slots[slotIndex].value = a; push(a); } break; case eSlotRead: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); b = pop(); ASSERT(JS2VAL_IS_OBJECT(b)); JS2Object *obj = JS2VAL_TO_OBJECT(b); ASSERT(obj->kind == SimpleInstanceKind); push(checked_cast(obj)->slots[slotIndex].value); } break; case eSlotRef: { uint16 slotIndex = BytecodeContainer::getShort(pc); pc += sizeof(short); b = top(); ASSERT(JS2VAL_IS_OBJECT(b)); JS2Object *obj = JS2VAL_TO_OBJECT(b); ASSERT(obj->kind == SimpleInstanceKind); push(checked_cast(obj)->slots[slotIndex].value); } break;