795 lines
27 KiB
C++
795 lines
27 KiB
C++
|
|
/* -*- 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.
|
|
*/
|
|
|
|
case eMinus:
|
|
{
|
|
js2val a = pop();
|
|
pushNumber(-toNumber(a));
|
|
}
|
|
break;
|
|
|
|
case ePlus:
|
|
{
|
|
js2val a = pop();
|
|
pushNumber(toNumber(a));
|
|
}
|
|
break;
|
|
|
|
case eComplement:
|
|
{
|
|
js2val a = pop();
|
|
pushNumber(~toInteger(a));
|
|
}
|
|
break;
|
|
case eLeftShift:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
int32 count = toInteger(b) & 0x1F;
|
|
pushNumber(toInteger(a) << count);
|
|
}
|
|
break;
|
|
case eRightShift:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
int32 count = toInteger(b) & 0x1F;
|
|
pushNumber(toInteger(a) >> count);
|
|
}
|
|
break;
|
|
case eLogicalRightShift:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
int32 count = toInteger(b) & 0x1F;
|
|
pushNumber(toUInt32(toInteger(a)) >> count);
|
|
}
|
|
break;
|
|
case eBitwiseAnd:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
pushNumber(toInteger(a) & toInteger(b));
|
|
}
|
|
break;
|
|
case eBitwiseXor:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
pushNumber(toInteger(a) ^ toInteger(b));
|
|
}
|
|
break;
|
|
case eBitwiseOr:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
pushNumber(toInteger(a) | toInteger(b));
|
|
}
|
|
break;
|
|
|
|
case eAdd:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
a = toPrimitive(a);
|
|
b = toPrimitive(b);
|
|
if (JS2VAL_IS_STRING(a) || JS2VAL_IS_STRING(b)) {
|
|
String *astr = toString(a);
|
|
String *bstr = toString(b);
|
|
String *c = new String(*astr);
|
|
*c += *bstr;
|
|
push(STRING_TO_JS2VAL(c));
|
|
}
|
|
else {
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
pushNumber(anum + bnum);
|
|
}
|
|
}
|
|
break;
|
|
|
|
case eSubtract:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
pushNumber(anum - bnum);
|
|
}
|
|
break;
|
|
|
|
case eMultiply:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
pushNumber(anum * bnum);
|
|
}
|
|
break;
|
|
|
|
case eDivide:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
pushNumber(anum / bnum);
|
|
}
|
|
break;
|
|
|
|
case eModulo:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
#ifdef XP_PC
|
|
/* Workaround MS fmod bug where 42 % (1/0) => NaN, not 42. */
|
|
if (JSDOUBLE_IS_FINITE(anum) && JSDOUBLE_IS_INFINITE(bnum))
|
|
pushNumber(anum);
|
|
else
|
|
#endif
|
|
pushNumber(fd::fmod(anum, bnum));
|
|
}
|
|
break;
|
|
|
|
case eLogicalXor:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
ASSERT(JS2VAL_IS_BOOLEAN(a) && JS2VAL_IS_BOOLEAN(b));
|
|
push(BOOLEAN_TO_JS2VAL(JS2VAL_TO_BOOLEAN(a) ^ JS2VAL_TO_BOOLEAN(b)));
|
|
}
|
|
break;
|
|
|
|
case eLess:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
js2val ap = toPrimitive(a);
|
|
js2val bp = toPrimitive(b);
|
|
bool rval;
|
|
if (JS2VAL_IS_STRING(ap) && JS2VAL_IS_STRING(bp))
|
|
rval = (*JS2VAL_TO_STRING(ap) < *JS2VAL_TO_STRING(bp));
|
|
else
|
|
rval = toNumber(ap) < toNumber(bp);
|
|
push(BOOLEAN_TO_JS2VAL(rval));
|
|
}
|
|
break;
|
|
|
|
case eLessEqual:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
js2val ap = toPrimitive(a);
|
|
js2val bp = toPrimitive(b);
|
|
bool rval;
|
|
if (JS2VAL_IS_STRING(ap) && JS2VAL_IS_STRING(bp))
|
|
rval = (*JS2VAL_TO_STRING(ap) <= *JS2VAL_TO_STRING(bp));
|
|
else
|
|
rval = toNumber(ap) <= toNumber(bp);
|
|
push(BOOLEAN_TO_JS2VAL(rval));
|
|
}
|
|
break;
|
|
|
|
case eGreater:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
js2val ap = toPrimitive(a);
|
|
js2val bp = toPrimitive(b);
|
|
bool rval;
|
|
if (JS2VAL_IS_STRING(ap) && JS2VAL_IS_STRING(bp))
|
|
rval = (*JS2VAL_TO_STRING(ap) > *JS2VAL_TO_STRING(bp));
|
|
else
|
|
rval = toNumber(ap) > toNumber(bp);
|
|
push(BOOLEAN_TO_JS2VAL(rval));
|
|
}
|
|
break;
|
|
|
|
case eGreaterEqual:
|
|
{
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
js2val ap = toPrimitive(a);
|
|
js2val bp = toPrimitive(b);
|
|
bool rval;
|
|
if (JS2VAL_IS_STRING(ap) && JS2VAL_IS_STRING(bp))
|
|
rval = (*JS2VAL_TO_STRING(ap) >= *JS2VAL_TO_STRING(bp));
|
|
else
|
|
rval = toNumber(ap) >= toNumber(bp);
|
|
push(BOOLEAN_TO_JS2VAL(rval));
|
|
}
|
|
break;
|
|
|
|
case eNotEqual:
|
|
case eEqual:
|
|
{
|
|
bool rval;
|
|
js2val b = pop();
|
|
js2val a = pop();
|
|
if (JS2VAL_IS_NULL(a) || JS2VAL_IS_UNDEFINED(a))
|
|
rval = (JS2VAL_IS_NULL(b) || JS2VAL_IS_UNDEFINED(b));
|
|
else
|
|
if (JS2VAL_IS_BOOLEAN(a)) {
|
|
if (JS2VAL_IS_BOOLEAN(b))
|
|
rval = (JS2VAL_TO_BOOLEAN(a) == JS2VAL_TO_BOOLEAN(b));
|
|
else {
|
|
js2val bp = toPrimitive(b);
|
|
if (JS2VAL_IS_NULL(bp) || JS2VAL_IS_UNDEFINED(bp))
|
|
rval = false;
|
|
else
|
|
rval = (toNumber(a) == toNumber(bp));
|
|
}
|
|
}
|
|
else
|
|
if (JS2VAL_IS_NUMBER(a)) {
|
|
js2val bp = toPrimitive(b);
|
|
if (JS2VAL_IS_NULL(bp) || JS2VAL_IS_UNDEFINED(bp))
|
|
rval = false;
|
|
else
|
|
rval = (toNumber(a) == toNumber(bp));
|
|
}
|
|
else
|
|
if (JS2VAL_IS_STRING(a)) {
|
|
js2val bp = toPrimitive(b);
|
|
if (JS2VAL_IS_NULL(bp) || JS2VAL_IS_UNDEFINED(bp))
|
|
rval = false;
|
|
else
|
|
if (JS2VAL_IS_BOOLEAN(bp) || JS2VAL_IS_NUMBER(bp))
|
|
rval = (toNumber(a) == toNumber(bp));
|
|
else
|
|
rval = (*JS2VAL_TO_STRING(a) == *JS2VAL_TO_STRING(bp));
|
|
}
|
|
else // a is not a primitive at this point, see if b is...
|
|
if (JS2VAL_IS_NULL(b) || JS2VAL_IS_UNDEFINED(b))
|
|
rval = false;
|
|
else
|
|
if (JS2VAL_IS_BOOLEAN(b)) {
|
|
js2val ap = toPrimitive(a);
|
|
if (JS2VAL_IS_NULL(ap) || JS2VAL_IS_UNDEFINED(ap))
|
|
rval = false;
|
|
else
|
|
if (JS2VAL_IS_BOOLEAN(ap))
|
|
rval = (JS2VAL_TO_BOOLEAN(ap) == JS2VAL_TO_BOOLEAN(b));
|
|
else
|
|
rval = (toNumber(ap) == toNumber(b));
|
|
}
|
|
else
|
|
if (JS2VAL_IS_NUMBER(b)) {
|
|
js2val ap = toPrimitive(a);
|
|
if (JS2VAL_IS_NULL(ap) || JS2VAL_IS_UNDEFINED(ap))
|
|
rval = false;
|
|
else
|
|
rval = (toNumber(ap) == toNumber(b));
|
|
}
|
|
else
|
|
if (JS2VAL_IS_STRING(b)) {
|
|
js2val ap = toPrimitive(a);
|
|
if (JS2VAL_IS_NULL(ap) || JS2VAL_IS_UNDEFINED(ap))
|
|
rval = false;
|
|
else
|
|
if (JS2VAL_IS_BOOLEAN(ap) || JS2VAL_IS_NUMBER(ap))
|
|
rval = (toNumber(ap) == toNumber(b));
|
|
else
|
|
rval = (*JS2VAL_TO_STRING(ap) == *JS2VAL_TO_STRING(b));
|
|
}
|
|
else
|
|
rval = (JS2VAL_TO_OBJECT(a) == JS2VAL_TO_OBJECT(b));
|
|
|
|
if (op == eEqual)
|
|
push(BOOLEAN_TO_JS2VAL(rval));
|
|
else
|
|
push(BOOLEAN_TO_JS2VAL(!rval));
|
|
}
|
|
break;
|
|
|
|
case eLexicalAssignOp:
|
|
{
|
|
op = (JS2Op)*pc++;
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val a = meta->env.lexicalRead(meta, mn, phase);
|
|
js2val b = pop();
|
|
js2val rval;
|
|
switch (op) {
|
|
case eAdd:
|
|
{
|
|
a = toPrimitive(a);
|
|
b = toPrimitive(b);
|
|
if (JS2VAL_IS_STRING(a) || JS2VAL_IS_STRING(b)) {
|
|
String *astr = toString(a);
|
|
String *bstr = toString(b);
|
|
String *c = new String(*astr);
|
|
*c += *bstr;
|
|
rval = STRING_TO_JS2VAL(c);
|
|
}
|
|
else {
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum + bnum);
|
|
}
|
|
}
|
|
break;
|
|
case eSubtract:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum - bnum);
|
|
}
|
|
break;
|
|
case eMultiply:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum * bnum);
|
|
}
|
|
break;
|
|
|
|
case eDivide:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum / bnum);
|
|
}
|
|
break;
|
|
|
|
case eModulo:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
#ifdef XP_PC
|
|
/* Workaround MS fmod bug where 42 % (1/0) => NaN, not 42. */
|
|
if (JSDOUBLE_IS_FINITE(anum) && JSDOUBLE_IS_INFINITE(bnum))
|
|
rval = anum;
|
|
else
|
|
#endif
|
|
rval = allocNumber(fd::fmod(anum, bnum));
|
|
}
|
|
break;
|
|
|
|
case eLeftShift:
|
|
{
|
|
int32 count = toInteger(b) & 0x1F;
|
|
rval = allocNumber(toInteger(a) << count);
|
|
}
|
|
break;
|
|
case eRightShift:
|
|
{
|
|
int32 count = toInteger(b) & 0x1F;
|
|
rval = allocNumber(toInteger(a) >> count);
|
|
}
|
|
break;
|
|
case eLogicalRightShift:
|
|
{
|
|
int32 count = toInteger(b) & 0x1F;
|
|
rval = allocNumber(toUInt32(toInteger(a)) >> count);
|
|
}
|
|
break;
|
|
case eBitwiseAnd:
|
|
{
|
|
rval = allocNumber(toInteger(a) & toInteger(b));
|
|
}
|
|
break;
|
|
case eBitwiseXor:
|
|
{
|
|
rval = allocNumber(toInteger(a) ^ toInteger(b));
|
|
}
|
|
break;
|
|
case eBitwiseOr:
|
|
{
|
|
rval = allocNumber(toInteger(a) | toInteger(b));
|
|
}
|
|
break;
|
|
}
|
|
meta->env.lexicalWrite(meta, mn, rval, true, phase);
|
|
push(rval);
|
|
}
|
|
break;
|
|
|
|
case eLexicalPostInc:
|
|
{
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val rval = meta->env.lexicalRead(meta, mn, phase);
|
|
float64 num = toNumber(rval);
|
|
meta->env.lexicalWrite(meta, mn, allocNumber(num + 1.0), true, phase);
|
|
pushNumber(num);
|
|
}
|
|
break;
|
|
case eLexicalPostDec:
|
|
{
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val rval = meta->env.lexicalRead(meta, mn, phase);
|
|
float64 num = toNumber(rval);
|
|
meta->env.lexicalWrite(meta, mn, allocNumber(num - 1.0), true, phase);
|
|
pushNumber(num);
|
|
}
|
|
break;
|
|
case eLexicalPreInc:
|
|
{
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val rval = meta->env.lexicalRead(meta, mn, phase);
|
|
float64 num = toNumber(rval);
|
|
rval = pushNumber(num + 1.0);
|
|
meta->env.lexicalWrite(meta, mn, rval, true, phase);
|
|
}
|
|
break;
|
|
case eLexicalPreDec:
|
|
{
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val rval = meta->env.lexicalRead(meta, mn, phase);
|
|
float64 num = toNumber(rval);
|
|
rval = pushNumber(num - 1.0);
|
|
meta->env.lexicalWrite(meta, mn, rval, true, phase);
|
|
}
|
|
break;
|
|
|
|
case eDotAssignOp:
|
|
{
|
|
op = (JS2Op)*pc++;
|
|
LookupKind lookup(false, NULL);
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val b = pop();
|
|
js2val baseVal = pop();
|
|
js2val a;
|
|
if (!meta->readProperty(baseVal, mn, &lookup, RunPhase, &a))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name);
|
|
js2val rval;
|
|
switch (op) {
|
|
case eAdd:
|
|
{
|
|
a = toPrimitive(a);
|
|
b = toPrimitive(b);
|
|
if (JS2VAL_IS_STRING(a) || JS2VAL_IS_STRING(b)) {
|
|
String *astr = toString(a);
|
|
String *bstr = toString(b);
|
|
String *c = new String(*astr);
|
|
*c += *bstr;
|
|
rval = STRING_TO_JS2VAL(c);
|
|
}
|
|
else {
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum + bnum);
|
|
}
|
|
}
|
|
break;
|
|
case eSubtract:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum - bnum);
|
|
}
|
|
break;
|
|
case eMultiply:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum * bnum);
|
|
}
|
|
break;
|
|
|
|
case eDivide:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum / bnum);
|
|
}
|
|
break;
|
|
|
|
case eModulo:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
#ifdef XP_PC
|
|
/* Workaround MS fmod bug where 42 % (1/0) => NaN, not 42. */
|
|
if (JSDOUBLE_IS_FINITE(anum) && JSDOUBLE_IS_INFINITE(bnum))
|
|
rval = anum;
|
|
else
|
|
#endif
|
|
rval = allocNumber(fd::fmod(anum, bnum));
|
|
}
|
|
break;
|
|
|
|
case eLeftShift:
|
|
{
|
|
int32 count = toInteger(b) & 0x1F;
|
|
rval = allocNumber(toInteger(a) << count);
|
|
}
|
|
break;
|
|
case eRightShift:
|
|
{
|
|
int32 count = toInteger(b) & 0x1F;
|
|
rval = allocNumber(toInteger(a) >> count);
|
|
}
|
|
break;
|
|
case eLogicalRightShift:
|
|
{
|
|
int32 count = toInteger(b) & 0x1F;
|
|
rval = allocNumber(toUInt32(toInteger(a)) >> count);
|
|
}
|
|
break;
|
|
case eBitwiseAnd:
|
|
{
|
|
rval = allocNumber(toInteger(a) & toInteger(b));
|
|
}
|
|
break;
|
|
case eBitwiseXor:
|
|
{
|
|
rval = allocNumber(toInteger(a) ^ toInteger(b));
|
|
}
|
|
break;
|
|
case eBitwiseOr:
|
|
{
|
|
rval = allocNumber(toInteger(a) | toInteger(b));
|
|
}
|
|
break;
|
|
}
|
|
meta->writeProperty(baseVal, mn, &lookup, true, rval, RunPhase);
|
|
push(rval);
|
|
}
|
|
break;
|
|
|
|
case eDotPostInc:
|
|
{
|
|
LookupKind lookup(false, NULL);
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val baseVal = pop();
|
|
js2val rval;
|
|
if (!meta->readProperty(baseVal, mn, &lookup, RunPhase, &rval))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name);
|
|
float64 num = toNumber(rval);
|
|
meta->writeProperty(baseVal, mn, &lookup, true, allocNumber(num + 1.0), RunPhase);
|
|
pushNumber(num);
|
|
}
|
|
break;
|
|
case eDotPostDec:
|
|
{
|
|
LookupKind lookup(false, NULL);
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val baseVal = pop();
|
|
js2val rval;
|
|
if (!meta->readProperty(baseVal, mn, &lookup, RunPhase, &rval))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name);
|
|
float64 num = toNumber(rval);
|
|
meta->writeProperty(baseVal, mn, &lookup, true, allocNumber(num - 1.0), RunPhase);
|
|
pushNumber(num);
|
|
}
|
|
break;
|
|
case eDotPreInc:
|
|
{
|
|
LookupKind lookup(false, NULL);
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val baseVal = pop();
|
|
js2val rval;
|
|
if (!meta->readProperty(baseVal, mn, &lookup, RunPhase, &rval))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name);
|
|
float64 num = toNumber(rval);
|
|
rval = pushNumber(num + 1.0);
|
|
meta->writeProperty(baseVal, mn, &lookup, true, rval, RunPhase);
|
|
}
|
|
break;
|
|
case eDotPreDec:
|
|
{
|
|
LookupKind lookup(false, NULL);
|
|
Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
|
|
pc += sizeof(short);
|
|
js2val baseVal = pop();
|
|
js2val rval;
|
|
if (!meta->readProperty(baseVal, mn, &lookup, RunPhase, &rval))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name);
|
|
float64 num = toNumber(rval);
|
|
rval = pushNumber(num - 1.0);
|
|
meta->writeProperty(baseVal, mn, &lookup, true, rval, RunPhase);
|
|
}
|
|
break;
|
|
|
|
case eBracketAssignOp:
|
|
{
|
|
op = (JS2Op)*pc++;
|
|
LookupKind lookup(false, NULL);
|
|
js2val b = pop();
|
|
js2val indexVal = pop();
|
|
js2val baseVal = pop();
|
|
js2val a;
|
|
String *indexStr = toString(indexVal);
|
|
Multiname mn(meta->world.identifiers[*indexStr], meta->publicNamespace);
|
|
if (!meta->readProperty(baseVal, &mn, &lookup, RunPhase, &a))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name);
|
|
js2val rval;
|
|
switch (op) {
|
|
case eAdd:
|
|
{
|
|
a = toPrimitive(a);
|
|
b = toPrimitive(b);
|
|
if (JS2VAL_IS_STRING(a) || JS2VAL_IS_STRING(b)) {
|
|
String *astr = toString(a);
|
|
String *bstr = toString(b);
|
|
String *c = new String(*astr);
|
|
*c += *bstr;
|
|
rval = STRING_TO_JS2VAL(c);
|
|
}
|
|
else {
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum + bnum);
|
|
}
|
|
}
|
|
break;
|
|
case eSubtract:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum - bnum);
|
|
}
|
|
break;
|
|
case eMultiply:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum * bnum);
|
|
}
|
|
break;
|
|
|
|
case eDivide:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
rval = allocNumber(anum / bnum);
|
|
}
|
|
break;
|
|
|
|
case eModulo:
|
|
{
|
|
float64 anum = toNumber(a);
|
|
float64 bnum = toNumber(b);
|
|
#ifdef XP_PC
|
|
/* Workaround MS fmod bug where 42 % (1/0) => NaN, not 42. */
|
|
if (JSDOUBLE_IS_FINITE(anum) && JSDOUBLE_IS_INFINITE(bnum))
|
|
rval = anum;
|
|
else
|
|
#endif
|
|
rval = allocNumber(fd::fmod(anum, bnum));
|
|
}
|
|
break;
|
|
|
|
case eLeftShift:
|
|
{
|
|
int32 count = toInteger(b) & 0x1F;
|
|
rval = allocNumber(toInteger(a) << count);
|
|
}
|
|
break;
|
|
case eRightShift:
|
|
{
|
|
int32 count = toInteger(b) & 0x1F;
|
|
rval = allocNumber(toInteger(a) >> count);
|
|
}
|
|
break;
|
|
case eLogicalRightShift:
|
|
{
|
|
int32 count = toInteger(b) & 0x1F;
|
|
rval = allocNumber(toUInt32(toInteger(a)) >> count);
|
|
}
|
|
break;
|
|
case eBitwiseAnd:
|
|
{
|
|
rval = allocNumber(toInteger(a) & toInteger(b));
|
|
}
|
|
break;
|
|
case eBitwiseXor:
|
|
{
|
|
rval = allocNumber(toInteger(a) ^ toInteger(b));
|
|
}
|
|
break;
|
|
case eBitwiseOr:
|
|
{
|
|
rval = allocNumber(toInteger(a) | toInteger(b));
|
|
}
|
|
break;
|
|
}
|
|
meta->writeProperty(baseVal, &mn, &lookup, true, rval, RunPhase);
|
|
push(rval);
|
|
}
|
|
break;
|
|
|
|
case eBracketPostInc:
|
|
{
|
|
LookupKind lookup(false, NULL);
|
|
js2val indexVal = pop();
|
|
js2val baseVal = pop();
|
|
String *indexStr = toString(indexVal);
|
|
Multiname mn(meta->world.identifiers[*indexStr], meta->publicNamespace);
|
|
js2val rval;
|
|
if (!meta->readProperty(baseVal, &mn, &lookup, RunPhase, &rval))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name);
|
|
float64 num = toNumber(rval);
|
|
meta->writeProperty(baseVal, &mn, &lookup, true, allocNumber(num + 1.0), RunPhase);
|
|
pushNumber(num);
|
|
}
|
|
break;
|
|
case eBracketPostDec:
|
|
{
|
|
LookupKind lookup(false, NULL);
|
|
js2val indexVal = pop();
|
|
js2val baseVal = pop();
|
|
String *indexStr = toString(indexVal);
|
|
Multiname mn(meta->world.identifiers[*indexStr], meta->publicNamespace);
|
|
js2val rval;
|
|
if (!meta->readProperty(baseVal, &mn, &lookup, RunPhase, &rval))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name);
|
|
float64 num = toNumber(rval);
|
|
meta->writeProperty(baseVal, &mn, &lookup, true, allocNumber(num - 1.0), RunPhase);
|
|
pushNumber(num);
|
|
}
|
|
break;
|
|
case eBracketPreInc:
|
|
{
|
|
LookupKind lookup(false, NULL);
|
|
js2val indexVal = pop();
|
|
js2val baseVal = pop();
|
|
String *indexStr = toString(indexVal);
|
|
Multiname mn(meta->world.identifiers[*indexStr], meta->publicNamespace);
|
|
js2val rval;
|
|
if (!meta->readProperty(baseVal, &mn, &lookup, RunPhase, &rval))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name);
|
|
float64 num = toNumber(rval);
|
|
rval = pushNumber(num + 1.0);
|
|
meta->writeProperty(baseVal, &mn, &lookup, true, rval, RunPhase);
|
|
}
|
|
break;
|
|
case eBracketPreDec:
|
|
{
|
|
LookupKind lookup(false, NULL);
|
|
js2val indexVal = pop();
|
|
js2val baseVal = pop();
|
|
String *indexStr = toString(indexVal);
|
|
Multiname mn(meta->world.identifiers[*indexStr], meta->publicNamespace);
|
|
js2val rval;
|
|
if (!meta->readProperty(baseVal, &mn, &lookup, RunPhase, &rval))
|
|
meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name);
|
|
float64 num = toNumber(rval);
|
|
rval = pushNumber(num - 1.0);
|
|
meta->writeProperty(baseVal, &mn, &lookup, true, rval, RunPhase);
|
|
}
|
|
break;
|