344 lines
15 KiB
C++
344 lines
15 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 eNew:
|
|
{
|
|
uint16 argCount = BytecodeContainer::getShort(pc);
|
|
pc += sizeof(uint16);
|
|
a = top(argCount + 1);
|
|
if (!JS2VAL_IS_OBJECT(a) || JS2VAL_IS_NULL(a)) {
|
|
meta->reportError(Exception::badValueError, "object is not a constructor", errorPos());
|
|
}
|
|
JS2Object *obj = JS2VAL_TO_OBJECT(a);
|
|
if (obj->kind == ClassKind) {
|
|
JS2Class *c = checked_cast<JS2Class *>(obj);
|
|
a = c->construct(meta, a, base(argCount), argCount);
|
|
pop(argCount + 1);
|
|
push(a);
|
|
}
|
|
else {
|
|
FunctionWrapper *fWrap = NULL;
|
|
if ((obj->kind == SimpleInstanceKind)
|
|
&& (meta->objectType(a) == meta->functionClass)) {
|
|
fWrap = (checked_cast<SimpleInstance *>(obj))->fWrap;
|
|
}
|
|
if (fWrap) {
|
|
// XXX - I made this stuff up - extract the 'prototype' property from
|
|
// the function being invoked (defaulting to Object.prototype). Then
|
|
// construct a new prototypeInstance, setting the acquired prototype
|
|
// parent. Finally invoke the function, but insert the constructed
|
|
// object at the bottom of the stack to be the 'return' value.
|
|
// XXX this won't last - if a non-primitive is returned from the function,
|
|
// it's supposed to supplant the constructed object. XXX and I think the
|
|
// stack is out of balance anyway...
|
|
js2val protoVal = OBJECT_TO_JS2VAL(meta->objectClass->prototype);
|
|
Multiname mn(prototype_StringAtom); // gc safe because the content is rooted elsewhere
|
|
LookupKind lookup(true, JS2VAL_NULL); // make it a lexical lookup since we want it to
|
|
// fail if 'prototype' hasn't been defined
|
|
// XXX (prototype should always exist for functions)
|
|
JS2Class *limit = meta->objectType(a);
|
|
if (limit->read(meta, a, limit, &mn, &lookup, RunPhase, &protoVal)) {
|
|
if (!JS2VAL_IS_OBJECT(protoVal))
|
|
meta->reportError(Exception::badValueError, "Non-object prototype value", errorPos());
|
|
}
|
|
|
|
if (fWrap->code) { // native code, pass pointer to argument base
|
|
a = fWrap->code(meta, a, base(argCount), argCount);
|
|
pop(argCount + 1);
|
|
push(a);
|
|
}
|
|
else {
|
|
pFrame = new ParameterFrame(fWrap->compileFrame);
|
|
pFrame->instantiate(meta->env);
|
|
baseVal = OBJECT_TO_JS2VAL(new SimpleInstance(meta, protoVal, meta->objectType(protoVal)));
|
|
pFrame->thisObject = baseVal;
|
|
pFrame->assignArguments(meta, obj, base(argCount), argCount);
|
|
jsr(phase, fWrap->bCon, base(argCount + 1) - execStack, baseVal, fWrap->env); // seems out of order, but we need to catch the current top frame
|
|
meta->env->addFrame(pFrame);
|
|
pFrame = NULL;
|
|
}
|
|
}
|
|
else
|
|
meta->reportError(Exception::typeError, "object is not a constructor", errorPos());
|
|
}
|
|
}
|
|
break;
|
|
|
|
case eCall:
|
|
{
|
|
// XXX Remove the arguments from the stack, (native calls have done this already)
|
|
// (important that they're tracked for gc in any mechanism)
|
|
uint16 argCount = BytecodeContainer::getShort(pc);
|
|
pc += sizeof(uint16);
|
|
a = top(argCount + 2); // 'this'
|
|
b = top(argCount + 1); // target function
|
|
if (JS2VAL_IS_PRIMITIVE(b))
|
|
meta->reportError(Exception::badValueError, "{0} is not a function", errorPos(), JS2VAL_TO_STRING(typeofString(b)));
|
|
JS2Object *fObj = JS2VAL_TO_OBJECT(b);
|
|
FunctionWrapper *fWrap = NULL;
|
|
if ((fObj->kind == SimpleInstanceKind)
|
|
&& (meta->objectType(b) == meta->functionClass)) {
|
|
fWrap = (checked_cast<SimpleInstance *>(fObj))->fWrap;
|
|
}
|
|
if (fWrap) {
|
|
if (fWrap->compileFrame->prototype) {
|
|
if (JS2VAL_IS_VOID(a) || JS2VAL_IS_NULL(a)) {
|
|
Frame *g = meta->env->getPackageFrame();
|
|
a = OBJECT_TO_JS2VAL(g);
|
|
}
|
|
}
|
|
if (fWrap->code) { // native code
|
|
a = fWrap->code(meta, a, base(argCount), argCount);
|
|
pop(argCount + 2);
|
|
push(a);
|
|
}
|
|
else {
|
|
pFrame = new ParameterFrame(fWrap->compileFrame);
|
|
pFrame->instantiate(meta->env);
|
|
pFrame->thisObject = a;
|
|
// assignArguments(runtimeFrame, fWrap->compileFrame->signature);
|
|
// XXX
|
|
pFrame->assignArguments(meta, fObj, base(argCount), argCount);
|
|
jsr(phase, fWrap->bCon, base(argCount + 2) - execStack, JS2VAL_VOID, fWrap->env); // seems out of order, but we need to catch the current top frame
|
|
meta->env->addFrame(pFrame);
|
|
pFrame = NULL;
|
|
}
|
|
}
|
|
else
|
|
if (fObj->kind == MethodClosureKind) { // XXX I made this up (particularly the frame push of the objectType)
|
|
MethodClosure *mc = checked_cast<MethodClosure *>(fObj);
|
|
SimpleInstance *fInst = mc->method->fInst;
|
|
FunctionWrapper *fWrap = fInst->fWrap;
|
|
|
|
if (fWrap->code) {
|
|
a = fWrap->code(meta, mc->thisObject, base(argCount), argCount);
|
|
pop(argCount + 2);
|
|
push(a);
|
|
}
|
|
else {
|
|
pFrame = new ParameterFrame(fWrap->compileFrame);
|
|
pFrame->instantiate(meta->env);
|
|
pFrame->thisObject = mc->thisObject;
|
|
// assignArguments(runtimeFrame, fWrap->compileFrame->signature);
|
|
pFrame->assignArguments(meta, fObj, base(argCount), argCount);
|
|
jsr(phase, fWrap->bCon, base(argCount + 2) - execStack, JS2VAL_VOID, fWrap->env); // seems out of order, but we need to catch the current top frame
|
|
meta->env->addFrame(meta->objectType(mc->thisObject));
|
|
meta->env->addFrame(pFrame);
|
|
pFrame = NULL;
|
|
}
|
|
}
|
|
else
|
|
if (fObj->kind == ClassKind) {
|
|
JS2Class *c = checked_cast<JS2Class *>(fObj);
|
|
if (c->call)
|
|
a = c->call(meta, JS2VAL_NULL, base(argCount), argCount);
|
|
else
|
|
a = JS2VAL_UNDEFINED;
|
|
pop(argCount + 2);
|
|
push(a);
|
|
}
|
|
else
|
|
meta->reportError(Exception::badValueError, "{0} is not a function", errorPos(), JS2VAL_TO_STRING(typeofString(b)));
|
|
}
|
|
break;
|
|
|
|
case ePopv:
|
|
{
|
|
retval = pop();
|
|
}
|
|
break;
|
|
|
|
case eVoid:
|
|
{
|
|
pop();
|
|
push(JS2VAL_VOID);
|
|
}
|
|
break;
|
|
|
|
case eReturn:
|
|
{
|
|
retval = top();
|
|
rts();
|
|
if (pc == NULL)
|
|
return retval;
|
|
push(retval);
|
|
}
|
|
break;
|
|
|
|
case eReturnVoid:
|
|
{
|
|
rts();
|
|
if (pc == NULL)
|
|
return retval;
|
|
push(retval);
|
|
}
|
|
break;
|
|
|
|
case ePushFrame:
|
|
{
|
|
Frame *f = checked_cast<Frame *>(bCon->mObjectList[BytecodeContainer::getShort(pc)]);
|
|
pc += sizeof(short);
|
|
meta->env->addFrame(f);
|
|
f->instantiate(meta->env);
|
|
}
|
|
break;
|
|
|
|
case eWithin:
|
|
{
|
|
a = pop();
|
|
a = meta->toObject(a);
|
|
meta->env->addFrame(new WithFrame(JS2VAL_TO_OBJECT(a)));
|
|
}
|
|
break;
|
|
|
|
case ePopFrame:
|
|
case eWithout:
|
|
{
|
|
meta->env->removeTopFrame();
|
|
}
|
|
break;
|
|
|
|
case eIs:
|
|
{
|
|
b = pop();
|
|
a = pop(); // doing a is b
|
|
|
|
if (!JS2VAL_IS_OBJECT(b))
|
|
meta->reportError(Exception::badValueError, "Type expected", errorPos());
|
|
JS2Object *obj = JS2VAL_TO_OBJECT(b);
|
|
if (obj->kind != ClassKind)
|
|
meta->reportError(Exception::badValueError, "Type expected", errorPos());
|
|
JS2Class *isClass = checked_cast<JS2Class *>(obj);
|
|
push(BOOLEAN_TO_JS2VAL(meta->objectType(a) == isClass));
|
|
}
|
|
break;
|
|
|
|
case eInstanceof: // XXX prototype version
|
|
{
|
|
b = pop();
|
|
a = pop(); // doing a instanceof b
|
|
|
|
if (!JS2VAL_IS_OBJECT(b))
|
|
meta->reportError(Exception::typeError, "Object expected for instanceof", errorPos());
|
|
JS2Object *obj = JS2VAL_TO_OBJECT(b);
|
|
if ((obj->kind == SimpleInstanceKind)
|
|
&& (checked_cast<SimpleInstance *>(obj)->type == meta->functionClass)) {
|
|
// XXX this is [[hasInstance]] from ECMA3
|
|
if (!JS2VAL_IS_OBJECT(a))
|
|
push(JS2VAL_FALSE);
|
|
else {
|
|
JS2Object *aObj = JS2VAL_TO_OBJECT(a);
|
|
if (aObj->kind != SimpleInstanceKind)
|
|
meta->reportError(Exception::typeError, "Prototype instance expected for instanceof", errorPos());
|
|
js2val a_protoVal = checked_cast<SimpleInstance *>(aObj)->super;
|
|
|
|
js2val b_protoVal;
|
|
Multiname mn(prototype_StringAtom); // gc safe because the content is rooted elsewhere
|
|
LookupKind lookup(true, JS2VAL_NULL); // make it a lexical lookup since we want it to
|
|
// fail if 'prototype' hasn't been defined
|
|
// XXX (prototype should always exist for functions)
|
|
JS2Class *limit = meta->objectType(b);
|
|
if (limit->read(meta, b, limit, &mn, &lookup, RunPhase, &b_protoVal)) {
|
|
if (!JS2VAL_IS_OBJECT(b_protoVal))
|
|
meta->reportError(Exception::typeError, "Non-object prototype value in instanceOf", errorPos());
|
|
}
|
|
bool result = false;
|
|
while (!JS2VAL_IS_NULL(a_protoVal) && !JS2VAL_IS_UNDEFINED(a_protoVal)) {
|
|
if (b_protoVal == a_protoVal) {
|
|
result = true;
|
|
break;
|
|
}
|
|
if (!JS2VAL_IS_OBJECT(a_protoVal))
|
|
meta->reportError(Exception::typeError, "Non-object prototype value in instanceOf", errorPos());
|
|
aObj = JS2VAL_TO_OBJECT(a_protoVal);
|
|
if (aObj->kind != SimpleInstanceKind)
|
|
meta->reportError(Exception::typeError, "Prototype instance expected for instanceof", errorPos());
|
|
a_protoVal = checked_cast<SimpleInstance *>(aObj)->super;
|
|
}
|
|
push(BOOLEAN_TO_JS2VAL(result));
|
|
}
|
|
}
|
|
else { // XXX also support a instanceof <<class>> since some of these are
|
|
// the ECMA3 builtins.
|
|
if (obj->kind == ClassKind) {
|
|
if (!JS2VAL_IS_OBJECT(a))
|
|
push(JS2VAL_FALSE);
|
|
else {
|
|
JS2Object *aObj = JS2VAL_TO_OBJECT(a);
|
|
if (aObj->kind != SimpleInstanceKind)
|
|
meta->reportError(Exception::typeError, "Prototype instance expected for instanceof", errorPos());
|
|
js2val a_protoVal = checked_cast<SimpleInstance *>(aObj)->super;
|
|
|
|
js2val b_protoVal = checked_cast<JS2Class *>(obj)->prototype;
|
|
|
|
bool result = false;
|
|
while (!JS2VAL_IS_NULL(a_protoVal) && !JS2VAL_IS_UNDEFINED(a_protoVal)) {
|
|
if (b_protoVal == a_protoVal) {
|
|
result = true;
|
|
break;
|
|
}
|
|
if (!JS2VAL_IS_OBJECT(a_protoVal))
|
|
meta->reportError(Exception::typeError, "Non-object prototype value in instanceOf", errorPos());
|
|
aObj = JS2VAL_TO_OBJECT(a_protoVal);
|
|
if (aObj->kind != SimpleInstanceKind)
|
|
meta->reportError(Exception::typeError, "Prototype instance expected for instanceof", errorPos());
|
|
a_protoVal = checked_cast<SimpleInstance *>(aObj)->super;
|
|
}
|
|
push(BOOLEAN_TO_JS2VAL(result));
|
|
}
|
|
}
|
|
else
|
|
meta->reportError(Exception::typeError, "Function or Class expected in instanceOf", errorPos());
|
|
}
|
|
|
|
}
|
|
break;
|
|
|
|
case eTypeof:
|
|
{
|
|
a = pop();
|
|
push(typeofString(a));
|
|
}
|
|
break;
|
|
|
|
case eCoerce:
|
|
{
|
|
JS2Class *c = BytecodeContainer::getType(pc);
|
|
pc += sizeof(JS2Class *);
|
|
a = pop();
|
|
push(c->implicitCoerce(meta, a));
|
|
}
|
|
break;
|