paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 01:59:12 +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 GetLine(Index: integer): string; // 0-based
function GetLineLength(Index: integer): integer; // 0-based function GetLineLength(Index: integer): integer; // 0-based
procedure GetLineRange(Index: integer; out LineRange: TLineRange); procedure GetLineRange(Index: integer; out LineRange: TLineRange);
function GetLineStart(Index: integer): integer; function GetLineStart(Index: integer): integer; // 1-based
property Items[Index: integer]: TSourceLogEntry property Items[Index: integer]: TSourceLogEntry
read GetItems write SetItems; default; read GetItems write SetItems; default;
function Count: integer; // # Items function Count: integer; // # Items

6
ide/lazarus_dci_file.dci
View File

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