Explorar o código

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: trunk@21733 -

svenbarth %!s(int64=13) %!d(string=hai) anos
pai
achega
378dd7d6ab
Modificáronse 1 ficheiros con 3 adicións e 1 borrados
  1. 3 1
      compiler/fppu.pas

+ 3 - 1
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;