paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 11:29:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r32602 into '.':

Browse Source 
A    tests/webtbs/tw28713b.pp
A    tests/webtbs/tw28713.pp
U    compiler/nmem.pas
--- Recording mergeinfo for merge of r32602 into '.':
 U   .
 --- Merging r33195 into '.':
 G    compiler/nmem.pas
 --- Recording mergeinfo for merge of r33195 into '.':

git-svn-id: branches/fixes_3_0@34054 -
This commit is contained in:
Jonas Maebe 2016-07-03 15:31:29 +00:00
parent 25695174d0
commit c86b538a25
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/nmem.pas
View File

@ -761,6 +761,10 @@ implementation
procedure Tsubscriptnode.mark_write;
begin
include(flags,nf_write);
{ if an element of a record is written, then the whole record is changed/it is written to it,
for data types being implicit pointers this does not apply as the object itself does not change }
if not(is_implicit_pointer_object_type(left.resultdef)) then
left.mark_write;
end;
@ -1064,6 +1068,9 @@ implementation
procedure Tvecnode.mark_write;
begin
include(flags,nf_write);
{ see comment in tsubscriptnode.mark_write }
if not(is_implicit_pointer_object_type(left.resultdef)) then
left.mark_write;
end;