19990915-01:22 GMT+1

This commit is contained in:
Viktor Szakats
1999-09-14 23:35:27 +00:00
parent 9954320c0c
commit d5f7c87df8
7 changed files with 20 additions and 0 deletions

View File

@@ -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

View File

@@ -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" );

View File

@@ -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 */

View File

@@ -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" );
}

View File

@@ -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" );

View File

@@ -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" );
}

View File

@@ -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" );
}