We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 16bdb2b commit bced2a8Copy full SHA for bced2a8
src/HaTrace.hs
@@ -141,7 +141,7 @@ printX86Regs = print
141
142
printX86_64Regs :: X86_64Regs -> IO ()
143
printX86_64Regs r =
144
- case parseSyscall r of
+ case parseSyscallX86_64 r of
145
Nothing -> putStrLn $ "Unknown syscall number: " ++ show (orig_rax r)
146
Just sc -> print sc
147
@@ -150,9 +150,9 @@ data Syscall
150
| Write
151
deriving (Show, Eq)
152
153
-parseSyscall :: X86_64Regs -> Maybe Syscall
154
-parseSyscall X86_64Regs {..} =
+parseSyscallX86_64 :: X86_64Regs -> Maybe Syscall
+parseSyscallX86_64 X86_64Regs {..} =
155
case orig_rax of
156
- 0x3 -> Just Read
157
- 0x4 -> Just Write
+ 0 -> Just Read
+ 1 -> Just Write
158
_ -> Nothing
0 commit comments