paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 17:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not insert a widestring <-> ansistring conversion node when checking for (un)equal empty string.

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-12-29 10:26:53 +01:00 committed by Michael Van Canneyt
parent 4e959de2c7
commit 3eee2d8ff3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nadd.pas
View File

@ -2837,9 +2837,11 @@ implementation
st_unicodestring : st_unicodestring :
begin begin
if not(is_unicodestring(rd)) then if not(is_unicodestring(rd)) then
inserttypeconv(right,cunicodestringtype); if not ((ld.size=0) and (nodetype in [equaln,unequaln])) then
inserttypeconv(right,cunicodestringtype);
if not(is_unicodestring(ld)) then if not(is_unicodestring(ld)) then
inserttypeconv(left,cunicodestringtype); if not ((rd.size=0) and (nodetype in [equaln,unequaln])) then
inserttypeconv(left,cunicodestringtype);
end; end;
st_ansistring : st_ansistring :
begin begin