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

+ added comment why the code path is not yet enabled for 16 bit

Browse Source 
git-svn-id: trunk@38281 -
This commit is contained in:
florian 2018-02-18 09:32:54 +00:00
parent e92422383a
commit 29230ebdca
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgset.pas
View File

@ -276,6 +276,9 @@ implementation
end end
{$endif defined(cpu8bitalu)} {$endif defined(cpu8bitalu)}
{$if defined(cpu8bitalu)} {$if defined(cpu8bitalu)}
{ this should be also enabled for 16 bit CPUs, however, I have no proper testing facility for 16 bit, my
testing results using Dosbox are no reliable }
{ $if defined(cpu8bitalu) or defined(cpu16bitalu)}
else if (tsetdef(right.resultdef).setbase>=-32768) and else if (tsetdef(right.resultdef).setbase>=-32768) and
(tsetdef(right.resultdef).setmax-tsetdef(right.resultdef).setbase+1<=65536) then (tsetdef(right.resultdef).setmax-tsetdef(right.resultdef).setbase+1<=65536) then
begin begin