Преглед на файлове

- 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;