Răsfoiți Sursa

* also queue source file info for ppu reporting

git-svn-id: trunk@6132 -
peter 18 ani în urmă
părinte
comite
79720fa7d8
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  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