From b9ee88d4657e0c9e62d80c188decbcd2740a5c54 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Tue, 28 Mar 2006 19:51:27 +0000 Subject: [PATCH] 2006-03-28 18:00 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/compiler/harbour.c ! upper the default .prg function name created from .prg file name when compiled without -n switch --- harbour/ChangeLog | 5 +++++ harbour/source/compiler/harbour.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c887edf83e..b773903757 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ * source/pp/ppcore.c + * fixed calls to hb_pp_ParseDirective + * increased back the input buffer to HB_PP_STR_SIZE (12288 bytes) + + +2006-03-29 11:55 UTC+0100 Ryszard Glab *fixed declaration of hb_pp_StreamBlock diff --git a/harbour/source/compiler/harbour.c b/harbour/source/compiler/harbour.c index 630026211c..db266a55e5 100644 --- a/harbour/source/compiler/harbour.c +++ b/harbour/source/compiler/harbour.c @@ -4848,7 +4848,7 @@ int hb_compCompile( char * szPrg, int argc, char * argv[] ) /* Generate the starting procedure frame */ if( hb_comp_bStartProc ) { - hb_compFunctionAdd( hb_compIdentifierNew( hb_comp_pFileName->szName, TRUE ), HB_FS_PUBLIC, FUN_PROCEDURE ); + hb_compFunctionAdd( hb_strupr( hb_strdup( hb_compIdentifierNew( hb_comp_pFileName->szName, FALSE ) ) ), HB_FS_PUBLIC, FUN_PROCEDURE ); } else {