add some little support for xml2
This commit is contained in:
parent
c8addfd509
commit
c0aa90bc38
@ -988,6 +988,7 @@ bool setYapFlag(Term tflag, Term t2) {
|
||||
return FALSE;
|
||||
}
|
||||
if (fv->global) {
|
||||
CACHE_REGS
|
||||
switch (fv->FlagOfVE) {
|
||||
case UNKNOWN_FLAG:
|
||||
case CHARACTER_ESCAPES_FLAG:
|
||||
|
4
C/init.c
4
C/init.c
@ -1025,7 +1025,7 @@ static void InitLogDBErasedMarker(void) {
|
||||
LogDBErasedMarker->ClSize =
|
||||
(UInt)NEXTOP(((LogUpdClause *)NULL)->ClCode, e);
|
||||
LogDBErasedMarker->ClCode->opc = Yap_opcode(_op_fail);
|
||||
INIT_CLREF_COUNT(Yap_heap_regs->logdb_erased_marker);
|
||||
INIT_CLREF_COUNT(LogDBErasedMarker);
|
||||
}
|
||||
|
||||
static void InitSWIAtoms(void) {
|
||||
@ -1087,7 +1087,7 @@ static void InitWideAtoms(void) {
|
||||
static void InitInvisibleAtoms(void) {
|
||||
/* initialize invisible chain */
|
||||
INVISIBLECHAIN.Entry = NIL;
|
||||
INIT_RWLOCK(Yap_heap_regs->INVISIBLECHAIN.AERWLock);
|
||||
INIT_RWLOCK(INVISIBLECHAIN.AERWLock);
|
||||
}
|
||||
|
||||
#ifdef YAPOR
|
||||
|
@ -409,7 +409,9 @@ add_subDIRECTORY (packages/cplint)
|
||||
|
||||
add_subDIRECTORY (packages/raptor)
|
||||
|
||||
# add_subDIRECTORY (docs)
|
||||
add_subDIRECTORY (packages/xml)
|
||||
|
||||
add_subDIRECTORY (docs)
|
||||
|
||||
# add_subDIRECTORY (packages/cuda)
|
||||
|
||||
|
Reference in New Issue
Block a user