From 1e104006a9856aae2a424317f0a1a75b67bab3b5 Mon Sep 17 00:00:00 2001
From: tom_at_work <tom_at_work@idefix.freepascal.org>
Date: Fri, 26 Jan 2007 21:58:20 +0000
Subject: [PATCH] * fixed test for powerpc64; in ppc64/linux pointers to
 functions are in reality pointers to a function descriptor containing the
 actual function pointer

git-svn-id: trunk@6209 -
---
 tests/webtbs/tw8153a.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/webtbs/tw8153a.pp b/tests/webtbs/tw8153a.pp
index 8a562675a0..429af37ee1 100644
--- a/tests/webtbs/tw8153a.pp
+++ b/tests/webtbs/tw8153a.pp
@@ -13,8 +13,11 @@ type
 procedure tc.test; assembler;
 asm
 {$ifdef cpu64}
+// for simplicity sake do not bother about setting the GOT and
+// environment pointer correctly
   ld r4,0(r3)
   ld r4,+vmtoffset tc.v(r4)
+  ld r4,0(r4)
 {$else}
   lwz r4,0(r3)
   lwz r4,+vmtoffset tc.v(r4)