Import Upstream version 20180207

[hcoop/debian/mlton.git] / basis-library / mlton / ptrace.sml

(* Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
 *    Jagannathan, and Stephen Weeks.
 * Copyright (C) 1997-2000 NEC Research Institute.
 *
 * MLton is released under a BSD-style license.
 * See the file MLton-LICENSE for details.
 *)

structure MLtonPtrace: MLTON_PTRACE =
   struct
      open Primitive.Ptrace

      type pid = Pid.t

      local
         fun make request pid = PosixError.checkResult(ptrace2(request, pid))
      in
         val attach = make ATTACH
         val cont = make CONT
         val detach = make DETACH
         val kill = make KILL
         val singleStep = make SINGLESTEP
         val sysCall = make SYSCALL
      end

      local
      in
         fun peekText(pid, addr) =
            let val data: word ref = ref 0w0
            in PosixError.checkResult(ptrace4(PEEKTEXT, pid, addr, data))
               ; !data
            end
      end
   end