X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=scratch%2FFrontend.hs;h=b3ba4ecefd433af330791389ed685e93d7805ae2;hb=fc8f7aac8680ef294f47b72d44bddc674cf0fa42;hp=66b3cb96ac140d20d4901cd792989f8e9b804a64;hpb=22d68f8f5c4abc1cd1e29a65a01be0a9d38f5296;p=mate.git

diff --git a/scratch/Frontend.hs b/scratch/Frontend.hs
index 66b3cb9..b3ba4ec 100644
--- a/scratch/Frontend.hs
+++ b/scratch/Frontend.hs
@@ -97,6 +97,7 @@ getInstructions ins = zip3 (map Source $ sumSeries'' offsets) offsets ins
 getBranch :: NInst -> [Int]
 getBranch (Source s, size, IF_ICMP _ t) = [addW16Signed s t, s+size]
 getBranch (Source s, size, GOTO     t)  = [addW16Signed s t]
+getBranch (Source s, size, IRETURN   )  = [0] --actually wrong
 getBranch _                             = [] 
 
 -- a version of Prelude.span whereby the first element