fppu.pas, tppumodule.readsourcefiles:

  set "temp" string to a useful value if "sources_avail" is "false" as otherwise
  garbage is printed if "-vu" is given

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@21733 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 1 deletions

diff --git a/compiler/fppu.pas b/compiler/fppu.pas
index d97f172d40..fb16cc2bfe 100644
--- a/compiler/fppu.pas
+++ b/compiler/fppu.pas
@@ -795,7 +795,9 @@ var
                   { the indexing is wrong here PM }
                   sourcefiles.register_file(hp);
                 end;
-             end;
+             end
+           else
+             temp:=' not available';
            if is_main then
              begin
                mainsource:=hs;