What is the correct way to implement the following sample in Harbour (it
works fine in Clipper and xHarbour):
FUNCTION MAIN()
LOCAL aArray := { "Test 1" }
? TEST( aArray )
RETURN NIL
#pragma BEGINDUMP
#include "hbapi.h"
HB_FUNC( TEST )
{
hb_retc( hb_parc( 1, 1 ) );
}
#pragma ENDDUMP
Extra parameter in call to hb_parc in function HB_FUN_TEST
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
