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

* update cacheindex in get_file

Browse Source 
git-svn-id: trunk@5939 -
This commit is contained in:
peter 2007-01-13 12:44:21 +00:00
parent 5e428406e0
commit cfb7a70c66
1 changed files with 5 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/finput.pas
View File

@ -102,7 +102,6 @@ interface
constructor create;
destructor destroy;override;
procedure register_file(f : tinputfile);
procedure inverse_register_indexes;
function get_file(l:longint) : tinputfile;
function get_file_name(l :longint):string;
function get_file_path(l :longint):string;
@ -552,25 +551,6 @@ uses
end;
{ this procedure is necessary after loading the
sources files from a PPU file PM }
procedure tinputfilemanager.inverse_register_indexes;
var
f : tinputfile;
begin
f:=files;
while assigned(f) do
begin
f.ref_index:=last_ref_index-f.ref_index+1;
f:=f.ref_next;
end;
{ reset cache }
cacheindex:=0;
cacheinputfile:=nil;
end;
function tinputfilemanager.get_file(l :longint) : tinputfile;
var
ff : tinputfile;
@ -584,6 +564,11 @@ uses
ff:=files;
while assigned(ff) and (ff.ref_index<>l) do
ff:=ff.ref_next;
if assigned(ff) then
begin
cacheindex:=ff.ref_index;
cacheinputfile:=ff;
end;
get_file:=ff;
end;