pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix crash of rpn formulas introduced by last commit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3353 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-07-20 18:28:40 +00:00
parent 7a3a9060e9
commit a7c7810ac5
2 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpspreadsheet/fpspreadsheet.pas
View File

@ -5847,7 +5847,6 @@ end;
function NewRPNItem: PRPNItem; function NewRPNItem: PRPNItem;
begin begin
Result := GetMem(SizeOf(TRPNItem)); Result := GetMem(SizeOf(TRPNItem));
Result^.FE.StringValue := '';
FillChar(Result^.FE, SizeOf(Result^.FE), 0); FillChar(Result^.FE, SizeOf(Result^.FE), 0);
Result^.FE.StringValue := ''; Result^.FE.StringValue := '';
end; end;

2
components/fpspreadsheet/tests/spreadtestgui.lpi
View File

@ -90,11 +90,11 @@
<Unit3> <Unit3>
<Filename Value="numberstests.pas"/> <Filename Value="numberstests.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="numberstests"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="manualtests.pas"/> <Filename Value="manualtests.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="manualtests"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="testsutility.pas"/> <Filename Value="testsutility.pas"/>