From cb37e7714a56641a7b882819f0d2bf056281e253 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Thu, 20 Dec 2012 21:13:51 +0000
Subject: [PATCH] fix warnings

---
 C/adtdefs.c | 2 --
 C/amasm.c   | 1 -
 C/dbase.c   | 1 -
 C/gprof.c   | 2 +-
 C/index.c   | 1 -
 C/qlyr.c    | 2 --
 C/qlyw.c    | 2 --
 7 files changed, 1 insertion(+), 10 deletions(-)
 mode change 100644 => 100755 C/adtdefs.c
 mode change 100644 => 100755 C/amasm.c
 mode change 100644 => 100755 C/dbase.c
 mode change 100644 => 100755 C/gprof.c
 mode change 100644 => 100755 C/index.c
 mode change 100644 => 100755 C/qlyr.c
 mode change 100644 => 100755 C/qlyw.c

diff --git a/C/adtdefs.c b/C/adtdefs.c
old mode 100644
new mode 100755
index 9ec4c8fab..30f404c9f
--- a/C/adtdefs.c
+++ b/C/adtdefs.c
@@ -771,7 +771,6 @@ ExpandPredHash(void)
 Prop
 Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod)
 {
-  CACHE_REGS
   PredEntry *p = (PredEntry *) Yap_AllocAtomSpace(sizeof(*p));
 
   if (p == NULL) {
@@ -907,7 +906,6 @@ Yap_NewThreadPred(PredEntry *ap USES_REGS)
 Prop
 Yap_NewPredPropByAtom(AtomEntry *ae, Term cur_mod)
 {
-  CACHE_REGS
   Prop p0;
   PredEntry *p = (PredEntry *) Yap_AllocAtomSpace(sizeof(*p));
 
diff --git a/C/amasm.c b/C/amasm.c
old mode 100644
new mode 100755
index e160d7f8d..62223ed11
--- a/C/amasm.c
+++ b/C/amasm.c
@@ -2050,7 +2050,6 @@ a_try(op_numbers opcode, CELL lab, CELL opr, int nofalts, int hascut, yamop *cod
     yamop *newcp;
     /* emit a special instruction and then a label for backpatching */
     if (pass_no) {
-      CACHE_REGS
       UInt size = (UInt)NEXTOP((yamop *)NULL,OtaLl);
       if ((newcp = (yamop *)Yap_AllocCodeSpace(size)) == NULL) {
 	/* OOOPS, got in trouble, must do a longjmp and recover space */
diff --git a/C/dbase.c b/C/dbase.c
old mode 100644
new mode 100755
index 90fc7cb4d..69cf50f9c
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -1887,7 +1887,6 @@ Yap_new_ludbe(Term t, PredEntry *pe, UInt nargs)
 static LogUpdClause *
 record_lu(PredEntry *pe, Term t, int position)
 {
-  CACHE_REGS
   LogUpdClause *cl;
   
   if ((cl = new_lu_db_entry(t, pe)) == NULL) {
diff --git a/C/gprof.c b/C/gprof.c
old mode 100644
new mode 100755
index 80352eb9e..19642cded
--- a/C/gprof.c
+++ b/C/gprof.c
@@ -1177,8 +1177,8 @@ static Int profres0( USES_REGS1 ) {
 void
 Yap_InitLowProf(void)
 {
-  CACHE_REGS
 #if LOW_PROF
+  CACHE_REGS
   LOCAL_ProfCalls = 0;
   LOCAL_ProfilerOn = FALSE;
 
diff --git a/C/index.c b/C/index.c
old mode 100644
new mode 100755
index 8e2c717b2..b7b65e7f8
--- a/C/index.c
+++ b/C/index.c
@@ -1888,7 +1888,6 @@ emit_single_switch_case(ClauseDef *min, struct intermediates *cint, int first, i
 static UInt
 suspend_indexing(ClauseDef *min, ClauseDef *max, PredEntry *ap, struct intermediates *cint)
 {
-  CACHE_REGS
   UInt tcls = ap->cs.p_code.NOfClauses;
   UInt cls = (max-min)+1;
 
diff --git a/C/qlyr.c b/C/qlyr.c
old mode 100644
new mode 100755
index a0a802ae3..5c473b718
--- a/C/qlyr.c
+++ b/C/qlyr.c
@@ -961,7 +961,6 @@ read_ops(IOSTREAM *stream)  {
 
 static void
 read_module(IOSTREAM *stream) {
-  CACHE_REGS
   qlf_tag_t x;
 
   InitHash();
@@ -1045,7 +1044,6 @@ p_read_program( USES_REGS1 )
 int 
 Yap_Restore(char *s, char *lib_dir)
 {
-  CACHE_REGS
   IOSTREAM *stream  = Yap_OpenRestore(s, lib_dir);
   if (!stream) 
     return -1;
diff --git a/C/qlyw.c b/C/qlyw.c
old mode 100644
new mode 100755
index b00b923fb..0bde3d2e6
--- a/C/qlyw.c
+++ b/C/qlyw.c
@@ -765,7 +765,6 @@ save_ops(IOSTREAM *stream, Term mod) {
 
 static size_t
 save_module(IOSTREAM *stream, Term mod) {
-  CACHE_REGS
   PredEntry *ap = Yap_ModulePred(mod);
   InitHash();
   ModuleAdjust(mod);
@@ -803,7 +802,6 @@ save_header(IOSTREAM *stream)
 
 static size_t
 save_program(IOSTREAM *stream) {
-  CACHE_REGS
   ModEntry *me = CurrentModules;
 
   InitHash();