From 77e72132493bc9864bc795e429f67fc0c0443748 Mon Sep 17 00:00:00 2001
From: Armin Friedl <friedl.armin@gmail.com>
Date: Mon, 29 Aug 2016 12:53:53 +0200
Subject: [PATCH] jump over syscall

---
 src/App/Fontifier.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/App/Fontifier.hs b/src/App/Fontifier.hs
index aec75e2..fef50ea 100644
--- a/src/App/Fontifier.hs
+++ b/src/App/Fontifier.hs
@@ -195,6 +195,8 @@ invAcc a i ('[':t) = invAcc a (i+1 + g) (drop g t)      -- TODO check reads in f
 -- if it is found set its boolean value to true
 -- if it is not found add its slice to the result
 -- all variables with false at the end of a block are unused
+invAcc a i ('.':t) = invAcc a (i+1 + g) (drop g t)
+  where g = fromJust (elemIndex ';' t)
 invAcc a i s@(c:t) = let writeAcc = getWrite i s
                          matchLen = (length $ (\(v,_,_) -> v) (fromJust writeAcc))
                          readAcc =  getRead i s