paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-10 13:38:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set nf_write flag properly for vec. nodes of types with implicit dereferencing

Browse Source 
git-svn-id: trunk@40339 -
This commit is contained in:
florian 2018-11-17 15:08:23 +00:00
parent 08d6ca7260
commit ae8304f657
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/nld.pas
View File

@ -517,7 +517,6 @@ implementation
begin begin
inherited create(assignn,l,r); inherited create(assignn,l,r);
l.mark_write;
assigntype:=at_normal; assigntype:=at_normal;
if r.nodetype = typeconvn then if r.nodetype = typeconvn then
ttypeconvnode(r).warn_pointer_to_signed:=false; ttypeconvnode(r).warn_pointer_to_signed:=false;
@ -587,6 +586,8 @@ implementation
typecheckpass(left); typecheckpass(left);
left.mark_write;
{ PI. This is needed to return correct resultdef of add nodes for ansistrings { PI. This is needed to return correct resultdef of add nodes for ansistrings
rawbytestring return needs to be replaced by left.resultdef } rawbytestring return needs to be replaced by left.resultdef }
oldassignmentnode:=aktassignmentnode; oldassignmentnode:=aktassignmentnode;

2
compiler/nmem.pas
View File

@ -1176,7 +1176,7 @@ implementation
begin begin
include(flags,nf_write); include(flags,nf_write);
{ see comment in tsubscriptnode.mark_write } { see comment in tsubscriptnode.mark_write }
if not(is_implicit_pointer_object_type(left.resultdef)) then if not(is_implicit_array_pointer(left.resultdef)) then
left.mark_write; left.mark_write;
end; end;