ALT Linux repos
Group :: Development/Other
RPM: fpc
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: fpc-writeidx-show-progress.patch
Download
Download
diff --git a/fpcbuild/fpcsrc/installer/writeidx.pas b/fpcbuild/fpcsrc/installer/writeidx.pas
index 63434eb..cd565f3 100644
--- a/fpcbuild/fpcsrc/installer/writeidx.pas
+++ b/fpcbuild/fpcsrc/installer/writeidx.pas
@@ -32,6 +32,7 @@
procedure TFPHTMLFileLinkScanner.ProcessDoc(Doc: PHTMLLinkScanFile);
begin
+ Writeln('Processing '+Doc^.GetDocumentURL);
end;