Unified · Split
| @@ -182,12 +182,6 @@ prettyOp progs opIndex op = · 181 unmodified lines | |||
| 182 | vAtInd :: Word16 -> Int -> String | 182 | vAtInd :: Word16 -> Int -> String |
| 183 | vAtInd a i = vAt a ++ "[" ++ show i ++ "]" | 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 | assignField :: Word16 -> Word16 -> Word16 -> (Word16 -> String) -> String | 185 | assignField :: Word16 -> Word16 -> Word16 -> (Word16 -> String) -> String |
| 192 | assignField a b c at = | 186 | assignField a b c at = |
| 193 | at c ++ " = " ++ eAt a ++ "." ++ fieldFromAddr progs b | 187 | at c ++ " = " ++ eAt a ++ "." ++ fieldFromAddr progs b |