Blame SOURCES/ltrace-0.7.91-s390-fetch-syscall.patch

2e4be5
@@ -, +, @@ 
2e4be5
   exe->mount("source", "target", "filesystemtype", 0, nil <unfinished ...>
2e4be5
   mount@SYS("", "target", "filesystemtype", 0, nil)                 = -2
2e4be5
   <... mount resumed>                                               = -1
2e4be5
---
2e4be5
 sysdeps/linux-gnu/s390/fetch.c |   17 ++++++++++++-----
2e4be5
 1 files changed, 12 insertions(+), 5 deletions(-)
2e4be5
--- a/sysdeps/linux-gnu/s390/fetch.c	
2e4be5
+++ a/sysdeps/linux-gnu/s390/fetch.c	
2e4be5
@@ -23,6 +23,7 @@ 
2e4be5
 #include <sys/ucontext.h>
2e4be5
 #include <assert.h>
2e4be5
 #include <errno.h>
2e4be5
+#include <stdbool.h>
2e4be5
 #include <stdio.h>
2e4be5
 #include <stdlib.h>
2e4be5
 #include <string.h>
2e4be5
@@ -61,7 +62,8 @@ s390x(struct fetch_context *ctx)
2e4be5
 }
2e4be5
 
2e4be5
 static int
2e4be5
-fetch_register_banks(struct process *proc, struct fetch_context *ctx)
2e4be5
+fetch_register_banks(struct process *proc, struct fetch_context *ctx,
2e4be5
+		     bool syscall_enter)
2e4be5
 {
2e4be5
 	ptrace_area parea;
2e4be5
 	parea.len = sizeof(ctx->regs);
2e4be5
@@ -72,15 +74,20 @@ fetch_register_banks(struct process *proc, struct fetch_context *ctx)
2e4be5
 			strerror(errno));
2e4be5
 		return -1;
2e4be5
 	}
2e4be5
+
2e4be5
+	if (syscall_enter)
2e4be5
+		ctx->regs.gprs[2] = ctx->regs.orig_gpr2;
2e4be5
+
2e4be5
 	return 0;
2e4be5
 }
2e4be5
 
2e4be5
 static int
2e4be5
-fetch_context_init(struct process *proc, struct fetch_context *context)
2e4be5
+fetch_context_init(struct process *proc, struct fetch_context *context,
2e4be5
+		   bool syscall_enter)
2e4be5
 {
2e4be5
 	context->greg = 2;
2e4be5
 	context->freg = 0;
2e4be5
-	return fetch_register_banks(proc, context);
2e4be5
+	return fetch_register_banks(proc, context, syscall_enter);
2e4be5
 }
2e4be5
 
2e4be5
 struct fetch_context *
2e4be5
@@ -89,7 +96,7 @@ arch_fetch_arg_init(enum tof type, struct process *proc,
2e4be5
 {
2e4be5
 	struct fetch_context *context = malloc(sizeof(*context));
2e4be5
 	if (context == NULL
2e4be5
-	    || fetch_context_init(proc, context) < 0) {
2e4be5
+	    || fetch_context_init(proc, context, type == LT_TOF_SYSCALL) < 0) {
2e4be5
 		fprintf(stderr, "arch_fetch_arg_init: %s\n",
2e4be5
 			strerror(errno));
2e4be5
 		free(context);
2e4be5
@@ -277,7 +284,7 @@ arch_fetch_retval(struct fetch_context *ctx, enum tof type,
2e4be5
 		return 0;
2e4be5
 	}
2e4be5
 
2e4be5
-	if (fetch_context_init(proc, ctx) < 0)
2e4be5
+	if (fetch_context_init(proc, ctx, false) < 0)
2e4be5
 		return -1;
2e4be5
 	return arch_fetch_arg_next(ctx, type, proc, info, valuep);
2e4be5
 }
2e4be5
--