|
 |
4f818e |
@@ -, +, @@
|
|
|
4f818e |
---
|
|
|
4f818e |
sysdeps/linux-gnu/s390/arch.h | 2 ++
|
|
|
4f818e |
sysdeps/linux-gnu/s390/plt.c | 22 ++++++++++++++++++++++
|
|
|
4f818e |
2 files changed, 24 insertions(+)
|
|
|
4f818e |
--- a/sysdeps/linux-gnu/s390/arch.h
|
|
|
4f818e |
+++ a/sysdeps/linux-gnu/s390/arch.h
|
|
|
4f818e |
@@ -1,5 +1,6 @@
|
|
|
4f818e |
/*
|
|
|
4f818e |
* This file is part of ltrace.
|
|
|
4f818e |
+ * Copyright (C) 2013 Petr Machata, Red Hat Inc.
|
|
|
4f818e |
* Copyright (C) 2001 IBM Poughkeepsie, IBM Corporation
|
|
|
4f818e |
*
|
|
|
4f818e |
* This program is free software; you can redistribute it and/or
|
|
|
4f818e |
@@ -25,6 +26,7 @@
|
|
|
4f818e |
#define ARCH_HAVE_FETCH_ARG
|
|
|
4f818e |
#define ARCH_HAVE_SIZEOF
|
|
|
4f818e |
#define ARCH_HAVE_ALIGNOF
|
|
|
4f818e |
+#define ARCH_HAVE_ADD_PLT_ENTRY
|
|
|
4f818e |
|
|
|
4f818e |
#define LT_ELFCLASS ELFCLASS32
|
|
|
4f818e |
#define LT_ELF_MACHINE EM_S390
|
|
|
4f818e |
--- a/sysdeps/linux-gnu/s390/plt.c
|
|
|
4f818e |
+++ a/sysdeps/linux-gnu/s390/plt.c
|
|
|
4f818e |
@@ -1,5 +1,6 @@
|
|
|
4f818e |
/*
|
|
|
4f818e |
* This file is part of ltrace.
|
|
|
4f818e |
+ * Copyright (C) 2013 Petr Machata, Red Hat Inc.
|
|
|
4f818e |
* Copyright (C) 2004,2008,2009 Juan Cespedes
|
|
|
4f818e |
*
|
|
|
4f818e |
* This program is free software; you can redistribute it and/or
|
|
|
4f818e |
@@ -19,9 +20,12 @@
|
|
|
4f818e |
*/
|
|
|
4f818e |
|
|
|
4f818e |
#include <gelf.h>
|
|
|
4f818e |
+#include <stdbool.h>
|
|
|
4f818e |
+
|
|
|
4f818e |
#include "proc.h"
|
|
|
4f818e |
#include "common.h"
|
|
|
4f818e |
#include "library.h"
|
|
|
4f818e |
+#include "trace.h"
|
|
|
4f818e |
|
|
|
4f818e |
GElf_Addr
|
|
|
4f818e |
arch_plt_sym_val(struct ltelf *lte, size_t ndx, GElf_Rela * rela) {
|
|
|
4f818e |
@@ -33,3 +37,21 @@ sym2addr(struct process *proc, struct library_symbol *sym)
|
|
|
4f818e |
{
|
|
|
4f818e |
return sym->enter_addr;
|
|
|
4f818e |
}
|
|
|
4f818e |
+
|
|
|
4f818e |
+enum plt_status
|
|
|
4f818e |
+arch_elf_add_plt_entry(struct process *proc, struct ltelf *lte,
|
|
|
4f818e |
+ const char *a_name, GElf_Rela *rela, size_t ndx,
|
|
|
4f818e |
+ struct library_symbol **ret)
|
|
|
4f818e |
+{
|
|
|
4f818e |
+#ifdef R_390_IRELATIVE
|
|
|
4f818e |
+ bool irelative = GELF_R_TYPE(rela->r_info) == R_390_IRELATIVE;
|
|
|
4f818e |
+#else
|
|
|
4f818e |
+ bool irelative = false;
|
|
|
4f818e |
+#endif
|
|
|
4f818e |
+
|
|
|
4f818e |
+ if (irelative)
|
|
|
4f818e |
+ return linux_elf_add_plt_entry_irelative(proc, lte, rela,
|
|
|
4f818e |
+ ndx, ret);
|
|
|
4f818e |
+
|
|
|
4f818e |
+ return PLT_DEFAULT;
|
|
|
4f818e |
+}
|
|
|
4f818e |
--
|