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;
|
return FALSE;
|
||||||
}
|
}
|
||||||
if (fv->global) {
|
if (fv->global) {
|
||||||
|
CACHE_REGS
|
||||||
switch (fv->FlagOfVE) {
|
switch (fv->FlagOfVE) {
|
||||||
case UNKNOWN_FLAG:
|
case UNKNOWN_FLAG:
|
||||||
case CHARACTER_ESCAPES_FLAG:
|
case CHARACTER_ESCAPES_FLAG:
|
||||||
|
4
C/init.c
4
C/init.c
@ -1025,7 +1025,7 @@ static void InitLogDBErasedMarker(void) {
|
|||||||
LogDBErasedMarker->ClSize =
|
LogDBErasedMarker->ClSize =
|
||||||
(UInt)NEXTOP(((LogUpdClause *)NULL)->ClCode, e);
|
(UInt)NEXTOP(((LogUpdClause *)NULL)->ClCode, e);
|
||||||
LogDBErasedMarker->ClCode->opc = Yap_opcode(_op_fail);
|
LogDBErasedMarker->ClCode->opc = Yap_opcode(_op_fail);
|
||||||
INIT_CLREF_COUNT(Yap_heap_regs->logdb_erased_marker);
|
INIT_CLREF_COUNT(LogDBErasedMarker);
|
||||||
}
|
}
|
||||||
|
|
||||||
static void InitSWIAtoms(void) {
|
static void InitSWIAtoms(void) {
|
||||||
@ -1087,7 +1087,7 @@ static void InitWideAtoms(void) {
|
|||||||
static void InitInvisibleAtoms(void) {
|
static void InitInvisibleAtoms(void) {
|
||||||
/* initialize invisible chain */
|
/* initialize invisible chain */
|
||||||
INVISIBLECHAIN.Entry = NIL;
|
INVISIBLECHAIN.Entry = NIL;
|
||||||
INIT_RWLOCK(Yap_heap_regs->INVISIBLECHAIN.AERWLock);
|
INIT_RWLOCK(INVISIBLECHAIN.AERWLock);
|
||||||
}
|
}
|
||||||
|
|
||||||
#ifdef YAPOR
|
#ifdef YAPOR
|
||||||
|
@ -409,7 +409,9 @@ add_subDIRECTORY (packages/cplint)
|
|||||||
|
|
||||||
add_subDIRECTORY (packages/raptor)
|
add_subDIRECTORY (packages/raptor)
|
||||||
|
|
||||||
# add_subDIRECTORY (docs)
|
add_subDIRECTORY (packages/xml)
|
||||||
|
|
||||||
|
add_subDIRECTORY (docs)
|
||||||
|
|
||||||
# add_subDIRECTORY (packages/cuda)
|
# add_subDIRECTORY (packages/cuda)
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user