From d5f7c87df80c3fe5322df9442ca8b888b51e0ac8 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Tue, 14 Sep 1999 23:35:27 +0000
Subject: [PATCH] 19990915-01:22 GMT+1

---
 harbour/ChangeLog                  | 5 +++++
 harbour/source/compiler/genc.c     | 3 +++
 harbour/source/compiler/genhrb.c   | 3 +++
 harbour/source/compiler/genjava.c  | 2 ++
 harbour/source/compiler/genobj32.c | 3 +++
 harbour/source/compiler/genpas.c   | 2 ++
 harbour/source/compiler/genrc.c    | 2 ++
 7 files changed, 20 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9cdb88bd08..d2e27a00c3 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+19990915-01:22 GMT+1 Victor Szel <info@szelvesz.hu>
+  * source/compiler/gen*.c
+    + some fflush() calls added to see a better feedback about the progress
+      of the generation process.
+
 19990915-00:38 GMT+1 Victor Szel <info@szelvesz.hu>
   * tests/working/sound.prg
     tests/working/*.bat
diff --git a/harbour/source/compiler/genc.c b/harbour/source/compiler/genc.c
index e57b80ce83..0ed1ffce71 100644
--- a/harbour/source/compiler/genc.c
+++ b/harbour/source/compiler/genc.c
@@ -63,7 +63,10 @@ void GenCCode( PHB_FNAME pFileName )       /* generates the C language output */
    }
 
    if( ! _bQuiet )
+   {
       printf( "\nGenerating C source output to \'%s\'... ", szFileName );
+      fflush( stdout );
+   }
 
    fprintf( yyc, "/* Harbour compiler generated code */\n\n" );
    fprintf( yyc, "#include \"hb_vmpub.h\"\n" );
diff --git a/harbour/source/compiler/genhrb.c b/harbour/source/compiler/genhrb.c
index 5f9fa48c19..285a2c554a 100644
--- a/harbour/source/compiler/genhrb.c
+++ b/harbour/source/compiler/genhrb.c
@@ -67,7 +67,10 @@ void GenPortObj( PHB_FNAME pFileName )
    }
 
    if( ! _bQuiet )
+   {
       printf( "\nGenerating Harbour Portable Object output to \'%s\'... ", szFileName );
+      fflush( stdout );
+   }
 
    /* writes the symbol table */
 
diff --git a/harbour/source/compiler/genjava.c b/harbour/source/compiler/genjava.c
index 918a46c66e..f24afee48b 100644
--- a/harbour/source/compiler/genjava.c
+++ b/harbour/source/compiler/genjava.c
@@ -47,5 +47,7 @@ void GenJava( PHB_FNAME pFileName )
    hb_fsFNameMerge( szFileName, pFileName );
 
    printf( "\nGenerating Java source output to \'%s\'... ", szFileName );
+   fflush( stdout );
+
    printf( "\nNot implemented yet!\n" );
 }
diff --git a/harbour/source/compiler/genobj32.c b/harbour/source/compiler/genobj32.c
index 37da8c1854..b4f6f64494 100644
--- a/harbour/source/compiler/genobj32.c
+++ b/harbour/source/compiler/genobj32.c
@@ -82,7 +82,10 @@ void GenObj32( PHB_FNAME pFileName )
     }
 
   if( ! _bQuiet )
+  {
     printf( "\nGenerating Windows/DOS OBJ32 output to \'%s\'... ", szFileName );
+    fflush( stdout );
+  }
 
   CompiledFileName( hObjFile, szFileName );
   CompilerVersion( hObjFile, "Harbour" );
diff --git a/harbour/source/compiler/genpas.c b/harbour/source/compiler/genpas.c
index 2c893ec05d..508c659014 100644
--- a/harbour/source/compiler/genpas.c
+++ b/harbour/source/compiler/genpas.c
@@ -47,5 +47,7 @@ void GenPascal( PHB_FNAME pFileName )
    hb_fsFNameMerge( szFileName, pFileName );
 
    printf( "\nGenerating Pascal source output to \'%s\'... ", szFileName );
+   fflush( stdout );
+
    printf( "\nNot implemented yet!\n" );
 }
diff --git a/harbour/source/compiler/genrc.c b/harbour/source/compiler/genrc.c
index 7114e4c064..5859319bbe 100644
--- a/harbour/source/compiler/genrc.c
+++ b/harbour/source/compiler/genrc.c
@@ -47,5 +47,7 @@ void GenRC( PHB_FNAME pFileName )
    hb_fsFNameMerge( szFileName, pFileName );
 
    printf( "\nGenerating Windows resource output to \'%s\'... ", szFileName );
+   fflush( stdout );
+
    printf( "\nNot implemented yet!\n" );
 }