1e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata/*
2e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * This file is part of ltrace.
344ae188c8dcd2727e383dcac0d46c3f784d0da5fPetr Machata * Copyright (C) 2013 Petr Machata, Red Hat Inc.
4e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * Copyright (C) 2002,2008,2009 Juan Cespedes
5e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * Copyright (C) 2009 Juan Cespedes
6e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * Copyright (C) 2008 Luis Machado, IBM Corporation
7e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata *
8e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * This program is free software; you can redistribute it and/or
9e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * modify it under the terms of the GNU General Public License as
10e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * published by the Free Software Foundation; either version 2 of the
11e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * License, or (at your option) any later version.
12e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata *
13e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * This program is distributed in the hope that it will be useful, but
14e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * WITHOUT ANY WARRANTY; without even the implied warranty of
15e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * General Public License for more details.
17e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata *
18e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * You should have received a copy of the GNU General Public License
19e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * along with this program; if not, write to the Free Software
20e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
21e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata * 02110-1301 USA
22e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata */
23e99af270a60891e68d465c4cd97dbe29cd1a05e4Petr Machata
24f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes#include "config.h"
25f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes
26f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes#include <sys/types.h>
27f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes#include <sys/ptrace.h>
28f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes#include <asm/ptrace.h>
29f04d032e298c410e45553223a979c1f26f280259Petr Machata#include <errno.h>
30f04d032e298c410e45553223a979c1f26f280259Petr Machata#include <error.h>
31f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes
32366c2f46d844f040458df9b7e35fc3b8527ed2d3Petr Machata#include "proc.h"
33f728123bd75a65a6a1536e198c3c30719e494e71Juan Cespedes#include "common.h"
345c3fe0697b202cc7d95e90459de0fb312b297b27Juan Cespedes
35f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes#if (!defined(PTRACE_PEEKUSER) && defined(PTRACE_PEEKUSR))
36f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes# define PTRACE_PEEKUSER PTRACE_PEEKUSR
37f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes#endif
38f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes
39f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes#if (!defined(PTRACE_POKEUSER) && defined(PTRACE_POKEUSR))
40f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes# define PTRACE_POKEUSER PTRACE_POKEUSR
41f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes#endif
42f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes
43f13505251e6402460f6cc7ec84e0d8ca91607b4fJuan Cespedesvoid *
44929bd57ca202fd2f2e8485ebf65d683e664f67b5Petr Machataget_instruction_pointer(struct process *proc)
45929bd57ca202fd2f2e8485ebf65d683e664f67b5Petr Machata{
4661da33723c5fb09762e38bd39a26ee15d62ffebcJuan Cespedes	return (void *)ptrace(PTRACE_PEEKUSER, proc->pid, sizeof(long)*PT_NIP, 0);
47f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes}
48f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes
49f13505251e6402460f6cc7ec84e0d8ca91607b4fJuan Cespedesvoid
50929bd57ca202fd2f2e8485ebf65d683e664f67b5Petr Machataset_instruction_pointer(struct process *proc, void *addr)
51f04d032e298c410e45553223a979c1f26f280259Petr Machata{
52f04d032e298c410e45553223a979c1f26f280259Petr Machata	if (ptrace(PTRACE_POKEUSER, proc->pid, sizeof(long)*PT_NIP, addr) != 0)
53f04d032e298c410e45553223a979c1f26f280259Petr Machata		error(0, errno, "set_instruction_pointer");
54f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes}
55f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes
56f13505251e6402460f6cc7ec84e0d8ca91607b4fJuan Cespedesvoid *
57929bd57ca202fd2f2e8485ebf65d683e664f67b5Petr Machataget_stack_pointer(struct process *proc)
58929bd57ca202fd2f2e8485ebf65d683e664f67b5Petr Machata{
5961da33723c5fb09762e38bd39a26ee15d62ffebcJuan Cespedes	return (void *)ptrace(PTRACE_PEEKUSER, proc->pid, sizeof(long)*PT_R1, 0);
60f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes}
61f1bfe203f5f1c0e11a614f9d593a68406f5cb47eJuan Cespedes
62f13505251e6402460f6cc7ec84e0d8ca91607b4fJuan Cespedesvoid *
63929bd57ca202fd2f2e8485ebf65d683e664f67b5Petr Machataget_return_addr(struct process *proc, void *stack_pointer)
64929bd57ca202fd2f2e8485ebf65d683e664f67b5Petr Machata{
652a61d19bd244dadcde5009f1632cf14b95623e3dJuan Cespedes	return (void *)ptrace(PTRACE_PEEKUSER, proc->pid, sizeof(long)*PT_LNK, 0);
662a61d19bd244dadcde5009f1632cf14b95623e3dJuan Cespedes}
67