浏览代码

- disabled varsets for big endian targets for now since it breaks sets

git-svn-id: trunk@5382 -
Jonas Maebe 18 年之前
父节点
当前提交
41c23b8904
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/defutil.pas

+ 4 - 1
compiler/defutil.pas

@@ -1011,7 +1011,10 @@ implementation
     {# returns true, if the type passed is a varset }
     function is_varset(p : tdef) : boolean;
       begin
-        result:=(p.typ=setdef) and not(p.size=4);
+        if (target_info.endian = endian_little) then
+          result:=(p.typ=setdef) and not(p.size=4)
+        else
+          result:=false;
       end;