Преглед на файлове

* also queue source file info for ppu reporting

git-svn-id: trunk@6132 -
peter преди 18 години
родител
ревизия
79720fa7d8
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      compiler/fppu.pas

+ 2 - 2
compiler/fppu.pas

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