Skip to content

Instantly share code, notes, and snippets.

import Text.Printf
import Control.Concurrent
import Control.Monad
import Control.Exception
foreign import ccall unsafe "test_c.h read_errno" get_errno :: IO Int
foreign import ccall unsafe "test_c.h write_errno" set_errno :: Int -> IO ()
main :: IO ()
main = do
[ 0.000000] Initializing cgroup subsys cpuset
[ 0.000000] Initializing cgroup subsys cpu
[ 0.000000] Initializing cgroup subsys cpuacct
[ 0.000000] Linux version 3.12.8-1-ARCH (tobias@T-POWA-LX) (gcc version 4.8.2 20131219 (prerelease) (GCC) ) #1 SMP PREEMPT Thu Jan 16 09:16:34 CET 2014
[ 0.000000] Command line: BOOT_IMAGE=/vmlinuz-linux root=UUID=2dcec6aa-f82f-4592-a132-8f3504e8f5f6 rw "acpi_osi=!Windows 2012" pcie_aspm=force
[ 0.000000] e820: BIOS-provided physical RAM map:
[ 0.000000] BIOS-e820: [mem 0x0000000000000000-0x0000000000057fff] usable
[ 0.000000] BIOS-e820: [mem 0x0000000000058000-0x0000000000058fff] reserved
[ 0.000000] BIOS-e820: [mem 0x0000000000059000-0x000000000009bfff] usable
[ 0.000000] BIOS-e820: [mem 0x000000000009c000-0x000000000009cfff] reserved