From 1ef9a98437c8563ec83cb56032b630181728b528 Mon Sep 17 00:00:00 2001 From: megacz Date: Fri, 30 Jan 2004 07:00:49 +0000 Subject: [PATCH] 2003/06/07 09:09:44 darcs-hash:20040130070049-2ba56-b849955126c10dd5c36b09fbc042b1f53aabd27d.gz --- src/org/xwt/js/ForthBlock.java | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/org/xwt/js/ForthBlock.java b/src/org/xwt/js/ForthBlock.java index b923f8f..0cc4ed2 100644 --- a/src/org/xwt/js/ForthBlock.java +++ b/src/org/xwt/js/ForthBlock.java @@ -101,7 +101,9 @@ class ForthBlock implements OpCodes, Tokens { case PUT: { Object val = t.pop(); Object key = t.pop(); - ((JS)t.peek()).put(key, val); + JS target = (JS)t.peek(); + if (target == null) throw new JS.Exn("tried to put a value to the " + key + " property on the null value"); + target.put(key, val); t.push(val); break; } -- 1.7.10.4