This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/JIT/HPP/jit_predicates.hpp

41 lines
903 B
C++
Raw Normal View History

2015-01-20 03:00:42 +00:00
#include "Yap.h"
#include "amijit.h"
2015-01-20 03:00:42 +00:00
#include "clause.h"
#include "YapEval.h"
2015-01-20 03:00:42 +00:00
#if HAVE_ERRNO_H
#include <errno.h>
#else
extern int errno;
#endif
#include <string.h>
#include <ctype.h>
#define UPPER_ENTRY(S) \
tmp = (char*)malloc((strlen(S)+1)*sizeof(char)); \
while (S[i]) { \
if (S[i] != '-' && S[i] != '_' && S[i] != ' ') { \
if ((S[i] >= '0' && S[i] <= '9') || (S[i] == '.')) \
tmp[j] = S[i]; \
else \
tmp[j] = toupper(S[i]); \
j++; \
} \
i++; \
} \
tmp[j] = 0; \
strcpy(S, tmp); \
free(tmp);
void Yap_InitJitAnalysisPreds(void);
void Yap_InitJitCodegenPreds(void);
void Yap_InitJitConfigPreds(void);
void Yap_InitJitTransformPreds(void);
void Yap_InitJitStatisticPreds(void);
void Yap_InitJitDebugPreds(void);
#if YAP_JIT
2015-02-03 02:40:41 +00:00
Environment ExpEnv;
2015-01-20 03:00:42 +00:00
extern NativeContext *NativeArea;
extern IntermediatecodeContext *IntermediatecodeArea;
#endif