paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 06:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed clean up of identifier completion class and ancestors list

Browse Source 
git-svn-id: trunk@8401 -
This commit is contained in:
mattias 2005-12-31 14:12:55 +00:00
parent d36315c0c6
commit 931e16b523
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/finddeclarationtool.pas
View File

@ -708,7 +708,7 @@ procedure AddFindContext(var ListOfPFindContext: TFPList;
const NewContext: TFindContext);
function IndexOfFindContext(var ListOfPFindContext: TFPList;
const AContext: PFindContext): integer;
procedure FreeListOfPFindContext(ListOfPFindContext: TFPList);
procedure FreeListOfPFindContext(var ListOfPFindContext: TFPList);
function ListOfPFindContextToStr(const ListOfPFindContext: TFPList): string;
function DbgsFC(const Context: TFindContext): string;
@ -950,7 +950,7 @@ begin
end;
end;
procedure FreeListOfPFindContext(ListOfPFindContext: TFPList);
procedure FreeListOfPFindContext(var ListOfPFindContext: TFPList);
var
CurContext: PFindContext;
i: Integer;
@ -961,6 +961,7 @@ begin
Dispose(CurContext);
end;
ListOfPFindContext.Free;
ListOfPFindContext:=nil;
end;

6
components/codetools/pascalparsertool.pas
View File

@ -3689,14 +3689,16 @@ begin
if (LastErrorPhase in [CodeToolPhaseScan,CodeToolPhaseParse])
and ((not IgnoreErrorAfterValid)
or (not IgnoreErrorAfterPositionIsInFrontOfLastErrMessage))
then
then begin
//DebugLn('TPascalParserTool.BuildTreeAndGetCleanPos RaiseLastError ',MainFilename);
RaiseLastError;
end;
// check if cursor is in interface
CaretType:=CaretToCleanPos(CursorPos, CleanCursorPos);
if (CaretType=0) or (CaretType=-1) then begin
BuildSubTree(CleanCursorPos);
if (CaretType=-1) and (btLoadDirtySource in BuildTreeFlags) then begin
// cursor position lies in dead code (skipped code between IFDEF/ENDIF)
// cursor position is in dead code (skipped code between IFDEF/ENDIF)
LoadDirtySource(CursorPos);
end;
exit;

4
components/sqldb/registersqldb.pas
View File

@ -47,7 +47,7 @@ procedure RegisterUnitSQLdb;
begin
RegisterComponents('SQLdb',[TSQLQuery,
TSQLTransaction,
TIBConnection,
TIBConnection,
{$IFDEF HASODBCCONNECTION}
TODBCConnection,
{$ENDIF}
@ -58,7 +58,7 @@ begin
{$ELSE}
TMySQLConnection,
{$ENDIF}
TPQConnection]);
TPQConnection]);
end;
procedure Register;