paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:40:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not create an fpc_zeromem node if size=0

Browse Source 
git-svn-id: trunk@27224 -
This commit is contained in:
florian 2014-03-21 16:34:35 +00:00
parent 6f14dbdebe
commit 04464b8622
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/psub.pas
View File

@ -217,7 +217,7 @@ implementation
exit; exit;
with tabstractnormalvarsym(p) do with tabstractnormalvarsym(p) do
begin begin
if vo_is_default_var in varoptions then if (vo_is_default_var in varoptions) and (vardef.size>0) then
begin begin
b:=tblocknode(arg); b:=tblocknode(arg);
b.left:=cstatementnode.create( b.left:=cstatementnode.create(