Browse Source

* disabled low-level hack test for LLVM

git-svn-id: trunk@42102 -
Jonas Maebe 6 years ago
parent
commit
15532e5277
1 changed files with 7 additions and 0 deletions
  1. 7 0
      tests/tbs/tb0508.pp

+ 7 - 0
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}