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

* if a pointer_to_array type conversion is applied to a variable, it is not written, resolves #39957

Browse Source
This commit is contained in:
florian 2022-10-14 23:11:08 +02:00
parent 27315ac528
commit 1c86a4bbeb
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncnv.pas
View File

@ -3775,7 +3775,8 @@ implementation
procedure Ttypeconvnode.mark_write; procedure Ttypeconvnode.mark_write;
begin begin
left.mark_write; if not(convtype=tc_pointer_2_array) then
left.mark_write;
end; end;
function ttypeconvnode.first_cord_to_pointer : tnode; function ttypeconvnode.first_cord_to_pointer : tnode;

9
tests/webtbs/tw39957.pp Normal file
View File

@ -0,0 +1,9 @@
{ %opt=-O4 -Oodeadstore -Oonoregvar }
var
src: array[0 .. 9] of int32;
srcp: pInt32;
begin
srcp := pInt32(src);
srcp[0] := 1;
end.