Mate: exposed internal functions of BasicBlocks for external benchmarks

[mate.git] / scratch / Frontend.hs

diff --git a/scratch/Frontend.hs b/scratch/Frontend.hs
index 66b3cb96ac140d20d4901cd792989f8e9b804a64..b3ba4ecefd433af330791389ed685e93d7805ae2 100644 (file)
--- 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