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

* add explicit check that argument of sizeof(x) is a simple load node (this

Browse Source 
was already assumed later on)

git-svn-id: trunk@29816 -
This commit is contained in:
Jonas Maebe 2015-02-23 22:47:35 +00:00
parent b8c8ef8489
commit 68303b8df1
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ninl.pas
View File

@ -2631,6 +2631,10 @@ implementation
if (left.resultdef.typ<>undefineddef) and
paramanager.push_high_param(vs_value,left.resultdef,current_procinfo.procdef.proccalloption) then
begin
{ this should be an open array or array of const, both of
which can only be simple load nodes of parameters }
if left.nodetype<>loadn then
internalerror(2014120701);
hightree:=load_high_value_node(tparavarsym(tloadnode(left).symtableentry));
if assigned(hightree) then
begin