mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-09 19:19:27 +02:00
* set nf_write flag properly for vec. nodes of types with implicit dereferencing
git-svn-id: trunk@40339 -
This commit is contained in:
parent
08d6ca7260
commit
ae8304f657
@ -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;
|
||||||
|
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user