From 29230ebdcab660c14d0001b0a1314b2382f21d01 Mon Sep 17 00:00:00 2001 From: florian <florian@freepascal.org> Date: Sun, 18 Feb 2018 09:32:54 +0000 Subject: [PATCH] + added comment why the code path is not yet enabled for 16 bit git-svn-id: trunk@38281 - --- compiler/ncgset.pas | 3 +++ 1 file changed, 3 insertions(+) diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas index d770209e24..a8a1fa4d8f 100644 --- a/compiler/ncgset.pas +++ b/compiler/ncgset.pas @@ -276,6 +276,9 @@ implementation end {$endif 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 (tsetdef(right.resultdef).setmax-tsetdef(right.resultdef).setbase+1<=65536) then begin