fix yapor bootstrap.
This commit is contained in:
parent
8ff513b58a
commit
d4ea15811e
@ -2839,7 +2839,6 @@ YAP_Init(YAP_init_args *yap_init)
|
|||||||
Yap_InitPageSize(); /* init memory page size, required by later functions */
|
Yap_InitPageSize(); /* init memory page size, required by later functions */
|
||||||
#if defined(YAPOR_COPY) || defined(YAPOR_COW) || defined(YAPOR_SBA)
|
#if defined(YAPOR_COPY) || defined(YAPOR_COW) || defined(YAPOR_SBA)
|
||||||
Yap_init_yapor_global_local_memory();
|
Yap_init_yapor_global_local_memory();
|
||||||
LOCAL = REMOTE(0);
|
|
||||||
#endif /* YAPOR_COPY || YAPOR_COW || YAPOR_SBA */
|
#endif /* YAPOR_COPY || YAPOR_COW || YAPOR_SBA */
|
||||||
GLOBAL_PrologShouldHandleInterrupts = yap_init->PrologShouldHandleInterrupts;
|
GLOBAL_PrologShouldHandleInterrupts = yap_init->PrologShouldHandleInterrupts;
|
||||||
Yap_InitSysbits(); /* init signal handling and time, required by later functions */
|
Yap_InitSysbits(); /* init signal handling and time, required by later functions */
|
||||||
|
3
C/init.c
3
C/init.c
@ -1264,6 +1264,9 @@ Yap_InitWorkspace(UInt Heap, UInt Stack, UInt Trail, UInt Atts, UInt max_table_s
|
|||||||
Yap_regp = ((REGSTORE *)pthread_getspecific(Yap_yaamregs_key));
|
Yap_regp = ((REGSTORE *)pthread_getspecific(Yap_yaamregs_key));
|
||||||
LOCAL = REMOTE(0);
|
LOCAL = REMOTE(0);
|
||||||
#endif /* THREADS */
|
#endif /* THREADS */
|
||||||
|
#if defined(YAPOR_COPY) || defined(YAPOR_COW) || defined(YAPOR_SBA)
|
||||||
|
LOCAL = REMOTE(0);
|
||||||
|
#endif /* YAPOR_COPY || YAPOR_COW || YAPOR_SBA */
|
||||||
if (Heap < MinHeapSpace)
|
if (Heap < MinHeapSpace)
|
||||||
Heap = MinHeapSpace;
|
Heap = MinHeapSpace;
|
||||||
Heap = AdjustPageSize(Heap * K);
|
Heap = AdjustPageSize(Heap * K);
|
||||||
|
Reference in New Issue
Block a user