paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 18:09:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* SMall fix so hopefully it compiles with 2.2.2 - bug ID #12637

Browse Source 
git-svn-id: trunk@17400 -
This commit is contained in:
michael 2008-11-15 17:49:15 +00:00
parent 897938b8e4
commit 95cbfe6e7e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/lazdatadesktop/dicteditor.pp
View File

@ -424,7 +424,11 @@ begin
eotIndex:
begin
POT:=eotIndexes;
{$ifdef onlyoldobjects}
Result:=TD.Indexes.AddIndexDef(AObjectName);
{$else}
Result:=TD.Indexes.AddIndex(AObjectName);
{$endifdef}
II:=IIIndex;
end;
{$ifndef onlyoldobjects}