paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-10 18:02:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* indexes in vecn's are only read, not written

Browse Source 
git-svn-id: trunk@1976 -
This commit is contained in:
Jonas Maebe 2005-12-17 15:20:33 +00:00
parent c3f678e8df
commit 62cbd007f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/htypechk.pas
View File

@ -772,7 +772,7 @@ implementation
p:=tunarynode(p).left; p:=tunarynode(p).left;
vecn: vecn:
begin begin
set_varstate(tbinarynode(p).right,vs_readwritten,[vsf_must_be_valid]); set_varstate(tbinarynode(p).right,vs_read,[vsf_must_be_valid]);
if not(tunarynode(p).left.resulttype.def.deftype in [stringdef,arraydef]) then if not(tunarynode(p).left.resulttype.def.deftype in [stringdef,arraydef]) then
include(varstateflags,vsf_must_be_valid); include(varstateflags,vsf_must_be_valid);
p:=tunarynode(p).left; p:=tunarynode(p).left;