paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 02:19:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

dci: changed -1 to Pred

Browse Source 
git-svn-id: trunk@42174 -
This commit is contained in:
mattias 2013-07-22 18:20:54 +00:00
parent ec67ea5655
commit a99023497d
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/sourcelog.pas
View File

@ -136,7 +136,7 @@ type
function GetLine(Index: integer): string; // 0-based
function GetLineLength(Index: integer): integer; // 0-based
procedure GetLineRange(Index: integer; out LineRange: TLineRange);
function GetLineStart(Index: integer): integer;
function GetLineStart(Index: integer): integer; // 1-based
property Items[Index: integer]: TSourceLogEntry
read GetItems write SetItems; default;
function Count: integer; // # Items

6
ide/lazarus_dci_file.dci
View File

@ -3,7 +3,7 @@ $(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
$Param(VariableName): array[0..$Param(HighNumber)] of $Param(String);
$Param(VariableName): array[0..$Param(HighNumber)] of $Param(Type);
|
[arrayc | array declaration (const)]
$(AttributesStart)
@ -81,14 +81,14 @@ $(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
for $Param(CounterVar) := $Param(0) to $Param(Count) - 1 do
for $Param(CounterVar) := $Param(0) to Pred($Param(Count)) do
|
[forb | for statement]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
for $Param(CounterVar) := $Param(0) to $Param(Count) - 1 do
for $Param(CounterVar) := $Param(0) to Pred($Param(Count)) do
begin
|
end;