From 7a8cb4a17c6eb7aaad29adb79b724699729e5548 Mon Sep 17 00:00:00 2001 From: Mindaugas Kavaliauskas Date: Wed, 11 Feb 2009 16:29:57 +0000 Subject: [PATCH] 2009-02-11 18:30 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/source/vm/proc.c * hb_procname() support for symbol evaluation --- harbour/ChangeLog | 4 ++++ harbour/source/vm/proc.c | 2 ++ 2 files changed, 6 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 9dc44903f8..786cf74ba4 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2009-02-11 18:30 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) + * harbour/source/vm/proc.c + * hb_procname() support for symbol evaluation + 2009-02-11 16:30 UTC+0100 Viktor Szakats (harbour.01 syenar hu) * contrib/gtwvg/wvgutils.c ! Applied fixes done to WIN_APPENDMENU() to the exact diff --git a/harbour/source/vm/proc.c b/harbour/source/vm/proc.c index 48cc86cc3b..3a5d054f67 100644 --- a/harbour/source/vm/proc.c +++ b/harbour/source/vm/proc.c @@ -195,6 +195,8 @@ char * hb_procname( int iLevel, char * szName, BOOL fMethodName ) else if( HB_IS_BLOCK( pSelf ) ) hb_strncat( szName, pSelf->item.asBlock.value->pDefSymb->szName, HB_PROCBUF_LEN ); + else if( HB_IS_SYMBOL( pSelf ) ) + hb_strncpy( szName, pSelf->item.asSymbol.value->szName, HB_PROCBUF_LEN ); else hb_strncat( szName, pBase->item.asSymbol.value->szName, HB_PROCBUF_LEN ); }