paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test for powerpc64; in ppc64/linux pointers to functions are in reality pointers to a function descriptor containing the actual function pointer

Browse Source 
git-svn-id: trunk@6209 -
This commit is contained in:
tom_at_work 2007-01-26 21:58:20 +00:00
parent 34a5236dd0
commit 1e104006a9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/webtbs/tw8153a.pp
View File

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