paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@5382 -
This commit is contained in:
Jonas Maebe 2006-11-14 20:47:11 +00:00
parent 76cd84f2a1
commit 41c23b8904
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/defutil.pas
View File

@ -1011,7 +1011,10 @@ implementation
{# returns true, if the type passed is a varset } {# returns true, if the type passed is a varset }
function is_varset(p : tdef) : boolean; function is_varset(p : tdef) : boolean;
begin 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; end;