git.oblomov.eu Git - wine/blob - dlls/jscript/engine.c

   1 /*
   2  * Copyright 2008,2011 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "config.h"
  20 #include "wine/port.h"
  21
  22 #include <math.h>
  23 #include <assert.h>
  24
  25 #include "jscript.h"
  26 #include "engine.h"
  27
  28 #include "wine/debug.h"
  29
  30 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
  31
  32 static const WCHAR booleanW[] = {'b','o','o','l','e','a','n',0};
  33 static const WCHAR functionW[] = {'f','u','n','c','t','i','o','n',0};
  34 static const WCHAR numberW[] = {'n','u','m','b','e','r',0};
  35 static const WCHAR objectW[] = {'o','b','j','e','c','t',0};
  36 static const WCHAR stringW[] = {'s','t','r','i','n','g',0};
  37 static const WCHAR undefinedW[] = {'u','n','d','e','f','i','n','e','d',0};
  38 static const WCHAR unknownW[] = {'u','n','k','n','o','w','n',0};
  39
  40 struct _except_frame_t {
  41     unsigned stack_top;
  42     scope_chain_t *scope;
  43     unsigned catch_off;
  44     BSTR ident;
  45
  46     except_frame_t *next;
  47 };
  48
  49 static HRESULT stack_push(exec_ctx_t *ctx, VARIANT *v)
  50 {
  51     if(!ctx->stack_size) {
  52         ctx->stack = heap_alloc(16*sizeof(VARIANT));
  53         if(!ctx->stack)
  54             return E_OUTOFMEMORY;
  55         ctx->stack_size = 16;
  56     }else if(ctx->stack_size == ctx->top) {
  57         VARIANT *new_stack;
  58
  59         new_stack = heap_realloc(ctx->stack, ctx->stack_size*2*sizeof(VARIANT));
  60         if(!new_stack) {
  61             VariantClear(v);
  62             return E_OUTOFMEMORY;
  63         }
  64
  65         ctx->stack = new_stack;
  66         ctx->stack_size *= 2;
  67     }
  68
  69     ctx->stack[ctx->top++] = *v;
  70     return S_OK;
  71 }
  72
  73 static HRESULT stack_push_bool(exec_ctx_t *ctx, BOOL b)
  74 {
  75     VARIANT v;
  76
  77     V_VT(&v) = VT_BOOL;
  78     V_BOOL(&v) = b ? VARIANT_TRUE : VARIANT_FALSE;
  79     return stack_push(ctx, &v);
  80 }
  81
  82 static inline HRESULT stack_push_number(exec_ctx_t *ctx, double number)
  83 {
  84     VARIANT v;
  85
  86     num_set_val(&v, number);
  87     return stack_push(ctx, &v);
  88 }
  89
  90 static inline HRESULT stack_push_int(exec_ctx_t *ctx, INT n)
  91 {
  92     VARIANT v;
  93
  94     V_VT(&v) = VT_I4;
  95     V_I4(&v) = n;
  96     return stack_push(ctx, &v);
  97 }
  98
  99 static inline HRESULT stack_push_string(exec_ctx_t *ctx, const WCHAR *str)
 100 {
 101     VARIANT v;
 102
 103     V_VT(&v) = VT_BSTR;
 104     V_BSTR(&v) = SysAllocString(str);
 105     return V_BSTR(&v) ? stack_push(ctx, &v) : E_OUTOFMEMORY;
 106 }
 107
 108 static HRESULT stack_push_objid(exec_ctx_t *ctx, IDispatch *disp, DISPID id)
 109 {
 110     VARIANT v;
 111     HRESULT hres;
 112
 113     V_VT(&v) = VT_DISPATCH;
 114     V_DISPATCH(&v) = disp;
 115     hres = stack_push(ctx, &v);
 116     if(FAILED(hres))
 117         return hres;
 118
 119     V_VT(&v) = VT_INT;
 120     V_INT(&v) = id;
 121     return stack_push(ctx, &v);
 122 }
 123
 124 static inline VARIANT *stack_top(exec_ctx_t *ctx)
 125 {
 126     assert(ctx->top);
 127     return ctx->stack + ctx->top-1;
 128 }
 129
 130 static inline VARIANT *stack_topn(exec_ctx_t *ctx, unsigned n)
 131 {
 132     assert(ctx->top > n);
 133     return ctx->stack + ctx->top-1-n;
 134 }
 135
 136 static inline VARIANT *stack_pop(exec_ctx_t *ctx)
 137 {
 138     assert(ctx->top);
 139     return ctx->stack + --ctx->top;
 140 }
 141
 142 static void stack_popn(exec_ctx_t *ctx, unsigned n)
 143 {
 144     while(n--)
 145         VariantClear(stack_pop(ctx));
 146 }
 147
 148 static HRESULT stack_pop_number(exec_ctx_t *ctx, double *r)
 149 {
 150     VARIANT *v;
 151     HRESULT hres;
 152
 153     v = stack_pop(ctx);
 154     hres = to_number(ctx->script, v, ctx->ei, r);
 155     VariantClear(v);
 156     return hres;
 157 }
 158
 159 static HRESULT stack_pop_object(exec_ctx_t *ctx, IDispatch **r)
 160 {
 161     VARIANT *v;
 162     HRESULT hres;
 163
 164     v = stack_pop(ctx);
 165     if(V_VT(v) == VT_DISPATCH) {
 166         if(!V_DISPATCH(v))
 167             return throw_type_error(ctx->script, ctx->ei, JS_E_OBJECT_REQUIRED, NULL);
 168         *r = V_DISPATCH(v);
 169         return S_OK;
 170     }
 171
 172     hres = to_object(ctx->script, v, r);
 173     VariantClear(v);
 174     return hres;
 175 }
 176
 177 static inline HRESULT stack_pop_int(exec_ctx_t *ctx, INT *r)
 178 {
 179     return to_int32(ctx->script, stack_pop(ctx), ctx->ei, r);
 180 }
 181
 182 static inline HRESULT stack_pop_uint(exec_ctx_t *ctx, DWORD *r)
 183 {
 184     return to_uint32(ctx->script, stack_pop(ctx), ctx->ei, r);
 185 }
 186
 187 static inline IDispatch *stack_pop_objid(exec_ctx_t *ctx, DISPID *id)
 188 {
 189     assert(V_VT(stack_top(ctx)) == VT_INT && V_VT(stack_topn(ctx, 1)) == VT_DISPATCH);
 190
 191     *id = V_INT(stack_pop(ctx));
 192     return V_DISPATCH(stack_pop(ctx));
 193 }
 194
 195 static inline IDispatch *stack_topn_objid(exec_ctx_t *ctx, unsigned n, DISPID *id)
 196 {
 197     assert(V_VT(stack_topn(ctx, n)) == VT_INT && V_VT(stack_topn(ctx, n+1)) == VT_DISPATCH);
 198
 199     *id = V_INT(stack_topn(ctx, n));
 200     return V_DISPATCH(stack_topn(ctx, n+1));
 201 }
 202
 203 static void exprval_release(exprval_t *val)
 204 {
 205     switch(val->type) {
 206     case EXPRVAL_VARIANT:
 207         if(V_VT(&val->u.var) != VT_EMPTY)
 208             VariantClear(&val->u.var);
 209         return;
 210     case EXPRVAL_IDREF:
 211         if(val->u.idref.disp)
 212             IDispatch_Release(val->u.idref.disp);
 213         return;
 214     case EXPRVAL_INVALID:
 215         return;
 216     }
 217 }
 218
 219 /* ECMA-262 3rd Edition    8.7.1 */
 220 static HRESULT exprval_value(script_ctx_t *ctx, exprval_t *val, jsexcept_t *ei, VARIANT *ret)
 221 {
 222     V_VT(ret) = VT_EMPTY;
 223
 224     switch(val->type) {
 225     case EXPRVAL_VARIANT:
 226         return VariantCopy(ret, &val->u.var);
 227     case EXPRVAL_IDREF:
 228         if(!val->u.idref.disp) {
 229             FIXME("throw ReferenceError\n");
 230             return E_FAIL;
 231         }
 232
 233         return disp_propget(ctx, val->u.idref.disp, val->u.idref.id, ret, ei);
 234     case EXPRVAL_INVALID:
 235         assert(0);
 236     }
 237
 238     ERR("type %d\n", val->type);
 239     return E_FAIL;
 240 }
 241
 242 static HRESULT exprval_to_value(script_ctx_t *ctx, exprval_t *val, jsexcept_t *ei, VARIANT *ret)
 243 {
 244     if(val->type == EXPRVAL_VARIANT) {
 245         *ret = val->u.var;
 246         V_VT(&val->u.var) = VT_EMPTY;
 247         return S_OK;
 248     }
 249
 250     return exprval_value(ctx, val, ei, ret);
 251 }
 252
 253 static void exprval_set_idref(exprval_t *val, IDispatch *disp, DISPID id)
 254 {
 255     val->type = EXPRVAL_IDREF;
 256     val->u.idref.disp = disp;
 257     val->u.idref.id = id;
 258
 259     if(disp)
 260         IDispatch_AddRef(disp);
 261 }
 262
 263 HRESULT scope_push(scope_chain_t *scope, jsdisp_t *obj, scope_chain_t **ret)
 264 {
 265     scope_chain_t *new_scope;
 266
 267     new_scope = heap_alloc(sizeof(scope_chain_t));
 268     if(!new_scope)
 269         return E_OUTOFMEMORY;
 270
 271     new_scope->ref = 1;
 272
 273     jsdisp_addref(obj);
 274     new_scope->obj = obj;
 275
 276     if(scope) {
 277         scope_addref(scope);
 278         new_scope->next = scope;
 279     }else {
 280         new_scope->next = NULL;
 281     }
 282
 283     *ret = new_scope;
 284     return S_OK;
 285 }
 286
 287 static void scope_pop(scope_chain_t **scope)
 288 {
 289     scope_chain_t *tmp;
 290
 291     tmp = *scope;
 292     *scope = tmp->next;
 293     scope_release(tmp);
 294 }
 295
 296 void scope_release(scope_chain_t *scope)
 297 {
 298     if(--scope->ref)
 299         return;
 300
 301     if(scope->next)
 302         scope_release(scope->next);
 303
 304     jsdisp_release(scope->obj);
 305     heap_free(scope);
 306 }
 307
 308 HRESULT create_exec_ctx(script_ctx_t *script_ctx, IDispatch *this_obj, jsdisp_t *var_disp,
 309         scope_chain_t *scope, BOOL is_global, exec_ctx_t **ret)
 310 {
 311     exec_ctx_t *ctx;
 312
 313     ctx = heap_alloc_zero(sizeof(exec_ctx_t));
 314     if(!ctx)
 315         return E_OUTOFMEMORY;
 316
 317     ctx->ref = 1;
 318     ctx->is_global = is_global;
 319
 320     if(this_obj)
 321         ctx->this_obj = this_obj;
 322     else if(script_ctx->host_global)
 323         ctx->this_obj = script_ctx->host_global;
 324     else
 325         ctx->this_obj = to_disp(script_ctx->global);
 326     IDispatch_AddRef(ctx->this_obj);
 327
 328     jsdisp_addref(var_disp);
 329     ctx->var_disp = var_disp;
 330
 331     script_addref(script_ctx);
 332     ctx->script = script_ctx;
 333
 334     if(scope) {
 335         scope_addref(scope);
 336         ctx->scope_chain = scope;
 337     }
 338
 339     *ret = ctx;
 340     return S_OK;
 341 }
 342
 343 void exec_release(exec_ctx_t *ctx)
 344 {
 345     if(--ctx->ref)
 346         return;
 347
 348     if(ctx->scope_chain)
 349         scope_release(ctx->scope_chain);
 350     if(ctx->var_disp)
 351         jsdisp_release(ctx->var_disp);
 352     if(ctx->this_obj)
 353         IDispatch_Release(ctx->this_obj);
 354     if(ctx->script)
 355         script_release(ctx->script);
 356     heap_free(ctx->stack);
 357     heap_free(ctx);
 358 }
 359
 360 static HRESULT disp_get_id(script_ctx_t *ctx, IDispatch *disp, BSTR name, DWORD flags, DISPID *id)
 361 {
 362     IDispatchEx *dispex;
 363     HRESULT hres;
 364
 365     hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
 366     if(FAILED(hres)) {
 367         TRACE("using IDispatch\n");
 368
 369         *id = 0;
 370         return IDispatch_GetIDsOfNames(disp, &IID_NULL, &name, 1, 0, id);
 371     }
 372
 373     *id = 0;
 374     hres = IDispatchEx_GetDispID(dispex, name, make_grfdex(ctx, flags|fdexNameCaseSensitive), id);
 375     IDispatchEx_Release(dispex);
 376     return hres;
 377 }
 378
 379 static inline BOOL is_null(const VARIANT *v)
 380 {
 381     return V_VT(v) == VT_NULL || (V_VT(v) == VT_DISPATCH && !V_DISPATCH(v));
 382 }
 383
 384 static HRESULT disp_cmp(IDispatch *disp1, IDispatch *disp2, BOOL *ret)
 385 {
 386     IObjectIdentity *identity;
 387     IUnknown *unk1, *unk2;
 388     HRESULT hres;
 389
 390     if(disp1 == disp2) {
 391         *ret = TRUE;
 392         return S_OK;
 393     }
 394
 395     if(!disp1 || !disp2) {
 396         *ret = FALSE;
 397         return S_OK;
 398     }
 399
 400     hres = IDispatch_QueryInterface(disp1, &IID_IUnknown, (void**)&unk1);
 401     if(FAILED(hres))
 402         return hres;
 403
 404     hres = IDispatch_QueryInterface(disp2, &IID_IUnknown, (void**)&unk2);
 405     if(FAILED(hres)) {
 406         IUnknown_Release(unk1);
 407         return hres;
 408     }
 409
 410     if(unk1 == unk2) {
 411         *ret = TRUE;
 412     }else {
 413         hres = IUnknown_QueryInterface(unk1, &IID_IObjectIdentity, (void**)&identity);
 414         if(SUCCEEDED(hres)) {
 415             hres = IObjectIdentity_IsEqualObject(identity, unk2);
 416             IObjectIdentity_Release(identity);
 417             *ret = hres == S_OK;
 418         }else {
 419             *ret = FALSE;
 420         }
 421     }
 422
 423     IUnknown_Release(unk1);
 424     IUnknown_Release(unk2);
 425     return S_OK;
 426 }
 427
 428 /* ECMA-262 3rd Edition    11.9.6 */
 429 static HRESULT equal2_values(VARIANT *lval, VARIANT *rval, BOOL *ret)
 430 {
 431     TRACE("\n");
 432
 433     if(V_VT(lval) != V_VT(rval)) {
 434         if(is_num_vt(V_VT(lval)) && is_num_vt(V_VT(rval)))
 435             *ret = num_val(lval) == num_val(rval);
 436         else if(is_null(lval))
 437             *ret = is_null(rval);
 438         else
 439             *ret = FALSE;
 440         return S_OK;
 441     }
 442
 443     switch(V_VT(lval)) {
 444     case VT_EMPTY:
 445     case VT_NULL:
 446         *ret = VARIANT_TRUE;
 447         break;
 448     case VT_I4:
 449         *ret = V_I4(lval) == V_I4(rval);
 450         break;
 451     case VT_R8:
 452         *ret = V_R8(lval) == V_R8(rval);
 453         break;
 454     case VT_BSTR:
 455         if(!V_BSTR(lval))
 456             *ret = SysStringLen(V_BSTR(rval))?FALSE:TRUE;
 457         else if(!V_BSTR(rval))
 458             *ret = SysStringLen(V_BSTR(lval))?FALSE:TRUE;
 459         else
 460             *ret = !strcmpW(V_BSTR(lval), V_BSTR(rval));
 461         break;
 462     case VT_DISPATCH:
 463         return disp_cmp(V_DISPATCH(lval), V_DISPATCH(rval), ret);
 464     case VT_BOOL:
 465         *ret = !V_BOOL(lval) == !V_BOOL(rval);
 466         break;
 467     default:
 468         FIXME("unimplemented vt %d\n", V_VT(lval));
 469         return E_NOTIMPL;
 470     }
 471
 472     return S_OK;
 473 }
 474
 475 static BOOL lookup_global_members(script_ctx_t *ctx, BSTR identifier, exprval_t *ret)
 476 {
 477     named_item_t *item;
 478     DISPID id;
 479     HRESULT hres;
 480
 481     for(item = ctx->named_items; item; item = item->next) {
 482         if(item->flags & SCRIPTITEM_GLOBALMEMBERS) {
 483             hres = disp_get_id(ctx, item->disp, identifier, 0, &id);
 484             if(SUCCEEDED(hres)) {
 485                 if(ret)
 486                     exprval_set_idref(ret, item->disp, id);
 487                 return TRUE;
 488             }
 489         }
 490     }
 491
 492     return FALSE;
 493 }
 494
 495 /* ECMA-262 3rd Edition    10.1.4 */
 496 static HRESULT identifier_eval(script_ctx_t *ctx, BSTR identifier, exprval_t *ret)
 497 {
 498     scope_chain_t *scope;
 499     named_item_t *item;
 500     DISPID id = 0;
 501     HRESULT hres;
 502
 503     TRACE("%s\n", debugstr_w(identifier));
 504
 505     for(scope = ctx->exec_ctx->scope_chain; scope; scope = scope->next) {
 506         hres = jsdisp_get_id(scope->obj, identifier, 0, &id);
 507         if(SUCCEEDED(hres)) {
 508             exprval_set_idref(ret, to_disp(scope->obj), id);
 509             return S_OK;
 510         }
 511     }
 512
 513     hres = jsdisp_get_id(ctx->global, identifier, 0, &id);
 514     if(SUCCEEDED(hres)) {
 515         exprval_set_idref(ret, to_disp(ctx->global), id);
 516         return S_OK;
 517     }
 518
 519     for(item = ctx->named_items; item; item = item->next) {
 520         if((item->flags & SCRIPTITEM_ISVISIBLE) && !strcmpW(item->name, identifier)) {
 521             if(!item->disp) {
 522                 IUnknown *unk;
 523
 524                 if(!ctx->site)
 525                     break;
 526
 527                 hres = IActiveScriptSite_GetItemInfo(ctx->site, identifier,
 528                                                      SCRIPTINFO_IUNKNOWN, &unk, NULL);
 529                 if(FAILED(hres)) {
 530                     WARN("GetItemInfo failed: %08x\n", hres);
 531                     break;
 532                 }
 533
 534                 hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&item->disp);
 535                 IUnknown_Release(unk);
 536                 if(FAILED(hres)) {
 537                     WARN("object does not implement IDispatch\n");
 538                     break;
 539                 }
 540             }
 541
 542             ret->type = EXPRVAL_VARIANT;
 543             V_VT(&ret->u.var) = VT_DISPATCH;
 544             V_DISPATCH(&ret->u.var) = item->disp;
 545             IDispatch_AddRef(item->disp);
 546             return S_OK;
 547         }
 548     }
 549
 550     if(lookup_global_members(ctx, identifier, ret))
 551         return S_OK;
 552
 553     ret->type = EXPRVAL_INVALID;
 554     return S_OK;
 555 }
 556
 557 static inline BSTR get_op_bstr(exec_ctx_t *ctx, int i){
 558     return ctx->code->instrs[ctx->ip].u.arg[i].bstr;
 559 }
 560
 561 static inline unsigned get_op_uint(exec_ctx_t *ctx, int i){
 562     return ctx->code->instrs[ctx->ip].u.arg[i].uint;
 563 }
 564
 565 static inline unsigned get_op_int(exec_ctx_t *ctx, int i){
 566     return ctx->code->instrs[ctx->ip].u.arg[i].lng;
 567 }
 568
 569 static inline const WCHAR *get_op_str(exec_ctx_t *ctx, int i){
 570     return ctx->code->instrs[ctx->ip].u.arg[i].str;
 571 }
 572
 573 static inline double get_op_double(exec_ctx_t *ctx){
 574     return ctx->code->instrs[ctx->ip].u.dbl;
 575 }
 576
 577 /* ECMA-262 3rd Edition    12.2 */
 578 static HRESULT interp_var_set(exec_ctx_t *ctx)
 579 {
 580     const BSTR name = get_op_bstr(ctx, 0);
 581     VARIANT *v;
 582     HRESULT hres;
 583
 584     TRACE("%s\n", debugstr_w(name));
 585
 586     v = stack_pop(ctx);
 587     hres = jsdisp_propput_name(ctx->var_disp, name, v, ctx->ei);
 588     VariantClear(v);
 589     return hres;
 590 }
 591
 592 /* ECMA-262 3rd Edition    12.6.4 */
 593 static HRESULT interp_forin(exec_ctx_t *ctx)
 594 {
 595     const HRESULT arg = get_op_uint(ctx, 0);
 596     IDispatch *var_obj, *obj = NULL;
 597     IDispatchEx *dispex;
 598     DISPID id, var_id;
 599     BSTR name = NULL;
 600     VARIANT *val;
 601     HRESULT hres;
 602
 603     TRACE("\n");
 604
 605     val = stack_pop(ctx);
 606
 607     assert(V_VT(stack_top(ctx)) == VT_I4);
 608     id = V_I4(stack_top(ctx));
 609
 610     var_obj = stack_topn_objid(ctx, 1, &var_id);
 611     if(!var_obj) {
 612         FIXME("invalid ref\n");
 613         VariantClear(val);
 614         return E_FAIL;
 615     }
 616
 617     if(V_VT(stack_topn(ctx, 3)) == VT_DISPATCH)
 618         obj = V_DISPATCH(stack_topn(ctx, 3));
 619
 620     if(obj) {
 621         hres = IDispatch_QueryInterface(obj, &IID_IDispatchEx, (void**)&dispex);
 622         if(SUCCEEDED(hres)) {
 623             hres = IDispatchEx_GetNextDispID(dispex, fdexEnumDefault, id, &id);
 624             if(hres == S_OK)
 625                 hres = IDispatchEx_GetMemberName(dispex, id, &name);
 626             IDispatchEx_Release(dispex);
 627             if(FAILED(hres)) {
 628                 VariantClear(val);
 629                 return hres;
 630             }
 631         }else {
 632             TRACE("No IDispatchEx\n");
 633         }
 634     }
 635
 636     if(name) {
 637         VARIANT v;
 638
 639         VariantClear(val);
 640
 641         V_I4(stack_top(ctx)) = id;
 642
 643         V_VT(&v) = VT_BSTR;
 644         V_BSTR(&v) = name;
 645         hres = disp_propput(ctx->script, var_obj, var_id, &v, ctx->ei);
 646         SysFreeString(name);
 647         if(FAILED(hres))
 648             return hres;
 649
 650         ctx->ip++;
 651     }else {
 652         stack_popn(ctx, 4);
 653         ctx->ip = arg;
 654         return stack_push(ctx, val);
 655     }
 656     return S_OK;
 657 }
 658
 659 /* ECMA-262 3rd Edition    12.10 */
 660 static HRESULT interp_push_scope(exec_ctx_t *ctx)
 661 {
 662     IDispatch *disp;
 663     jsdisp_t *obj;
 664     VARIANT *v;
 665     HRESULT hres;
 666
 667     TRACE("\n");
 668
 669     v = stack_pop(ctx);
 670     hres = to_object(ctx->script, v, &disp);
 671     VariantClear(v);
 672     if(FAILED(hres))
 673         return hres;
 674
 675     obj = to_jsdisp(disp);
 676     if(!obj) {
 677         IDispatch_Release(disp);
 678         FIXME("disp is not jsdisp\n");
 679         return E_NOTIMPL;
 680     }
 681
 682     hres = scope_push(ctx->scope_chain, obj, &ctx->scope_chain);
 683     jsdisp_release(obj);
 684     return hres;
 685 }
 686
 687 /* ECMA-262 3rd Edition    12.10 */
 688 static HRESULT interp_pop_scope(exec_ctx_t *ctx)
 689 {
 690     TRACE("\n");
 691
 692     scope_pop(&ctx->scope_chain);
 693     return S_OK;
 694 }
 695
 696 /* ECMA-262 3rd Edition    12.13 */
 697 static HRESULT interp_case(exec_ctx_t *ctx)
 698 {
 699     const unsigned arg = get_op_uint(ctx, 0);
 700     VARIANT *v;
 701     BOOL b;
 702     HRESULT hres;
 703
 704     TRACE("\n");
 705
 706     v = stack_pop(ctx);
 707     hres = equal2_values(stack_top(ctx), v, &b);
 708     VariantClear(v);
 709     if(FAILED(hres))
 710         return hres;
 711
 712     if(b) {
 713         stack_popn(ctx, 1);
 714         ctx->ip = arg;
 715     }else {
 716         ctx->ip++;
 717     }
 718     return S_OK;
 719 }
 720
 721 /* ECMA-262 3rd Edition    12.13 */
 722 static HRESULT interp_throw(exec_ctx_t *ctx)
 723 {
 724     TRACE("\n");
 725
 726     ctx->ei->var = *stack_pop(ctx);
 727     return DISP_E_EXCEPTION;
 728 }
 729
 730 static HRESULT interp_throw_ref(exec_ctx_t *ctx)
 731 {
 732     const HRESULT arg = get_op_uint(ctx, 0);
 733
 734     TRACE("%08x\n", arg);
 735
 736     return throw_reference_error(ctx->script, ctx->ei, arg, NULL);
 737 }
 738
 739 static HRESULT interp_throw_type(exec_ctx_t *ctx)
 740 {
 741     const HRESULT hres = get_op_uint(ctx, 0);
 742     const WCHAR *str = get_op_str(ctx, 1);
 743
 744     TRACE("%08x %s\n", hres, debugstr_w(str));
 745
 746     return throw_type_error(ctx->script, ctx->ei, hres, str);
 747 }
 748
 749 /* ECMA-262 3rd Edition    12.14 */
 750 static HRESULT interp_push_except(exec_ctx_t *ctx)
 751 {
 752     const unsigned arg1 = get_op_uint(ctx, 0);
 753     const BSTR arg2 = get_op_bstr(ctx, 1);
 754     except_frame_t *except;
 755     unsigned stack_top;
 756
 757     TRACE("\n");
 758
 759     stack_top = ctx->top;
 760
 761     if(!arg2) {
 762         HRESULT hres;
 763
 764         hres = stack_push_bool(ctx, TRUE);
 765         if(FAILED(hres))
 766             return hres;
 767         hres = stack_push_bool(ctx, TRUE);
 768         if(FAILED(hres))
 769             return hres;
 770     }
 771
 772     except = heap_alloc(sizeof(*except));
 773     if(!except)
 774         return E_OUTOFMEMORY;
 775
 776     except->stack_top = stack_top;
 777     except->scope = ctx->scope_chain;
 778     except->catch_off = arg1;
 779     except->ident = arg2;
 780     except->next = ctx->except_frame;
 781     ctx->except_frame = except;
 782     return S_OK;
 783 }
 784
 785 /* ECMA-262 3rd Edition    12.14 */
 786 static HRESULT interp_pop_except(exec_ctx_t *ctx)
 787 {
 788     except_frame_t *except;
 789
 790     TRACE("\n");
 791
 792     except = ctx->except_frame;
 793     assert(except != NULL);
 794
 795     ctx->except_frame = except->next;
 796     heap_free(except);
 797     return S_OK;
 798 }
 799
 800 /* ECMA-262 3rd Edition    12.14 */
 801 static HRESULT interp_end_finally(exec_ctx_t *ctx)
 802 {
 803     VARIANT *v;
 804
 805     TRACE("\n");
 806
 807     v = stack_pop(ctx);
 808
 809     assert(V_VT(stack_top(ctx)) == VT_BOOL);
 810     if(!V_BOOL(stack_top(ctx))) {
 811         TRACE("passing exception\n");
 812
 813         VariantClear(v);
 814         stack_popn(ctx, 1);
 815         ctx->ei->var = *stack_pop(ctx);
 816         return DISP_E_EXCEPTION;
 817     }
 818
 819     stack_popn(ctx, 2);
 820     return stack_push(ctx, v);
 821 }
 822
 823 /* ECMA-262 3rd Edition    13 */
 824 static HRESULT interp_func(exec_ctx_t *ctx)
 825 {
 826     unsigned func_idx = get_op_uint(ctx, 0);
 827     jsdisp_t *dispex;
 828     VARIANT v;
 829     HRESULT hres;
 830
 831     TRACE("%d\n", func_idx);
 832
 833     hres = create_source_function(ctx->script, ctx->code, ctx->func_code->funcs+func_idx,
 834             ctx->scope_chain, &dispex);
 835     if(FAILED(hres))
 836         return hres;
 837
 838     var_set_jsdisp(&v, dispex);
 839     return stack_push(ctx, &v);
 840 }
 841
 842 /* ECMA-262 3rd Edition    11.2.1 */
 843 static HRESULT interp_array(exec_ctx_t *ctx)
 844 {
 845     VARIANT v, *namev;
 846     IDispatch *obj;
 847     DISPID id;
 848     BSTR name;
 849     HRESULT hres;
 850
 851     TRACE("\n");
 852
 853     namev = stack_pop(ctx);
 854
 855     hres = stack_pop_object(ctx, &obj);
 856     if(FAILED(hres)) {
 857         VariantClear(namev);
 858         return hres;
 859     }
 860
 861     hres = to_string(ctx->script, namev, ctx->ei, &name);
 862     VariantClear(namev);
 863     if(FAILED(hres)) {
 864         IDispatch_Release(obj);
 865         return hres;
 866     }
 867
 868     hres = disp_get_id(ctx->script, obj, name, 0, &id);
 869     SysFreeString(name);
 870     if(SUCCEEDED(hres)) {
 871         hres = disp_propget(ctx->script, obj, id, &v, ctx->ei);
 872     }else if(hres == DISP_E_UNKNOWNNAME) {
 873         V_VT(&v) = VT_EMPTY;
 874         hres = S_OK;
 875     }
 876     IDispatch_Release(obj);
 877     if(FAILED(hres))
 878         return hres;
 879
 880     return stack_push(ctx, &v);
 881 }
 882
 883 /* ECMA-262 3rd Edition    11.2.1 */
 884 static HRESULT interp_member(exec_ctx_t *ctx)
 885 {
 886     const BSTR arg = get_op_bstr(ctx, 0);
 887     IDispatch *obj;
 888     VARIANT v;
 889     DISPID id;
 890     HRESULT hres;
 891
 892     TRACE("\n");
 893
 894     hres = stack_pop_object(ctx, &obj);
 895     if(FAILED(hres))
 896         return hres;
 897
 898     hres = disp_get_id(ctx->script, obj, arg, 0, &id);
 899     if(SUCCEEDED(hres)) {
 900         V_VT(&v) = VT_EMPTY;
 901         hres = disp_propget(ctx->script, obj, id, &v, ctx->ei);
 902     }else if(hres == DISP_E_UNKNOWNNAME) {
 903         V_VT(&v) = VT_EMPTY;
 904         hres = S_OK;
 905     }
 906     IDispatch_Release(obj);
 907     if(FAILED(hres))
 908         return hres;
 909
 910     return stack_push(ctx, &v);
 911 }
 912
 913 /* ECMA-262 3rd Edition    11.2.1 */
 914 static HRESULT interp_memberid(exec_ctx_t *ctx)
 915 {
 916     const unsigned arg = get_op_uint(ctx, 0);
 917     VARIANT *objv, *namev;
 918     IDispatch *obj;
 919     BSTR name;
 920     DISPID id;
 921     HRESULT hres;
 922
 923     TRACE("%x\n", arg);
 924
 925     namev = stack_pop(ctx);
 926     objv = stack_pop(ctx);
 927
 928     hres = to_object(ctx->script, objv, &obj);
 929     VariantClear(objv);
 930     if(SUCCEEDED(hres)) {
 931         hres = to_string(ctx->script, namev, ctx->ei, &name);
 932         if(FAILED(hres))
 933             IDispatch_Release(obj);
 934     }
 935     VariantClear(namev);
 936     if(FAILED(hres))
 937         return hres;
 938
 939     hres = disp_get_id(ctx->script, obj, name, arg, &id);
 940     SysFreeString(name);
 941     if(FAILED(hres)) {
 942         IDispatch_Release(obj);
 943         if(hres == DISP_E_UNKNOWNNAME && !(arg & fdexNameEnsure)) {
 944             obj = NULL;
 945             id = JS_E_INVALID_PROPERTY;
 946         }else {
 947             return hres;
 948         }
 949     }
 950
 951     return stack_push_objid(ctx, obj, id);
 952 }
 953
 954 /* ECMA-262 3rd Edition    11.2.1 */
 955 static HRESULT interp_refval(exec_ctx_t *ctx)
 956 {
 957     IDispatch *disp;
 958     VARIANT v;
 959     DISPID id;
 960     HRESULT hres;
 961
 962     TRACE("\n");
 963
 964     disp = stack_topn_objid(ctx, 0, &id);
 965     if(!disp)
 966         return throw_reference_error(ctx->script, ctx->ei, JS_E_ILLEGAL_ASSIGN, NULL);
 967
 968     hres = disp_propget(ctx->script, disp, id, &v, ctx->ei);
 969     if(FAILED(hres))
 970         return hres;
 971
 972     return stack_push(ctx, &v);
 973 }
 974
 975 static void jsstack_to_dp(exec_ctx_t *ctx, unsigned arg_cnt, DISPPARAMS *dp)
 976 {
 977     VARIANT tmp;
 978     unsigned i;
 979
 980     dp->cArgs = arg_cnt;
 981     dp->rgdispidNamedArgs = NULL;
 982     dp->cNamedArgs = 0;
 983
 984     assert(ctx->top >= arg_cnt);
 985
 986     for(i=1; i*2 <= arg_cnt; i++) {
 987         tmp = ctx->stack[ctx->top-i];
 988         ctx->stack[ctx->top-i] = ctx->stack[ctx->top-arg_cnt+i-1];
 989         ctx->stack[ctx->top-arg_cnt+i-1] = tmp;
 990     }
 991
 992     dp->rgvarg = ctx->stack + ctx->top-arg_cnt;
 993 }
 994
 995 /* ECMA-262 3rd Edition    11.2.2 */
 996 static HRESULT interp_new(exec_ctx_t *ctx)
 997 {
 998     const unsigned arg = get_op_uint(ctx, 0);
 999     VARIANT *constr, v;
1000     DISPPARAMS dp;
1001     HRESULT hres;
1002
1003     TRACE("%d\n", arg);
1004
1005     constr = stack_topn(ctx, arg);
1006
1007     /* NOTE: Should use to_object here */
1008
1009     if(V_VT(constr) == VT_NULL)
1010         return throw_type_error(ctx->script, ctx->ei, JS_E_OBJECT_EXPECTED, NULL);
1011     else if(V_VT(constr) != VT_DISPATCH)
1012         return throw_type_error(ctx->script, ctx->ei, JS_E_INVALID_ACTION, NULL);
1013     else if(!V_DISPATCH(constr))
1014         return throw_type_error(ctx->script, ctx->ei, JS_E_INVALID_PROPERTY, NULL);
1015
1016     jsstack_to_dp(ctx, arg, &dp);
1017     hres = disp_call(ctx->script, V_DISPATCH(constr), DISPID_VALUE,
1018             DISPATCH_CONSTRUCT, &dp, &v, ctx->ei);
1019     if(FAILED(hres))
1020         return hres;
1021
1022     stack_popn(ctx, arg+1);
1023     return stack_push(ctx, &v);
1024 }
1025
1026 /* ECMA-262 3rd Edition    11.2.3 */
1027 static HRESULT interp_call(exec_ctx_t *ctx)
1028 {
1029     const unsigned argn = get_op_uint(ctx, 0);
1030     const int do_ret = get_op_int(ctx, 1);
1031     VARIANT v, *objv;
1032     DISPPARAMS dp;
1033     HRESULT hres;
1034
1035     TRACE("%d %d\n", argn, do_ret);
1036
1037     objv = stack_topn(ctx, argn);
1038     if(V_VT(objv) != VT_DISPATCH)
1039         return throw_type_error(ctx->script, ctx->ei, JS_E_INVALID_PROPERTY, NULL);
1040
1041     jsstack_to_dp(ctx, argn, &dp);
1042     hres = disp_call(ctx->script, V_DISPATCH(objv), DISPID_VALUE, DISPATCH_METHOD, &dp,
1043             do_ret ? &v : NULL, ctx->ei);
1044     if(FAILED(hres))
1045         return hres;
1046
1047     stack_popn(ctx, argn+1);
1048     return do_ret ? stack_push(ctx, &v) : S_OK;
1049
1050 }
1051
1052 /* ECMA-262 3rd Edition    11.2.3 */
1053 static HRESULT interp_call_member(exec_ctx_t *ctx)
1054 {
1055     const unsigned argn = get_op_uint(ctx, 0);
1056     const int do_ret = get_op_int(ctx, 1);
1057     IDispatch *obj;
1058     DISPPARAMS dp;
1059     VARIANT v;
1060     DISPID id;
1061     HRESULT hres;
1062
1063     TRACE("%d %d\n", argn, do_ret);
1064
1065     obj = stack_topn_objid(ctx, argn, &id);
1066     if(!obj)
1067         return throw_type_error(ctx->script, ctx->ei, id, NULL);
1068
1069     jsstack_to_dp(ctx, argn, &dp);
1070     hres = disp_call(ctx->script, obj, id, DISPATCH_METHOD, &dp, do_ret ? &v : NULL, ctx->ei);
1071     if(FAILED(hres))
1072         return hres;
1073
1074     stack_popn(ctx, argn+2);
1075     return do_ret ? stack_push(ctx, &v) : S_OK;
1076
1077 }
1078
1079 /* ECMA-262 3rd Edition    11.1.1 */
1080 static HRESULT interp_this(exec_ctx_t *ctx)
1081 {
1082     VARIANT v;
1083
1084     TRACE("\n");
1085
1086     V_VT(&v) = VT_DISPATCH;
1087     V_DISPATCH(&v) = ctx->this_obj;
1088     IDispatch_AddRef(ctx->this_obj);
1089     return stack_push(ctx, &v);
1090 }
1091
1092 /* ECMA-262 3rd Edition    10.1.4 */
1093 static HRESULT interp_ident(exec_ctx_t *ctx)
1094 {
1095     const BSTR arg = get_op_bstr(ctx, 0);
1096     exprval_t exprval;
1097     VARIANT v;
1098     HRESULT hres;
1099
1100     TRACE("%s\n", debugstr_w(arg));
1101
1102     hres = identifier_eval(ctx->script, arg, &exprval);
1103     if(FAILED(hres))
1104         return hres;
1105
1106     if(exprval.type == EXPRVAL_INVALID)
1107         return throw_type_error(ctx->script, ctx->ei, JS_E_UNDEFINED_VARIABLE, arg);
1108
1109     hres = exprval_to_value(ctx->script, &exprval, ctx->ei, &v);
1110     exprval_release(&exprval);
1111     if(FAILED(hres))
1112         return hres;
1113
1114     return stack_push(ctx, &v);
1115 }
1116
1117 /* ECMA-262 3rd Edition    10.1.4 */
1118 static HRESULT interp_identid(exec_ctx_t *ctx)
1119 {
1120     const BSTR arg = get_op_bstr(ctx, 0);
1121     const unsigned flags = get_op_uint(ctx, 1);
1122     exprval_t exprval;
1123     HRESULT hres;
1124
1125     TRACE("%s %x\n", debugstr_w(arg), flags);
1126
1127     hres = identifier_eval(ctx->script, arg, &exprval);
1128     if(FAILED(hres))
1129         return hres;
1130
1131     if(exprval.type == EXPRVAL_INVALID && (flags & fdexNameEnsure)) {
1132         DISPID id;
1133
1134         hres = jsdisp_get_id(ctx->script->global, arg, fdexNameEnsure, &id);
1135         if(FAILED(hres))
1136             return hres;
1137
1138         exprval_set_idref(&exprval, to_disp(ctx->script->global), id);
1139     }
1140
1141     if(exprval.type != EXPRVAL_IDREF) {
1142         WARN("invalid ref\n");
1143         exprval_release(&exprval);
1144         return stack_push_objid(ctx, NULL, JS_E_OBJECT_EXPECTED);
1145     }
1146
1147     return stack_push_objid(ctx, exprval.u.idref.disp, exprval.u.idref.id);
1148 }
1149
1150 /* ECMA-262 3rd Edition    7.8.1 */
1151 static HRESULT interp_null(exec_ctx_t *ctx)
1152 {
1153     VARIANT v;
1154
1155     TRACE("\n");
1156
1157     V_VT(&v) = VT_NULL;
1158     return stack_push(ctx, &v);
1159 }
1160
1161 /* ECMA-262 3rd Edition    7.8.2 */
1162 static HRESULT interp_bool(exec_ctx_t *ctx)
1163 {
1164     const int arg = get_op_int(ctx, 0);
1165
1166     TRACE("%s\n", arg ? "true" : "false");
1167
1168     return stack_push_bool(ctx, arg);
1169 }
1170
1171 /* ECMA-262 3rd Edition    7.8.3 */
1172 static HRESULT interp_int(exec_ctx_t *ctx)
1173 {
1174     const int arg = get_op_int(ctx, 0);
1175     VARIANT v;
1176
1177     TRACE("%d\n", arg);
1178
1179     V_VT(&v) = VT_I4;
1180     V_I4(&v) = arg;
1181     return stack_push(ctx, &v);
1182 }
1183
1184 /* ECMA-262 3rd Edition    7.8.3 */
1185 static HRESULT interp_double(exec_ctx_t *ctx)
1186 {
1187     const double arg = get_op_double(ctx);
1188
1189     TRACE("%lf\n", arg);
1190
1191     return stack_push_number(ctx, arg);
1192 }
1193
1194 /* ECMA-262 3rd Edition    7.8.4 */
1195 static HRESULT interp_str(exec_ctx_t *ctx)
1196 {
1197     const WCHAR *str = get_op_str(ctx, 0);
1198     VARIANT v;
1199
1200     TRACE("%s\n", debugstr_w(str));
1201
1202     V_VT(&v) = VT_BSTR;
1203     V_BSTR(&v) = SysAllocString(str);
1204     if(!V_BSTR(&v))
1205         return E_OUTOFMEMORY;
1206
1207     return stack_push(ctx, &v);
1208 }
1209
1210 /* ECMA-262 3rd Edition    7.8 */
1211 static HRESULT interp_regexp(exec_ctx_t *ctx)
1212 {
1213     const WCHAR *source = get_op_str(ctx, 0);
1214     const unsigned flags = get_op_uint(ctx, 1);
1215     jsdisp_t *regexp;
1216     VARIANT v;
1217     HRESULT hres;
1218
1219     TRACE("%s %x\n", debugstr_w(source), flags);
1220
1221     hres = create_regexp(ctx->script, source, strlenW(source), flags, &regexp);
1222     if(FAILED(hres))
1223         return hres;
1224
1225     var_set_jsdisp(&v, regexp);
1226     return stack_push(ctx, &v);
1227 }
1228
1229 /* ECMA-262 3rd Edition    11.1.4 */
1230 static HRESULT interp_carray(exec_ctx_t *ctx)
1231 {
1232     const unsigned arg = get_op_uint(ctx, 0);
1233     jsdisp_t *array;
1234     VARIANT *v, r;
1235     unsigned i;
1236     HRESULT hres;
1237
1238     TRACE("%u\n", arg);
1239
1240     hres = create_array(ctx->script, arg, &array);
1241     if(FAILED(hres))
1242         return hres;
1243
1244     i = arg;
1245     while(i--) {
1246         v = stack_pop(ctx);
1247         hres = jsdisp_propput_idx(array, i, v, ctx->ei);
1248         VariantClear(v);
1249         if(FAILED(hres)) {
1250             jsdisp_release(array);
1251             return hres;
1252         }
1253     }
1254
1255     var_set_jsdisp(&r, array);
1256     return stack_push(ctx, &r);
1257 }
1258
1259 /* ECMA-262 3rd Edition    11.1.5 */
1260 static HRESULT interp_new_obj(exec_ctx_t *ctx)
1261 {
1262     jsdisp_t *obj;
1263     VARIANT v;
1264     HRESULT hres;
1265
1266     TRACE("\n");
1267
1268     hres = create_object(ctx->script, NULL, &obj);
1269     if(FAILED(hres))
1270         return hres;
1271
1272     var_set_jsdisp(&v, obj);
1273     return stack_push(ctx, &v);
1274 }
1275
1276 /* ECMA-262 3rd Edition    11.1.5 */
1277 static HRESULT interp_obj_prop(exec_ctx_t *ctx)
1278 {
1279     const BSTR name = get_op_bstr(ctx, 0);
1280     jsdisp_t *obj;
1281     VARIANT *v;
1282     HRESULT hres;
1283
1284     TRACE("%s\n", debugstr_w(name));
1285
1286     v = stack_pop(ctx);
1287
1288     assert(V_VT(stack_top(ctx)) == VT_DISPATCH);
1289     obj = as_jsdisp(V_DISPATCH(stack_top(ctx)));
1290
1291     hres = jsdisp_propput_name(obj, name, v, ctx->ei);
1292     VariantClear(v);
1293     return hres;
1294 }
1295
1296 /* ECMA-262 3rd Edition    11.11 */
1297 static HRESULT interp_cnd_nz(exec_ctx_t *ctx)
1298 {
1299     const unsigned arg = get_op_uint(ctx, 0);
1300     VARIANT_BOOL b;
1301     HRESULT hres;
1302
1303     TRACE("\n");
1304
1305     hres = to_boolean(stack_top(ctx), &b);
1306     if(FAILED(hres))
1307         return hres;
1308
1309     if(b) {
1310         ctx->ip = arg;
1311     }else {
1312         stack_popn(ctx, 1);
1313         ctx->ip++;
1314     }
1315     return S_OK;
1316 }
1317
1318 /* ECMA-262 3rd Edition    11.11 */
1319 static HRESULT interp_cnd_z(exec_ctx_t *ctx)
1320 {
1321     const unsigned arg = get_op_uint(ctx, 0);
1322     VARIANT_BOOL b;
1323     HRESULT hres;
1324
1325     TRACE("\n");
1326
1327     hres = to_boolean(stack_top(ctx), &b);
1328     if(FAILED(hres))
1329         return hres;
1330
1331     if(b) {
1332         stack_popn(ctx, 1);
1333         ctx->ip++;
1334     }else {
1335         ctx->ip = arg;
1336     }
1337     return S_OK;
1338 }
1339
1340 /* ECMA-262 3rd Edition    11.10 */
1341 static HRESULT interp_or(exec_ctx_t *ctx)
1342 {
1343     INT l, r;
1344     HRESULT hres;
1345
1346     TRACE("\n");
1347
1348     hres = stack_pop_int(ctx, &r);
1349     if(FAILED(hres))
1350         return hres;
1351
1352     hres = stack_pop_int(ctx, &l);
1353     if(FAILED(hres))
1354         return hres;
1355
1356     return stack_push_int(ctx, l|r);
1357 }
1358
1359 /* ECMA-262 3rd Edition    11.10 */
1360 static HRESULT interp_xor(exec_ctx_t *ctx)
1361 {
1362     INT l, r;
1363     HRESULT hres;
1364
1365     TRACE("\n");
1366
1367     hres = stack_pop_int(ctx, &r);
1368     if(FAILED(hres))
1369         return hres;
1370
1371     hres = stack_pop_int(ctx, &l);
1372     if(FAILED(hres))
1373         return hres;
1374
1375     return stack_push_int(ctx, l^r);
1376 }
1377
1378 /* ECMA-262 3rd Edition    11.10 */
1379 static HRESULT interp_and(exec_ctx_t *ctx)
1380 {
1381     INT l, r;
1382     HRESULT hres;
1383
1384     TRACE("\n");
1385
1386     hres = stack_pop_int(ctx, &r);
1387     if(FAILED(hres))
1388         return hres;
1389
1390     hres = stack_pop_int(ctx, &l);
1391     if(FAILED(hres))
1392         return hres;
1393
1394     return stack_push_int(ctx, l&r);
1395 }
1396
1397 /* ECMA-262 3rd Edition    11.8.6 */
1398 static HRESULT interp_instanceof(exec_ctx_t *ctx)
1399 {
1400     jsdisp_t *obj, *iter, *tmp = NULL;
1401     VARIANT prot, *v;
1402     BOOL ret = FALSE;
1403     HRESULT hres;
1404
1405     static const WCHAR prototypeW[] = {'p','r','o','t','o','t', 'y', 'p','e',0};
1406
1407     v = stack_pop(ctx);
1408     if(V_VT(v) != VT_DISPATCH || !V_DISPATCH(v)) {
1409         VariantClear(v);
1410         return throw_type_error(ctx->script, ctx->ei, JS_E_FUNCTION_EXPECTED, NULL);
1411     }
1412
1413     obj = iface_to_jsdisp((IUnknown*)V_DISPATCH(v));
1414     IDispatch_Release(V_DISPATCH(v));
1415     if(!obj) {
1416         FIXME("non-jsdisp objects not supported\n");
1417         return E_FAIL;
1418     }
1419
1420     if(is_class(obj, JSCLASS_FUNCTION)) {
1421         hres = jsdisp_propget_name(obj, prototypeW, &prot, ctx->ei);
1422     }else {
1423         hres = throw_type_error(ctx->script, ctx->ei, JS_E_FUNCTION_EXPECTED, NULL);
1424     }
1425     jsdisp_release(obj);
1426     if(FAILED(hres))
1427         return hres;
1428
1429     v = stack_pop(ctx);
1430
1431     if(V_VT(&prot) == VT_DISPATCH) {
1432         if(V_VT(v) == VT_DISPATCH)
1433             tmp = iface_to_jsdisp((IUnknown*)V_DISPATCH(v));
1434         for(iter = tmp; !ret && iter; iter = iter->prototype) {
1435             hres = disp_cmp(V_DISPATCH(&prot), to_disp(iter), &ret);
1436             if(FAILED(hres))
1437                 break;
1438         }
1439
1440         if(tmp)
1441             jsdisp_release(tmp);
1442     }else {
1443         FIXME("prototype is not an object\n");
1444         hres = E_FAIL;
1445     }
1446
1447     VariantClear(&prot);
1448     VariantClear(v);
1449     if(FAILED(hres))
1450         return hres;
1451
1452     return stack_push_bool(ctx, ret);
1453 }
1454
1455 /* ECMA-262 3rd Edition    11.8.7 */
1456 static HRESULT interp_in(exec_ctx_t *ctx)
1457 {
1458     VARIANT *obj, *v;
1459     DISPID id = 0;
1460     BOOL ret;
1461     BSTR str;
1462     HRESULT hres;
1463
1464     TRACE("\n");
1465
1466     obj = stack_pop(ctx);
1467     v = stack_pop(ctx);
1468
1469     if(V_VT(obj) != VT_DISPATCH || !V_DISPATCH(obj)) {
1470         VariantClear(obj);
1471         VariantClear(v);
1472         return throw_type_error(ctx->script, ctx->ei, JS_E_OBJECT_EXPECTED, NULL);
1473     }
1474
1475     hres = to_string(ctx->script, v, ctx->ei, &str);
1476     VariantClear(v);
1477     if(FAILED(hres)) {
1478         IDispatch_Release(V_DISPATCH(obj));
1479         return hres;
1480     }
1481
1482     hres = disp_get_id(ctx->script, V_DISPATCH(obj), str, 0, &id);
1483     IDispatch_Release(V_DISPATCH(obj));
1484     SysFreeString(str);
1485     if(SUCCEEDED(hres))
1486         ret = TRUE;
1487     else if(hres == DISP_E_UNKNOWNNAME)
1488         ret = FALSE;
1489     else
1490         return hres;
1491
1492     return stack_push_bool(ctx, ret);
1493 }
1494
1495 /* ECMA-262 3rd Edition    11.6.1 */
1496 static HRESULT add_eval(script_ctx_t *ctx, VARIANT *lval, VARIANT *rval, jsexcept_t *ei, VARIANT *retv)
1497 {
1498     VARIANT r, l;
1499     HRESULT hres;
1500
1501     hres = to_primitive(ctx, lval, ei, &l, NO_HINT);
1502     if(FAILED(hres))
1503         return hres;
1504
1505     hres = to_primitive(ctx, rval, ei, &r, NO_HINT);
1506     if(FAILED(hres)) {
1507         VariantClear(&l);
1508         return hres;
1509     }
1510
1511     if(V_VT(&l) == VT_BSTR || V_VT(&r) == VT_BSTR) {
1512         BSTR lstr = NULL, rstr = NULL;
1513
1514         if(V_VT(&l) == VT_BSTR)
1515             lstr = V_BSTR(&l);
1516         else
1517             hres = to_string(ctx, &l, ei, &lstr);
1518
1519         if(SUCCEEDED(hres)) {
1520             if(V_VT(&r) == VT_BSTR)
1521                 rstr = V_BSTR(&r);
1522             else
1523                 hres = to_string(ctx, &r, ei, &rstr);
1524         }
1525
1526         if(SUCCEEDED(hres)) {
1527             int len1, len2;
1528
1529             len1 = SysStringLen(lstr);
1530             len2 = SysStringLen(rstr);
1531
1532             V_VT(retv) = VT_BSTR;
1533             V_BSTR(retv) = SysAllocStringLen(NULL, len1+len2);
1534             if(len1)
1535                 memcpy(V_BSTR(retv), lstr, len1*sizeof(WCHAR));
1536             if(len2)
1537                 memcpy(V_BSTR(retv)+len1, rstr, len2*sizeof(WCHAR));
1538             V_BSTR(retv)[len1+len2] = 0;
1539         }
1540
1541         if(V_VT(&l) != VT_BSTR)
1542             SysFreeString(lstr);
1543         if(V_VT(&r) != VT_BSTR)
1544             SysFreeString(rstr);
1545     }else {
1546         double nl, nr;
1547
1548         hres = to_number(ctx, &l, ei, &nl);
1549         if(SUCCEEDED(hres)) {
1550             hres = to_number(ctx, &r, ei, &nr);
1551             if(SUCCEEDED(hres))
1552                 num_set_val(retv, nl + nr);
1553         }
1554     }
1555
1556     VariantClear(&r);
1557     VariantClear(&l);
1558     return hres;
1559 }
1560
1561 /* ECMA-262 3rd Edition    11.6.1 */
1562 static HRESULT interp_add(exec_ctx_t *ctx)
1563 {
1564     VARIANT *l, *r, ret;
1565     HRESULT hres;
1566
1567     r = stack_pop(ctx);
1568     l = stack_pop(ctx);
1569
1570     TRACE("%s + %s\n", debugstr_variant(l), debugstr_variant(r));
1571
1572     hres = add_eval(ctx->script, l, r, ctx->ei, &ret);
1573     VariantClear(l);
1574     VariantClear(r);
1575     if(FAILED(hres))
1576         return hres;
1577
1578     return stack_push(ctx, &ret);
1579 }
1580
1581 /* ECMA-262 3rd Edition    11.6.2 */
1582 static HRESULT interp_sub(exec_ctx_t *ctx)
1583 {
1584     double l, r;
1585     HRESULT hres;
1586
1587     TRACE("\n");
1588
1589     hres = stack_pop_number(ctx, &r);
1590     if(FAILED(hres))
1591         return hres;
1592
1593     hres = stack_pop_number(ctx, &l);
1594     if(FAILED(hres))
1595         return hres;
1596
1597     return stack_push_number(ctx, l-r);
1598 }
1599
1600 /* ECMA-262 3rd Edition    11.5.1 */
1601 static HRESULT interp_mul(exec_ctx_t *ctx)
1602 {
1603     double l, r;
1604     HRESULT hres;
1605
1606     TRACE("\n");
1607
1608     hres = stack_pop_number(ctx, &r);
1609     if(FAILED(hres))
1610         return hres;
1611
1612     hres = stack_pop_number(ctx, &l);
1613     if(FAILED(hres))
1614         return hres;
1615
1616     return stack_push_number(ctx, l*r);
1617 }
1618
1619 /* ECMA-262 3rd Edition    11.5.2 */
1620 static HRESULT interp_div(exec_ctx_t *ctx)
1621 {
1622     double l, r;
1623     HRESULT hres;
1624
1625     TRACE("\n");
1626
1627     hres = stack_pop_number(ctx, &r);
1628     if(FAILED(hres))
1629         return hres;
1630
1631     hres = stack_pop_number(ctx, &l);
1632     if(FAILED(hres))
1633         return hres;
1634
1635     return stack_push_number(ctx, l/r);
1636 }
1637
1638 /* ECMA-262 3rd Edition    11.5.3 */
1639 static HRESULT interp_mod(exec_ctx_t *ctx)
1640 {
1641     double l, r;
1642     HRESULT hres;
1643
1644     TRACE("\n");
1645
1646     hres = stack_pop_number(ctx, &r);
1647     if(FAILED(hres))
1648         return hres;
1649
1650     hres = stack_pop_number(ctx, &l);
1651     if(FAILED(hres))
1652         return hres;
1653
1654     return stack_push_number(ctx, fmod(l, r));
1655 }
1656
1657 /* ECMA-262 3rd Edition    11.4.2 */
1658 static HRESULT interp_delete(exec_ctx_t *ctx)
1659 {
1660     VARIANT *obj_var, *name_var;
1661     IDispatchEx *dispex;
1662     IDispatch *obj;
1663     BSTR name;
1664     BOOL ret;
1665     HRESULT hres;
1666
1667     TRACE("\n");
1668
1669     name_var = stack_pop(ctx);
1670     obj_var = stack_pop(ctx);
1671
1672     hres = to_object(ctx->script, obj_var, &obj);
1673     VariantClear(obj_var);
1674     if(FAILED(hres)) {
1675         VariantClear(name_var);
1676         return hres;
1677     }
1678
1679     hres = to_string(ctx->script, name_var, ctx->ei, &name);
1680     VariantClear(name_var);
1681     if(FAILED(hres)) {
1682         IDispatch_Release(obj);
1683         return hres;
1684     }
1685
1686     hres = IDispatch_QueryInterface(obj, &IID_IDispatchEx, (void**)&dispex);
1687     if(SUCCEEDED(hres)) {
1688         hres = IDispatchEx_DeleteMemberByName(dispex, name, make_grfdex(ctx->script, fdexNameCaseSensitive));
1689         ret = TRUE;
1690         IDispatchEx_Release(dispex);
1691     }else {
1692         hres = S_OK;
1693         ret = FALSE;
1694     }
1695
1696     IDispatch_Release(obj);
1697     SysFreeString(name);
1698     if(FAILED(hres))
1699         return hres;
1700
1701     return stack_push_bool(ctx, ret);
1702 }
1703
1704 /* ECMA-262 3rd Edition    11.4.2 */
1705 static HRESULT interp_delete_ident(exec_ctx_t *ctx)
1706 {
1707     const BSTR arg = get_op_bstr(ctx, 0);
1708     IDispatchEx *dispex;
1709     exprval_t exprval;
1710     BOOL ret = FALSE;
1711     HRESULT hres;
1712
1713     TRACE("%s\n", debugstr_w(arg));
1714
1715     hres = identifier_eval(ctx->script, arg, &exprval);
1716     if(FAILED(hres))
1717         return hres;
1718
1719     if(exprval.type != EXPRVAL_IDREF) {
1720         FIXME("Unsupported exprval\n");
1721         exprval_release(&exprval);
1722         return E_NOTIMPL;
1723     }
1724
1725     hres = IDispatch_QueryInterface(exprval.u.idref.disp, &IID_IDispatchEx, (void**)&dispex);
1726     IDispatch_Release(exprval.u.idref.disp);
1727     if(SUCCEEDED(hres)) {
1728         hres = IDispatchEx_DeleteMemberByDispID(dispex, exprval.u.idref.id);
1729         IDispatchEx_Release(dispex);
1730         if(FAILED(hres))
1731             return hres;
1732
1733         ret = TRUE;
1734     }
1735
1736     return stack_push_bool(ctx, ret);
1737 }
1738
1739 /* ECMA-262 3rd Edition    11.4.2 */
1740 static HRESULT interp_void(exec_ctx_t *ctx)
1741 {
1742     VARIANT v;
1743
1744     TRACE("\n");
1745
1746     stack_popn(ctx, 1);
1747
1748     V_VT(&v) = VT_EMPTY;
1749     return stack_push(ctx, &v);
1750 }
1751
1752 /* ECMA-262 3rd Edition    11.4.3 */
1753 static HRESULT typeof_string(VARIANT *v, const WCHAR **ret)
1754 {
1755     switch(V_VT(v)) {
1756     case VT_EMPTY:
1757         *ret = undefinedW;
1758         break;
1759     case VT_NULL:
1760         *ret = objectW;
1761         break;
1762     case VT_BOOL:
1763         *ret = booleanW;
1764         break;
1765     case VT_I4:
1766     case VT_R8:
1767         *ret = numberW;
1768         break;
1769     case VT_BSTR:
1770         *ret = stringW;
1771         break;
1772     case VT_DISPATCH: {
1773         jsdisp_t *dispex;
1774
1775         if(V_DISPATCH(v) && (dispex = iface_to_jsdisp((IUnknown*)V_DISPATCH(v)))) {
1776             *ret = is_class(dispex, JSCLASS_FUNCTION) ? functionW : objectW;
1777             jsdisp_release(dispex);
1778         }else {
1779             *ret = objectW;
1780         }
1781         break;
1782     }
1783     default:
1784         FIXME("unhandled vt %d\n", V_VT(v));
1785         return E_NOTIMPL;
1786     }
1787
1788     return S_OK;
1789 }
1790
1791 /* ECMA-262 3rd Edition    11.4.3 */
1792 static HRESULT interp_typeofid(exec_ctx_t *ctx)
1793 {
1794     const WCHAR *ret;
1795     IDispatch *obj;
1796     VARIANT v;
1797     DISPID id;
1798     HRESULT hres;
1799
1800     static const WCHAR undefinedW[] = {'u','n','d','e','f','i','n','e','d',0};
1801
1802     TRACE("\n");
1803
1804     obj = stack_pop_objid(ctx, &id);
1805     if(!obj)
1806         return stack_push_string(ctx, undefinedW);
1807
1808     V_VT(&v) = VT_EMPTY;
1809     hres = disp_propget(ctx->script, obj, id, &v, ctx->ei);
1810     IDispatch_Release(obj);
1811     if(FAILED(hres))
1812         return stack_push_string(ctx, unknownW);
1813
1814     hres = typeof_string(&v, &ret);
1815     VariantClear(&v);
1816     if(FAILED(hres))
1817         return hres;
1818
1819     return stack_push_string(ctx, ret);
1820 }
1821
1822 /* ECMA-262 3rd Edition    11.4.3 */
1823 static HRESULT interp_typeofident(exec_ctx_t *ctx)
1824 {
1825     const BSTR arg = get_op_bstr(ctx, 0);
1826     exprval_t exprval;
1827     const WCHAR *ret;
1828     VARIANT v;
1829     HRESULT hres;
1830
1831     TRACE("%s\n", debugstr_w(arg));
1832
1833     hres = identifier_eval(ctx->script, arg, &exprval);
1834     if(FAILED(hres))
1835         return hres;
1836
1837     if(exprval.type == EXPRVAL_INVALID) {
1838         hres = stack_push_string(ctx, undefinedW);
1839         exprval_release(&exprval);
1840         return hres;
1841     }
1842
1843     hres = exprval_to_value(ctx->script, &exprval, ctx->ei, &v);
1844     exprval_release(&exprval);
1845     if(FAILED(hres))
1846         return hres;
1847
1848     hres = typeof_string(&v, &ret);
1849     VariantClear(&v);
1850     if(FAILED(hres))
1851         return hres;
1852
1853     return stack_push_string(ctx, ret);
1854 }
1855
1856 /* ECMA-262 3rd Edition    11.4.3 */
1857 static HRESULT interp_typeof(exec_ctx_t *ctx)
1858 {
1859     const WCHAR *ret;
1860     VARIANT *v;
1861     HRESULT hres;
1862
1863     TRACE("\n");
1864
1865     v = stack_pop(ctx);
1866     hres = typeof_string(v, &ret);
1867     VariantClear(v);
1868     if(FAILED(hres))
1869         return hres;
1870
1871     return stack_push_string(ctx, ret);
1872 }
1873
1874 /* ECMA-262 3rd Edition    11.4.7 */
1875 static HRESULT interp_minus(exec_ctx_t *ctx)
1876 {
1877     double n;
1878     HRESULT hres;
1879
1880     TRACE("\n");
1881
1882     hres = stack_pop_number(ctx, &n);
1883     if(FAILED(hres))
1884         return hres;
1885
1886     return stack_push_number(ctx, -n);
1887 }
1888
1889 /* ECMA-262 3rd Edition    11.4.6 */
1890 static HRESULT interp_tonum(exec_ctx_t *ctx)
1891 {
1892     VARIANT *v;
1893     double n;
1894     HRESULT hres;
1895
1896     TRACE("\n");
1897
1898     v = stack_pop(ctx);
1899     hres = to_number(ctx->script, v, ctx->ei, &n);
1900     VariantClear(v);
1901     if(FAILED(hres))
1902         return hres;
1903
1904     return stack_push_number(ctx, n);
1905 }
1906
1907 /* ECMA-262 3rd Edition    11.3.1 */
1908 static HRESULT interp_postinc(exec_ctx_t *ctx)
1909 {
1910     const int arg = get_op_int(ctx, 0);
1911     IDispatch *obj;
1912     DISPID id;
1913     VARIANT v;
1914     HRESULT hres;
1915
1916     TRACE("%d\n", arg);
1917
1918     obj = stack_pop_objid(ctx, &id);
1919     if(!obj)
1920         return throw_type_error(ctx->script, ctx->ei, JS_E_OBJECT_EXPECTED, NULL);
1921
1922     hres = disp_propget(ctx->script, obj, id, &v, ctx->ei);
1923     if(SUCCEEDED(hres)) {
1924         VARIANT inc;
1925         double n;
1926
1927         hres = to_number(ctx->script, &v, ctx->ei, &n);
1928         if(SUCCEEDED(hres)) {
1929             num_set_val(&inc, n+(double)arg);
1930             hres = disp_propput(ctx->script, obj, id, &inc, ctx->ei);
1931         }
1932         if(FAILED(hres))
1933             VariantClear(&v);
1934     }
1935     IDispatch_Release(obj);
1936     if(FAILED(hres))
1937         return hres;
1938
1939     return stack_push(ctx, &v);
1940 }
1941
1942 /* ECMA-262 3rd Edition    11.4.4, 11.4.5 */
1943 static HRESULT interp_preinc(exec_ctx_t *ctx)
1944 {
1945     const int arg = get_op_int(ctx, 0);
1946     IDispatch *obj;
1947     DISPID id;
1948     VARIANT v;
1949     HRESULT hres;
1950
1951     TRACE("%d\n", arg);
1952
1953     obj = stack_pop_objid(ctx, &id);
1954     if(!obj)
1955         return throw_type_error(ctx->script, ctx->ei, JS_E_OBJECT_EXPECTED, NULL);
1956
1957     hres = disp_propget(ctx->script, obj, id, &v, ctx->ei);
1958     if(SUCCEEDED(hres)) {
1959         double n;
1960
1961         hres = to_number(ctx->script, &v, ctx->ei, &n);
1962         VariantClear(&v);
1963         if(SUCCEEDED(hres)) {
1964             num_set_val(&v, n+(double)arg);
1965             hres = disp_propput(ctx->script, obj, id, &v, ctx->ei);
1966         }
1967     }
1968     IDispatch_Release(obj);
1969     if(FAILED(hres))
1970         return hres;
1971
1972     return stack_push(ctx, &v);
1973 }
1974
1975 /* ECMA-262 3rd Edition    11.9.3 */
1976 static HRESULT equal_values(script_ctx_t *ctx, VARIANT *lval, VARIANT *rval, jsexcept_t *ei, BOOL *ret)
1977 {
1978     if(V_VT(lval) == V_VT(rval) || (is_num_vt(V_VT(lval)) && is_num_vt(V_VT(rval))))
1979        return equal2_values(lval, rval, ret);
1980
1981     /* FIXME: NULL disps should be handled in more general way */
1982     if(V_VT(lval) == VT_DISPATCH && !V_DISPATCH(lval)) {
1983         VARIANT v;
1984         V_VT(&v) = VT_NULL;
1985         return equal_values(ctx, &v, rval, ei, ret);
1986     }
1987
1988     if(V_VT(rval) == VT_DISPATCH && !V_DISPATCH(rval)) {
1989         VARIANT v;
1990         V_VT(&v) = VT_NULL;
1991         return equal_values(ctx, lval, &v, ei, ret);
1992     }
1993
1994     if((V_VT(lval) == VT_NULL && V_VT(rval) == VT_EMPTY) ||
1995        (V_VT(lval) == VT_EMPTY && V_VT(rval) == VT_NULL)) {
1996         *ret = TRUE;
1997         return S_OK;
1998     }
1999
2000     if(V_VT(lval) == VT_BSTR && is_num_vt(V_VT(rval))) {
2001         VARIANT v;
2002         double n;
2003         HRESULT hres;
2004
2005         hres = to_number(ctx, lval, ei, &n);
2006         if(FAILED(hres))
2007             return hres;
2008
2009         /* FIXME: optimize */
2010         num_set_val(&v, n);
2011
2012         return equal_values(ctx, &v, rval, ei, ret);
2013     }
2014
2015     if(V_VT(rval) == VT_BSTR && is_num_vt(V_VT(lval))) {
2016         VARIANT v;
2017         double n;
2018         HRESULT hres;
2019
2020         hres = to_number(ctx, rval, ei, &n);
2021         if(FAILED(hres))
2022             return hres;
2023
2024         /* FIXME: optimize */
2025         num_set_val(&v, n);
2026
2027         return equal_values(ctx, lval, &v, ei, ret);
2028     }
2029
2030     if(V_VT(rval) == VT_BOOL) {
2031         VARIANT v;
2032
2033         num_set_int(&v, V_BOOL(rval) ? 1 : 0);
2034         return equal_values(ctx, lval, &v, ei, ret);
2035     }
2036
2037     if(V_VT(lval) == VT_BOOL) {
2038         VARIANT v;
2039
2040         num_set_int(&v, V_BOOL(lval) ? 1 : 0);
2041         return equal_values(ctx, &v, rval, ei, ret);
2042     }
2043
2044
2045     if(V_VT(rval) == VT_DISPATCH && (V_VT(lval) == VT_BSTR || is_num_vt(V_VT(lval)))) {
2046         VARIANT v;
2047         HRESULT hres;
2048
2049         hres = to_primitive(ctx, rval, ei, &v, NO_HINT);
2050         if(FAILED(hres))
2051             return hres;
2052
2053         hres = equal_values(ctx, lval, &v, ei, ret);
2054
2055         VariantClear(&v);
2056         return hres;
2057     }
2058
2059
2060     if(V_VT(lval) == VT_DISPATCH && (V_VT(rval) == VT_BSTR || is_num_vt(V_VT(rval)))) {
2061         VARIANT v;
2062         HRESULT hres;
2063
2064         hres = to_primitive(ctx, lval, ei, &v, NO_HINT);
2065         if(FAILED(hres))
2066             return hres;
2067
2068         hres = equal_values(ctx, &v, rval, ei, ret);
2069
2070         VariantClear(&v);
2071         return hres;
2072     }
2073
2074
2075     *ret = FALSE;
2076     return S_OK;
2077 }
2078
2079 /* ECMA-262 3rd Edition    11.9.1 */
2080 static HRESULT interp_eq(exec_ctx_t *ctx)
2081 {
2082     VARIANT *l, *r;
2083     BOOL b;
2084     HRESULT hres;
2085
2086     r = stack_pop(ctx);
2087     l = stack_pop(ctx);
2088
2089     TRACE("%s == %s\n", debugstr_variant(l), debugstr_variant(r));
2090
2091     hres = equal_values(ctx->script, l, r, ctx->ei, &b);
2092     VariantClear(l);
2093     VariantClear(r);
2094     if(FAILED(hres))
2095         return hres;
2096
2097     return stack_push_bool(ctx, b);
2098 }
2099
2100 /* ECMA-262 3rd Edition    11.9.2 */
2101 static HRESULT interp_neq(exec_ctx_t *ctx)
2102 {
2103     VARIANT *l, *r;
2104     BOOL b;
2105     HRESULT hres;
2106
2107     r = stack_pop(ctx);
2108     l = stack_pop(ctx);
2109
2110     TRACE("%s != %s\n", debugstr_variant(l), debugstr_variant(r));
2111
2112     hres = equal_values(ctx->script, l, r, ctx->ei, &b);
2113     VariantClear(l);
2114     VariantClear(r);
2115     if(FAILED(hres))
2116         return hres;
2117
2118     return stack_push_bool(ctx, !b);
2119 }
2120
2121 /* ECMA-262 3rd Edition    11.9.4 */
2122 static HRESULT interp_eq2(exec_ctx_t *ctx)
2123 {
2124     VARIANT *l, *r;
2125     BOOL b;
2126     HRESULT hres;
2127
2128     TRACE("\n");
2129
2130     r = stack_pop(ctx);
2131     l = stack_pop(ctx);
2132
2133     hres = equal2_values(r, l, &b);
2134     VariantClear(l);
2135     VariantClear(r);
2136     if(FAILED(hres))
2137         return hres;
2138
2139     return stack_push_bool(ctx, b);
2140 }
2141
2142 /* ECMA-262 3rd Edition    11.9.5 */
2143 static HRESULT interp_neq2(exec_ctx_t *ctx)
2144 {
2145     VARIANT *l, *r;
2146     BOOL b;
2147     HRESULT hres;
2148
2149     TRACE("\n");
2150
2151     r = stack_pop(ctx);
2152     l = stack_pop(ctx);
2153
2154     hres = equal2_values(r, l, &b);
2155     VariantClear(l);
2156     VariantClear(r);
2157     if(FAILED(hres))
2158         return hres;
2159
2160     return stack_push_bool(ctx, !b);
2161 }
2162
2163 /* ECMA-262 3rd Edition    11.8.5 */
2164 static HRESULT less_eval(script_ctx_t *ctx, VARIANT *lval, VARIANT *rval, BOOL greater, jsexcept_t *ei, BOOL *ret)
2165 {
2166     double ln, rn;
2167     VARIANT l, r;
2168     HRESULT hres;
2169
2170     hres = to_primitive(ctx, lval, ei, &l, NO_HINT);
2171     if(FAILED(hres))
2172         return hres;
2173
2174     hres = to_primitive(ctx, rval, ei, &r, NO_HINT);
2175     if(FAILED(hres)) {
2176         VariantClear(&l);
2177         return hres;
2178     }
2179
2180     if(V_VT(&l) == VT_BSTR && V_VT(&r) == VT_BSTR) {
2181         *ret = (strcmpW(V_BSTR(&l), V_BSTR(&r)) < 0) ^ greater;
2182         SysFreeString(V_BSTR(&l));
2183         SysFreeString(V_BSTR(&r));
2184         return S_OK;
2185     }
2186
2187     hres = to_number(ctx, &l, ei, &ln);
2188     VariantClear(&l);
2189     if(SUCCEEDED(hres))
2190         hres = to_number(ctx, &r, ei, &rn);
2191     VariantClear(&r);
2192     if(FAILED(hres))
2193         return hres;
2194
2195     *ret = !isnan(ln) && !isnan(rn) && ((ln < rn) ^ greater);
2196     return S_OK;
2197 }
2198
2199 /* ECMA-262 3rd Edition    11.8.1 */
2200 static HRESULT interp_lt(exec_ctx_t *ctx)
2201 {
2202     VARIANT *l, *r;
2203     BOOL b;
2204     HRESULT hres;
2205
2206     r = stack_pop(ctx);
2207     l = stack_pop(ctx);
2208
2209     TRACE("%s < %s\n", debugstr_variant(l), debugstr_variant(r));
2210
2211     hres = less_eval(ctx->script, l, r, FALSE, ctx->ei, &b);
2212     VariantClear(l);
2213     VariantClear(r);
2214     if(FAILED(hres))
2215         return hres;
2216
2217     return stack_push_bool(ctx, b);
2218 }
2219
2220 /* ECMA-262 3rd Edition    11.8.1 */
2221 static HRESULT interp_lteq(exec_ctx_t *ctx)
2222 {
2223     VARIANT *l, *r;
2224     BOOL b;
2225     HRESULT hres;
2226
2227     r = stack_pop(ctx);
2228     l = stack_pop(ctx);
2229
2230     TRACE("%s <= %s\n", debugstr_variant(l), debugstr_variant(r));
2231
2232     hres = less_eval(ctx->script, r, l, TRUE, ctx->ei, &b);
2233     VariantClear(l);
2234     VariantClear(r);
2235     if(FAILED(hres))
2236         return hres;
2237
2238     return stack_push_bool(ctx, b);
2239 }
2240
2241 /* ECMA-262 3rd Edition    11.8.2 */
2242 static HRESULT interp_gt(exec_ctx_t *ctx)
2243 {
2244     VARIANT *l, *r;
2245     BOOL b;
2246     HRESULT hres;
2247
2248     r = stack_pop(ctx);
2249     l = stack_pop(ctx);
2250
2251     TRACE("%s > %s\n", debugstr_variant(l), debugstr_variant(r));
2252
2253     hres = less_eval(ctx->script, r, l, FALSE, ctx->ei, &b);
2254     VariantClear(l);
2255     VariantClear(r);
2256     if(FAILED(hres))
2257         return hres;
2258
2259     return stack_push_bool(ctx, b);
2260 }
2261
2262 /* ECMA-262 3rd Edition    11.8.4 */
2263 static HRESULT interp_gteq(exec_ctx_t *ctx)
2264 {
2265     VARIANT *l, *r;
2266     BOOL b;
2267     HRESULT hres;
2268
2269     r = stack_pop(ctx);
2270     l = stack_pop(ctx);
2271
2272     TRACE("%s >= %s\n", debugstr_variant(l), debugstr_variant(r));
2273
2274     hres = less_eval(ctx->script, l, r, TRUE, ctx->ei, &b);
2275     VariantClear(l);
2276     VariantClear(r);
2277     if(FAILED(hres))
2278         return hres;
2279
2280     return stack_push_bool(ctx, b);
2281 }
2282
2283 /* ECMA-262 3rd Edition    11.4.8 */
2284 static HRESULT interp_bneg(exec_ctx_t *ctx)
2285 {
2286     VARIANT *v;
2287     INT i;
2288     HRESULT hres;
2289
2290     TRACE("\n");
2291
2292     v = stack_pop(ctx);
2293     hres = to_int32(ctx->script, v, ctx->ei, &i);
2294     VariantClear(v);
2295     if(FAILED(hres))
2296         return hres;
2297
2298     return stack_push_int(ctx, ~i);
2299 }
2300
2301 /* ECMA-262 3rd Edition    11.4.9 */
2302 static HRESULT interp_neg(exec_ctx_t *ctx)
2303 {
2304     VARIANT *v;
2305     VARIANT_BOOL b;
2306     HRESULT hres;
2307
2308     TRACE("\n");
2309
2310     v = stack_pop(ctx);
2311     hres = to_boolean(v, &b);
2312     VariantClear(v);
2313     if(FAILED(hres))
2314         return hres;
2315
2316     return stack_push_bool(ctx, !b);
2317 }
2318
2319 /* ECMA-262 3rd Edition    11.7.1 */
2320 static HRESULT interp_lshift(exec_ctx_t *ctx)
2321 {
2322     DWORD r;
2323     INT l;
2324     HRESULT hres;
2325
2326     hres = stack_pop_uint(ctx, &r);
2327     if(FAILED(hres))
2328         return hres;
2329
2330     hres = stack_pop_int(ctx, &l);
2331     if(FAILED(hres))
2332         return hres;
2333
2334     return stack_push_int(ctx, l << (r&0x1f));
2335 }
2336
2337 /* ECMA-262 3rd Edition    11.7.2 */
2338 static HRESULT interp_rshift(exec_ctx_t *ctx)
2339 {
2340     DWORD r;
2341     INT l;
2342     HRESULT hres;
2343
2344     hres = stack_pop_uint(ctx, &r);
2345     if(FAILED(hres))
2346         return hres;
2347
2348     hres = stack_pop_int(ctx, &l);
2349     if(FAILED(hres))
2350         return hres;
2351
2352     return stack_push_int(ctx, l >> (r&0x1f));
2353 }
2354
2355 /* ECMA-262 3rd Edition    11.7.3 */
2356 static HRESULT interp_rshift2(exec_ctx_t *ctx)
2357 {
2358     DWORD r, l;
2359     HRESULT hres;
2360
2361     hres = stack_pop_uint(ctx, &r);
2362     if(FAILED(hres))
2363         return hres;
2364
2365     hres = stack_pop_uint(ctx, &l);
2366     if(FAILED(hres))
2367         return hres;
2368
2369     return stack_push_int(ctx, l >> (r&0x1f));
2370 }
2371
2372 /* ECMA-262 3rd Edition    11.13.1 */
2373 static HRESULT interp_assign(exec_ctx_t *ctx)
2374 {
2375     IDispatch *disp;
2376     DISPID id;
2377     VARIANT *v;
2378     HRESULT hres;
2379
2380     TRACE("\n");
2381
2382     v = stack_pop(ctx);
2383     disp = stack_pop_objid(ctx, &id);
2384
2385     if(!disp)
2386         return throw_reference_error(ctx->script, ctx->ei, JS_E_ILLEGAL_ASSIGN, NULL);
2387
2388     hres = disp_propput(ctx->script, disp, id, v, ctx->ei);
2389     IDispatch_Release(disp);
2390     if(FAILED(hres)) {
2391         VariantClear(v);
2392         return hres;
2393     }
2394
2395     return stack_push(ctx, v);
2396 }
2397
2398 /* JScript extension */
2399 static HRESULT interp_assign_call(exec_ctx_t *ctx)
2400 {
2401     const unsigned arg = get_op_uint(ctx, 0);
2402     DISPID propput_dispid = DISPID_PROPERTYPUT;
2403     IDispatch *disp;
2404     DISPPARAMS dp;
2405     VARIANT *v;
2406     DISPID id;
2407     HRESULT hres;
2408
2409     TRACE("%u\n", arg);
2410
2411     disp = stack_topn_objid(ctx, arg+1, &id);
2412     if(!disp)
2413         return throw_reference_error(ctx->script, ctx->ei, JS_E_ILLEGAL_ASSIGN, NULL);
2414
2415     jsstack_to_dp(ctx, arg+1, &dp);
2416     dp.cNamedArgs = 1;
2417     dp.rgdispidNamedArgs = &propput_dispid;
2418     hres = disp_call(ctx->script, disp, id, DISPATCH_PROPERTYPUT, &dp, NULL, ctx->ei);
2419     if(FAILED(hres))
2420         return hres;
2421
2422     v = stack_pop(ctx);
2423     stack_popn(ctx, arg+2);
2424     return stack_push(ctx, v);
2425 }
2426
2427 static HRESULT interp_undefined(exec_ctx_t *ctx)
2428 {
2429     VARIANT v;
2430
2431     TRACE("\n");
2432
2433     V_VT(&v) = VT_EMPTY;
2434     return stack_push(ctx, &v);
2435 }
2436
2437 static HRESULT interp_jmp(exec_ctx_t *ctx)
2438 {
2439     const unsigned arg = get_op_uint(ctx, 0);
2440
2441     TRACE("%u\n", arg);
2442
2443     ctx->ip = arg;
2444     return S_OK;
2445 }
2446
2447 static HRESULT interp_jmp_z(exec_ctx_t *ctx)
2448 {
2449     const unsigned arg = get_op_uint(ctx, 0);
2450     VARIANT_BOOL b;
2451     VARIANT *v;
2452     HRESULT hres;
2453
2454     TRACE("\n");
2455
2456     v = stack_pop(ctx);
2457     hres = to_boolean(v, &b);
2458     VariantClear(v);
2459     if(FAILED(hres))
2460         return hres;
2461
2462     if(b)
2463         ctx->ip++;
2464     else
2465         ctx->ip = arg;
2466     return S_OK;
2467 }
2468
2469 static HRESULT interp_pop(exec_ctx_t *ctx)
2470 {
2471     TRACE("\n");
2472
2473     stack_popn(ctx, 1);
2474     return S_OK;
2475 }
2476
2477 static HRESULT interp_ret(exec_ctx_t *ctx)
2478 {
2479     TRACE("\n");
2480
2481     ctx->ip = -1;
2482     return S_OK;
2483 }
2484
2485 typedef HRESULT (*op_func_t)(exec_ctx_t*);
2486
2487 static const op_func_t op_funcs[] = {
2488 #define X(x,a,b,c) interp_##x,
2489 OP_LIST
2490 #undef X
2491 };
2492
2493 static const unsigned op_move[] = {
2494 #define X(a,x,b,c) x,
2495 OP_LIST
2496 #undef X
2497 };
2498
2499 static HRESULT unwind_exception(exec_ctx_t *ctx)
2500 {
2501     except_frame_t *except_frame;
2502     VARIANT except_val;
2503     BSTR ident;
2504     HRESULT hres;
2505
2506     except_frame = ctx->except_frame;
2507     ctx->except_frame = except_frame->next;
2508
2509     assert(except_frame->stack_top <= ctx->top);
2510     stack_popn(ctx, ctx->top - except_frame->stack_top);
2511
2512     while(except_frame->scope != ctx->scope_chain)
2513         scope_pop(&ctx->scope_chain);
2514
2515     ctx->ip = except_frame->catch_off;
2516
2517     except_val = ctx->ei->var;
2518     memset(ctx->ei, 0, sizeof(*ctx->ei));
2519
2520     ident = except_frame->ident;
2521     heap_free(except_frame);
2522
2523     if(ident) {
2524         jsdisp_t *scope_obj;
2525
2526         hres = create_dispex(ctx->script, NULL, NULL, &scope_obj);
2527         if(SUCCEEDED(hres)) {
2528             hres = jsdisp_propput_name(scope_obj, ident, &except_val, ctx->ei);
2529             if(FAILED(hres))
2530                 jsdisp_release(scope_obj);
2531         }
2532         VariantClear(&except_val);
2533         if(FAILED(hres))
2534             return hres;
2535
2536         hres = scope_push(ctx->scope_chain, scope_obj, &ctx->scope_chain);
2537         jsdisp_release(scope_obj);
2538     }else {
2539         VARIANT v;
2540
2541         hres = stack_push(ctx, &except_val);
2542         if(FAILED(hres))
2543             return hres;
2544
2545         hres = stack_push_bool(ctx, FALSE);
2546         if(FAILED(hres))
2547             return hres;
2548
2549         V_VT(&v) = VT_EMPTY;
2550         hres = stack_push(ctx, &v);
2551     }
2552
2553     return hres;
2554 }
2555
2556 static HRESULT enter_bytecode(script_ctx_t *ctx, bytecode_t *code, function_code_t *func, jsexcept_t *ei, VARIANT *ret)
2557 {
2558     exec_ctx_t *exec_ctx = ctx->exec_ctx;
2559     except_frame_t *prev_except_frame;
2560     function_code_t *prev_func;
2561     unsigned prev_ip, prev_top;
2562     scope_chain_t *prev_scope;
2563     bytecode_t *prev_code;
2564     jsexcept_t *prev_ei;
2565     jsop_t op;
2566     HRESULT hres = S_OK;
2567
2568     TRACE("\n");
2569
2570     prev_top = exec_ctx->top;
2571     prev_scope = exec_ctx->scope_chain;
2572     prev_except_frame = exec_ctx->except_frame;
2573     prev_ip = exec_ctx->ip;
2574     prev_ei = exec_ctx->ei;
2575     prev_code = exec_ctx->code;
2576     prev_func = exec_ctx->func_code;
2577     exec_ctx->ip = func->instr_off;
2578     exec_ctx->ei = ei;
2579     exec_ctx->except_frame = NULL;
2580     exec_ctx->code = code;
2581     exec_ctx->func_code = func;
2582
2583     while(exec_ctx->ip != -1) {
2584         op = code->instrs[exec_ctx->ip].op;
2585         hres = op_funcs[op](exec_ctx);
2586         if(FAILED(hres)) {
2587             TRACE("EXCEPTION\n");
2588
2589             if(!exec_ctx->except_frame)
2590                 break;
2591
2592             hres = unwind_exception(exec_ctx);
2593             if(FAILED(hres))
2594                 break;
2595         }else {
2596             exec_ctx->ip += op_move[op];
2597         }
2598     }
2599
2600     exec_ctx->ip = prev_ip;
2601     exec_ctx->ei = prev_ei;
2602     exec_ctx->except_frame = prev_except_frame;
2603     exec_ctx->code = prev_code;
2604     exec_ctx->func_code = prev_func;
2605
2606     if(FAILED(hres)) {
2607         while(exec_ctx->scope_chain != prev_scope)
2608             scope_pop(&exec_ctx->scope_chain);
2609         stack_popn(exec_ctx, exec_ctx->top-prev_top);
2610         return hres;
2611     }
2612
2613     assert(exec_ctx->top == prev_top+1 || exec_ctx->top == prev_top);
2614     assert(exec_ctx->scope_chain == prev_scope);
2615
2616     if(exec_ctx->top == prev_top)
2617         V_VT(ret) = VT_EMPTY;
2618     else
2619         *ret = *stack_pop(exec_ctx);
2620     return S_OK;
2621 }
2622
2623 HRESULT exec_source(exec_ctx_t *ctx, bytecode_t *code, function_code_t *func, BOOL from_eval,
2624         jsexcept_t *ei, VARIANT *retv)
2625 {
2626     exec_ctx_t *prev_ctx;
2627     VARIANT val;
2628     unsigned i;
2629     HRESULT hres = S_OK;
2630
2631     for(i = 0; i < func->func_cnt; i++) {
2632         jsdisp_t *func_obj;
2633         VARIANT var;
2634
2635         if(!func->funcs[i].name)
2636             continue;
2637
2638         hres = create_source_function(ctx->script, code, func->funcs+i, ctx->scope_chain, &func_obj);
2639         if(FAILED(hres))
2640             return hres;
2641
2642         var_set_jsdisp(&var, func_obj);
2643         hres = jsdisp_propput_name(ctx->var_disp, func->funcs[i].name, &var, ei);
2644         jsdisp_release(func_obj);
2645         if(FAILED(hres))
2646             return hres;
2647     }
2648
2649     for(i=0; i < func->var_cnt; i++) {
2650         if(!ctx->is_global || !lookup_global_members(ctx->script, func->variables[i], NULL)) {
2651             DISPID id = 0;
2652
2653             hres = jsdisp_get_id(ctx->var_disp, func->variables[i], fdexNameEnsure, &id);
2654             if(FAILED(hres))
2655                 return hres;
2656         }
2657     }
2658
2659     prev_ctx = ctx->script->exec_ctx;
2660     ctx->script->exec_ctx = ctx;
2661
2662     hres = enter_bytecode(ctx->script, code, func, ei, &val);
2663     assert(ctx->script->exec_ctx == ctx);
2664     ctx->script->exec_ctx = prev_ctx;
2665     if(FAILED(hres))
2666         return hres;
2667
2668     if(retv)
2669         *retv = val;
2670     else
2671         VariantClear(&val);
2672     return S_OK;
2673 }