- setconcurrency was spelled wrongly
- avoid several workers spewing out the same message in low_level_tracer. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@991 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
f857af0c50
commit
7d7b79630f
@ -384,7 +384,7 @@ void Yap_InitThreadPreds(void)
|
|||||||
Yap_InitCPred("$thread_join", 1, p_thread_join, 0);
|
Yap_InitCPred("$thread_join", 1, p_thread_join, 0);
|
||||||
Yap_InitCPred("$detach_thread", 1, p_thread_detach, 0);
|
Yap_InitCPred("$detach_thread", 1, p_thread_detach, 0);
|
||||||
Yap_InitCPred("$thread_exit", 0, p_thread_exit, 0);
|
Yap_InitCPred("$thread_exit", 0, p_thread_exit, 0);
|
||||||
Yap_InitCPred("thread_set_concurrency", 2, p_thread_set_concurrency, 0);
|
Yap_InitCPred("thread_setconcurrency", 2, p_thread_set_concurrency, 0);
|
||||||
Yap_InitCPred("$valid_thread", 1, p_valid_thread, 0);
|
Yap_InitCPred("$valid_thread", 1, p_valid_thread, 0);
|
||||||
Yap_InitCPred("$new_mutex", 1, p_new_mutex, SafePredFlag);
|
Yap_InitCPred("$new_mutex", 1, p_new_mutex, SafePredFlag);
|
||||||
Yap_InitCPred("$destroy_mutex", 1, p_destroy_mutex, SafePredFlag);
|
Yap_InitCPred("$destroy_mutex", 1, p_destroy_mutex, SafePredFlag);
|
||||||
|
@ -114,10 +114,8 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
|
|||||||
Int arity;
|
Int arity;
|
||||||
/* extern int gc_calls; */
|
/* extern int gc_calls; */
|
||||||
|
|
||||||
|
LOCK(heap_regs->low_level_trace_lock);
|
||||||
vsc_count++;
|
vsc_count++;
|
||||||
if (vsc_count == 395950L)
|
|
||||||
vsc_xstop = 1;
|
|
||||||
return;
|
|
||||||
#ifdef COMMENTED
|
#ifdef COMMENTED
|
||||||
if (port != enter_pred ||
|
if (port != enter_pred ||
|
||||||
!pred ||
|
!pred ||
|
||||||
@ -237,6 +235,7 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
|
|||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
UNLOCK(heap_regs->low_level_trace_lock);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void
|
||||||
|
5
H/Heap.h
5
H/Heap.h
@ -10,7 +10,7 @@
|
|||||||
* File: Heap.h *
|
* File: Heap.h *
|
||||||
* mods: *
|
* mods: *
|
||||||
* comments: Heap Init Structure *
|
* comments: Heap Init Structure *
|
||||||
* version: $Id: Heap.h,v 1.58 2004-02-13 18:39:29 vsc Exp $ *
|
* version: $Id: Heap.h,v 1.59 2004-02-16 19:22:40 vsc Exp $ *
|
||||||
*************************************************************************/
|
*************************************************************************/
|
||||||
|
|
||||||
/* information that can be stored in Code Space */
|
/* information that can be stored in Code Space */
|
||||||
@ -198,6 +198,9 @@ typedef struct various_codes {
|
|||||||
lockvar dead_clauses_lock; /* protect DeadClauses */
|
lockvar dead_clauses_lock; /* protect DeadClauses */
|
||||||
int heap_top_owner;
|
int heap_top_owner;
|
||||||
unsigned int n_of_threads; /* number of threads and processes in system */
|
unsigned int n_of_threads; /* number of threads and processes in system */
|
||||||
|
#ifdef LOW_LEVEL_TRACER
|
||||||
|
lockvar low_level_trace_lock;
|
||||||
|
#endif
|
||||||
#endif
|
#endif
|
||||||
unsigned int size_of_overflow;
|
unsigned int size_of_overflow;
|
||||||
Term module_name[MaxModules];
|
Term module_name[MaxModules];
|
||||||
|
Reference in New Issue
Block a user