paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed optimization Length(W)=0 -> (Pointer(W)=nil) or (PLongword(Pointer(W)-4)^=0) for WideString

Browse Source
This commit is contained in:
Sergey Larin 2022-01-27 16:54:56 +03:00 committed by FPK
parent 7b39089d4f
commit 35db2b2da3
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nadd.pas
View File

@ -460,11 +460,16 @@ implementation
function TransformLengthZero(n1,n2 : tnode) : tnode;
var
len : Tconstexprint;
lentype : tdef;
begin
if is_dynamic_array(tinlinenode(n1).left.resultdef) then
len:=-1
else
len:=0;
if is_widestring(tinlinenode(n1).left.resultdef) and (tf_winlikewidestring in target_info.flags) then
lentype:=u32inttype
else
lentype:=sizesinttype;
result:=caddnode.create_internal(orn,
caddnode.create_internal(equaln,ctypeconvnode.create_internal(tinlinenode(n1).left.getcopy,voidpointertype),
cpointerconstnode.create(0,voidpointertype)),
@ -472,10 +477,10 @@ implementation
ctypeconvnode.create_internal(
cderefnode.create(
caddnode.create_internal(subn,ctypeconvnode.create_internal(tinlinenode(n1).left.getcopy,voidpointertype),
cordconstnode.create(sizesinttype.size,sizesinttype,false))
),sizesinttype
cordconstnode.create(lentype.size,lentype,false))
),lentype
),
cordconstnode.create(len,sizesinttype,false))
cordconstnode.create(len,lentype,false))
);
end;