diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- setconcurrency was spelled wrongly

Browse Source 
- 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:
vsc 2004-02-16 19:22:40 +00:00
parent f857af0c50
commit 7d7b79630f
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/threads.c
View File

@ -384,7 +384,7 @@ void Yap_InitThreadPreds(void)
Yap_InitCPred("$thread_join", 1, p_thread_join, 0);
Yap_InitCPred("$detach_thread", 1, p_thread_detach, 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("$new_mutex", 1, p_new_mutex, SafePredFlag);
Yap_InitCPred("$destroy_mutex", 1, p_destroy_mutex, SafePredFlag);

5
C/tracer.c
View File

@ -114,10 +114,8 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
Int arity;
/* extern int gc_calls; */
LOCK(heap_regs->low_level_trace_lock);
vsc_count++;
if (vsc_count == 395950L)
vsc_xstop = 1;
return;
#ifdef COMMENTED
if (port != enter_pred ||
!pred ||
@ -237,6 +235,7 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
}
break;
}
UNLOCK(heap_regs->low_level_trace_lock);
}
void

5
H/Heap.h
View File

@ -10,7 +10,7 @@
* File: Heap.h *
* mods: *
* 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 */
@ -198,6 +198,9 @@ typedef struct various_codes {
lockvar dead_clauses_lock; /* protect DeadClauses */
int heap_top_owner;
unsigned int n_of_threads; /* number of threads and processes in system */
#ifdef LOW_LEVEL_TRACER
lockvar low_level_trace_lock;
#endif
#endif
unsigned int size_of_overflow;
Term module_name[MaxModules];