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

fix warnings

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-12-20 21:13:51 +00:00
parent a309f47794
commit cb37e7714a
7 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/adtdefs.c Normal file → Executable file
View File

@ -771,7 +771,6 @@ ExpandPredHash(void)
Prop Prop
Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod) Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod)
{ {
CACHE_REGS
PredEntry *p = (PredEntry *) Yap_AllocAtomSpace(sizeof(*p)); PredEntry *p = (PredEntry *) Yap_AllocAtomSpace(sizeof(*p));
if (p == NULL) { if (p == NULL) {
@ -907,7 +906,6 @@ Yap_NewThreadPred(PredEntry *ap USES_REGS)
Prop Prop
Yap_NewPredPropByAtom(AtomEntry *ae, Term cur_mod) Yap_NewPredPropByAtom(AtomEntry *ae, Term cur_mod)
{ {
CACHE_REGS
Prop p0; Prop p0;
PredEntry *p = (PredEntry *) Yap_AllocAtomSpace(sizeof(*p)); PredEntry *p = (PredEntry *) Yap_AllocAtomSpace(sizeof(*p));

1
C/amasm.c Normal file → Executable file
View File

@ -2050,7 +2050,6 @@ a_try(op_numbers opcode, CELL lab, CELL opr, int nofalts, int hascut, yamop *cod
yamop *newcp; yamop *newcp;
/* emit a special instruction and then a label for backpatching */ /* emit a special instruction and then a label for backpatching */
if (pass_no) { if (pass_no) {
CACHE_REGS
UInt size = (UInt)NEXTOP((yamop *)NULL,OtaLl); UInt size = (UInt)NEXTOP((yamop *)NULL,OtaLl);
if ((newcp = (yamop *)Yap_AllocCodeSpace(size)) == NULL) { if ((newcp = (yamop *)Yap_AllocCodeSpace(size)) == NULL) {
/* OOOPS, got in trouble, must do a longjmp and recover space */ /* OOOPS, got in trouble, must do a longjmp and recover space */

1
C/dbase.c Normal file → Executable file
View File

@ -1887,7 +1887,6 @@ Yap_new_ludbe(Term t, PredEntry *pe, UInt nargs)
static LogUpdClause * static LogUpdClause *
record_lu(PredEntry *pe, Term t, int position) record_lu(PredEntry *pe, Term t, int position)
{ {
CACHE_REGS
LogUpdClause *cl; LogUpdClause *cl;
if ((cl = new_lu_db_entry(t, pe)) == NULL) { if ((cl = new_lu_db_entry(t, pe)) == NULL) {

2
C/gprof.c Normal file → Executable file
View File

@ -1177,8 +1177,8 @@ static Int profres0( USES_REGS1 ) {
void void
Yap_InitLowProf(void) Yap_InitLowProf(void)
{ {
CACHE_REGS
#if LOW_PROF #if LOW_PROF
CACHE_REGS
LOCAL_ProfCalls = 0; LOCAL_ProfCalls = 0;
LOCAL_ProfilerOn = FALSE; LOCAL_ProfilerOn = FALSE;

1
C/index.c Normal file → Executable file
View File

@ -1888,7 +1888,6 @@ emit_single_switch_case(ClauseDef *min, struct intermediates *cint, int first, i
static UInt static UInt
suspend_indexing(ClauseDef *min, ClauseDef *max, PredEntry *ap, struct intermediates *cint) suspend_indexing(ClauseDef *min, ClauseDef *max, PredEntry *ap, struct intermediates *cint)
{ {
CACHE_REGS
UInt tcls = ap->cs.p_code.NOfClauses; UInt tcls = ap->cs.p_code.NOfClauses;
UInt cls = (max-min)+1; UInt cls = (max-min)+1;

2
C/qlyr.c Normal file → Executable file
View File

@ -961,7 +961,6 @@ read_ops(IOSTREAM *stream) {
static void static void
read_module(IOSTREAM *stream) { read_module(IOSTREAM *stream) {
CACHE_REGS
qlf_tag_t x; qlf_tag_t x;
InitHash(); InitHash();
@ -1045,7 +1044,6 @@ p_read_program( USES_REGS1 )
int int
Yap_Restore(char *s, char *lib_dir) Yap_Restore(char *s, char *lib_dir)
{ {
CACHE_REGS
IOSTREAM *stream = Yap_OpenRestore(s, lib_dir); IOSTREAM *stream = Yap_OpenRestore(s, lib_dir);
if (!stream) if (!stream)
return -1; return -1;

2
C/qlyw.c Normal file → Executable file
View File

@ -765,7 +765,6 @@ save_ops(IOSTREAM *stream, Term mod) {
static size_t static size_t
save_module(IOSTREAM *stream, Term mod) { save_module(IOSTREAM *stream, Term mod) {
CACHE_REGS
PredEntry *ap = Yap_ModulePred(mod); PredEntry *ap = Yap_ModulePred(mod);
InitHash(); InitHash();
ModuleAdjust(mod); ModuleAdjust(mod);
@ -803,7 +802,6 @@ save_header(IOSTREAM *stream)
static size_t static size_t
save_program(IOSTREAM *stream) { save_program(IOSTREAM *stream) {
CACHE_REGS
ModEntry *me = CurrentModules; ModEntry *me = CurrentModules;
InitHash(); InitHash();