浏览代码

* all systems use an explicit record to pass data to nested routines when
targeting llvm

git-svn-id: branches/hlcgllvm@27138 -

Jonas Maebe 11 年之前
父节点
当前提交
03e28d19d9
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      compiler/systems.pas

+ 4 - 0
compiler/systems.pas

@@ -336,8 +336,12 @@ interface
          variables, but emulate it by wrapping nested variables in records
          variables, but emulate it by wrapping nested variables in records
          whose address is passed around }
          whose address is passed around }
        systems_fpnestedstruct = [
        systems_fpnestedstruct = [
+{$ifndef llvm}
          system_jvm_java32,
          system_jvm_java32,
          system_jvm_android32
          system_jvm_android32
+{$else not llvm}
+         low(tsystem)..high(tsystem)
+{$endif not llvm}
        ];
        ];
 
 
        cpu2str : array[TSystemCpu] of string[10] =
        cpu2str : array[TSystemCpu] of string[10] =