* 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

@@ -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)