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

avoid small red flags

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
H/Yatom.h
View File

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