Browse Source

* View Linking stage if external linking

pierre 26 years ago
parent
commit
ed9aadd1b8
1 changed files with 6 additions and 2 deletions
  1. 6 2
      ide/text/fpcompil.pas

+ 6 - 2
ide/text/fpcompil.pas

@@ -551,7 +551,8 @@ begin
   Compile(FileName);
   Compile(FileName);
   if LinkAfter then
   if LinkAfter then
     begin
     begin
-       CompilationPhase:=cpLinking;
+       CompilationPhase:=cpLinking;                                                                                                                                                                                                                            
+       CompilerStatusDialog^.Update;
 {$ifdef linux}
 {$ifdef linux}
        Shell(PpasFile+source_os.scriptext);
        Shell(PpasFile+source_os.scriptext);
 {$else}
 {$else}
@@ -604,7 +605,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.29  1999-06-28 12:39:14  pierre
+  Revision 1.30  1999-06-28 15:59:04  pierre
+   * View Linking stage if external linking
+
+  Revision 1.29  1999/06/28 12:39:14  pierre
    + close all browsers before compiling
    + close all browsers before compiling
 
 
   Revision 1.28  1999/06/21 23:42:16  pierre
   Revision 1.28  1999/06/21 23:42:16  pierre