compiler: check left node to be ord const diring widechar/unicodechar to shortstring before executing the code related to tordconstn()

git-svn-id: trunk@19566 -
2025-04-22 04:09:30 +02:00 · 2011-10-31 07:00:38 +00:00 · 2011-10-31 07:00:38 +00:00 · 435b72bcb1
commit 435b72bcb1
parent 8feb3806b8
1 changed files with 1 additions and 0 deletions
--- a/compiler/ncnv.pas
+++ b/compiler/ncnv.pas
@ -1082,6 +1082,7 @@ implementation
         else
           if (tstringdef(resultdef).stringtype=st_shortstring) and
              (torddef(left.resultdef).ordtype=uwidechar) and
+              (left.nodetype=ordconstn) and
              (tcompilerwidechar(tordconstnode(left).value.uvalue) <= 127)
           then
             begin