paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:51:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* defutil.is_smallset updated for 8/16-bit CPUs

Browse Source 
git-svn-id: branches/i8086@23894 -
This commit is contained in:
nickysn 2013-03-17 15:31:57 +00:00
parent cbf3b14e20
commit a68dfed450
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/defutil.pas
View File

@ -1127,7 +1127,13 @@ implementation
{# returns true, if the type passed is a varset } {# returns true, if the type passed is a varset }
function is_smallset(p : tdef) : boolean; function is_smallset(p : tdef) : boolean;
begin begin
result:=(p.typ=setdef) and (p.size in [1,2,4]) {$if defined(cpu8bitalu)}
result:=(p.typ=setdef) and (p.size = 1)
{$elseif defined(cpu16bitalu)}
result:=(p.typ=setdef) and (p.size in [1,2])
{$else}
result:=(p.typ=setdef) and (p.size in [1,2,4])
{$endif}
end; end;