new insn: fix wrong behaviour on lazy class init

[mate.git] / Mate / Types.hs

diff --git a/Mate/Types.hs b/Mate/Types.hs
index 65c8546dc9b4429971430cac5a904c2b562b0a61..831744ab27e1c0d96e162cd16fe6de4707b86dc2 100644 (file)
--- a/Mate/Types.hs
+++ b/Mate/Types.hs
@@ -41,6 +41,7 @@ data TrapCause =
   VirtualMethod Bool MethodInfo | -- for virtual calls
   InterfaceMethod Bool MethodInfo | -- for interface calls
   InstanceOf B.ByteString | -- class name
+  NewObject B.ByteString | -- class name
   StaticField StaticFieldInfo deriving Show
 
 data StaticFieldInfo = StaticFieldInfo {