Merge branch 'master' of ssh://yap.git.sourceforge.net/gitroot/yap/yap-6.3

This commit is contained in:
Vítor Santos Costa 2011-06-21 15:11:49 +01:00
commit 8c5a87d389
8 changed files with 17 additions and 9 deletions

View File

@ -379,7 +379,7 @@ InitExStacks(int Trail, int Stack)
AuxSp = NULL; AuxSp = NULL;
#ifdef DEBUG #ifdef DEBUG
if (GLOBAL_output_msg) { if (Yap_output_msg) {
UInt ta; UInt ta;
fprintf(stderr, "HeapBase = %p GlobalBase = %p\n LocalBase = %p TrailTop = %p\n", fprintf(stderr, "HeapBase = %p GlobalBase = %p\n LocalBase = %p TrailTop = %p\n",
@ -1534,11 +1534,11 @@ Yap_InitMemory(UInt Trail, UInt Heap, UInt Stack)
#ifdef DEBUG #ifdef DEBUG
#if SIZEOF_INT_P!=SIZEOF_INT #if SIZEOF_INT_P!=SIZEOF_INT
if (GLOBAL_output_msg) { if (Yap_output_msg) {
fprintf(stderr, "HeapBase = %p GlobalBase = %p\n LocalBase = %p TrailTop = %p\n", fprintf(stderr, "HeapBase = %p GlobalBase = %p\n LocalBase = %p TrailTop = %p\n",
Yap_HeapBase, LOCAL_GlobalBase, LOCAL_LocalBase, LOCAL_TrailTop); Yap_HeapBase, LOCAL_GlobalBase, LOCAL_LocalBase, LOCAL_TrailTop);
#else #else
if (GLOBAL_output_msg) { if (Yap_output_msg) {
fprintf(stderr, "HeapBase = %x GlobalBase = %x\n LocalBase = %x TrailTop = %x\n", fprintf(stderr, "HeapBase = %x GlobalBase = %x\n LocalBase = %x TrailTop = %x\n",
(UInt) Yap_HeapBase, (UInt) LOCAL_GlobalBase, (UInt) Yap_HeapBase, (UInt) LOCAL_GlobalBase,
(UInt) LOCAL_LocalBase, (UInt) LOCAL_TrailTop); (UInt) LOCAL_LocalBase, (UInt) LOCAL_TrailTop);

View File

@ -3076,7 +3076,7 @@ X_API void
YAP_SetOutputMessage(void) YAP_SetOutputMessage(void)
{ {
#if DEBUG #if DEBUG
GLOBAL_output_msg = TRUE; Yap_output_msg = TRUE;
#endif #endif
} }

View File

@ -58,6 +58,7 @@ static char SccsId[] = "%W% %G%";
#define LOGFILE "logfile" #define LOGFILE "logfile"
int Yap_output_msg = FALSE;
#ifdef MACC #ifdef MACC
STATIC_PROTO(void InTTYLine, (char *)); STATIC_PROTO(void InTTYLine, (char *));
@ -344,7 +345,7 @@ InitDebug(void)
for (i = 1; i < 20; ++i) for (i = 1; i < 20; ++i)
GLOBAL_Option[i] = 0; GLOBAL_Option[i] = 0;
if (GLOBAL_output_msg) { if (Yap_output_msg) {
char ch; char ch;
#if HAVE_ISATTY #if HAVE_ISATTY

View File

@ -760,6 +760,13 @@ extern ADDR Yap_HeapBase;
#define MAX_ERROR_MSG_SIZE YAP_FILENAME_MAX #define MAX_ERROR_MSG_SIZE YAP_FILENAME_MAX
/*************************************************************************************************
Debugging Support
*************************************************************************************************/
#ifdef DEBUG
extern int Yap_output_msg;
#endif
/************************************************************************************************* /*************************************************************************************************
??? ???

View File

@ -85,7 +85,7 @@
#define GLOBAL_Option Yap_global->Option_ #define GLOBAL_Option Yap_global->Option_
#define GLOBAL_logfile Yap_global->logfile_ #define GLOBAL_logfile Yap_global->logfile_
#define GLOBAL_output_msg Yap_global->output_msg_
#endif #endif
#define GLOBAL_ProfCalls Yap_global->ProfCalls_ #define GLOBAL_ProfCalls Yap_global->ProfCalls_

View File

@ -85,7 +85,7 @@ typedef struct global_data {
char Option_[20]; char Option_[20];
YP_FILE* logfile_; YP_FILE* logfile_;
int output_msg_;
#endif #endif
Int ProfCalls_; Int ProfCalls_;

View File

@ -85,7 +85,7 @@ static void InitGlobal(void) {
GLOBAL_output_msg = FALSE;
#endif #endif

View File

@ -100,7 +100,7 @@ struct MMAP_ARRAY_BLOCK* mmap_arrays =NULL
char Option[20] void char Option[20] void
YP_FILE* logfile void YP_FILE* logfile void
//init.c //init.c
int output_msg =FALSE //int output_msg =FALSE
#endif #endif
//gprof.c //gprof.c