Tried to fix zeh codehints error. + latest Smart.

This commit is contained in:
Raymond 2010-06-04 13:46:38 +02:00
parent 1159703b7c
commit b61153e634
2 changed files with 3 additions and 1 deletions

Binary file not shown.

View File

@ -1215,6 +1215,8 @@ var
b: array[1..2] of TDeclaration;
c: array[0..2] of TDeclarationClass;
begin
if item = nil then
exit;
if (Item is TciProcedureDeclaration) then
begin
AddFuncDeclaration(TciProcedureDeclaration(Item), ItemList, InsertList);
@ -1339,7 +1341,7 @@ procedure TCodeInsight.FillSynCompletionProposal(ItemList, InsertList: TStrings;
var
i: Integer;
begin
if item = nil then
if (item = nil) or (ItemList = nil) or (InsertList = nil) or (Item.Proposal_InsertList = nil) or (Item.Proposal_ItemList = nil) then
exit;
if (not Item.Proposal_Filled) then
Item.FillProposal;