add some little support for xml2

This commit is contained in:
Vítor Santos Costa 2016-01-06 12:31:53 +00:00
parent c8addfd509
commit c0aa90bc38
3 changed files with 6 additions and 3 deletions

View File

@ -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:

View File

@ -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

View File

@ -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)