From 41e79351f2d86b6448487c3c7355f6499938e1b2 Mon Sep 17 00:00:00 2001 From: Paul Tucker Date: Sun, 19 Mar 2000 06:28:44 +0000 Subject: [PATCH] Fixes to prevent hang on multiple source files --- harbour/ChangeLog | 9 +++++++++ harbour/source/compiler/harbour.c | 3 ++- harbour/source/compiler/harbour.y | 2 +- 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 94f5b58a23..f93787e427 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,12 @@ +20000319-01:30 EST Paul Tucker + * source/pp/ppcore.c + * Assign NULL to stdef->pars and value when item undef'ed + * Question: Why isn't this stuct removed from the list as well? + * source/compiler/harbour.y + * make hb_comp_szAnnounce non static + * source/compiler/harbour.c + * assign NULL to hb_comp_szAnnounce in hb_compInitVars() + 20000319-01:10 EST Paul Tucker * contrib/rdd_ads/ads1.c * added cast in strlen() (forgot to post previously) diff --git a/harbour/source/compiler/harbour.c b/harbour/source/compiler/harbour.c index 55aa8f9bda..857d6c00af 100644 --- a/harbour/source/compiler/harbour.c +++ b/harbour/source/compiler/harbour.c @@ -113,6 +113,7 @@ BOOL hb_comp_bLogo = TRUE; /* print logo */ BOOL hb_comp_bSyntaxCheckOnly = FALSE; /* syntax check only */ int hb_comp_iLanguage = LANG_C; /* default Harbour generated output language */ +extern char * hb_comp_szAnnounce; typedef struct __EXTERN { char * szName; @@ -2231,7 +2232,7 @@ static void hb_compInitVars( void ) hb_comp_symbols.iCount = 0; hb_comp_symbols.pFirst = NULL; hb_comp_symbols.pLast = NULL; - + hb_comp_szAnnounce = NULL; hb_comp_pInitFunc = NULL; hb_comp_bAnyWarning = FALSE; diff --git a/harbour/source/compiler/harbour.y b/harbour/source/compiler/harbour.y index bc16ff39f2..06a87dd365 100644 --- a/harbour/source/compiler/harbour.y +++ b/harbour/source/compiler/harbour.y @@ -130,7 +130,7 @@ char *hb_comp_buffer; /* yacc input buffer */ static PTR_LOOPEXIT hb_comp_pLoops = NULL; static HB_RTVAR_PTR hb_comp_rtvars = NULL; -static char * hb_comp_szAnnounce = NULL; /* ANNOUNCEd procedure */ +char * hb_comp_szAnnounce = NULL; /* ANNOUNCEd procedure */ %}