From 7934b76a4ce7cdcdd9de054db154e3da9dab7047 Mon Sep 17 00:00:00 2001
From: hunt <hunt>
Date: Tue, 21 Feb 2006 08:15:19 +0000
Subject: 2006-02-21  Martin Hunt  <hunt@redhat.com>

	* context.stp: Fix definition of returnval(). Now the same as retval().
	Cleanup needed. Only one can survive.
---
 tapset/context.stp | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

(limited to 'tapset/context.stp')

diff --git a/tapset/context.stp b/tapset/context.stp
index 98571d9e..a93b36b3 100644
--- a/tapset/context.stp
+++ b/tapset/context.stp
@@ -113,7 +113,20 @@ function target:long () %{
 %}
 
 function returnval:long () %{
-          if (CONTEXT->regs) {
-                  THIS->__retvalue = dwarf_register_0(CONTEXT->regs);
-          }
+	if (CONTEXT->regs) {
+#if defined (__i386__)
+		THIS->__retvalue = CONTEXT->regs->eax;
+#elif defined (__x86_64__)
+		THIS->__retvalue = CONTEXT->regs->rax;
+#elif defined (__powerpc64__)
+		THIS->__retvalue = CONTEXT->regs->gpr[3];
+#elif defined (__ia64__)
+		THIS->__retvalue = CONTEXT->regs->r8;
+#elif defined (__sparc64__)
+		THIS->__retvalue = CONTEXT->regs->u_regs[UREG_RETPC];
+#else
+		THIS->__retvalue = -1;
+#endif
+	} else
+		THIS->__retvalue = -1;
 %}
-- 
cgit