bugs 520 and 524

[org.ibex.core.git] / src / org / ibex / js / JSExn.java

diff --git a/src/org/ibex/js/JSExn.java b/src/org/ibex/js/JSExn.java
index 8c1362d..b39d6c8 100644 (file)
--- a/src/org/ibex/js/JSExn.java
+++ b/src/org/ibex/js/JSExn.java
@@ -23,7 +23,7 @@ public class JSExn extends Exception {
             if (element instanceof Interpreter.CallMarker) {
                 Interpreter.CallMarker cm = (Interpreter.CallMarker)element;
                 if (cm.f != null)
-                    addBacktrace(cm.f.sourceName + ":" + cm.f.line[cm.pc]);
+                    addBacktrace(cm.f.sourceName + ":" + cm.f.line[cm.pc-1]);
                 if (cm.scope != null && cm.scope instanceof Trap.TrapScope)
                     addBacktrace("trap on property \"" + ((Trap.TrapScope)cm.scope).t.name + "\"");
             }