Browse Source

* also queue source file info for ppu reporting

git-svn-id: trunk@6132 -
peter 18 years ago
parent
commit
79720fa7d8
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/fppu.pas

+ 2 - 2
compiler/fppu.pas

@@ -751,7 +751,7 @@ uses
                     begin
                       do_compile:=true;
                       recompile_reason:=rr_sourcenewer;
-                      Message2(unit_u_source_modified,hs,ppufilename^);
+                      Message2(unit_u_source_modified,hs,ppufilename^,@queuecomment);
                       temp:=temp+' *';
                     end;
                 end
@@ -769,7 +769,7 @@ uses
                stringdispose(mainsource);
                mainsource:=stringdup(hs);
              end;
-           Message1(unit_u_ppu_source,hs+temp);
+           Message1(unit_u_ppu_source,hs+temp,@queuecomment);
            is_main:=false;
          end;
       { check if we want to rebuild every unit, only if the sources are