浏览代码

* disabled low-level hack test for LLVM

git-svn-id: trunk@42102 -
Jonas Maebe 6 年之前
父节点
当前提交
15532e5277
共有 1 个文件被更改,包括 7 次插入0 次删除
  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}