73de955e3ecb05427fc8da62ded68a918d3b4f01
[org.ibex.core.git] / src / org / ibex / js / Interpreter.java
1 // Copyright 2004 Adam Megacz, see the COPYING file for licensing [GPL]
2 package org.ibex.js;
3
4 import org.ibex.util.*;
5 import java.util.*;
6
7 /** Encapsulates a single JS interpreter (ie call stack) */
8 class Interpreter implements ByteCodes, Tokens {
9     private static final JS CASCADE = JSString.intern("cascade");
10     
11     // Thread-Interpreter Mapping /////////////////////////////////////////////////////////////////////////
12
13     static Interpreter current() { return (Interpreter)threadToInterpreter.get(Thread.currentThread()); }
14     private static Hashtable threadToInterpreter = new Hashtable();
15
16     
17     // Instance members and methods //////////////////////////////////////////////////////////////////////
18     
19     int pausecount;               ///< the number of times pause() has been invoked; -1 indicates unpauseable
20     JSFunction f = null;          ///< the currently-executing JSFunction
21     JSScope scope;                ///< the current top-level scope (LIFO stack via NEWSCOPE/OLDSCOPE)
22     final Stack stack = new Stack(); ///< the object stack
23     int pc = 0;                   ///< the program counter
24
25     Interpreter(JSFunction f, boolean pauseable, JSArray args) {
26         this.f = f;
27         this.pausecount = pauseable ? 0 : -1;
28         this.scope = new JSScope(f.parentScope);
29         try {
30             stack.push(new CallMarker());    // the "root function returned" marker -- f==null
31             stack.push(args);
32         } catch(JSExn e) {
33             throw new Error("should never happen");
34         }
35     }
36     
37     /** this is the only synchronization point we need in order to be threadsafe */
38     synchronized JS resume() throws JSExn {
39         if(f == null) throw new RuntimeException("function already finished");
40         Thread t = Thread.currentThread();
41         Interpreter old = (Interpreter)threadToInterpreter.get(t);
42         threadToInterpreter.put(t, this);
43         try {
44             return run();
45         } finally {
46             if (old == null) threadToInterpreter.remove(t);
47             else threadToInterpreter.put(t, old);
48         }
49     }
50
51     static int getLine() {
52         Interpreter c = Interpreter.current();
53         return c == null || c.f == null || c.pc < 0 || c.pc >= c.f.size ? -1 : c.f.line[c.pc];
54     }
55
56     static String getSourceName() {
57         Interpreter c = Interpreter.current();
58         return c == null || c.f == null ? null : c.f.sourceName;
59     } 
60
61     private static JSExn je(String s) { return new JSExn(getSourceName() + ":" + getLine() + " " + s); }
62
63     private JS run() throws JSExn {
64
65         // if pausecount changes after a get/put/call, we know we've been paused
66         final int initialPauseCount = pausecount;
67
68         OUTER: for(;; pc++) {
69         try {
70             int op = f.op[pc];
71             Object arg = f.arg[pc];
72             if(op == FINALLY_DONE) {
73                 FinallyData fd = (FinallyData) stack.pop();
74                 if(fd == null) continue OUTER; // NOP
75                 if(fd.exn != null) throw fd.exn;
76                 op = fd.op;
77                 arg = fd.arg;
78             }
79             switch(op) {
80             case LITERAL: stack.push((JS)arg); break;
81             case OBJECT: stack.push(new JS.O()); break;
82             case ARRAY: stack.push(new JSArray(JS.toInt((JS)arg))); break;
83             case DECLARE: scope.declare((JS)(arg==null ? stack.peek() : arg)); if(arg != null) stack.push((JS)arg); break;
84             case TOPSCOPE: stack.push(scope); break;
85             case JT: if (JS.toBoolean(stack.pop())) pc += JS.toInt((JS)arg) - 1; break;
86             case JF: if (!JS.toBoolean(stack.pop())) pc += JS.toInt((JS)arg) - 1; break;
87             case JMP: pc += JS.toInt((JS)arg) - 1; break;
88             case POP: stack.pop(); break;
89             case SWAP: {
90                 int depth = (arg == null ? 1 : JS.toInt((JS)arg));
91                 JS save = stack.elementAt(stack.size() - 1);
92                 for(int i=stack.size() - 1; i > stack.size() - 1 - depth; i--)
93                     stack.setElementAt(stack.elementAt(i-1), i);
94                 stack.setElementAt(save, stack.size() - depth - 1);
95                 break;
96             }
97             case DUP: stack.push(stack.peek()); break;
98             case NEWSCOPE: scope = new JSScope(scope); break;
99             case OLDSCOPE: scope = scope.getParentScope(); break;
100             case ASSERT: {
101                 JS o = stack.pop();
102                 if (JS.checkAssertions && !JS.toBoolean(o))
103                     throw je("ibex.assertion.failed");
104                 break;
105             }
106             case BITNOT: stack.push(JS.N(~JS.toLong(stack.pop()))); break;
107             case BANG: stack.push(JS.B(!JS.toBoolean(stack.pop()))); break;
108             case NEWFUNCTION: stack.push(((JSFunction)arg)._cloneWithNewParentScope(scope)); break;
109             case LABEL: break;
110
111             case TYPEOF: {
112                 Object o = stack.pop();
113                 if (o == null) stack.push(null);
114                 else if (o instanceof JSString) stack.push(JS.S("string"));
115                 else if (o instanceof JSNumber.B) stack.push(JS.S("boolean"));
116                 else if (o instanceof JSNumber) stack.push(JS.S("number"));
117                 else stack.push(JS.S("object"));
118                 break;
119             }
120
121             case PUSHKEYS: {
122                 JS o = stack.peek();
123                 Enumeration e = o.keys();
124                 JSArray a = new JSArray();
125                 // FEATURE: Take advantage of the Enumeration, don't create a JSArray
126                 while(e.hasMoreElements()) a.addElement((JS)e.nextElement());
127                 stack.push(a);
128                 break;
129             }
130
131             case LOOP:
132                 stack.push(new LoopMarker(pc, pc > 0 && f.op[pc - 1] == LABEL ? (String)f.arg[pc - 1] : (String)null, scope));
133                 stack.push(JS.T);
134                 break;
135
136             case BREAK:
137             case CONTINUE:
138                 while(stack.size() > 0) {
139                     JS o = stack.pop();
140                     if (o instanceof CallMarker) je("break or continue not within a loop");
141                     if (o instanceof TryMarker) {
142                         if(((TryMarker)o).finallyLoc < 0) continue; // no finally block, keep going
143                         stack.push(new FinallyData(op, arg));
144                         scope = ((TryMarker)o).scope;
145                         pc = ((TryMarker)o).finallyLoc - 1;
146                         continue OUTER;
147                     }
148                     if (o instanceof LoopMarker) {
149                         if (arg == null || arg.equals(((LoopMarker)o).label)) {
150                             int loopInstructionLocation = ((LoopMarker)o).location;
151                             int endOfLoop = JS.toInt((JS)f.arg[loopInstructionLocation]) + loopInstructionLocation;
152                             scope = ((LoopMarker)o).scope;
153                             if (op == CONTINUE) { stack.push(o); stack.push(JS.F); }
154                             pc = op == BREAK ? endOfLoop - 1 : loopInstructionLocation;
155                             continue OUTER;
156                         }
157                     }
158                 }
159                 throw new Error("CONTINUE/BREAK invoked but couldn't find LoopMarker at " +
160                                 getSourceName() + ":" + getLine());
161
162             case TRY: {
163                 int[] jmps = (int[]) arg;
164                 // jmps[0] is how far away the catch block is, jmps[1] is how far away the finally block is
165                 // each can be < 0 if the specified block does not exist
166                 stack.push(new TryMarker(jmps[0] < 0 ? -1 : pc + jmps[0], jmps[1] < 0 ? -1 : pc + jmps[1], this));
167                 break;
168             }
169
170             case RETURN: {
171                 JS retval = stack.pop();
172                 while(stack.size() > 0) {
173                     Object o = stack.pop();
174                     if (o instanceof TryMarker) {
175                         if(((TryMarker)o).finallyLoc < 0) continue;
176                         stack.push(retval); 
177                         stack.push(new FinallyData(RETURN));
178                         scope = ((TryMarker)o).scope;
179                         pc = ((TryMarker)o).finallyLoc - 1;
180                         continue OUTER;
181                     } else if (o instanceof CallMarker) {
182                         if (o instanceof TrapMarker) { // handles return component of a read trap
183                             TrapMarker tm = (TrapMarker) o;
184                             boolean cascade = tm.t.writeTrap() && !tm.cascadeHappened && !JS.toBoolean(retval);
185                             if(cascade) {
186                                 Trap t = tm.t.next;
187                                 while(t != null && t.readTrap()) t = t.next;
188                                 if(t != null) {
189                                     tm.t = t;
190                                     stack.push(tm);
191                                     JSArray args = new JSArray();
192                                     args.addElement(tm.val);
193                                     stack.push(args);
194                                     f = t.f;
195                                     scope = new JSScope(f.parentScope);
196                                     pc = -1;
197                                     continue OUTER;
198                                 } else {
199                                     tm.trapee.put(tm.key,tm.val);
200                                 }
201                             }
202                         }
203                         scope = ((CallMarker)o).scope;
204                         pc = ((CallMarker)o).pc - 1;
205                         f = (JSFunction)((CallMarker)o).f;
206                         stack.push(retval);
207                         if (pausecount > initialPauseCount) { pc++; return null; }   // we were paused
208                         if(f == null) return retval;
209                         continue OUTER;
210                     }
211                 }
212                 throw new Error("error: RETURN invoked but couldn't find a CallMarker!");
213             }
214
215             case PUT: {
216                 JS val = stack.pop();
217                 JS key = stack.pop();
218                 JS target = stack.peek();
219                 if (target == null) throw je("tried to put " + JS.debugToString(val) + " to the " + JS.debugToString(key) + " property on the null value");
220                 if (key == null) throw je("tried to assign \"" + JS.debugToString(val) + "\" to the null key");
221                 
222                 Trap t = null;
223                 TrapMarker tm = null;
224                 if(target instanceof JSScope && key.jsequals(CASCADE)) {
225                     Object o=null;
226                     int i;
227                     for(i=stack.size()-1;i>=0;i--) if((o = stack.elementAt(i)) instanceof CallMarker) break;
228                     if(i==0) throw new Error("didn't find a call marker while doing cascade");
229                     if(o instanceof TrapMarker) {
230                         tm = (TrapMarker) o;
231                         target = tm.trapee;
232                         key = tm.key;
233                         tm.cascadeHappened = true;
234                         t = tm.t;
235                         if(t.readTrap()) throw new JSExn("can't do a write cascade in a read trap");
236                         t = t.next;
237                         while(t != null && t.readTrap()) t = t.next;
238                     }
239                 }
240                 if(tm == null) { // didn't find a trap marker, try to find a trap
241                     t = target instanceof JSScope ? t = ((JSScope)target).top().getTrap(key) : ((JS)target).getTrap(key);
242                     while(t != null && t.readTrap()) t = t.next;
243                 }
244                 
245                 stack.push(val);
246                 
247                 if(t != null) {
248                     stack.push(new TrapMarker(this,t,target,key,val));
249                     JSArray args = new JSArray();
250                     args.addElement(val);
251                     stack.push(args);
252                     f = t.f;
253                     scope = new TrapScope(f.parentScope,target,f,key);
254                     pc = -1;
255                     break;
256                 } else {
257                     target.put(key,val);
258                     if (pausecount > initialPauseCount) { pc++; return null; }   // we were paused
259                     break;
260                 }
261             }
262
263             case GET:
264             case GET_PRESERVE: {
265                 JS target, key;
266                 if (op == GET) {
267                     key = arg == null ? stack.pop() : (JS)arg;
268                     target = stack.pop();
269                 } else {
270                     key = stack.pop();
271                     target = stack.peek();
272                     stack.push(key);
273                 }
274                 JS ret = null;
275                 if (key == null) throw je("tried to get the null key from " + target);
276                 if (target == null) throw je("tried to get property \"" + key + "\" from the null object");
277                 
278                 Trap t = null;
279                 TrapMarker tm = null;
280                 if(target instanceof JSScope && key.jsequals(CASCADE)) {
281                     JS o=null;
282                     int i;
283                     for(i=stack.size()-1;i>=0;i--) if((o = stack.elementAt(i)) instanceof CallMarker) break;
284                     if(i==0) throw new Error("didn't find a call marker while doing cascade");
285                     if(o instanceof TrapMarker) {
286                         tm = (TrapMarker) o;
287                         target = tm.trapee;
288                         key = tm.key;
289                         t = tm.t;
290                         if(t.writeTrap()) throw new JSExn("can't do a read cascade in a write trap");
291                         t = t.next;
292                         while(t != null && t.writeTrap()) t = t.next;
293                         if(t != null) tm.cascadeHappened = true;
294                     }
295                 }
296                 if(tm == null) { // didn't find a trap marker, try to find a trap
297                     t = target instanceof JSScope ? t = ((JSScope)target).top().getTrap(key) : ((JS)target).getTrap(key);
298                     while(t != null && t.writeTrap()) t = t.next;
299                 }
300                 
301                 if(t != null) {
302                     stack.push(new TrapMarker(this,t,(JS)target,key,null));
303                     stack.push(new JSArray());
304                     f = t.f;
305                     scope = new TrapScope(f.parentScope,target,f,key);
306                     pc = -1;
307                     break;
308                 } else {
309                     ret = target.get(key);
310                     if (pausecount > initialPauseCount) { pc++; return null; }   // we were paused
311                     if (ret == JS.METHOD) ret = new Stub(target, key);
312                     stack.push(ret);
313                     break;
314                 }
315             }
316             
317             case CALL: case CALLMETHOD: {
318                 int numArgs = JS.toInt((JS)arg);
319                 JS method = null;
320                 JS ret = null;
321                 JS object = stack.pop();
322
323                 if (op == CALLMETHOD) {
324                     if (object == JS.METHOD) {
325                         method = stack.pop();
326                         object = stack.pop();
327                     } else if (object == null) {
328                         method = stack.pop();
329                         object = stack.pop();
330                         throw new JSExn("function '"+JS.debugToString(method)+"' not found in " + object.getClass().getName());
331                     } else {
332                         stack.pop();
333                         stack.pop();
334                     }
335                 }
336                 JS[] rest = numArgs > 3 ? new JS[numArgs - 3] : null;
337                 for(int i=numArgs - 1; i>2; i--) rest[i-3] = stack.pop();
338                 JS a2 = numArgs <= 2 ? null : stack.pop();
339                 JS a1 = numArgs <= 1 ? null : stack.pop();
340                 JS a0 = numArgs <= 0 ? null : stack.pop();
341
342
343                 if (object instanceof JSFunction) {
344                     // FIXME: use something similar to call0/call1/call2 here
345                     JSArray arguments = new JSArray();
346                     for(int i=0; i<numArgs; i++) arguments.addElement(i==0?a0:i==1?a1:i==2?a2:rest[i-3]);
347                     stack.push(new CallMarker(this));
348                     stack.push(arguments);
349                     f = (JSFunction)object;
350                     scope = new JSScope(f.parentScope);
351                     pc = -1;
352                     break;
353                 } else {
354                     JS c = (JS)object;
355                     ret = method == null ? c.call(a0, a1, a2, rest, numArgs) : c.callMethod(method, a0, a1, a2, rest, numArgs);
356                 }
357                 
358                 if (pausecount > initialPauseCount) { pc++; return null; }
359                 stack.push(ret);
360                 break;
361             }
362
363             case THROW:
364                 throw new JSExn(stack.pop(), stack, f, pc, scope);
365
366                 /* FIXME GRAMMAR
367             case MAKE_GRAMMAR: {
368                 final Grammar r = (Grammar)arg;
369                 final JSScope final_scope = scope;
370                 Grammar r2 = new Grammar() {
371                         public int match(String s, int start, Hash v, JSScope scope) throws JSExn {
372                             return r.match(s, start, v, final_scope);
373                         }
374                         public int matchAndWrite(String s, int start, Hash v, JSScope scope, String key) throws JSExn {
375                             return r.matchAndWrite(s, start, v, final_scope, key);
376                         }
377                         public Object call(Object a0, Object a1, Object a2, Object[] rest, int nargs) throws JSExn {
378                             Hash v = new Hash();
379                             r.matchAndWrite((String)a0, 0, v, final_scope, "foo");
380                             return v.get("foo");
381                         }
382                     };
383                 Object obj = stack.pop();
384                 if (obj != null && obj instanceof Grammar) r2 = new Grammar.Alternative((Grammar)obj, r2);
385                 stack.push(r2);
386                 break;
387             }
388                 */
389             case ADD_TRAP: case DEL_TRAP: {
390                 JS val = stack.pop();
391                 JS key = stack.pop();
392                 JS js = stack.peek();
393                 // A trap addition/removal
394                 if(!(val instanceof JSFunction)) throw new JSExn("tried to add/remove a non-function trap");
395                 if(js instanceof JSScope) {
396                     JSScope s = (JSScope) js;
397                     while(s.getParentScope() != null) {
398                         if(s.has(key)) throw new JSExn("cannot trap a variable that isn't at the top level scope");
399                         s = s.getParentScope();
400                     }
401                     js = s;
402                 }
403                 if(op == ADD_TRAP) js.addTrap(key, (JSFunction)val);
404                 else js.delTrap(key, (JSFunction)val);
405                 break;
406             }
407
408             case ADD: {
409                 int count = ((JSNumber)arg).toInt();
410                 if(count < 2) throw new Error("this should never happen");
411                 if(count == 2) {
412                     // common case
413                     JS right = stack.pop();
414                     JS left = stack.pop();
415                     JS ret;
416                     if(left instanceof JSString || right instanceof JSString)
417                         ret = JS.S(JS.toString(left).concat(JS.toString(right)));
418                     else if(left instanceof JSNumber.D || right instanceof JSNumber.D)
419                         ret = JS.N(JS.toDouble(left) + JS.toDouble(right));
420                     else {
421                         long l = JS.toLong(left) + JS.toLong(right);
422                         if(l < Integer.MIN_VALUE || l > Integer.MAX_VALUE) ret = JS.N(l);
423                         ret = JS.N((int)l);
424                     }
425                     stack.push(ret);
426                 } else {
427                     JS[] args = new JS[count];
428                     while(--count >= 0) args[count] = stack.pop();
429                     if(args[0] instanceof JSString) {
430                         StringBuffer sb = new StringBuffer(64);
431                         for(int i=0;i<args.length;i++) sb.append(JS.toString(args[i]));
432                         stack.push(JS.S(sb.toString()));
433                     } else {
434                         int numStrings = 0;
435                         for(int i=0;i<args.length;i++) if(args[i] instanceof JSString) numStrings++;
436                         if(numStrings == 0) {
437                             double d = 0.0;
438                             for(int i=0;i<args.length;i++) d += JS.toDouble(args[i]);
439                             stack.push(JS.N(d));
440                         } else {
441                             int i=0;
442                             StringBuffer sb = new StringBuffer(64);
443                             if(!(args[0] instanceof JSString || args[1] instanceof JSString)) {
444                                 double d=0.0;
445                                 do {
446                                     d += JS.toDouble(args[i++]);
447                                 } while(!(args[i] instanceof JSString));
448                                 sb.append(JS.toString(JS.N(d)));
449                             }
450                             while(i < args.length) sb.append(JS.toString(args[i++]));
451                             stack.push(JS.S(sb.toString()));
452                         }
453                     }
454                 }
455                 break;
456             }
457
458             default: {
459                 JS right = stack.pop();
460                 JS left = stack.pop();
461                 switch(op) {
462                         
463                 case BITOR: stack.push(JS.N(JS.toLong(left) | JS.toLong(right))); break;
464                 case BITXOR: stack.push(JS.N(JS.toLong(left) ^ JS.toLong(right))); break;
465                 case BITAND: stack.push(JS.N(JS.toLong(left) & JS.toLong(right))); break;
466
467                 case SUB: stack.push(JS.N(JS.toDouble(left) - JS.toDouble(right))); break;
468                 case MUL: stack.push(JS.N(JS.toDouble(left) * JS.toDouble(right))); break;
469                 case DIV: stack.push(JS.N(JS.toDouble(left) / JS.toDouble(right))); break;
470                 case MOD: stack.push(JS.N(JS.toDouble(left) % JS.toDouble(right))); break;
471                         
472                 case LSH: stack.push(JS.N(JS.toLong(left) << JS.toLong(right))); break;
473                 case RSH: stack.push(JS.N(JS.toLong(left) >> JS.toLong(right))); break;
474                 case URSH: stack.push(JS.N(JS.toLong(left) >>> JS.toLong(right))); break;
475                         
476                 //#repeat </<=/>/>= LT/LE/GT/GE
477                 case LT: {
478                     if(left instanceof JSString && right instanceof JSString)
479                         stack.push(JS.B(JS.toString(left).compareTo(JS.toString(right)) < 0));
480                     else
481                         stack.push(JS.B(JS.toDouble(left) < JS.toDouble(right)));
482                 }
483                 //#end
484                     
485                 case EQ:
486                 case NE: {
487                     boolean ret;
488                     if(left == null && right == null) ret = true;
489                     else if(left == null || right == null) ret = false;
490                     else ret = left.jsequals(right);
491                     stack.push(JS.B(op == EQ ? ret : !ret)); break;
492                 }
493
494                 default: throw new Error("unknown opcode " + op);
495                 } }
496             }
497
498         } catch(JSExn e) {
499             catchException(e);
500             pc--; // it'll get incremented on the next iteration
501         } // end try/catch
502         } // end for
503     }
504     
505     /** tries to find a handler withing the call chain for this exception
506         if a handler is found the interpreter is setup to call the exception handler
507         if a handler is not found the exception is thrown
508     */
509     void catchException(JSExn e) throws JSExn {
510         while(stack.size() > 0) {
511             JS o = stack.pop();
512             if (o instanceof CatchMarker || o instanceof TryMarker) {
513                 boolean inCatch = o instanceof CatchMarker;
514                 if(inCatch) {
515                     o = stack.pop();
516                     if(((TryMarker)o).finallyLoc < 0) continue; // no finally block, keep going
517                 }
518                 if(!inCatch && ((TryMarker)o).catchLoc >= 0) {
519                     // run the catch block, this will implicitly run the finally block, if it exists
520                     stack.push(o);
521                     stack.push(catchMarker);
522                     stack.push(e.getObject());
523                     f = ((TryMarker)o).f;
524                     scope = ((TryMarker)o).scope;
525                     pc = ((TryMarker)o).catchLoc;
526                     return;
527                 } else {
528                     stack.push(new FinallyData(e));
529                     f = ((TryMarker)o).f;
530                     scope = ((TryMarker)o).scope;
531                     pc = ((TryMarker)o).finallyLoc;
532                     return;
533                 }
534             }
535         }
536         throw e;
537     }
538
539
540
541     // Markers //////////////////////////////////////////////////////////////////////
542
543     static class Marker extends JS {
544         public JS get(JS key) throws JSExn { throw new Error("this should not be accessible from a script"); }
545         public void put(JS key, JS val) throws JSExn { throw new Error("this should not be accessible from a script"); }
546         public String coerceToString() { throw new Error("this should not be accessible from a script"); }
547         public JS call(JS a0, JS a1, JS a2, JS[] rest, int nargs) throws JSExn { throw new Error("this should not be accessible from a script"); }
548     }
549     
550     static class CallMarker extends Marker {
551         final int pc;
552         final JSScope scope;
553         final JSFunction f;
554         public CallMarker(Interpreter cx) { pc = cx.pc + 1; scope = cx.scope; f = cx.f; }
555         public CallMarker() { pc = -1; scope = null; f = null; }
556     }
557     
558     static class TrapMarker extends CallMarker {
559         Trap t;
560         final JS trapee;
561         final JS key;
562         final JS val;
563         boolean cascadeHappened;
564         public TrapMarker(Interpreter cx, Trap t, JS trapee, JS key, JS val) {
565             super(cx);
566             this.t = t;
567             this.trapee = trapee;
568             this.key = key;
569             this.val = val;
570         }
571     }
572     
573     static class CatchMarker extends Marker { }
574     private static CatchMarker catchMarker = new CatchMarker();
575     
576     static class LoopMarker extends Marker {
577         final public int location;
578         final public String label;
579         final public JSScope scope;
580         public LoopMarker(int location, String label, JSScope scope) {
581             this.location = location;
582             this.label = label;
583             this.scope = scope;
584         }
585     }
586     static class TryMarker extends Marker {
587         final public int catchLoc;
588         final public int finallyLoc;
589         final public JSScope scope;
590         final public JSFunction f;
591         public TryMarker(int catchLoc, int finallyLoc, Interpreter cx) {
592             this.catchLoc = catchLoc;
593             this.finallyLoc = finallyLoc;
594             this.scope = cx.scope;
595             this.f = cx.f;
596         }
597     }
598     static class FinallyData extends Marker {
599         final public int op;
600         final public Object arg;
601         final public JSExn exn;
602         public FinallyData(int op) { this(op,null); }
603         public FinallyData(int op, Object arg) { this.op = op; this.arg = arg; this.exn = null; }
604         public FinallyData(JSExn exn) { this.exn = exn; this.op = -1; this.arg = null; } // Just throw this exn
605     }
606
607     static class TrapScope extends JSScope {
608         JS trapee;
609         JS callee;
610         JS trapname;
611         public TrapScope(JSScope parent, JS trapee, JS callee, JS trapname) {
612             super(parent); this.trapee = trapee; this.callee = callee; this.trapname = trapname;
613         }
614         public JS get(JS key) throws JSExn {
615             if(JS.isString(key)) {
616                 //#switch(JS.toString(key))
617                 case "trapee": return trapee;
618                 case "callee": return callee;
619                 case "trapname": return trapname;
620                 //#end
621             }
622             return super.get(key);
623         }
624     }
625
626     static class Stub extends JS {
627         private JS method;
628         JS obj;
629         public Stub(JS obj, JS method) { this.obj = obj; this.method = method; }
630         public JS call(JS a0, JS a1, JS a2, JS[] rest, int nargs) throws JSExn {
631             return ((JS)obj).callMethod(method, a0, a1, a2, rest, nargs);
632         }
633     }
634     
635     static class Stack {
636         private static final int MAX_STACK_SIZE = 512;
637         private JS[] stack = new JS[64];
638         private int sp = 0;
639         public final void push(JS o) throws JSExn {
640             if(sp == stack.length) grow();
641             stack[sp++] = o;
642         }
643         public final JS peek() {
644             if(sp == 0) throw new RuntimeException("Stack underflow");
645             return stack[sp-1];
646         }
647         public final JS pop() {
648             if(sp == 0) throw new RuntimeException("Stack underflow");
649             return stack[--sp];
650         }
651         private void grow() throws JSExn {
652             if(stack.length >= MAX_STACK_SIZE) throw new JSExn("Stack overflow");
653             JS[] stack2 = new JS[stack.length * 2];
654             System.arraycopy(stack,0,stack2,0,stack.length);
655         }
656         // FIXME: Eliminate all uses of SWAP n>1 so we don't need this
657         public int size() { return sp; }
658         public void setElementAt(JS o, int i) { stack[i] = o; }
659         public JS elementAt(int i) { return stack[i]; }
660     }
661 }