X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=blobdiff_plain;f=Mate%2FX86CodeGen.hs;fp=Mate%2FX86CodeGen.hs;h=5674523f9cb8fb90bad456510abb0bd0eb51ec60;hp=af3e98d282a31e37c35e40898c70bfa487eac400;hb=a6e23e6cdfff068398a0e50bcd757832554effb5;hpb=949d0d6c76ea76c18b8df17f1fc05efae17b25be

diff --git a/Mate/X86CodeGen.hs b/Mate/X86CodeGen.hs
index af3e98d..5674523 100644
--- a/Mate/X86CodeGen.hs
+++ b/Mate/X86CodeGen.hs
@@ -226,6 +226,7 @@ emitFromBB cls method = do
     emit' ATHROW = do
       trapaddr <- emitSigIllTrap 2
       let patcher resp reip = do
+            error "no athrow for you, sorry"
             emitSigIllTrap 2
             return reip
       return $ Just (trapaddr, ThrowException patcher)