type stuff
This commit is contained in:
parent
32ce8318a1
commit
4052f9b910
@ -129,7 +129,7 @@ Yap_InitSWIHash(void)
|
|||||||
}
|
}
|
||||||
|
|
||||||
static void
|
static void
|
||||||
UserCPredicate(char *a, CPredicate def, unsigned long int arity, Term mod, int flags)
|
UserCPredicate(char *a, CPredicate def, unsigned long int arity, Term mod, pred_flags_t flags)
|
||||||
{
|
{
|
||||||
CACHE_REGS
|
CACHE_REGS
|
||||||
|
|
||||||
@ -2503,7 +2503,7 @@ X_API void PL_register_foreign_in_module(const char *module, const char *name, i
|
|||||||
{
|
{
|
||||||
CACHE_REGS
|
CACHE_REGS
|
||||||
Term tmod;
|
Term tmod;
|
||||||
Int nflags = 0;
|
pred_flags_t nflags = 0;
|
||||||
|
|
||||||
#ifdef DEBUG
|
#ifdef DEBUG
|
||||||
if (flags & (PL_FA_CREF)) {
|
if (flags & (PL_FA_CREF)) {
|
||||||
@ -2523,14 +2523,15 @@ X_API void PL_register_foreign_in_module(const char *module, const char *name, i
|
|||||||
} else {
|
} else {
|
||||||
nflags |= CArgsPredFlag;
|
nflags |= CArgsPredFlag;
|
||||||
}
|
}
|
||||||
|
if (flags & PL_FA_NOTRACE) {
|
||||||
|
nflags |= NoTracePredFlag;
|
||||||
|
}
|
||||||
if (flags & PL_FA_NONDETERMINISTIC) {
|
if (flags & PL_FA_NONDETERMINISTIC) {
|
||||||
Yap_InitCPredBackCut((char *)name, arity, sizeof(struct foreign_context)/sizeof(CELL), (CPredicate)function, (CPredicate)function, (CPredicate)function, UserCPredFlag|nflags);
|
Yap_InitCPredBackCut((char *)name, arity, sizeof(struct foreign_context)/sizeof(CELL), (CPredicate)function, (CPredicate)function, (CPredicate)function, UserCPredFlag|nflags);
|
||||||
} else {
|
} else {
|
||||||
|
printf(" %s %llx\n", name, nflags);
|
||||||
UserCPredicate((char *)name,(CPredicate)function,arity,tmod,nflags);
|
UserCPredicate((char *)name,(CPredicate)function,arity,tmod,nflags);
|
||||||
}
|
}
|
||||||
if (flags & PL_FA_NOTRACE) {
|
|
||||||
Yap_SetNoTrace((char *)name, arity, tmod);
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
X_API void PL_register_extensions(const PL_extension *ptr)
|
X_API void PL_register_extensions(const PL_extension *ptr)
|
||||||
|
Reference in New Issue
Block a user