30f56abce2
* harbour/source/compiler/hbusage.c
* update the year in hb_compPrintLogo() from 2006 to 2007
* harbour/source/vm/garbage.c
! fixed potentially very serious bug - when I added array items
references I forgot to update GC. Fortunately it was caught
by code to detect bugs in object destructors so only RT error
was reported instead of internal HVM memory corruption
* harbour/tests/hbinline.prg
* updated comments
26 lines
466 B
Plaintext
26 lines
466 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* new Hb_inLine {} test
|
|
*
|
|
* Copyright 2006 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
*/
|
|
|
|
proc main()
|
|
local hb_inLine := " (var) "
|
|
|
|
? hb_inLine { hb_retc("inLine"); } + hb_inLine(" parameter ") {
|
|
hb_retc( hb_parc( 1 ) );
|
|
} + "!" + hb_inLine + hb_inLine() { hb_retc( ":-)" ); } + ;
|
|
hb_inLine() + "{}"
|
|
|
|
return
|
|
|
|
function hb_inLine()
|
|
return " func() "
|