avoid small red flags

This commit is contained in:
Vitor Santos Costa 2016-05-13 11:42:35 +01:00
parent 03da182460
commit 428a6255e1
1 changed files with 5 additions and 2 deletions

View File

@ -494,6 +494,8 @@ don't forget to also add in qly.h
*/
typedef uint64_t pred_flags_t;
#define ProfiledPredFlag \
((pred_flags_t)0x2000000000) /* pred is being profiled */
#define DiscontiguousPredFlag \
((pred_flags_t)0x1000000000) /* predicates whose clauses may be all-over \
the place.. */
@ -544,8 +546,6 @@ typedef uint64_t pred_flags_t;
#define TabledPredFlag ((pred_flags_t)0x00000040) /* is tabled */
#define SequentialPredFlag \
((pred_flags_t)0x00000020) /* may not create parallel choice points! */
#define ProfiledPredFlag \
((pred_flags_t)0x00000010) /* pred is being profiled */
#define BackCPredFlag \
((pred_flags_t)0x00000008) /* Myddas Imported pred \
*/
@ -678,6 +678,9 @@ INLINE_ONLY inline EXTERN Atom NameOfPred(PredEntry *pe) {
}
}
profile_data *
Yap_initProfiler(PredEntry *p);
/* Flags for code or dbase entry */
/* There are several flags for code and data base entries */
typedef enum {