paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 05:17:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

TodoList: Fix compilation with FPC 3.0. IsValidIdent has extra parameters only in FPC trunk.

Browse Source 
git-svn-id: trunk@53435 -
This commit is contained in:
juha 2016-11-24 10:03:31 +00:00
parent e3d76eb840
commit 83086f564a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/todolist/todolist.pas
View File

@ -67,7 +67,7 @@ uses
CodeCache, CodeToolManager, BasicCodeTools, FileProcs, LazFileUtils, CodeCache, CodeToolManager, BasicCodeTools, FileProcs, LazFileUtils,
LazFileCache, LclIntf, LazFileCache, LclIntf,
// IDEIntf // IDEIntf
LazIDEIntf, IDEImagesIntf, PackageIntf, ProjectIntf, LazIDEIntf, IDEImagesIntf, PackageIntf, ProjectIntf, IDEUtils,
// IDE // IDE
ToDoListStrConsts; ToDoListStrConsts;
@ -425,7 +425,7 @@ begin
CurOwner:=nil; CurOwner:=nil;
CurProject:=nil; CurProject:=nil;
CurPkg:=nil; CurPkg:=nil;
if IsValidIdent(IDEItem,true) then begin if LazIsValidIdent(IDEItem,true) then begin
// package // package
CurPkg:=PackageEditingInterface.FindPackageWithName(IDEItem); CurPkg:=PackageEditingInterface.FindPackageWithName(IDEItem);
CurOwner:=CurPkg; CurOwner:=CurPkg;