diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f69c9140d0..a0b080f487 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,9 @@ +19990730-05:55 CET Victor Szel + + source/hbpp/hbppint.c - Added "Warning" to the + message "non directive in include file" + + tests/broken/vec2.prg - Added a failing command: + STATIC bBlock2 := {|| cMyPubVar } + 19990730-05:00 CET Victor Szel ! source/rtl/inkey.c - #elif defined(__GNUC__) -> #elif defined(__CYGNUS__) diff --git a/harbour/source/hbpp/hbppint.c b/harbour/source/hbpp/hbppint.c index 356604c999..e55acd917f 100644 --- a/harbour/source/hbpp/hbppint.c +++ b/harbour/source/hbpp/hbppint.c @@ -179,7 +179,7 @@ int Hp_Parse( FILE* handl_i, FILE* handl_o ) *sLine = '\0'; } else - printf ( "\nNon directive in include file\n"); + printf ( "\nWarning, non directive in include file\n"); } } } diff --git a/harbour/tests/broken/vec2.prg b/harbour/tests/broken/vec2.prg index 97d7dfae35..afd1e8caab 100644 --- a/harbour/tests/broken/vec2.prg +++ b/harbour/tests/broken/vec2.prg @@ -4,5 +4,5 @@ // ; Donated to the public domain by Victor Szel -STATIC bBlock := {|| Hello() } - +STATIC bBlock1 := {|| Hello() } +STATIC bBlock2 := {|| cMyPubVar }