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

fixed compilation bug (Prof. Vitor Costa)

Browse Source
This commit is contained in:
Miguel Areias 2012-07-02 19:48:58 +01:00
parent fab462b002
commit bc21735ff1
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/stdpreds.c
View File

@ -3256,21 +3256,20 @@ cont_current_predicate_for_atom( USES_REGS1 )
}
p = RepPredProp(p->NextOfPE);
}
READ_UNLOCK(PredHashRWLock);
}
}
READ_UNLOCK(pp->FRWLock);
} else if (pp->KindOfPE == PEProp) {
PredEntry *pe = RepPredProp(pf);
READ_LOCK(pp->FRWLock);
PELOCK(31,pe);
if (pe->ModuleOfPred == mod ||
pe->ModuleOfPred == 0) {
/* we found the predicate */
EXTRA_CBACK_ARG(3,1) = MkIntegerTerm((Int)(pp->NextOfPE));
READ_UNLOCK(pp->FRWLock);
UNLOCKPE(31,pe);
return Yap_unify(ARG3,MkIntTerm(0));
}
READ_UNLOCK(pp->FRWLock);
UNLOCKPE(31,pe);
}
pf = pp->NextOfPE;
}

3
H/inline-only.h
View File

@ -2,7 +2,8 @@
#define _YAP_INLINE_ONLY_H_
#ifdef __GNUC__
#define INLINE_ONLY __attribute__((gnu_inline,always_inline))
//#define INLINE_ONLY __attribute__((gnu_inline,always_inline))
#define INLINE_ONLY
#else
#define INLINE_ONLY
#endif

4
H/yapio.h
View File

@ -328,7 +328,7 @@ EXTERN inline UInt STD_PROTO(HashFunction, (unsigned char *)) INLINE_ONLY;
EXTERN inline UInt STD_PROTO(WideHashFunction, (wchar_t *)) INLINE_ONLY;
EXTERN inline UInt
HashFunction(unsigned char *CHP)
HashFunction(unsigned char *CHP) INLINE_ONLY
{
/* djb2 */
UInt hash = 5381;
@ -347,7 +347,7 @@ HashFunction(unsigned char *CHP)
}
EXTERN inline UInt
WideHashFunction(wchar_t *CHP)
WideHashFunction(wchar_t *CHP) INLINE_ONLY
{
UInt hash = 5381;
UInt c;