paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:09:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed unused var note.

Browse Source 
git-svn-id: trunk@24332 -
This commit is contained in:
yury 2013-04-26 10:29:35 +00:00
parent b4ba96fa5a
commit 12825a2f09
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/tokens.pas
View File

@ -684,8 +684,11 @@ procedure create_tokenidx;
length, so a search only will be done in that small part }
var
t : ttoken;
i, j : longint;
i : longint;
c : char;
{$ifdef jvm}
j : longint;
{$endif jvm}
begin
fillchar(tokenidx^,sizeof(tokenidx^),0);
for t:=low(ttoken) to high(ttoken) do