paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 04:40:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not use 32 bit operations on 8 bit cpu in tcginnode.pass_generate_code if not needed, resolves #32071

Browse Source 
git-svn-id: trunk@38271 -
This commit is contained in:
florian 2018-02-17 18:38:03 +00:00
parent c3a0a4e252
commit f37bad774c
1 changed files with 46 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
compiler/ncgset.pas
View File

@ -257,6 +257,44 @@ implementation
genjumps := checkgenjumps(setparts,numparts,use_small); genjumps := checkgenjumps(setparts,numparts,use_small);
orgopsize := def_cgsize(left.resultdef); orgopsize := def_cgsize(left.resultdef);
{$if defined(cpu8bitalu)}
if (tsetdef(right.resultdef).setbase>=-128) and
(tsetdef(right.resultdef).setmax-tsetdef(right.resultdef).setbase+1<=256) then
begin
uopsize := OS_8;
uopdef := u8inttype;
if is_signed(left.resultdef) then
begin
opsize := OS_S8;
opdef := s8inttype;
end
else
begin
opsize := uopsize;
opdef := uopdef;
end;
end
{$endif defined(cpu8bitalu)}
{$if defined(cpu8bitalu)}
else if (tsetdef(right.resultdef).setbase>=-32768) and
(tsetdef(right.resultdef).setmax-tsetdef(right.resultdef).setbase+1<=65536) then
begin
uopsize := OS_16;
uopdef := u16inttype;
if is_signed(left.resultdef) then
begin
opsize := OS_S16;
opdef := s16inttype;
end
else
begin
opsize := uopsize;
opdef := uopdef;
end;
end
else
{$endif defined(cpu8bitalu)}
begin
uopsize := OS_32; uopsize := OS_32;
uopdef := u32inttype; uopdef := u32inttype;
if is_signed(left.resultdef) then if is_signed(left.resultdef) then
@ -269,6 +307,7 @@ implementation
opsize := uopsize; opsize := uopsize;
opdef := uopdef; opdef := uopdef;
end; end;
end;
needslabel := false; needslabel := false;
if not genjumps then if not genjumps then