Util: remove unused function

Sigrid Haflínudóttir committed 8 years agomaster

Commit 19ec71a1 parent 4f247d81 file · +0 −6Browse files

Unified · Split

src/Util.hs+0−6

@@ -182,12 +182,6 @@ prettyOp progs opIndex op = · 181 unmodified lines
182	182	vAtInd :: Word16 -> Int -> String
183	183	vAtInd a i = vAt a ++ "[" ++ show i ++ "]"
184	184
185		− globalFromAddr :: Word16 -> String
186		− globalFromAddr b =
187		− case globalAtOffset progs (fromIntegral $ word32At b (progsGlobalValues progs)) of
188		− Just f -> B.unpack (defName f)
189		− Nothing -> "&" ++ show b
190		−
191	185	assignField :: Word16 -> Word16 -> Word16 -> (Word16 -> String) -> String
192	186	assignField a b c at =
193	187	at c ++ " = " ++ eAt a ++ "." ++ fieldFromAddr progs b