Преглед изворни кода

* fixed for darwin/ppc64

git-svn-id: branches/fpc_2_3@6488 -
Jonas Maebe пре 18 година
родитељ
комит
a2c58a644e
1 измењених фајлова са 4 додато и 0 уклоњено
  1. 4 0
      tests/webtbs/tw7851a.pp

+ 4 - 0
tests/webtbs/tw7851a.pp

@@ -38,7 +38,11 @@ asm
   lwz r0, retaddr
 {$else}
   std r0, retaddr
+{$ifdef linux}
   bl .TMyObject.Test2
+{$else linux}
+  bl TMyObject.Test2
+{$endif linux}
   ld r0, retaddr
 {$endif}
   mtlr r0