diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use Int for 32 bit flags (int would be ok, though).

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-06-01 15:32:07 -05:00
parent 95f28228f6
commit 45a1544307
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
C/init.c
View File

@ -480,7 +480,7 @@ InitDebug(void)
} }
void void
Yap_InitCPred(char *Name, unsigned long int Arity, CPredicate code, int flags) Yap_InitCPred(char *Name, unsigned long int Arity, CPredicate code, UInt flags)
{ {
Atom atom = NIL; Atom atom = NIL;
PredEntry *pe = NULL; PredEntry *pe = NULL;
@ -578,7 +578,7 @@ Yap_InitCPred(char *Name, unsigned long int Arity, CPredicate code, int flags)
} }
void void
Yap_InitCmpPred(char *Name, unsigned long int Arity, CmpPredicate cmp_code, int flags) Yap_InitCmpPred(char *Name, unsigned long int Arity, CmpPredicate cmp_code, UInt flags)
{ {
Atom atom = NIL; Atom atom = NIL;
PredEntry *pe = NULL; PredEntry *pe = NULL;
@ -654,7 +654,7 @@ Yap_InitCmpPred(char *Name, unsigned long int Arity, CmpPredicate cmp_code, int
} }
void void
Yap_InitAsmPred(char *Name, unsigned long int Arity, int code, CPredicate def, int flags) Yap_InitAsmPred(char *Name, unsigned long int Arity, int code, CPredicate def, UInt flags)
{ {
Atom atom = NIL; Atom atom = NIL;
PredEntry *pe = NULL; PredEntry *pe = NULL;
@ -793,14 +793,14 @@ CleanBack(PredEntry *pe, CPredicate Start, CPredicate Cont)
void void
Yap_InitCPredBack(char *Name, unsigned long int Arity, Yap_InitCPredBack(char *Name, unsigned long int Arity,
unsigned int Extra, CPredicate Start, unsigned int Extra, CPredicate Start,
CPredicate Cont,int flags){ CPredicate Cont, UInt flags){
Yap_InitCPredBack_(Name,Arity,Extra,Start,Cont,NULL,flags); Yap_InitCPredBack_(Name,Arity,Extra,Start,Cont,NULL,flags);
} }
void void
Yap_InitCPredBackCut(char *Name, unsigned long int Arity, Yap_InitCPredBackCut(char *Name, unsigned long int Arity,
unsigned int Extra, CPredicate Start, unsigned int Extra, CPredicate Start,
CPredicate Cont,CPredicate Cut,int flags){ CPredicate Cont,CPredicate Cut, UInt flags){
Yap_InitCPredBack_(Name,Arity,Extra,Start,Cont,Cut,flags); Yap_InitCPredBack_(Name,Arity,Extra,Start,Cont,Cut,flags);
} }
#endif /* CUT_C */ #endif /* CUT_C */
@ -809,11 +809,11 @@ void
#ifdef CUT_C #ifdef CUT_C
Yap_InitCPredBack_(char *Name, unsigned long int Arity, Yap_InitCPredBack_(char *Name, unsigned long int Arity,
unsigned int Extra, CPredicate Start, unsigned int Extra, CPredicate Start,
CPredicate Cont, CPredicate Cut,int flags) CPredicate Cont, CPredicate Cut, UInt flags)
#else #else
Yap_InitCPredBack(char *Name, unsigned long int Arity, Yap_InitCPredBack(char *Name, unsigned long int Arity,
unsigned int Extra, CPredicate Start, unsigned int Extra, CPredicate Start,
CPredicate Cont, int flags) CPredicate Cont, UInt flags)
#endif #endif
{ {
PredEntry *pe = NULL; PredEntry *pe = NULL;
@ -858,7 +858,7 @@ Yap_InitCPredBack(char *Name, unsigned long int Arity,
StaticClause *cl; StaticClause *cl;
yamop *code = ((StaticClause *)NULL)->ClCode; yamop *code = ((StaticClause *)NULL)->ClCode;
if (flags & UserCPredFlag) if (flags & UserCPredFlag)
pe->PredFlags = UserCPredFlag | CompiledPredFlag | StandardPredFlag; pe->PredFlags = UserCPredFlag | CompiledPredFlag | StandardPredFlag | flags;
else else
pe->PredFlags = CompiledPredFlag | StandardPredFlag; pe->PredFlags = CompiledPredFlag | StandardPredFlag;