* disabled low-level hack test for LLVM

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42102 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 7 insertions, 0 deletions

diff --git a/tests/tbs/tb0508.pp b/tests/tbs/tb0508.pp
index 3ffbe9b795..1d20f8912f 100644
--- a/tests/tbs/tb0508.pp
+++ b/tests/tbs/tb0508.pp
@@ -1,5 +1,7 @@
 { inlining is not compatible with get_caller_frame/get_frame }
 {$inline off}
+
+{$ifndef cpullvm}
 type
   PointerLocal = procedure(_EBP: Pointer);
 
@@ -44,3 +46,8 @@ var
 begin
   t1;
 end.
+{$else ndef cpullvm}
+begin
+  { this kind of hacks can never work on llvm }
+end.
+{$endif cpullvm}