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; b: array[1..2] of TDeclaration;
c: array[0..2] of TDeclarationClass; c: array[0..2] of TDeclarationClass;
begin begin
if item = nil then
exit;
if (Item is TciProcedureDeclaration) then if (Item is TciProcedureDeclaration) then
begin begin
AddFuncDeclaration(TciProcedureDeclaration(Item), ItemList, InsertList); AddFuncDeclaration(TciProcedureDeclaration(Item), ItemList, InsertList);
@ -1339,7 +1341,7 @@ procedure TCodeInsight.FillSynCompletionProposal(ItemList, InsertList: TStrings;
var var
i: Integer; i: Integer;
begin 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; exit;
if (not Item.Proposal_Filled) then if (not Item.Proposal_Filled) then
Item.FillProposal; Item.FillProposal;